JoyStick [ USB ]

Geef hier je beste Liberty BASIC tips door. (Hier geen hulp vragen)

Moderators: anthonio, Abcott

JoyStick [ USB ]

Berichtdoor bluatigro » wo nov 25, 2009 2:58 pm

voorbeeld joystick uitlezen en gebruiken
getest met joypad [ n ps2 kloon ]
het vreeemde is dat hij de linker joystick uitleest met x en y
en rechts met z [ naar boven / onder ]
Code: Selecteer alles
WindowWidth = DisplayWidth
WindowHeight = DisplayHeight
global balx , baly , balz
balx = WindowWidth / 2
baly = WindowHeight / 2
balz = 20
nomainwin
timer 100 , [tmr]
open "Joy-Test" for graphics as #m
print #m , "trapclose [quit]"
wait
[tmr]
  readjoystick 1
  dx = 0
  if Joy1x > 256 * 256 * 2 / 3 then
    dx = 10
  end if
  if Joy1x < 256 * 256 / 3 then
    dx = -10
  end if
  if balx + dx < 0 then dx = 0
  if balx + dx > WindowWidth then dx = 0
  dy = 0
  if Joy1y > 256 * 256 * 2 / 3 then
    dy = 10
  end if
  if Joy1y < 256 * 256 / 3 then
    dy = -10
  end if
  if baly + dy < 0 then dy = 0
  if baly + dy > WindowHeight then dy = 0
  dz = 0
  if Joy1z > 256 * 256 * 2 / 3 then
    dz = 10
  end if
  if Joy1z < 256 * 256 / 3 then
    dz = -10
  end if
  if balz + dz < 20 then dz = 0
  if balz + dz > 200 then dz = 0
  balx = balx + dx
  baly = baly + dy
  balz = balz + dz
  #m , "cls"
  if Joy1button1 then
    #m , "color red"
    #m , "backcolor red"
  else
    #m , "color black"
    #m , "backcolor black"
  end if
  if Joy1button2 then
    #m , "goto " ; balx - balz _
         ; " " ; baly - balz
    #m , "down"
    #m , "boxfilled " ; balx + balz _
    ; " " ; baly + balz
  else
    #m , "goto " ; balx ; " " ; baly
    #m , "down"
    #m , "circlefilled " ; balz
  end if
  #m , "up"
  #m , "flush"
wait
[quit]
  #m , "close"
end

HAVE FUN !!
bluatigro
 
Berichten: 306
Geregistreerd: za sep 27, 2008 6:01 pm

Keer terug naar Tips en informatie

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast

cron