TEXIO DL-1060, Инструкция по эксплуатации

Страница: 137 / 146

131
C. About Application Programs
This section provides a brief description for each DL-1060 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.
C.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 C.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 .
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 "USB-TMC resource not found.", vbExclamation, "DL-1060 multimeter device test"
Exit Sub
End If
Rem Find all DL-1060 USB-TMC instruments in the system
stat = viFindRsrc(dfltRM, "USB[0-9]*::0x098F::0x2062::?*INSTR", fList, nList, desc)
If (stat < VI_SUCCESS) Then
'Rem Error finding resources ... exiting
MsgBox "DL-1060 device not found.", vbExclamation, "DL-1060 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