PS2 GamePad 模組呼叫範例程式

PS2 GamePad 模組的功能非常有彈性，除了有兩組類比搖桿的 x，y 軸輸出，
其他的按鈕更可以任意組合（組合鍵可參考PS2搖桿控制模組組合鍵應用），下面程式提供給剛入手此模組的初學者一個參考範例，希望能幫上忙。

Peripheral Ps As GamePadPs @ 31
Dim b4Way As Word
Dim wStatus,wKeyStatus As Word
Dim POSx,POSy,P_x,P_y As Integer

Sub MAIN()
        Ps2Set()
    wKeyStatus = 0
        Do
                'Debug CSRXY(1,1),"編碼後的鍵碼為：",wKeyStatus,CLREOL
                Debug CSRXY(1,3),"左搖桿Ｘ座標：",POSx,CLREOL
                Debug CSRXY(1,4),"左搖桿Ｙ座標：",POSy,CLREOL
                Select Case wKeyStatus
                        Case 1       : Program01()        '三角
                        Case 2       ': Program02()         '圓
                        Case 4       ': Program03()        '×
                        Case 8       ': Program04()        '方塊
                        Case 16     ': Program05()        'L1
                        Case 32     ': Program06()        'R1
                        Case 64     ': Program07()        'L2
                        Case 128   ': Program08()        'R2
                        Case 256   ': Program09()        'Select
                        Case 512   ': Program10()        'Start
                        Case 1024  ': Program11()        'LeftStick        
                        Case 2048  ': Program12()        'RightStick        
                        Case 4096  ': Program13()        '右               
                        Case 8192  ': Program14()        '下                                       
                        Case 16384 ': Program15()        '左        
                        Case 32768 ': Program16()        '上
                        Case Else    ': Program17()        'G_Test()
                End Select               
        Loop
End Sub
'========================副程式區=========================
Sub Program01()
        Debug CSRXY(1,2),"你按了三角形鍵！",CLREOL
        Pause 2000
        Debug CLS
End Sub

'===================ＰＳ２搖桿副程式區====================
Sub Ps2Set()
        Ps.SetLStickDeadZone(1,5)        'SetDeadZone
        Ps.SetRStickDeadZone(1,5)        'SetDeadZone
        Ps.SetAnalog(1)
        Ps.SetStickRefreshRate(10)
        ps.EnableLStickEvent()
        ps.EnableRStickEvent()
        Ps.EnableDir4WayEvent()                'Enable Dir4Way
        Ps.EnableKeyPressedEvent()        'Enable Pressed
        Ps.EnableKeyReleasedEvent()        'Enable Pressed
End Sub

Event Ps.LStickEvent()
        Ps.GetLXYPos(POSx,POSy)
End Event

Event Ps.RStickEvent()
        Ps.GetRXYPos(P_x,P_y)
End Event

Event Ps.Dir4WayEvent()
        Ps.GetDir4Way(b4Way)
        Select Case b4Way
                Case 1 : b4way = 1
                Case 2 : b4way = 2
                Case 3 : b4Way = 4
                Case 4 : b4Way = 8
        End Select        
        wKeyStatus = b4Way*4096 + wStatus
End Event

Event Ps.KeyPressedEvent()        
        wStatus = Ps.GetKeyStatus()        
        wKeyStatus = wStatus +b4Way*4096
End Event        

Event Ps.KeyReleasedEvent()
        wStatus = Ps.GetKeyStatus()
        wKeyStatus = wStatus +b4Way*4096        
End Event