Hioki RM3542 - Page 161

9.9 Sample Programs
155
9
GP-IB Communications
(Using National Instruments GP-IB Board)
 Simple Resistance Measurement
Imports measured values 10 times, and saves measurements in a text file.
Private Sub MeasureSub()
Dim buffer As String 20 'Receiving buffer
Dim recvstr As String 'Receiving char string
Dim pad As Integer 'Controller Address
Dim gpibad As Integer 'Device Address
Dim timeout As Integer 'Timeout period
Dim ud As Integer 'State (unused)
Dim i As Integer
pad = 0 'Board Address 0
gpibad = 1 'RM3542 Address 1
timeout = T10s 'Timeout about 10s
Call ibfind("gpib0", 0) 'Initialize GP-IB
Call ibdev(pad, gpibad, 0, timeout, 1, 0, ud)
Call SendIFC(pad)
Open App.Path & "\data.csv" For Output As #1 'Open a text file for saving
Call Send(pad, gpibad, ":TRIG:SOUR IMM", NLend) 'Select internal triggering
Call Send(pad, gpibad, ":INIT:CONT ON", NLend) 'Continuous measurement ON
For i = 1 To 10
Call Send(pad, gpibad, ":FETCH?", NLend) 'Send ":FETCH?" to import the most recent mea-
surement
Call Receive(pad, gpibad, buffer, STOPend) 'Receive
recvstr = Left(buffer, InStr(1, buffer, Chr(10)) - 1)
Print #1, Str(i) & "," & recvstr 'Write to the file
Next
Close #1
Call ibonl(pad, 0)
End Sub