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

133
E. About Application Programs
This section provides a brief description for each DL-2060 sample collection.
All of the following programs use the NI-VISA. If you want to modify the example programs, or write
your own programs and compile them, you will need to install the NI-VISA.
Visual Basic 6.0
Ⓡ
and Visual C++
Ⓡ
are registered trademarks of Microsoft Corporation in the
USA and other countries.
NI-VISA is trademark of National Instruments Corp.
Visual Basic 6 and VBA(Excel)
Learn how to create and use TEXIO IOUtils components, controls, data access, and more with the
following Visual Basic 6 sample applications.
E.1 Using MEASure? for a Single Measurement
The following example uses the MEASure? command to make a single ac current measurement.
This is the easiest way to program the multimeter for measurements. However, MEASure? does
not offer much flexibility.
LISTING E.1.
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.)
Sub Main()
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 * 64
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