RIGOL DS1000D - Manual (Page 114)

RIGOL
Programming Guide for DS1000E, DS1000D Series 3-10
Label1(0).ForeColor = &HFFFF& 'yellow
End If
Note: Codes of CH2 and MATH are similar to CH1, users can modify homologous
parameters to get their codes and add them to CH2 and MATH.
6. Dblclick Label and add the following codes:
Dim i As Long
Dim sendbuf As String
Dim readbuf As String
rSize = 100
sendbuf = ":CHAN1:DISP?"
i = GetTMCDeviceNum
Call SendToUSB(sendbuf)
readbuf = Read_USB()
If readbuf = "ON" Then
Label1(0).ForeColor = &HFFFF& 'yellow
Else
Label1(0).ForeColor = &H808080 'gray
End If
sendbuf = ":CHAN2:DISP?"
i = GetTMCDeviceNum
Call SendToUSB(sendbuf)
readbuf = Read_USB()
If readbuf = "ON" Then