Naja, die while-Schleife war von mir so ausgelegt, dass sie nur 30 Zahlen sendet und dann beendet. Wenn es nach 30 wieder von vorne anfangen soll, dann muss man die while-Schleife in der Prozedur
Senden ändern:
Delphi-Quellcode:
while (Schleife) do
begin
i:= i+1;
PortOut($378,i);
Warten(delay);
Form1.ProgressBar1.Position := i;
if i>=30 then i:=0;
end;
das drumherum kann so bleiben wie es ist.
MfG
Binärbaum
[Edit]
Mein 222. Beitrag. Da muss man ja einen ausgeben.
[/Edit]