YOKOGAWA F3LC11-1F, User Manual

Page: 80 / 202

A4-6
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.
This sample program transmits an event via the modem after successful connection
using auto-dial.
10 !*****************************************
20 !*** F3LC11-1F 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 :! Setup telephone number
280 CONTROL LCSLOT,3;4 :! Telephone number size
290 CONTROL LCSLOT,4;0 :! No. of dial digits for ext. connection
300 CONTROL LCSLOT,5;$4697 :! Telephone number
310 !
320 MAIN@
330 GOSUB SDEVT@
340 IF RSLT=0 THEN PR "SEND OK" ELSE PR "SEND NG" ENDIF
350 STOP
360 !
370 SDEVT@
380 RSLT=0
390 !
400 CONTROL LCSLOT,101;$0000,$07F6 :! Turn off output relay
410 !
420 STATUS LCSLOT,101;XREL :! Read input relay
430 IF BIT(XREL,8)=1 THEN FINER@ :! Check for external connection