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