YOKOGAWA F3LC11-1F, User Manual

Page: 112 / 202

B1-16
IM 34M6H41-02E 2nd Edition : Aug. 1, 2005-00
2. Create a form
Paste the Comm control added in step 1 (at any position), a label, a text box, an
option button and 2 command buttons on the form and define the caption for each
control.
Text box
Label
Option button
Comm control
Command button 2 Command button 1
FA10704.VSD
This sample program reads the values of D0001 and M0040 when the Start button is
clicked.
3. Enter the source code.
(General)(Decralations)
Dim start_flg As Integer
(General) Do_Send
Private Sub Do_Send( )
Dim sendtext1 As String, sendtext2 As String
Dim recvtext1 As String, recvtext2 As String
sendtext1 = Chr(2) + "01010WRDD0001,01" + Chr(3) 'D0001 read command
sendtext2 = Chr(2) + "01010BRDM0040,001" + Chr(3) 'M0040 read command
'========================= D0001 word read command send
MSComm1.InBufferCount = 0
MSComm1.Output = sendtext1 'WRD command send
recvtext1 = ""
Do
DoEvents
dmy = DoEvents( )
If MSComm1.InBufferCount Then
recvtext1 = rec MSComm1.Input
If InStr(recvtext1, Chr(3)) Then
Text1.Text = Mid(recvtext1, 8, 4) ' 0101OK1234
Exit Do
End If
End If
If start_flg = 0 Then Exit Do
Loop