
RIGOL Chapter 3 Programming Demos
3-14 DS1000Z Programming Guide
Dim matches As String * 200 ' keep the acquisition device number
Dim s32Disp As Integer
' acquire the usb source of visa
Call viOpenDefaultRM(defrm)
Call viFindRsrc(defrm, "USB?*", list, nmatches, matches)
' Open the device
Call viOpen(defrm, matches, 0, 0, vi)
' Send the command to query the status of CH1
Call viVPrintf(vi, ":CHAN1:DISP?" + Chr$(10), 0)
' Acquire the status of CH1
Call viVScanf(vi, "%t", strRes)
s32Disp = CInt(strRes)
If (s32Disp = 1) Then
' Send the setting command
Call viVPrintf(vi, ":CHAN1:DISP 0" + Chr$(10), 0)
Label1(0).ForeColor = &H808080 'Gray
Else
Call viVPrintf(vi, ":CHAN1:DISP 1" + Chr$(10), 0)
Label1(0).ForeColor = &HFFFF& 'Yellow
End If
' Close the device
Call viClose(vi)
Call viClose(defrm)
6. Save and run the project and the exe program will be obtained. When the oscilloscope is correctly
connected to the PC, the ON/OFF control of any channel can be realized.
Comentarios a estos manuales