SW1002_user_manual_chi_20191017H.pdf - 第113页
109 8.10 Visual Basic ® 5.0 Visual Basic ® 6.0 Visual Basic ® 2013 Visual Basic ® 5.0/6.0 Visual Basic ® 5.0 6.0 RS-232C/USB �…
108
:SYSTem:MODule:COUNt? <
>[,<
>]
< > = 1 3 (NR1) (SW1001)
1
12 (NR1) (SW1002)
<
> = 0 1000000000 (NR1)
:SYSTem:MODule:COUNt? 1
101257
•
136 142
•
(11)
:SYSTem:PRESet
:STATus:PRESet
6.1 47
:SYSTem:PRESet
:STATus:PRESet
:SYST:PRES
•
•
(CLOSE) (OPEN)
•
SYSTem:BACKup
107
(12)
:TEST:RELayshort <
>,<
>
< > = 1 3 (NR1) (SW1001)
1
12 (NR1) (SW1002)
<
> = CH/BUS/OPEN
CH
BUS
OPEN (OPEN)
26
:TEST:RELayshort 1,CH
SLOT 1
109
8.10
Visual Basic
®
5.0Visual Basic
®
6.0 Visual Basic
®
2013
Visual Basic
®
5.0/6.0
Visual Basic
®
5.0 6.0
RS-232C/USB Visual Basic
®
ProfessionalMSComm
RS-232C/USB CR+LF
8
110
RS-232C/USB Visual Basic
®
Professional MSComm
DM7276
COM SW1001DM7276SLOT 1CH1 CH22
USBRS-232C USB COM
COMUSB
'
Private Sub ScanSample1 ()
Dim unit_no As Integer
Dim ch_no As Integer
Dim ch_str As String
Dim recv_str As String
MSComm1.CommPort = 3 '
COM3SW1001
MSComm1.Settings = "9600,n,8,1"
MSComm2.CommPort = 4 '
COM4DM7276
MSComm2.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
MSComm2.PortOpen = True
Open App.Path & "\data.csv" For Output As #1 '
SendCommand MSComm1, ":SYST:MOD:WIRE:MODE 1,WIRE2" 'SLOT 12
SendCommand MSComm1, "*OPC?" '
ReceiveCOM MSComm1
For unit_no = 1 To 1
For ch_no = 1 To 22
ch_str = Format (unit_no, "00") & Format (ch_no, "00") '
SendCommand MSComm1, ":CLOS " & ch_str ' (CLOSE)
SendCommand MSComm1, "*OPC?" ' (CLOSE)
ReceiveCOM MSComm1
SendCommand MSComm2, ":READ?" '
DM7276
recv_str = ReceiveCOM (MSComm2) '
Print #1, ch_str & "," & recv_str '
Next
Next
SendCommand MSComm1, ":OPEN" '
(OPEN)
Close #1
MSComm1.PortOpen = False
MSComm2.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