YOKOGAWA F3LC11-1F, User Manual

Page: 113 / 202

B1-17
IM 34M6H41-02E 2nd Edition : Aug. 1, 2005-00
'========================= M0040 bit read command send
MSComm1.InBufferCount = 0
MSComm1.Output = sendtext2 'BRD command send
recvtext2 = ""
Do
DoEvents
dmy = DoEvents( )
If MSComm1.InBufferCount Then
recvtext2 = rec MSComm1.Input
If InStr(recvtext2, Chr(3)) Then
temp = Mid(recvtext2, 8, 1) ' str+0101OK1
If temp = "1" Then
Option1.Value = True ' ON
Else
Option1.Value = False ' OFF
End If
Exit Do
End If
End If
If start_flg = 0 Then Exit Do
Loop
End Sub
Command1 Click
Private Sub Command1_Click( )
'========================= "Exit"
start_flg = 0
MSComm1.PortOpen = False 'PC com port close
End Sub
Command2 Click
Private Sub Command2_Click( )
'========================= "Start"
start_flg = 1 'PC link command start
'========================= PC com port set
MSComm1.CommPort = 1 'PC com port
MSComm1.Settings = "115200,N,8,1" '115.2kbps, Non parity, 8 bits
'========================= port open
On Error Resume Next
MSComm1.PortOpen = True 'PC com port open
If Err.Number <> 0 Then
MsgBox "COM port open error", , "Error"
Exit Sub
End If
Do
DoEvents
If start_flg = 1 Then Do_Send
Loop
End Sub