f0comex6.abm (F0-CP128)

5              REM ***

10           REM Example Communication Program for F0-CP128

15           REM

20           REM This is a generic example showing how to read data

25           REM from a serial device (scale, bar code, etc), parse numeric

30           REM data from the string and write the numeric data to the PLC

35           REM

40           REM This example assumes that the data is in the following format:

45           REM ##########CRLF

50           REM ***

55           STRING 2551,254 :  REM Allocate String Space 10*254 Strings

60           SETPORT 1,9600,N,8,1,N :  REM Programming/Monitoring

65           SETPORT 3,9600,N,8,1,N :  REM Scale

70           SETINPUT 1,1,10,0,1000,20 :  REM Define how INPUT will work

75           REM —

80           PRINT1 “Waiting for Data”

85           REM —

90           INPUT3 ,$(0) : REM Input Data to String 0 ($(0))

100         IF INPLEN=0 THEN PRINT1 “Device Timed Out” : GOTO 130

105         XHI=VAL(MID$($(0),1,2)) :  REM Get High Word 

106         XMD=VAL(MID$($(0),3,4)) :  REM Get Mid Word

107         XLO=VAL(MID$($(0),7,4)) :  REM Get Low Word

110         S06_VB(2002)=XHI

111         S06_VB(2001)=XMD

112         S06_VB(2000)=XLO

145         REM —

150         REM GOTO 130 : REM Loop