Zeichnen

[Noedel]

stell dir mal vor, du machst alles immer nur, wenn du einen button drückst. De Timer macht das für dich in regelmäßigen abständen "selber" ....
also im timer fragst du ab welcher key grade gedrückt ist und die procedure zeichnen kommt extra und wrid nur dann aufgerufen, wenn der timer sagt key ist W A S oder D

[delphi-projekt]

Also meinst du das so:

procedure TForm1.Timer2Timer(Sender: TObject);
var b:byte;

begin
if GetAsyncKeyState(ord('S'))
or GetAsyncKeyState(ord('W'))
or GetAsyncKeyState(ord('D'))
or GetAsyncKeyState(ord('A'))
then
begin

Ab jetzt weiß ich aber nicht wie ich da weiter schreiben soll.
Kannst du mir nochmal helfen.

[delphi-projekt]

Mit dem Quelltext stimmt was nicht aber ich hab keine ahnung was.
Der tut einfach nicht in diesen vorgegebenen Zeiträumen makieren. Was muss ich dort ändern?

Delphi-Quellcode:

procedure TForm1.btgoClick(Sender: TObject);
var b : byte;
var Phase,Zeit: integer;
begin
case Phase of
1: begin {gerade}
  GetPortVal(port+2,@b,1);
  cbStrobe.checked:=false;
  GetPortVal(port,@b,1);
  cbData3.checked:=true;
  GetPortVal(port,@b,1);
  cbData5.checked:=true;
  GetPortVal(port,@b,1);
  cbData7.checked:=true;
  Phase:= Phase + 1;
  end;
2:begin{links}
  GetPortVal(port+2,@b,1);
  cbStrobe.checked:=false;
  GetPortVal(port,@b,1);
  cbData1.checked:=true;
  GetPortVal(port,@b,1);
  cbData3.checked:=true;
  GetPortVal(port,@b,1);
  cbData5.checked:=true;
   Phase:= Phase + 1;
  end;
3:begin{rechts}
  GetPortVal(port+2,@b,1);
  cbStrobe.checked:=false;
  GetPortVal(port,@b,1);
  cbData1.checked:=true;
  GetPortVal(port,@b,1);
  cbData3.checked:=true;
  GetPortVal(port,@b,1);
  cbData7.checked:=true;
   Phase:= Phase + 1;
  end;
4:begin {rückw.}
  GetPortVal(port+2,@b,1);
  cbStrobe.checked:=false;
  GetPortVal(port,@b,1);
  cbData1.checked:=true;
  GetPortVal(port,@b,1);
  cbData5.checked:=true;
  GetPortVal(port,@b,1);
  cbData7.checked:=true;
   Phase:= Phase + 1;
  end;
  end;


end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Zeit:= Zeit + 1;
case Zeit of
    1..5 : Phase:= 1;
    6    : Phase:= 2;
    7..11: Phase:= 3;
    12   : begin
             Phase:= 4;
             Zeit:= 0;
            end;
            end;
            btgoClick(Sender);
            end;

end.

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]

[rob60]

weiss jemand wie man die farbe der linie verändern kann
:xmas: :xmas: