"Tastatur abfragen?" sehr gut gelöst-> hier ne Exe-Datei

[dino]

Wenns get bitte in Echtzeit, denn ich habe vor eine Mario Version eines coolen GameBoy spiels zu Programmieren, und da ists ärgerlich, wenn man zwar Drücken würde, das Programm aber nicht reagiert...


ach und zu was gehört eientlich Delphi3?

[EDatabaseError]

erstmal Hallo in der DP!

bitte formulier dich ein bisschen genauerer...und benutze die Forensuche.

Schau dir mal OnKeyDown und OnKeyPress an.

[3_of_8]

Delphi 3 ist Win32.

Ich weiß nicht, wie viel Erfahrung du schon mit Delphi hast, wenn du viel Erfahrung hast, dürfte GetAsyncKeyState oder DelphiX interessant für dich sein, ansonsten OnKeyDown.

[dino]

beachte, dass bei so einem Spiel auch mal ein Knopf immer wieder mal Gedrückt wird, während ein anderer Knopf gedrückt bleibt

geht das?
STRG Umschalt und das alles ist aber unwichtig

[3_of_8]

Dann wäre ein array[0..127] of Boolean nützlich, das du in etwa so füllst:

Delphi-Quellcode:

var I: Integer;
    keys: array[0..127] of Boolean;
//...
for I:=0 to high(keys) do
  keys[I]:=GetAsyncKeyState(I)=-1;

[dino]

was passiert da genau?

[3_of_8]

Es wird für sämtliche relevanten Tasten abgefragt, ob sie gedrückt sind oder nicht.

Wenn du jetzt abfragen willst, ob die Taste W gedrückt ist, steht das in keys[Ord('W')].

Wenn du abfragen willst, ob die Pfeiltaste unten gedrückt ist, machst du keys[VK_DOWN].

[dino]

klappt noch nicht

[dino]

Delphi-Quellcode:

implementation

{$R *.DFM}

var i:Integer;
keys:array[0..127] of Boolean;

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
if timer1.enabled = false then begin
form1.width:=screen.width;
form1.height:=screen.height;
form1.position:=poscreencenter;
timer1.enabled:=true;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
for i:=0 to high(keys) do keys[i]:=GetAsyncKeyState(i)=-1;
if keys[VK_DOWN]=1 then form1.canvas.Pixels[100,100]:=clred;
end;

end.

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]

[3_of_8]

Tausche mal das Pixels-Zeugs aus gegen showmessage('blubb'), vielleicht gehts dann.

Denn die Form refresht ständig, dann siehst du den roten Pixel nicht mehr.

[dino]

nein das canvas.pixels ist ne Angewohnheit, da hatte ich noch nie Probleme mit, und ausserdem refresht die nicht ständig, jedenfall hab ichs mit OnKeyPress ganz gut raus, nur wie kann ich abfragen ob key='a' ist denn so klappts eben nicht

[3_of_8]

Kein Wunder, dass das nicht geht. Es muss auch -1 heißen, nicht 1.

[dino]

da stand aber irendwas von inkompatible typen

[3_of_8]

Delphi-Quellcode:

implementation

{$R *.DFM}

var i:Integer;
keys:array[0..127] of Boolean;

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
if timer1.enabled = false then begin
form1.width:=screen.width;
form1.height:=screen.height;
form1.position:=poscreencenter;
timer1.enabled:=true;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
for i:=0 to high(keys) do keys[i]:=GetAsyncKeyState(i)=low(SmallInt);
if keys[VK_DOWN] then form1.canvas.Pixels[100,100]:=clred;
end;

end.

So gehts.

[dino]

hab jetzt

Delphi-Quellcode:

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.FormClick(Sender: TObject);
begin
if timer1.enabled = false then begin
form1.width:=screen.width;
form1.height:=screen.height;
form1.position:=poscreencenter;
timer1.enabled:=true;
end
else
close;
end;



procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = Ord('A') then form1.canvas.pixels[100,100]:=clred;
if key = Ord('S') then form1.canvas.pixels[200,100]:=clred;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.canvas.pixels[100,100]:=clBtnFace;
form1.canvas.pixels[200,100]:=clBtnFace;
end;

aber wenn ich ein Knopf Gedrückt halte und dann einen weiteren Knopf Drücke klappt nichts mehr wie es soll

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]

[3_of_8]

Nimm halt meinen Code von oben.

[dino]

klappt noch nicht

[dino]

Delphi-Quellcode:

var i:Integer;
keys:array[0..127] of Boolean;

procedure TForm1.FormClick(Sender: TObject);
begin
if timer1.enabled = false then begin
form1.width:=screen.width;
form1.height:=screen.height;
form1.position:=poscreencenter;
timer1.enabled:=true;
end
else
close;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
for i:=0 to high(keys) do keys[i]:=GetAsyncKeyState(i)=low(SmallInt);
if keys[VK_Down] then form1.canvas.Pixels[100,100]:=clred;
end;
end.

so ists doch richtig oder?

[3_of_8]

Bei mir schon, seltsam. Was genau funkioniert denn nicht? Mach mal bissel debugging, lass dir Wert per showmessage ausgeben usw...

[dino]

das Programm äuft, nur wirds nicht rot :(

[3_of_8]

:roll:

Lass dir die Werte per showmessage ausgeben, um herauszufinden, warum.

[dino]

Delphi-Quellcode:

var i:Integer;
keys:array[0..127] of Boolean;

procedure TForm1.FormClick(Sender: TObject);
begin
if timer1.enabled = false then begin
form1.width:=screen.width;
form1.height:=screen.height;
form1.position:=poscreencenter;
timer1.enabled:=true;
end
else
close;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
for i:=0 to high(keys) do keys[i]:=GetAsyncKeyState(i)=0;
if keys[VK_Down]=false then form1.canvas.pixels[100,100]:=clred else form1.canvas.pixels[100,100]:=clBtnFace
end;
end.

Es klappt mit einer Taste

[dino]

Perfeckt Danke Danke

[3_of_8]

?

Wasn jetzt los?

[dino]

weiss zwar nicht waqrum aber mit =0 und =false klappts

[dino]

hab =low(SmallInt) durch =0 ersetzt und =false eingefügt jetzt klappts!

[3_of_8]

Was hast du als Timer Interval? Ich würde 1 einstellen. Ansonsten kannst du machen GetAsyncKeyState(I)<0.

[dino]

hab 1!

[dino]

als Zeichen meiner Dankbarkeit:
Dies ist mein Professionelles AmeisenSimulationsprogramm!
für Freaks ganz lustig sich das mal ne stunde oder so anzuschauen :)

(für 1600 * 1200 Bildschirmauflösung geschrieben)

[dino]

hab aus einfachheit das =false einfach statt da wos jetzt ist ans =0 gesetzt und klappt genauso

[3_of_8]

1. Erstelle halt nen neuen Thread dafür unter Freeware bzw. OpenSource, danke.
2. Vllt sollte man erwähnen, dass das Spiel mit rechter Maustaste startet.

[dino]

On klick

[3_of_8]

Aso.
Aber warum das?
Mach nen Button rein. Und mir gefällt es gar nicht, dass das Spiel geschlossen wird, wenn man nochmal klickt.

[dino]

ich mags genau so wie es ist...