![YOKOGAWA F3LC11-1F User Manual Download Page 135](http://html1.mh-extra.com/html/yokogawa/f3lc11-1f/f3lc11-1f_user-manual_3448059135.webp)
B3-5
IM 34M6H41-02E 2nd Edition : Aug. 1, 2005-00
Event Transmission Function BASIC Sample Program
This example assumes that the PC link module is installed in slot 2.
10 !*****************************************
20 !***
F3LC11-2F Sample Program
30 !***
Transmitting an event to a high-level computer
40 !*****************************************
50 DEFINT
A-Z
60 !
70 LCSLOT=2
80 ASSIGN LC11=LCSLOT
:! Declare use of module
90
:!
Setup
transmission
data
100 OUTPUT LCSLOT,1 NOFORMAT;32
:! Transmission data size
110 OUTPUT LCSLOT,2 NOFORMAT;$3132
:! Transmission data
120 OUTPUT LCSLOT,3 NOFORMAT;$3334
130 OUTPUT LCSLOT,4 NOFORMAT;$3536
140 OUTPUT LCSLOT,5 NOFORMAT;$3738
150 OUTPUT LCSLOT,6 NOFORMAT;$3930
160 OUTPUT LCSLOT,7 NOFORMAT;$3132
170 OUTPUT LCSLOT,8 NOFORMAT;$3334
180 OUTPUT LCSLOT,9 NOFORMAT;$3536
190 OUTPUT LCSLOT,10 NOFORMAT;$3738
200 OUTPUT LCSLOT,11 NOFORMAT;$3930
210 OUTPUT LCSLOT,12 NOFORMAT;$3132
220 OUTPUT LCSLOT,13 NOFORMAT;$3334
230 OUTPUT LCSLOT,14 NOFORMAT;$3536
240 OUTPUT LCSLOT,15 NOFORMAT;$3738
250 OUTPUT LCSLOT,16 NOFORMAT;$3930
260 OUTPUT LCSLOT,17 NOFORMAT;$3132
270 !
280 MAIN@
290 GOSUB SDEVT@
300 IF RSLT=0 THEN PR "SEND OK" ELSE PR "SEND NG" ENDIF
310 STOP
320 !
330 SDEVT@
340 RSLT=0
350 !
360 CONTROL LCSLOT,101;$0002,$0002
:! Turn on Y34
(Request to Send)
relay
370 STATUS LCSLOT,101;XREL
:! Read input relay
380 WHILE BIT(XREL,1)=0
:! Wait until x2
(Transmit Completed)
relay turns on
390 STATUS LCSLOT,101;XREL
:! Read input relay
400 END WHILE
410 CONTROL LCSLOT,101;$0000,$0002
:! Turn off Y34
(Request to Send)
relay
420 PR "SEND MESSAGE"
430 !
440 PR "CLOSE":GOTO FIN@
Summary of Contents for F3LC11-1F
Page 2: ......
Page 12: ...Blank Page...
Page 48: ...Blank Page...
Page 65: ...A3 7 IM 34M6H41 02E 2nd Edition Aug 1 2005 00 430 PR CLOSE 440 450 FIN 460 470 END...
Page 74: ...Blank Page...
Page 82: ...Blank Page...
Page 92: ...Blank Page...
Page 94: ...Blank Page...
Page 120: ...Blank Page...
Page 136: ...B3 6 IM 34M6H41 02E 2nd Edition Aug 1 2005 00 450 460 END...
Page 140: ...Blank Page...
Page 142: ...Blank Page...
Page 146: ...Blank Page...
Page 148: ...Blank Page...
Page 168: ...Blank Page...
Page 176: ...Blank Page...
Page 200: ...Blank Page...
Page 202: ...Blank Page...