Joystick ?

Det kan man da inde i spillet - hvis der er en instillinger i spillet så prøv at gå der inde og se noget om controlos eller sådan noget..

:-) I delphi, vil jeg gerne lave et lille program der reager ud fra joysticket.

Eks. en button der flytter sig...

Der findes mange komponenter til formålet.
Kig på http://www.torry.ru/otherhardware.htm

På http://www.programmersheaven.com/zone2/cat61 finder du nogle forskellige komponenter der kan hjælpe dig med joystick input...

eks.vis:

JoyControl - 32 Joystick Control Component
This is a very simple component which controls the joystick. In
this first version it simply sends an event everytime the
joystick moves or a button is pressed (Up and down). It
controls up to two joysticks with up to 4 buttons each.

Du kan hente informationer fra dit joystick gennem API\'en til din application... (hvis det giver nogen mening for dig)

Prøv følgende:
Du skal tilføje mmsystem.pas under uses.

procedure Tform1.DefaultHandler(var msg);
var
LocalJoyInfo : joyinfo;
LocalJoyInfoEX : joyinfoex;
begin
inherited DefaultHandler(msg);
case Tmessage(msg).msg of
mm_joy1buttondown: showmessage(\'knap ned\');
mm_joy1buttonup: showmessage(\'knap op\');
mm_joy1move:
  begin
    joygetpos(joystickID1, @LocalJoyinfo);
    joygetposex(joystickID1, @LocalJoyInfoEX);
    caption := \'X: \'+inttostr(localjoyinfo.wXpos)+
              \'Y: \'+inttostr(localjoyinfo.wYpos)+
              \'Y: \'+inttostr(localjoyinfo.wZpos);
  end;
end;

Dette eksempel viser en popup-besked når du trykker ned på knappen på dit joystick og når du slipper den igen. Og der vises forskellige koordinater i form\'ens caption.

ZeroHero

ups - jeg har glemt at skrive \'end;\' til sidst...

som du kan se bliver LocalJoyInfoEX ikke brugt til noget i eksemplet. Du kan eventuelt slette det eller eksperimentere lidt på egen hånd.

compiler>> Kan du bruge et svar???

ZeroHero

compiler>> Så luk dog dette spørgsmål...