joystick

w jaki sposob mge w delphi 6 wykorzystac zwykly joystick analogowy(2 ise dwa przyciski)?

najlatwiej pobaw sie DelphiX

--
People=Shit

eee to jednak sproboje naisac lepiej o tym dxinput :)

Nie sprowadzajmy wszystkiego do DirectX. Bez też można się obyć (choć nie tak łatwo):

type TPrzycisk = (Przycisk1, Przycisk2, Przycisk3, Przycisk4);
var
lpInfo: PJoyInfo;
PozycjaX, PozycjaY, PozycjaZ: Cardinal;
Przyciski: set of TPrzycisk;
begin
joyGetPos(JOYSTICKID1, lpInfo);
PozycjaX := lpInfo^.wXpos;
PozycjaY := lpInfo^.wYpos
PozycjaZ := lpInfo^.wZpos;
if (lpInfo.wButtons and JOY_BUTTON1) then
Przyciski := Przyciski + [Przycisk1];
if (lpInfo.wButtons and JOY_BUTTON2) then
Przyciski := Przyciski + [Przycisk2];
if (lpInfo.wButtons and JOY_BUTTON3) then
Przyciski := Przyciski + [Przycisk3];
if (lpInfo.wButtons and JOY_BUTTON4) then
Przyciski := Przyciski + [Przycisk4];
end;

--
Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.

Do delphix są dołączone przykłady !!
Pokazane jest tekże jak obsługiwać joja.

--
Nieważne czy producent jest z Ameryki czy z Niemiec i tak wszystko jest z Tajwanu