パッド入力

　　パッド入力 小川 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 
　　├!ジョイスティック（２ボタンのゲームパッド... 山中和義 2006/04/06 13:23:09 
　　└稚拙な質問で申し訳ございませんでした。 小川 2006/04/06 19:10:43

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

パッド入力 返事を書く

小川 2006/04/05 22:23:54

ＵＳＢのゲームコントローラー
から入力するにはどうすればいいですか？
十字ボタンと６ボタンのコントローラーです。

　　├ゲームコントローラのドライバを調べてくだ... 白石　和夫 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を介して使えるはずです。」と訂正

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

Re: パッド入力 返事を書く

山中和義 2006/04/06 13:23:09

!ジョイスティック（２ボタンのゲームパッド）を使う

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 "Ｘ座標:";int32(pji$,0)
PRINT "Ｙ座標:";int32(pji$,4)
PRINT "Ｚ座標:";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
新規発言を反映させるにはブラウザの更新ボタンを押してください。

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

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

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

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

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

Re: パッド入力	返事を書く
山中和義 2006/04/06 13:23:09
!ジョイスティック（２ボタンのゲームパッド）を使う 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$("#",44) !構造体を確保する ! 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 "Ｘ座標:";int32(pji$,0) PRINT "Ｙ座標:";int32(pji$,4) PRINT "Ｚ座標:";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

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