Led Status - Advantech ADAM 4000 Series User Manual

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
Green
Status
Green
DI Green
DO Green
ADAM-4000 Series User Manual
Indication Action
On Module is at work
Blink Data in transmission
ON/OFF Logic 1/ Logic 0
ON/OFF Logic 1/ Logic 0
20