Omega Engineering OMB-CHARTSCAN 1400, Руководство пользователя

Страница: 249 / 273

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