Filter
Top Products
B
B-14 Micro PLC Programmer’s Guide – Aptil 1994
GFK-0804B
Sample BASIC Program
100 DIM BUF% (16)
200 PORT% = 1 REM Port–COM2
210 MEMTYPE% = 0 REM Analog Input
220 ADDR% =49 REM Start Address–49
230 COUNT% =16 REM Length–16 Registers
240 CALL BASRreg (PORT%, MEMTYPE%, ADDR%, COUNT%, BUF%(1), ERRSTAT%)
250 IF ERRSTAT% <>0 THEN GOTO 900
300 PORT% = 0 REM Port–COM1
310 MEMTYPE% = 0 REM Discrete Input
320 ADDR% =33 REM Start Address–33
330 COUNT% =16 REM Length–16 Bits
340 BUF$ =SPACE$ (16)
350 CALL BASRbit (PORT%, MEMTYPE%, ADDR%, COUNT%, BUF$, ERRSTAT%)
360 IF ERRSTAT% <>0 THEN GOTO 900
370 FOR I% = 1 TO 16
380 TEMP$=MID$ (BUF$, I%, 1)
390 IF TEMP$=“1” THEN PRINT “ON” ELSE PRINT “OFF”
400 NEXT I%
900