DIPLOMARBEIT - Ingenieurbüro | Morawski + Hugemann

Anhang Seite 102
dummy := port[adhigh];
fillchar(Messwert,sizeof(Messwert),0);
port[clearirq] := 0;
portdelay;
{ Startwert fuer counter 0 setzen }
port[Countctrl] := Select0 + rwBoth + Mode3;
portdelay;
port[count0] := lo(Count1Start);
portdelay;
port[count0] := hi(Count1Start);
portdelay;
{ Startwert fuer die Zufallszahlen setzen }
randomize;
end;
{ Ein Byte als Bit-Wert ausgeben -----------------------------------------}
function bit(b : byte) : str10;
var i : integer;
bitstr : str10;
begin
for i:=0 to 7 do
begin
if ((byte(1 shl i) and b) = (byte(1 shl i))) then
bitstr[8-i]:='1'
else bitstr[8-i]:='0';
end;
bitstr[9]:=' ';
bitstr[0]:=#9;
bit:=bitstr;
end;
Procedure Beep(Frequenz:Integer);
Var
i: LongInt;
Begin
Sound(Frequenz);
For i := 1 to 500000 Do;
NoSound;
End;