home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 April / CHIP4_98.ISO / software / ccconrad / basic.exe / CHIP / Programme.Bas / TELEMET / TELEMET.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-08-29  |  1.0 KB  |  38 lines
  1. '____________________________________________________________________________
  2. '  TELEMET.BAS                 Demo- Programm          (c)  CONRAD ELECTRONIC
  3. '                             zum Auslesen des
  4. '  Version 1.0               TELEMETRIE- Moduls             25.09.95
  5. '____________________________________________________________________________
  6.  
  7.  
  8. 'Bildschirm löschen
  9.     CLS
  10.  
  11. 'COM- Port öffnen: 2400 Baud, kein Paritätsbit, 8 Datenbits, 1 Stopbit
  12.     OPEN "COM1:2400,N,8,1,RS,CS,DS,CD" FOR INPUT AS #1
  13.  
  14. 'Timer initialisieren  
  15.     TI = TIMER
  16.    
  17. 'Datenschleife
  18.     DO
  19.  
  20. 'Ein Datenbyte vom Telemetrie- Modul einlesen
  21.        IN$ = INPUT$(1, #1)
  22.      
  23. 'Synchronisieren der Daten:
  24. 'Pause zwischen zwei Datenrahmen beträgt mindestens 300 msec
  25.        IF TIMER - TI > .3 THEN PRINT
  26.        TI = TIMER
  27.  
  28. 'Daten als ASCII anzeigen
  29.        PRINT USING "#####"; ASC(IN$);
  30.  
  31. 'Schleifen bis ESCAPE- Taste gedrückt wird
  32.     LOOP UNTIL INKEY$ = CHR$(27)
  33.   
  34. 'COM- Port schließen und beenden
  35.     CLOSE #1
  36.     END
  37.  
  38.