Measurement-computing TempScan/1100 Manual de usuario Pagina 299

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 306
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 298
TempScan / MultiScan, Appendix C 879696 Program Examples in Quick Basic C-29
MultiScan/1200
Example 15p. BIN_HLL.BAS Program
(1) …… 15-CLS : PRINT “The MultiScan/1200 is resetting...”
…… 15-PRINT #1, “OUTPUT 07;*RX”
(3) …… 15-SLEEP 10
(4) …… 15-S% = 0
…… 15-WHILE (S% AND 4) = 0
…… 15-PRINT #1, “SPOLL 07"
…… 15-INPUT #2, S%
(8) …… 15-WEND
(9) …… 15-PRINT #1, “OUTPUT 07;M#0X”
(10) …… 15-PRINT #1, “OUTPUT 07;W#32X”
(11) …… 15-PRINT #1, “OUTPUT 07;C1-24,1X”
(12) …… 15-PRINT #1, “OUTPUT 07;C25-36,14X”
(13-31) …… 15-(For sample acquisition program lines, refer to the previous MultiScan/1200 program example.)
(32) …… 15-PRINT #1, “OUTPUT 07;F0,1X”
(33) …… 15-CONST CHANNELS% = 36, BYTES = CHANNELS% * 20
DIM READS AS STRING * BYTES
S% = VARSEG(READS)
O% = VARPTR(READS)
WHILE INKEY$ = “”
PRINT #1, “OUTPUT 07;U4X”
PRINT #1, “ENTER 07 #”; CHANNELS%*20; “BUFFER ”;S%; “:”;O%; “ DMA”
(40) …… 15-PRINT “High, Low and Last readings of all 36 channels :”
(41) …… 15-FOR i = 1 TO BYTES STEP 20
…… 15- …… 15-HIGH$ = STR$(CVI(MID$(READS, i, 2)))
(43) …… 15- …… 15-HOURh$ = STR$(ASC(MID$(READS, i + 2, 1)))
…… 15- …… 15-MINh$ = STR$(ASC(MID$(READS, i + 3, 1)))
…… 15- …… 15-SECh$ = STR$(ASC(MID$(READS, i + 4, 1)))
…… 15- …… 15-TENTHh$ = STR$(ASC(MID$(READS, i + 5, 1)))
…… 15- …… 15-MONh$ = STR$(ASC(MID$(READS, i + 6, 1)))
…… 15- …… 15-DAYh$ = STR$(ASC(MID$(READS, i + 7, 1)))
…… 15- …… 15-YEARh$ = STR$(ASC(MID$(READS, i + 8, 1)))
(50) …… 15- …… 15-LOW$ = STR$(CVI(MID$(READS, i + 9, 2)))
(51) …… 15- …… 15-HOURl$ = STR$(ASC(MID$(READS, i + 11, 1)))
…… 15- …… 15-MINl$ = STR$(ASC(MID$(READS, i + 12, 1)))
…… 15- …… 15-SECl$ = STR$(ASC(MID$(READS, i + 13, 1)))
…… 15- …… 15-TENTHl$ = STR$(ASC(MID$(READS, i + 14, 1)))
…… 15- …… 15-MONl$ = STR$(ASC(MID$(READS, i + 15, 1)))
…… 15- …… 15-DAYl$ = STR$(ASC(MID$(READS, i + 16, 1)))
…… 15- …… 15-YEARl$ = STR$(ASC(MID$(READS, i + 17, 1)))
(58) …… 15- …… 15-LAST$ = STR$(CVI(MID$(READS, i + 18, 2)))
…… 15- …… 15-PRINT HIGH$+HOURh$+MINh$+SECh$+TENTHh$+MONh$+DAYh$+YEARh$
…… 15- …… 15-PRINT LOW$+HOURl$+MINl$+SECl$+TENTHl$+MONl$+DAYl$+YEARl$
(61) …… 15-NEXT i
(62) …… 15-BINARY DATA%/10 = °C
(63) …… 15-BINARY DATA%/3276.7 = V (±10 V DC)
Vista de pagina 298

Comentarios a estos manuales

Sin comentarios