新しく発言する EXIT インデックスへ
パッド入力

  パッド入力 小川 2006/04/05 22:23:54 
  ゲームコントローラのドライバを調べてくだ... 白石 和夫 2006/04/06 07:53:37 
  │└あるいは,仮想COMポートの形で提供されてい... 白石 和夫 2006/04/06 07:55:19 
  │ └また,専用のドライバを持たない製品であれ... 白石 和夫 2006/04/06 07:58:36 
  │  └「Win32APIを介して使えるはずです。」と訂... 白石 和夫 2006/04/06 07:59:51 
  !ジョイスティック(2ボタンのゲームパッド... 山中和義 2006/04/06 13:23:09 
  稚拙な質問で申し訳ございませんでした。 小川 2006/04/06 19:10:43 

  パッド入力 小川 2006/04/05 22:23:54  ツリーへ

パッド入力 返事を書く
小川 2006/04/05 22:23:54
USBのゲームコントローラー
から入力するにはどうすればいいですか?
十字ボタンと6ボタンのコントローラーです。

  ゲームコントローラのドライバを調べてくだ... 白石 和夫 2006/04/06 07:53:37  ツリーへ

Re: パッド入力 返事を書く
白石 和夫 2006/04/06 07:53:37
ゲームコントローラのドライバを調べてください。それは,DLLで提供されていますか,それとも,ActiveXですか? DLLの場合には,APIという名前で呼ばれるかも知れません。

  │└あるいは,仮想COMポートの形で提供されてい... 白石 和夫 2006/04/06 07:55:19  ツリーへ

Re: ゲームコントローラのドライバを調べてくだ... 返事を書く
白石 和夫 2006/04/06 07:55:19
あるいは,仮想COMポートの形で提供されているかも知れません。

  │ └また,専用のドライバを持たない製品であれ... 白石 和夫 2006/04/06 07:58:36  ツリーへ

Re: あるいは,仮想COMポートの形で提供されてい... 返事を書く
白石 和夫 2006/04/06 07:58:36
また,専用のドライバを持たない製品であれば,Win32APIを介してはずです。

  │  └「Win32APIを介して使えるはずです。」と訂... 白石 和夫 2006/04/06 07:59:51  ツリーへ

Re: また,専用のドライバを持たない製品であれ... 返事を書く
白石 和夫 2006/04/06 07:59:51
「Win32APIを介して使えるはずです。」と訂正

  !ジョイスティック(2ボタンのゲームパッド... 山中和義 2006/04/06 13:23:09  ツリーへ

Re: パッド入力 返事を書く
山中和義 2006/04/06 13:23:09
!ジョイスティック(2ボタンのゲームパッド)を使う

DECLARE EXTERNAL FUNCTION joyGetNumDevs
DECLARE EXTERNAL FUNCTION joyGetPos

LET JOYSTICKID1 = 0
LET JOYSTICKID2 = 1
!------------------------------

LET rc=joyGetNumDevs
PRINT "利用できる最大数:";rc

LET uJoyID=JOYSTICKID1 !ショイスティックを指定する
LET pji$=REPEAT$("#",4*4) !構造体を確保する
! Type JOYINFO
! wXpos As Long
! wYpos As Long
! wZpos As Long
! wButtons As Long
! End Type
LET rc=joyGetPos(uJoyID, pji$)
PRINT "rc=";rc
! JOYERR_NOERROR = 0
! JOYERR_PARMS = 165
! JOYERR_UNPLUGGED = 167
! MMSYSTEM_NODRIVER = 6

PRINT "X座標:";int32(pji$,0)
PRINT "Y座標:";int32(pji$,4)
PRINT "Z座標:";int32(pji$,8)
PRINT "ボタンの状態:";int32(pji$,12)

END


EXTERNAL FUNCTION int32(s$,p)
OPTION CHARACTER byte
LET n=0
FOR i=1 TO 4
LET n=n+256^(i-1)*ORD(s$(p+i:p+i))
NEXT i
IF n<2^31 THEN LET int32=n ELSE LET int32=n-2^32
END FUNCTION

EXTERNAL FUNCTION joyGetNumDevs !使えるジョイスティック数を調べる
ASSIGN "winmm.dll" ,"joyGetNumDevs"
END FUNCTION

EXTERNAL FUNCTION joyGetPos(uJoyID, pji$) !位置とボタンの状態を取得する
ASSIGN "winmm.dll","joyGetPos"
END FUNCTION

  稚拙な質問で申し訳ございませんでした。 小川 2006/04/06 19:10:43  ツリーへ

Re: パッド入力 返事を書く
小川 2006/04/06 19:10:43
稚拙な質問で申し訳ございませんでした。
山中氏のコードで首尾よくいきました。
御二方ご回答ありがとうございました。


インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。