Visual Basic Italia

La creazione di un progetto da zero in Visual Basic NET? Lo trovi su Opentraining.it Visual Basic Italia

Guide e Tutorials:indexed

La struttura JOYINFO
La struttura JOYINFO è da associare all'articolo disponibile nell'indice analitico relativo alla funzione joyGetPos.
Attraverso tale struttura è possibile assegnare ad un membro alcune proprietà in relazione ad una determinata periferica di gioco come ad esempio le coordinate X, Y e Z e l'eventuale pressione di uno dei tasti presenti su tale periferica.
L'unica limitazione di cui soffre la stuttura è il fatto di non riconoscere i pulsanti della periferica se sono presenti in numero superiore a quattro. In tal caso dunque solo i primi quattro saranno accettati e verificati. Gli altri verranno ignorati.
La struttura è definita come segue:

Type JOYINFO
wXpos As Long
wYpos As Long
wZpos As Long
wButtons As Long
End Type

Gli elementi di cui si compone la struttura sono riassunti nella seguente tabella:

wXpos	La coordinata dell'asse X della periferica
wYpos	La coordinata dell'asse Y della periferica
wZpos	La coordinata dell'asse X della periferica
wButtons	Questo elemento può essere composto o meno da uno o più dei seguenti flags, a seconda del numero di pulsanti presenti sulla periferica: JOY_BUTTON1 = &H1 JOY_BUTTON2 = &H2 JOY_BUTTON3 = &H4 JOY_BUTTON4 = &H8

Il seguente esempio è stato ripreso dall'articolo relativo all'API joyGetPos. Esso permette di individuare la posizione corrente della periferica mediante le impostazioni attuali degli assi. Si verificherà anche l'eventuale pressione di uno dei pulsanti.
Tale esempio ha le stesse funzionalità della finestra 'Taratura periferica' presente nel Pannello di Controllo del sistema operativo. Verrà riproposto il codice completo. Per un'analisi dettagliata di ogni singola linea di codice si rimanda al succitato articolo:

Private Declare Function joyGetPos Lib "winmm.dll" (ByVal uJoyID As Long, pji As JOYINFO) As Long Private Type JOYINFO
wXpos As Long
wYpos As Long
wZpos As Long
wButtons As Long
End Type

Private Sub Form_Click()
Dim Posizione As JOYINFO
joyGetPos 0, Posizione
MsgBox "X: " & Posizione.wXpos & " Y: " & Posizione.wYpos & " Z: " & Posizione.wZpos
End Sub

Archivio:ndexed
Lezioni	Commenta questa lezione	Invia la tua guida	Avviso per le nuove lezioni	Proponi un argomento