使用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

說明步驟二:

檢視>屬性視窗