Omega OSP SERIES - Manual (Page 50)

50
DATA4 VALUE (LL)
SIGNED LONG VALUE = ALARM HI
$85 - LAL Setpoint ------------------------------------------------------------------------ TX
DATA1 VALUE (HH)
DATA2 VALUE (H)
DATA3 VALUE (L)
DATA4 VALUE (LL)
SIGNED LONG VALUE = ALARM LO
$86 - Tag ID selection-------------------------------------------------------------------- TX
DATA1 Tag ID (0=Tag0, 1=TagA, 2=TagB,.....,19=TagS)
DATA2 -
DATA3 -
DATA4 -
$87 - Tag description -------------------------------------------------------------------- TX
DATA1 Char position (0÷7)
DATA2 'X' (ASCII CODE)
DATA3 -
DATA4 -
15.3.3 Communication programs
In this paragraph are illustrated two examples of communication programs between the OSP and an IBM or IBM
compatible PC.
Example A:
Data transfer from OSP to PC
Connect OSP through adapter BB530001 (TTL-RS232 converter), to personal computer communication port COM1.
You will read temperature value.
Example B:
PC instructions to OSP
Connect OSP through adapter BB530001 (TTL-RS232 converter), to personal computer communication port COM1.
You will set emissivity to 0,80.
Example A :
1Ø CHAR = Ш
2Ш IDNAME = 1
3Ø INSTRUCTION = 0
35 OPEN "COM1: 96ØØ, N,8,1,CD,CS,DS,RS" FOR RANDOM AS # 1
4Ø PRINT #1, CHR$ (IDNAME);:REM TRANSMIT IDNAME TO OSP
5Ø WHILE LOC (1) = Ø: WEND: REM WAIT RECEIVING IDNAME FROM OSP
6Ø IDNAME = ASC (INPUT$ (1, 1)): REM READ RECEIVED IDNAME FROM OSP
7Ø PRINT #1, CHR$ (INSTRUCTION);
8Ø WHILE LOC (1) = Ø: WEND
9Ø INSTRUCTION = ASC (INPUT$ (1, 1))
1ØØ PRINT #1, CHR$ (CHAR);
11Ø WHILE LOC (1) = Ø: WEND
12Ø DATA 1 = ASC (INPUT$ (1, 1))
13Ø PRINT #1, CHR$ (CHAR);
14Ø WHILE LOC (1) = Ø: WEND
15Ø DATA 2 = ASC (INPUT$ (1, 1))
16Ø PRINT #1, CHR$ (CHAR);
17Ø WHILE LOC (1) = Ø: WEND
18Ø DATA 3 = ASC (INPUT$ (1, 1))
19Ø PRINT #1, CHR$ (CHAR);
2ØØ WHILE LOC (1) = Ø: WEND
21Ø DATA 4 = ASC (INPUT$ (1, 1))
22Ø PRINT #1, CHR$ (CHAR);
231Ø WHILE LOC (1) = Ø: WEND
24Ø CHKSUM = ASC (INPUT$ (1, 1))
25Ø IF CHKSUM <> ((DATA1 + DATA2 + DATA3 + DATA4) AND &HFF) THEN PRINT "Error": END
26Ø VALUE = DATA3 * 256 + DATA4
27Ø IF VALUE > 32767 THEN VALUE =VALUE - 65536: REM 2'S COMPLEMENT