Joystick + Event auslösen

soulfly · Hält's aus hier Beiträge: 5

Hallo Zusammen,
ich habe ein Joystick bei dem ich die Position abfrage. Funktioniert soweit super.
Nun möchte ich aber wenn der Joystick bewegt wird, dass ein Event ausgelöst wird und ich damit die Daten an die RS232 übergeben kann.

Geht sowas und wenn ja, was brauche ich dafür??

Gruß Carsten

soulfly · Hält's aus hier Beiträge: 5

So ich hab mich nun mal eine Weile schlau gemacht und bin auf SDL gestoßen.

Habe mir die SDL.pas in meinem Programmordner gelegt und dann zum Projekt hinzugefügt?!
Danach folgenden Quelltext eingegeben.
Dieser soll dann, so denke ich mir das, wenn der Knüppel bewegt wird einen event auslösen und das geht ins Memo1 schreiben.

Aber nat geht es nicht... Wo ist der Fehler??

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

uses  SDL
....
procedure InputJoystickAxisEvent(event : TSDL_JoyAxisEvent);
begin
Form1.Memo1.Text := 'geht';
end;
....
var
   event  : TSDL_Event;
begin
      while SDL_PollEvent(@event) = 1 do
      begin
 case event.type_ of
 SDL_JOYAXISMOTION:
    InputJoystickAxisEvent(event.jaxis);

 end;
      end;

Gruß Carsten

Phobeus · Verfasst: So 13.08.06 11:03

Definiere "nicht gehen" einmal ein wenig genauer.

Bitte bedenke, dass Du a) SDL auch erst initalisieren mußt und b) IMAO auch die Inputeingaben nur via eines durch SDL erzeugten Fensters verarbeitet wird. Letzteres kann ich aus dem stehgreif nicht garantieren, habe allerdings bei Tastatureingaben bereits viel Spass bei der Fehlersuche gemacht.

Lade Dir mal dieses Template herunter: www.delphigl.com/do_download.php?f=10
Das ist zwar schon alles ziemlich alt, aber sollte mit den beiliegenden Headern auch prima funktionieren. Wenn Du es kompiliert bekommst, baue in dieses Template einmal deine Joystick-Abfragen ein und versuche zu sehen, ob es dort funktioniert.

_________________
"Menschen sterben nicht wenn man sie zu Grabe trägt, sondern wenn sie ihre Träume verlieren..."

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme