Advantech Adam 4000 Series User Manual page 33

10. Run the Project → Click OPEN to open COM1 → Click SEND to send the Get
Temperature Reading Command. Now, you will find the reading the same as the
displayed format shown below.
Program Source Codes:
OPEN Command Button:

Private Sub Command1_Click()
' Buffer to hold input string
Dim Instring As String
' Use COM1.
MSComm1.CommPort = 1
' 9600 baud, no parity, 8 data, and 1 stop bit.
MSComm1.Settings = "9600,N,8,1"
' Tell the control to read entire buffer when Input ' is used.
MSComm1.InputLen = 0
' Open the port.
MSComm1.PortOpen = True
End Sub
19 ADAM-4000 Series User Manual