Gamepad: Zweiter Analogstick ansteuern ??
Übersicht
BlitzBasic Allgemein
|
ToeBBetreff: Gamepad: Zweiter Analogstick ansteuern ?? |
 Do, Apr 12, 2007 19:44Antworten mit Zitat 
|
|---|---|---|
|
wie kann ich bei einme Gamepad den Zweiten Analogstick ansteuern,w eil mit JoyX oda JoyY oda JoyXDir oda JoyYDir kann man nua den ersten machen. Habt ihr ne idee ?
thx und mfg Crack ~EDIT~ Wieso antworted mia keina  ?
|
||
|
theotheoderich |
Fr, Apr 13, 2007 10:25 Antworten mit Zitat
|
|---|---|---|
Soweit ich weiß, unterstützt BB nur einen Joystick. Ist halt schon etwas älter... 
|
||
|
Gruß
TheoTheoderich -- The box label said, "Requires Windows XP or better.", so I bought an Amiga Computer. |
||
|
skey-z |
Fr, Apr 13, 2007 11:59 Antworten mit Zitat
|
|---|---|---|
|
da hab ich mich doch mal nen Testprogramm geschrieben,
moment ich wühle gerade mal meine Festplatte durch... ...ahh, gefunden: Code: [AUSKLAPPEN] Graphics 800, 600, 32, 2
SetBuffer BackBuffer() Type joypad Field id Field art$ End Type joy_anz = CountJoysticks() Repeat Text 10, 10, "Anzahl Joysticks: " + joy_anz For j.joypad = Each joypad Text 10 + (j\id * 250), 50, "Joypad: " + j\id Text 10 + (j\id * 250), 70, "Joypad Type: " + j\art Text 10 + (j\id * 250), 100, "Joypad X: " + JoyX(j\id) Text 10 + (j\id * 250), 120, "Joypad X Dir: " + JoyXDir(j\id) Text 10 + (j\id * 250), 140, "Joypad Y: " + (-JoyY(j\id)) Text 10 + (j\id * 250), 160, "Joypad Y Dir: " + JoyYDir(j\id) Text 10 + (j\id * 250), 180, "Joypad Z: " + JoyZ(j\id) Text 10 + (j\id * 250), 200, "Joypad U: " + JoyU(j\id) Text 10 + (j\id * 250), 220, "Joypad V: " + JoyV(j\id) Text 10 + (j\id * 250), 240, "Joypad Pitch: " + JoyPitch(j\id) Text 10 + (j\id * 250), 260, "Joypad Yaw: " + JoyYaw(j\id) Text 10 + (j\id * 250), 280, "Joypad Roll: " + JoyRoll(j\id) Text 10 + (j\id * 250), 300, "Joypad Hat: " + JoyHat(j\id) For i = 1 To 12 Text 10 + (j\id * 250), 310 + (i * 20), "Joypad Knopf(" + i + "): " + JoyDown(i,j\id) Next Next Flip Cls Until KeyHit(1) End Function CountJoysticks() Local joy_type Local index = 0 Repeat joy_type = JoyType(index) If joy_type <> 0 Then j.joypad = New joypad j\id = index Select joy_type Case 1 j\art = "digital" Case 2 j\art = "analog" End Select index = index + 1 EndIf Until joy_type = 0 Return index End Function Edit Warum so ungeduldig, schau mal auf deine Uhr, andere müssen noch zur Schule, Arbeiten oder schlafen aus(^^) |
||
|
Awards:
Coffee's Monatswettbewerb Feb. 08: 1. Platz BAC#57: 2. Platz |
||
|
|
ToeB |
Fr, Apr 13, 2007 12:47 Antworten mit Zitat
|
|---|---|---|
Heyy danke  ! Der Code hat mia geholfen ... °!°
|
||
|
Religiöse Kriege sind Streitigkeiten erwachsener Männer darum, wer den besten imaginären Freund hat.
Race-Project - Das Rennspiel der etwas anderen Art SimpleUDP3.0 - Neuste Version der Netzwerk-Bibliothek Vielen Dank an dieser Stelle nochmal an Pummelie, welcher mir einen Teil seines VServers für das Betreiben meines Masterservers zur verfügung stellt! |
||
Übersicht
BlitzBasic Allgemein
Powered by phpBB © 2001 - 2006, phpBB Group