YOKOGAWA 765501 - Page 226

16-54
IM 765501-01E
‘—————————————————————————————————
‘
‘ Read the measured result
‘
‘ Free run using internal trigger
‘
‘—————————————————————————————————
Function ReadAsString(dev As Integer) As String ‘ String output
ReadAsString = CommQuery(dev, “:READ?”)
End Function
Function ReadAsDouble(dev As Integer) As Double ‘ Real number output
ReadAsDouble = Val(ReadAsString(dev))
End Function
‘—————————————————————————————————
‘
‘ Sample Sequence 1
‘
‘ Set the GS610 to Setup 1, read 10 result values in an array, and turn the output
‘ OFF
‘
‘—————————————————————————————————
Function SampleSequence1()
Dim dev As Integer
Dim result(10) As Double
Dim i As Integer
dev = CommOpen() ‘ Open the device
Call Setup1(dev) ‘ Set to Setup 1
For i = 0 To 9 ‘ Loop 10 times
result(i) = ReadAsDouble(dev) ‘ Read the result and substitute
into an array
Next i
Call CommSend(dev, “:OUTP:STAT OFF”) ‘ Turn the output OFF
Call CommClose(dev) ‘ Close the device
End Function
16.4 Sample Programs