Picotest M3500A User Manual page 183

Sleep (3000) ' wait for math processing
Rem fetch the measure data
stat = viRead(sesn, readin, 128, ret)
If (stat < VI_SUCCESS) Then
MsgBox "Read in data error.", vbExclamation, "M3500 multimeter
device test"
stat = viClose(fList)
Exit Sub
End If
Rem set to local mode
stat = viWrite(sesn, "system:local", 12, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error. (system:local)", vbExclamation,
"M3500 multimeter device test"
stat = viClose(fList)
Exit Sub
End If
stat = viClose(sesn)
stat = viClose(fList)
stat = viClose(dfltRM)
For i = 0 To (5 - 1) ' print out the 4 times samples reading
Debug.Print "Rdgs = "; Mid(readin, i * 16 + 1, 15)
Next
MsgBox "End of Job."
End Sub
C++ DEVQUERY Sample Application
This C sample application is a Win32 console application. It illustrates
how to use the PICOTEST IOUtils COM. A Win32 console application is a
Win32 application which uses text-based input and output, not a
graphical interface.
application by using simple input and output functions.
Creating the Application
Create a new Visual C++ project as follows:
1. Create a new Win32 Console Application project, calling the project
DEVQUERY.
2. Specify that this project will be a simple application in the last
AppWizard step.
LISTING C.3. THE DEVQUERY FUNCTION.
This allows you to quickly create a Win32
183 183
183 183