Hioki SW1001, Инструкция по эксплуатации, Страница: 122 / 164

118
Sample Programs
'Configure SLOT1 as a 2-wire connection.
sp1.WriteLine(":SYST:MOD:WIRE:MODE 1,WIRE2")
sp1.WriteLine("
* OPC?")
sp1.ReadLine()
i = 0
For unit_no = 1 To 1
For ch_no = 12 To 22 'The 2-wire CH12 corresponds to the 4-wire CH1 sense.
'Create a string to specify the channel.
ch_str = Format(unit_no, "00") + Format(ch_no, "00")
'Close the specified channel and wait for the operation to complete.
sp1.WriteLine(":CLOS " + ch_str)
sp1.WriteLine("
*
OPC?")
sp1.ReadLine()
'Send the one-time measurement command to the DM7276 and receive the measured value.
sp3.WriteLine(":READ?")
ocv_str(i) = sp3.ReadLine()
i = i + 1
Next
Next
'Open all relays after the scan completes.
sp1.WriteLine(":OPEN")
' Write the CH1 to CH11 measurement data of SLOT 1 to a file.
i = 0
For unit_no = 1 To 1
For ch_no = 1 To 11
ch_str = Format(unit_no, "00") + Format(ch_no, "00")
writer1.WriteLine( "," + ir_str(i) + "," + ocv_str(i))
i = i + 1
Next
Next
writer1.Close()
sp1.Close()
sp2.Close()
sp3.Close()
sp1.Dispose()
sp2.Dispose()
sp3.Dispose()
End Sub
End Class