Ja stimmt. sorry.
also mein quelltext sieht ungefähr so aus:
Code:
procedure PortOut(Port : Word; Data : Byte); stdcall; external 'io.dll';
function PortIn(Port : Word): Byte; stdcall; external 'io.dll';
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
If TrackBar1.Position = 0 then
begin
PortOut($378,$00);
end;
If TrackBar1.Position = 1 then
begin
PortOut($378,$01);
end;
If TrackBar1.Position = 2 then
begin
PortOut($378,$02);
end;
das sind jetzt nur die ersten 3 das geht so weiter bis 30.
Wie soll ich denn jetzt genau mit der Timerkomponente eine schleife programmieren, damit er nach jedem mal wenn er den wert geändert hat zeit x wartet und dann den nächsten sendet???