Hioki RM3542-50, Instruction Manual

Page: 177 / 234

9.9 Sample Programs
171
9
 Measure Resistance by PC Key
Measures and imports by key input on the PC, and saves measurements in a text file.
Private Sub MeasureReadSub()
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 ' RM3542A address 1
timeout = T10s ' Timeout about 10 s
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 to save
Call Send(pad, gpibad, ":TRIG:SOUR IMM", NLend) ' Select internal trigger
Call Send(pad, gpibad, ":INIT:CONT OFF", NLend) ' Continuous measurement OFF
For i = 1 To 10
'Wait for PC key input
'Create a key input check routine to set InputKey() = True when a key is pressed
Do While 1
If InputKey() = True Then Exit Do
DoEvents
Loop
'After confirming key input, measure once, and read the measurement value
Call Send(pad, gpibad, ":READ?", NLend)
' Send ":READ?" to measure and import the 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