Omega Vehicle Security OMB-CHARTSCAN 1400 User Manual

ChartScan Program Examples

Appendix D

D-12

ChartScan User’s Manual

WHILE INKEY$ = ""

PRINT #1, "OUTPUT 07;U4X"
PRINT #1, "ENTER 07 #"; CHANNELS% * 20; " BUFFER "; S%; ":"; O%; " DMA"
PRINT "High, Low and Last readings of all 32 channels :"

'Decode received data and print on screen in ASCII

FOR i = 1 TO BYTES STEP 20

HIGH$ = STR$(CVI(MID$(READS, i, 2)))
HOURh$ = STR$(ASC(MID$(READS, i + 2, 1)))
MINh$ = STR$(ASC(MID$(READS, i + 3, 1)))
SECh$ = STR$(ASC(MID$(READS, i + 4, 1)))
TENTHh$ = STR$(ASC(MID$(READS, i + 5, 1)))
MONh$ = STR$(ASC(MID$(READS, i + 6, 1)))
DAYh$ = STR$(ASC(MID$(READS, i + 7, 1)))
YEARh$ = STR$(ASC(MID$(READS, i + 8, 1)))

LOW$ = STR$(CVI(MID$(READS, i + 9, 2)))
HOURl$ = STR$(ASC(MID$(READS, i + 11, 1)))
MINl$ = STR$(ASC(MID$(READS, i + 12, 1)))
SECl$ = STR$(ASC(MID$(READS, i + 13, 1)))
TENTHl$ = STR$(ASC(MID$(READS, i + 14, 1)))
MONl$ = STR$(ASC(MID$(READS, i + 15, 1)))
DAYl$ = STR$(ASC(MID$(READS, i + 16, 1)))
YEARl$ = STR$(ASC(MID$(READS, i + 17, 1)))

LAST$ = STR$(CVI(MID$(READS, i + 18, 2)))

'Convert counts to Degree C or Voltage readings

IF i < 640 THEN
PRINT STR$(VAL(HIGH$) / 10) + HOURh$ + MINh$ + SECh$ + TENTHh$ + MONh$ +

DAYh$ + YEARh$

PRINT STR$(VAL(LOW$) / 10) + HOURl$ + MINl$ + SECl$ + TENTHl$ + MONl$ +

DAYl$ + YEARl$

PRINT STR$(VAL(LAST$) / 10)
ELSE
PRINT MID$(STR$(VAL(HIGH$) * 4.5 / (32767 * .44)), 1, 8) + HOURh$ + MINh$ +

SECh$ + TENTHh$ + MONh$ + DAYh$ + YEARh$

PRINT MID$(STR$(VAL(LOW$) * 4.5 / (32767 * .44)), 1, 8) + HOURl$ + MINl$ +

SECl$ + TENTHl$ + MONl$ + DAYl$ + YEARl$

PRINT MID$(STR$(VAL(LAST$) * 4.5 / (32767 * .44)), 1, 8)
END IF

NEXT i

WEND