Brütsch Rüegger 148 460, Руководство пользователя

Страница: 130 / 187

6 - 32
No. 99MBB079A
■
Sample program for communication with the SJ-201P(VB-Basic)
Sample program for communication with the SJ-201P
Start
Measurement
Interrupt
Measurement
Interrupt
Measurement
Measured
Profile
RES.TXT
1.00 um
0.88 um
0.15 um
1.00 um
0.46 um
1092/cm
1 %
0.88 um
Ry
Rz
Rq
Rt
Rp
Pc
mr
R3z
CURV.CSV
End
Commnication condition
Baud rate
Parity
Data bits
Stop bit
19200bps
EVEN
8bit
1bit
●
Sample program list using the VB-Basic
Option Explicit
'********************************************
'* Start Measurement *
'********************************************
'
Private Sub Command2_Click()
Dim sts As String
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True '--- open the line.
Call CMD_SEND("WRSTA") '--- Send the command.
Call STS_RD(sts) '--- Receive the status.
If sts = "OK" Then Text1.Text = "Start Measurement" '--- Nomal status.
End Sub
'********************************************
'* Interrupt Measurement *
'********************************************
'
Private Sub Command3_Click()
Dim sts As String
If MSComm1.PortOpen = False Then MSComm1.PortOpen = True
Call CMD_SEND("WRSTP")
Call STS_RD(sts)
If sts = "OK" Then Text1.Text = "Interrupt Measurement"
End Sub