|
Beispielprogramm für GPIB-1
|
Empfangstestprogramm in Pascal
| |
{Bezeichnung:Empfangstestprogramm in Pascal}
{Beschreibung:Empfangen mit der GPIB-Karte.}
program Empfangen_mit_GPIB;
(* 13. 4. 1994: Getestet von jk *)
uses crt;
var handle : text;
eingabe : string;
begin
clrscr;
repeat
assign(handle,'GPIB'); { Weist GPIB der Dateivariablen handle zu }
reset(handle); { öffnet handle }
{$I-}
repeat
readln(handle,eingabe); { Liest Daten von GPIB }
until ioresult=0;
{$I+}
writeln(eingabe); { Gibt die Daten auf dem Bildschirm aus }
close(handle); { Schließt GPIB }
until eingabe='Ende';
end.
|
|
|