Chip 1998 April/CHIP4_98.ISO/software/ccconrad/basic.exe/CHIP/Programme.Bas/QBASIC/TABELLE.BAS

BASIC Source File | 1997-06-13 | 429 b | 23 lines

DECLARE SUB Empfang ()
REM Meßwertabfrage
OPEN "COM2:9600,N,8,2,CS,DS" FOR RANDOM AS #1
OPEN "d:\ccbasic\qbasic\MESSUNG.DAT" FOR OUTPUT AS #2
PRINT #1, CHR$(27);
DO
   N = 0
   DO
     N = N + 1
   LOOP UNTIL LOC(1) > 0 OR N > 10000
    IF N < 10000 THEN Empfang
LOOP UNTIL (INKEY$ > "") OR (N > 1000)
CLOSE 1
CLOSE 2
END

SUB Empfang
  A = ASC(INPUT$(1, #1))
  PRINT A / 50; " V  ";
  PRINT #2, A
END SUB