TEXIO DL-2060, Instruction Manual, Page: 141 / 152

135
E.2 Using CONFigure with a Math Operation
The following example uses CONFigure with the dBm math operation.The CONFigure command
gives you a little more programming flexibility than the MEASure? command. This allows you to
“incrementally” change the multimeter’s configuration.
LISTING E.2.
Set the startup object for a Windows application to Sub Main .
Add a Reference to the “VISA Library”.
The sample application requires the following referece: C:\WINDOWS\system32\
visa32.dll .
(Note:Windows 64bit is different path.)
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub main()
Rem #########################################
Rem
Rem Using NI-VISA library visa32.dll
Rem
Rem Set sample count 5 configuration and
Rem read the trigger
Rem
Rem #########################################
Dim stat As ViStatus
Dim dfltRM As ViSession
Dim sesn As ViSession
Dim fList As ViFindList
Dim desc As String * VI_FIND_BUFLEN
Dim nList As Long
Dim ret As Long
Dim readin As String * 128
Dim i As Integer ' Array index
stat = viOpenDefaultRM(dfltRM)
If (stat < VI_SUCCESS) Then
'Rem Error initializing VISA ... exiting
MsgBox "USBTMC resource not found.", vbExclamation, "DL-2060 multimeter device test"
Exit Sub
End If
Rem Find all DL-2060 USBTMC instruments in the system
stat = viFindRsrc(dfltRM, "USB[0-9]*::0x098F::0x2061::?*INSTR", fList, nList, desc)
If (stat < VI_SUCCESS) Then
'Rem Error finding resources ... exiting
MsgBox "DL-2060 device not found.", vbExclamation, "DL-2060 multimeter device test"
viClose (dfltRM)
Exit Sub
End If
Rem Open a session to each and determine if it matches
stat = viOpen(dfltRM, desc, VI_NULL, VI_NULL, sesn)
If (stat < VI_SUCCESS) Then
MsgBox "Open device failed.", vbExclamation, "DL-2060 multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem send reset command '*RST' -- reset DL-2060