Measurement-computing TempScan/1100 Manual de usuario Pagina 295

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 306
  • Tabla de contenidos
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 294
TempScan / MultiScan, Appendix C 879696 Program Examples in Quick Basic C-25
MultiScan/1200
Example 15n. BIN_ACQ.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-12,3X”
(12) …… 15-PRINT #1, “OUTPUT 07;C25-36,14X”
(13) …… 15-PRINT #1, “OUTPUT 07;Y400,100,200X”
(14) …… 15-PRINT #1, “OUTPUT 07;I00:00:00.0,00:00:00.0X”
(15) …… 15-PRINT #1, “OUTPUT 07;T1,8,0,0X"
(16) …… 15-PRINT “The MultiScan/1200 is collecting Pre-Trigger data and has not
been triggered...”
…… 15-PRINT “Hit a key to trigger the start of acquisition...”
…… 15-WHILE INKEY$ = “”: WEND
…… 15-PRINT #1, “OUTPUT 07;@X”
(20) …… 15-WHILE (S% AND 2) <> 2
…… 15- …… 15-PRINT #1,“SPOLL 07”
…… 15- …… 15-INPUT #2, S%
…… 15-WEND
…… 15-PRINT “The Trigger has been detected...”
(25) …… 15-PRINT “Waiting for the acquisition to complete, including Post-Stop
Scans...”
(26) …… 15-WHILE (E% AND 1) <> 1
…… 15- …… 15-PRINT #1,“OUTPUT 07;U0X”
…… 15- …… 15-PRINT #1,“ENTER 07”
…… 15- …… 15-INPUT #2, E%
…… 15-WEND
(31) …… 15-PRINT “The acquisition is now complete...”
(32) …… 15-PRINT #1, “OUTPUT 07;F0,1X”
(33) …… 15-PRINT #1, “OUTPUT 07;U6X”
…… 15-PRINT #1, “ENTER 07"
…… 15-LINE INPUT #2, U$
…… 15-PRINT U$
…… 15-UA$ = MID$(U$, 9, 7)
…… 15-UA% = VAL(UA$)
…… 15-PRINT UA%
(40) …… 15-PRINT #1, “The MultiScan/1200 collected”; UA%; “scans of data.”
(41) …… 15-CHANNELS = 24
…… 15-DIM CBUFFER%(UA% * CHANNELS)
…… 15-SE% = VARSEG(BUFFER%(0))
…… 15-OF% = VARPTR(BUFFER%(0))
…… 15-B& = UA% * CHANNELS * 2
…… 15-PRINT “Total number of bytes available : ”; B&
…… 15-PRINT #1, “OUTPUT 07;R2X”
…… 15-PRINT “Uploading data..”
…… 15-WHILE INKEY$ = “”: WEND
(50) …… 15-PRINT #1, “ENTER 07 #”; B&; “BUFFER”; SE%; “ : ”; OF%; “DMA”
(51) …… 15-BINARY DATA%/10 = °C
(52) …… 15-BINARY DATA%/3276.7 = V (±10 V DC)
Vista de pagina 294
1 2 ... 290 291 292 293 294 295 296 297 298 299 300 ... 305 306

Comentarios a estos manuales

Sin comentarios