使用VB控制TSM


使用VB控制TSM
可自行鍵入數值控制


步驟一: 先製作介面


步驟二: 編寫程式碼

Private Sub Form_Load()
If (MSComm1.PortOpen = True) Then MSComm1.PortOpen = False
MSComm1.CommPort = 3
MSComm1.PortOpen = True
MSComm1.Settings = "9600,N,8,1"
End Sub

Private Sub Command1_Click()

MSComm1.Output = "VE" & Text1.Text & Chr(13)
MSComm1.Output = "AC" & Text2.Text & Chr(13)
MSComm1.Output = "DE" & Text3.Text & Chr(13)
MSComm1.Output = "FL" & Text4.Text & Chr(13)


End Sub


說明步驟二:
檢視>屬性視窗

點左邊的Text1 (可以改變): 元件名稱(Name)
點右邊的Text (不可改變): 元件屬性(在此指Text屬性,可呼叫使用者鍵入的值)