Hioki SW9001, Инструкция по эксплуатации

Страница: 114 / 170

110
Sample Programs
'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")
Print #1, ch_str & "," & ir_str(i) & "," & ocv_str(i)
'Write measurement data to a file.
i = i + 1
Next
Next
Close #1
MSComm1.PortOpen = False
MSComm2.PortOpen = False
MSComm3.PortOpen = False
End Sub
'Send to the specified COM port.
Private Sub SendCommand(comport As MSComm, cmdstr As String)
comport.InBufferCount = 0
comport.Output = vbCrLf
End Sub
'Receive from the specified COM port.
Private Function ReceiveCOM(comport As MSComm) As String
Dim recvstr As String
Do While Right(recvstr, 1) <> Chr(10)
recvstr = comport.Input
DoEvents
Loop
ReceiveCOM = Left(recvstr, Len(recvstr) - 2)
End Function
HIOKI SW1001A961-04