Advantech Adam - 4051 - LED Status

ADAM-4000 Series User Manual 20
 SEND Command Button:
Private Sub Command2_Click()
' Send Get AI command to ADAM-4011 Module at address 01H.
MSComm1.Output = "#01" & Chr$(13)
' Wait for data to come back to the serial port.
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, vbCr)
' Read the response till the carriage return character.
Text1.Text = Buffer$
' Display the reading.
End Sub
 CLOSE Command Button
Private Sub Command3_Click()
' Close the serial port.
MSComm1.PortOpen = False
End Sub
2.6 LED Status
LED Color Indication Action
Status
Green On Module is at work
Green Blink Data in transmission
DI Green ON/OFF Logic 1/ Logic 0
DO Green ON/OFF Logic 1/ Logic 0