SW1002_user_manual_chi_20191017H.pdf - 第117页
113 Visual Basic ® 2013 Visual Basic ® 2013 Express Edition RS-232C USB PC PC Visual Basic ® 2013 …
112
'SLOT 1CH1 CH11
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) '
i = i + 1
Next
Next
Close #1
MSComm1.PortOpen = False
MSComm2.PortOpen = False
MSComm3.PortOpen = False
End Sub
'
COM
Private Sub SendCommand (comport As MSComm, cmdstr As String)
comport.InBufferCount = 0
comport.Output = cmdstr + vbCrLf
End Sub
'
COM
Private Function ReceiveCOM (comport As MSComm) As String
Dim recvstr As String
Do While Right (recvstr, 1) <> Chr (10)
recvstr = RecStr + comport.Input
DoEvents
Loop
ReceiveCOM = Left (recvstr, Len (recvstr) - 2)
End Function
113
Visual Basic
®
2013
Visual Basic
®
2013 Express EditionRS-232C USB PC
PC Visual Basic
®
2013Visual Basic
®
2013
Visual Basic
®
2013 HELP
(1)
1
Visual Basic
®
2013
2
[File] – [New Project]
3
[Windows Forms Application]
3
4
4
[OK]
8
114
(2)
5
[Toolbox] [Common Controls] [Button]
1
2
6
7
[Properties] [Text] [Start Measurement]
[Start Measurement]