Inhaltsverzeichnis
Werbung
Programmerstellung ➝ IBM PC und Kompatible
26. CALL dmpcmd("COF0")
27. CALL dmpcmd("CAL")
28. messen:
29. DO
30.
PRINT #1, "XST?;";
31.
INPUT #1, a
32.
dummy$ = INPUT$(1, #1)
33. LOOP WHILE a <> 0
34. PRINT #1, "MSV?2,1; ";
35. LINE INPUT #1, rd$
36. dummy$ = INPUT$(1, #1)
37. PRINT "Messwert,Kanal,Status: "; rd$ 'Messwert auf Bildschirm anzeigen
38. ende:
39. PRINT
40. PRINT #1, "DCL;";
41. END
42. SUB delay (seconds!) STATIC
43. begin! = TIMER
44. DO UNTIL (TIMER − begin! > seconds!) OR (TIMER − begin! < 0)
45. LOOP
46. END SUB
47. SUB dmpcmd (wrt$)
48. PRINT "Befehl: "; wrt$,
49. PRINT #1, wrt$; ";"
50. LINE INPUT #1, rd$
51. dummy$ = INPUT$(1, #1)
52. PRINT " Antwort: "; rd$
53. END SUB
'Messwert−Ausgabe−Format festlegen
'Kalibrierung starten
'Messwertstatus abfragen
'Befehl ans Gerät senden
'Antwort übernehmen
'Endezeichen LF lesen
'Messbefehl, Netto"
'Messwert lesen
'Endezeichen LF lesen
'HBM−Interpreter ausschalten
'Programmende
'Befehl auf Bildschirm anzeigen
'Befehl an DMP40 senden
'Antwort vom DMP40 lesen
'Ende Zeichen LF lesen
'Antwort auf Bildschirm anzeigen
Betrieb mit Rechner oder Terminal
F 5
Werbung
Inhaltsverzeichnis
