'-- me22-32.bas ------------------------------------------------ >>fst'01<< -
' - Das Programm holt Messwerte von Digital-Multimetern Metex ME-22 oder
'   ME-32' (u.ae.) ueber die serielle Schnittstelle (COM 1, COM 2) und
'   zeigt sie an.
' - Ausserdem wird der Messwert in einer Fliesskomma Variablen gespeichert.
' - Damit steht der weiteren Verarbeitung der Messwerte nichts mehr im Wege.
'-- V 20010904 ------------------------------ http://home.arcor.de/steini63 -

CLS
PRINT ">> Einleseprogramm fuer Metex(Voltcraft) ME-22 / Me-32 Digitalmultimeter <<"
PRINT
PRINT "   Wie lautet die Nummer der seriellen Schnittstelle (1 bis 2) ?"
PRINT
Taste$ = INPUT$(1)

SELECT CASE Taste$
  CASE "1"
   OPEN "COM1:600,N,7,1,RS,CS,DS,CD" FOR RANDOM AS #1
  CASE "2"
   OPEN "COM2:600,N,7,1,RS,CS,DS,CD" FOR RANDOM AS #1
  CASE ELSE
   END
END SELECT

PRINT #1, "D";

DO

 IF LOC(1) > 13 THEN        'erst beginnen, wenn im Puffer 14 Zeichen sind
  Text$ = INPUT$(14, #1)
  SLEEP 1       'einige DMM benoetigen etwas Wartezeit nach dem Datentransfer
  PRINT #1, "D";
  Wert$ = MID$(Text$, 4, 6) 'Messwert aus dem Text isolieren
  Zahl = VAL(Wert$)         'Messwert in eine Zahl umwandeln
  PRINT Zahl, Text$;
 END IF

LOOP UNTIL INKEY$ <> ""

CLOSE #1