Probleme d'affichage boutons joystick, DirectX

Probleme d'affichage boutons joystick, DirectX - VB/VBA/VBS - Programmation

Marsh Posté le 11-05-2010 à 18:50:18    

Bonjour à tous, je reviens vers vous pour avoir un peu d'aide :
J'ai réussi à trouver sur le net une source en visual basic qui me donne les infos de mon joystick. Tous fonctionne très bien sauf les boutons!
Le label bouton devrait m'afficher le numéro du bouton presser mais il n'affiche que zéro (pour chaque boutons il détecte la pression mais affiche zéro) je ne peux donc pas attribuer différentes actions aux boutons.
 
J'ai la même source en c++ et elle m'affiche bien les différents boutons, mais vu que je suis pas trop bon en prog , j'arrive pas à trouver la solution pour faire tournée celle-ci.
 
Voici la source si quelqu'un peut m'aider.
 

Code :
  1. Imports Microsoft.DirectX
  2. Imports Microsoft.DirectX.DirectInput
  4. Public Class Form1
  5. Inherits System.Windows.Forms.Form
  8. ' code added to dispose in windows for designer generated code
  9. #Region " Windows Form Designer generated code "
  11. Public Sub New()
  12. MyBase.New()
  14. 'This call is required by the Windows Form Designer.
  15. InitializeComponent()
  17. 'Add any initialization after the InitializeComponent() call
  19. End Sub
  21. 'Form overrides dispose to clean up the component list.
  22. Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  23. timer1.Stop()
  24. ' Unacquire all DirectInput objects.
  25. If Not applicationDevice Is Nothing Then applicationDevice.Unacquire()
  26. If disposing Then
  27. If Not (components Is Nothing) Then
  28. components.Dispose()
  29. End If
  30. End If
  31. MyBase.Dispose(disposing)
  32. End Sub
  34. 'Required by the Windows Form Designer
  35. Private components As System.ComponentModel.IContainer
  37. 'NOTE: The following procedure is required by the Windows Form Designer
  38. 'It can be modified using the Windows Form Designer.
  39. 'Do not modify it using the code editor.
  40. Friend WithEvents label2 As System.Windows.Forms.Label
  41. Friend WithEvents buttonExit As System.Windows.Forms.Button
  42. Friend WithEvents groupBox1 As System.Windows.Forms.GroupBox
  43. Friend WithEvents labelButtons As System.Windows.Forms.Label
  44. Friend WithEvents label1 As System.Windows.Forms.Label
  45. Friend WithEvents labelPOV3 As System.Windows.Forms.Label
  46. Friend WithEvents labelSlider1 As System.Windows.Forms.Label
  47. Friend WithEvents labelSlider0 As System.Windows.Forms.Label
  48. Friend WithEvents labelPOV2 As System.Windows.Forms.Label
  49. Friend WithEvents labelPOV1 As System.Windows.Forms.Label
  50. Friend WithEvents labelPOV0 As System.Windows.Forms.Label
  51. Friend WithEvents labelZRotation As System.Windows.Forms.Label
  52. Friend WithEvents labelYRotation As System.Windows.Forms.Label
  53. Friend WithEvents labelXRotation As System.Windows.Forms.Label
  54. Friend WithEvents labelZAxis As System.Windows.Forms.Label
  55. Friend WithEvents labelYAxis As System.Windows.Forms.Label
  56. Friend WithEvents labelXAxis As System.Windows.Forms.Label
  57. Friend WithEvents labelPOV3Text As System.Windows.Forms.Label
  58. Friend WithEvents labelPOV2Text As System.Windows.Forms.Label
  59. Friend WithEvents labelPOV1Text As System.Windows.Forms.Label
  60. Friend WithEvents labelPOV0Text As System.Windows.Forms.Label
  61. Friend WithEvents labelSlider1Text As System.Windows.Forms.Label
  62. Friend WithEvents labelSlider0Text As System.Windows.Forms.Label
  63. Friend WithEvents labelZRotationText As System.Windows.Forms.Label
  64. Friend WithEvents labelYRotationText As System.Windows.Forms.Label
  65. Friend WithEvents labelXRotationText As System.Windows.Forms.Label
  66. Friend WithEvents labelZAxisText As System.Windows.Forms.Label
  67. Friend WithEvents labelYAxisText As System.Windows.Forms.Label
  68. Friend WithEvents labelXAxisText As System.Windows.Forms.Label
  69. <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  70. Me.label2 = New System.Windows.Forms.Label
  71. Me.buttonExit = New System.Windows.Forms.Button
  72. Me.groupBox1 = New System.Windows.Forms.GroupBox
  73. Me.labelButtons = New System.Windows.Forms.Label
  74. Me.label1 = New System.Windows.Forms.Label
  75. Me.labelPOV3 = New System.Windows.Forms.Label
  76. Me.labelSlider1 = New System.Windows.Forms.Label
  77. Me.labelSlider0 = New System.Windows.Forms.Label
  78. Me.labelPOV2 = New System.Windows.Forms.Label
  79. Me.labelPOV1 = New System.Windows.Forms.Label
  80. Me.labelPOV0 = New System.Windows.Forms.Label
  81. Me.labelZRotation = New System.Windows.Forms.Label
  82. Me.labelYRotation = New System.Windows.Forms.Label
  83. Me.labelXRotation = New System.Windows.Forms.Label
  84. Me.labelZAxis = New System.Windows.Forms.Label
  85. Me.labelYAxis = New System.Windows.Forms.Label
  86. Me.labelXAxis = New System.Windows.Forms.Label
  87. Me.labelPOV3Text = New System.Windows.Forms.Label
  88. Me.labelPOV2Text = New System.Windows.Forms.Label
  89. Me.labelPOV1Text = New System.Windows.Forms.Label
  90. Me.labelPOV0Text = New System.Windows.Forms.Label
  91. Me.labelSlider1Text = New System.Windows.Forms.Label
  92. Me.labelSlider0Text = New System.Windows.Forms.Label
  93. Me.labelZRotationText = New System.Windows.Forms.Label
  94. Me.labelYRotationText = New System.Windows.Forms.Label
  95. Me.labelXRotationText = New System.Windows.Forms.Label
  96. Me.labelZAxisText = New System.Windows.Forms.Label
  97. Me.labelYAxisText = New System.Windows.Forms.Label
  98. Me.labelXAxisText = New System.Windows.Forms.Label
  99. Me.groupBox1.SuspendLayout()
  100. Me.SuspendLayout()
  101. '
  102. 'label2
  103. '
  104. Me.label2.AutoSize = True
  105. Me.label2.Location = New System.Drawing.Point(24, 8)
  106. Me.label2.Name = "label2"
  107. Me.label2.Size = New System.Drawing.Size(258, 16)
  108. Me.label2.TabIndex = 4
  109. Me.label2.Text = "This sample continously polls the Joystick for data."
  110. '
  111. 'buttonExit
  112. '
  113. Me.buttonExit.Location = New System.Drawing.Point(248, 248)
  114. Me.buttonExit.Name = "buttonExit"
  115. Me.buttonExit.Size = New System.Drawing.Size(40, 24)
  116. Me.buttonExit.TabIndex = 3
  117. Me.buttonExit.Text = "Exit"
  118. '
  119. 'groupBox1
  120. '
  121. Me.groupBox1.Controls.Add(Me.labelButtons)
  122. Me.groupBox1.Controls.Add(Me.label1)
  123. Me.groupBox1.Controls.Add(Me.labelPOV3)
  124. Me.groupBox1.Controls.Add(Me.labelSlider1)
  125. Me.groupBox1.Controls.Add(Me.labelSlider0)
  126. Me.groupBox1.Controls.Add(Me.labelPOV2)
  127. Me.groupBox1.Controls.Add(Me.labelPOV1)
  128. Me.groupBox1.Controls.Add(Me.labelPOV0)
  129. Me.groupBox1.Controls.Add(Me.labelZRotation)
  130. Me.groupBox1.Controls.Add(Me.labelYRotation)
  131. Me.groupBox1.Controls.Add(Me.labelXRotation)
  132. Me.groupBox1.Controls.Add(Me.labelZAxis)
  133. Me.groupBox1.Controls.Add(Me.labelYAxis)
  134. Me.groupBox1.Controls.Add(Me.labelXAxis)
  135. Me.groupBox1.Controls.Add(Me.labelPOV3Text)
  136. Me.groupBox1.Controls.Add(Me.labelPOV2Text)
  137. Me.groupBox1.Controls.Add(Me.labelPOV1Text)
  138. Me.groupBox1.Controls.Add(Me.labelPOV0Text)
  139. Me.groupBox1.Controls.Add(Me.labelSlider1Text)
  140. Me.groupBox1.Controls.Add(Me.labelSlider0Text)
  141. Me.groupBox1.Controls.Add(Me.labelZRotationText)
  142. Me.groupBox1.Controls.Add(Me.labelYRotationText)
  143. Me.groupBox1.Controls.Add(Me.labelXRotationText)
  144. Me.groupBox1.Controls.Add(Me.labelZAxisText)
  145. Me.groupBox1.Controls.Add(Me.labelYAxisText)
  146. Me.groupBox1.Controls.Add(Me.labelXAxisText)
  147. Me.groupBox1.Location = New System.Drawing.Point(24, 48)
  148. Me.groupBox1.Name = "groupBox1"
  149. Me.groupBox1.Size = New System.Drawing.Size(264, 184)
  150. Me.groupBox1.TabIndex = 2
  151. Me.groupBox1.TabStop = False
  152. Me.groupBox1.Text = "Joystick State"
  153. '
  154. 'labelButtons
  155. '
  156. Me.labelButtons.Location = New System.Drawing.Point(72, 157)
  157. Me.labelButtons.Name = "labelButtons"
  158. Me.labelButtons.Size = New System.Drawing.Size(184, 13)
  159. Me.labelButtons.TabIndex = 25
  160. '
  161. 'label1
  162. '
  163. Me.label1.AutoSize = True
  164. Me.label1.Location = New System.Drawing.Point(16, 157)
  165. Me.label1.Name = "label1"
  166. Me.label1.Size = New System.Drawing.Size(46, 16)
  167. Me.label1.TabIndex = 24
  168. Me.label1.Text = "Buttons:"
  169. '
  170. 'labelPOV3
  171. '
  172. Me.labelPOV3.AutoSize = True
  173. Me.labelPOV3.Enabled = False
  174. Me.labelPOV3.Location = New System.Drawing.Point(192, 128)
  175. Me.labelPOV3.Name = "labelPOV3"
  176. Me.labelPOV3.Size = New System.Drawing.Size(10, 16)
  177. Me.labelPOV3.TabIndex = 23
  178. Me.labelPOV3.Text = "0"
  179. '
  180. 'labelSlider1
  181. '
  182. Me.labelSlider1.AutoSize = True
  183. Me.labelSlider1.Enabled = False
  184. Me.labelSlider1.Location = New System.Drawing.Point(192, 40)
  185. Me.labelSlider1.Name = "labelSlider1"
  186. Me.labelSlider1.Size = New System.Drawing.Size(10, 16)
  187. Me.labelSlider1.TabIndex = 22
  188. Me.labelSlider1.Text = "0"
  189. '
  190. 'labelSlider0
  191. '
  192. Me.labelSlider0.AutoSize = True
  193. Me.labelSlider0.Enabled = False
  194. Me.labelSlider0.Location = New System.Drawing.Point(192, 24)
  195. Me.labelSlider0.Name = "labelSlider0"
  196. Me.labelSlider0.Size = New System.Drawing.Size(10, 16)
  197. Me.labelSlider0.TabIndex = 21
  198. Me.labelSlider0.Text = "0"
  199. '
  200. 'labelPOV2
  201. '
  202. Me.labelPOV2.AutoSize = True
  203. Me.labelPOV2.Enabled = False
  204. Me.labelPOV2.Location = New System.Drawing.Point(192, 112)
  205. Me.labelPOV2.Name = "labelPOV2"
  206. Me.labelPOV2.Size = New System.Drawing.Size(10, 16)
  207. Me.labelPOV2.TabIndex = 20
  208. Me.labelPOV2.Text = "0"
  209. '
  210. 'labelPOV1
  211. '
  212. Me.labelPOV1.AutoSize = True
  213. Me.labelPOV1.Enabled = False
  214. Me.labelPOV1.Location = New System.Drawing.Point(192, 96)
  215. Me.labelPOV1.Name = "labelPOV1"
  216. Me.labelPOV1.Size = New System.Drawing.Size(10, 16)
  217. Me.labelPOV1.TabIndex = 19
  218. Me.labelPOV1.Text = "0"
  219. '
  220. 'labelPOV0
  221. '
  222. Me.labelPOV0.AutoSize = True
  223. Me.labelPOV0.Enabled = False
  224. Me.labelPOV0.Location = New System.Drawing.Point(192, 80)
  225. Me.labelPOV0.Name = "labelPOV0"
  226. Me.labelPOV0.Size = New System.Drawing.Size(10, 16)
  227. Me.labelPOV0.TabIndex = 18
  228. Me.labelPOV0.Text = "0"
  229. '
  230. 'labelZRotation
  231. '
  232. Me.labelZRotation.AutoSize = True
  233. Me.labelZRotation.Enabled = False
  234. Me.labelZRotation.Location = New System.Drawing.Point(88, 128)
  235. Me.labelZRotation.Name = "labelZRotation"
  236. Me.labelZRotation.Size = New System.Drawing.Size(10, 16)
  237. Me.labelZRotation.TabIndex = 17
  238. Me.labelZRotation.Text = "0"
  239. '
  240. 'labelYRotation
  241. '
  242. Me.labelYRotation.AutoSize = True
  243. Me.labelYRotation.Enabled = False
  244. Me.labelYRotation.Location = New System.Drawing.Point(88, 112)
  245. Me.labelYRotation.Name = "labelYRotation"
  246. Me.labelYRotation.Size = New System.Drawing.Size(10, 16)
  247. Me.labelYRotation.TabIndex = 16
  248. Me.labelYRotation.Text = "0"
  249. '
  250. 'labelXRotation
  251. '
  252. Me.labelXRotation.AutoSize = True
  253. Me.labelXRotation.Enabled = False
  254. Me.labelXRotation.Location = New System.Drawing.Point(88, 96)
  255. Me.labelXRotation.Name = "labelXRotation"
  256. Me.labelXRotation.Size = New System.Drawing.Size(10, 16)
  257. Me.labelXRotation.TabIndex = 15
  258. Me.labelXRotation.Text = "0"
  259. '
  260. 'labelZAxis
  261. '
  262. Me.labelZAxis.AutoSize = True
  263. Me.labelZAxis.Enabled = False
  264. Me.labelZAxis.Location = New System.Drawing.Point(88, 56)
  265. Me.labelZAxis.Name = "labelZAxis"
  266. Me.labelZAxis.Size = New System.Drawing.Size(10, 16)
  267. Me.labelZAxis.TabIndex = 14
  268. Me.labelZAxis.Text = "0"
  269. '
  270. 'labelYAxis
  271. '
  272. Me.labelYAxis.AutoSize = True
  273. Me.labelYAxis.Enabled = False
  274. Me.labelYAxis.Location = New System.Drawing.Point(88, 40)
  275. Me.labelYAxis.Name = "labelYAxis"
  276. Me.labelYAxis.Size = New System.Drawing.Size(10, 16)
  277. Me.labelYAxis.TabIndex = 13
  278. Me.labelYAxis.Text = "0"
  279. '
  280. 'labelXAxis
  281. '
  282. Me.labelXAxis.AutoSize = True
  283. Me.labelXAxis.Enabled = False
  284. Me.labelXAxis.Location = New System.Drawing.Point(88, 24)
  285. Me.labelXAxis.Name = "labelXAxis"
  286. Me.labelXAxis.Size = New System.Drawing.Size(10, 16)
  287. Me.labelXAxis.TabIndex = 12
  288. Me.labelXAxis.Text = "0"
  289. '
  290. 'labelPOV3Text
  291. '
  292. Me.labelPOV3Text.AutoSize = True
  293. Me.labelPOV3Text.Enabled = False
  294. Me.labelPOV3Text.Location = New System.Drawing.Point(136, 128)
  295. Me.labelPOV3Text.Name = "labelPOV3Text"
  296. Me.labelPOV3Text.Size = New System.Drawing.Size(41, 16)
  297. Me.labelPOV3Text.TabIndex = 11
  298. Me.labelPOV3Text.Text = "POV 3:"
  299. '
  300. 'labelPOV2Text
  301. '
  302. Me.labelPOV2Text.AutoSize = True
  303. Me.labelPOV2Text.Enabled = False
  304. Me.labelPOV2Text.Location = New System.Drawing.Point(136, 112)
  305. Me.labelPOV2Text.Name = "labelPOV2Text"
  306. Me.labelPOV2Text.Size = New System.Drawing.Size(41, 16)
  307. Me.labelPOV2Text.TabIndex = 10
  308. Me.labelPOV2Text.Text = "POV 2:"
  309. '
  310. 'labelPOV1Text
  311. '
  312. Me.labelPOV1Text.AutoSize = True
  313. Me.labelPOV1Text.Enabled = False
  314. Me.labelPOV1Text.Location = New System.Drawing.Point(136, 96)
  315. Me.labelPOV1Text.Name = "labelPOV1Text"
  316. Me.labelPOV1Text.Size = New System.Drawing.Size(41, 16)
  317. Me.labelPOV1Text.TabIndex = 9
  318. Me.labelPOV1Text.Text = "POV 1:"
  319. '
  320. 'labelPOV0Text
  321. '
  322. Me.labelPOV0Text.AutoSize = True
  323. Me.labelPOV0Text.Enabled = False
  324. Me.labelPOV0Text.Location = New System.Drawing.Point(136, 80)
  325. Me.labelPOV0Text.Name = "labelPOV0Text"
  326. Me.labelPOV0Text.Size = New System.Drawing.Size(41, 16)
  327. Me.labelPOV0Text.TabIndex = 8
  328. Me.labelPOV0Text.Text = "POV 0:"
  329. '
  330. 'labelSlider1Text
  331. '
  332. Me.labelSlider1Text.AutoSize = True
  333. Me.labelSlider1Text.Enabled = False
  334. Me.labelSlider1Text.Location = New System.Drawing.Point(136, 40)
  335. Me.labelSlider1Text.Name = "labelSlider1Text"
  336. Me.labelSlider1Text.Size = New System.Drawing.Size(46, 16)
  337. Me.labelSlider1Text.TabIndex = 7
  338. Me.labelSlider1Text.Text = "Slider 1:"
  339. '
  340. 'labelSlider0Text
  341. '
  342. Me.labelSlider0Text.AutoSize = True
  343. Me.labelSlider0Text.Enabled = False
  344. Me.labelSlider0Text.Location = New System.Drawing.Point(136, 24)
  345. Me.labelSlider0Text.Name = "labelSlider0Text"
  346. Me.labelSlider0Text.Size = New System.Drawing.Size(46, 16)
  347. Me.labelSlider0Text.TabIndex = 6
  348. Me.labelSlider0Text.Text = "Slider 0:"
  349. '
  350. 'labelZRotationText
  351. '
  352. Me.labelZRotationText.AutoSize = True
  353. Me.labelZRotationText.Enabled = False
  354. Me.labelZRotationText.Location = New System.Drawing.Point(16, 128)
  355. Me.labelZRotationText.Name = "labelZRotationText"
  356. Me.labelZRotationText.Size = New System.Drawing.Size(60, 16)
  357. Me.labelZRotationText.TabIndex = 5
  358. Me.labelZRotationText.Text = "Z Rotation:"
  359. '
  360. 'labelYRotationText
  361. '
  362. Me.labelYRotationText.AutoSize = True
  363. Me.labelYRotationText.Enabled = False
  364. Me.labelYRotationText.Location = New System.Drawing.Point(16, 112)
  365. Me.labelYRotationText.Name = "labelYRotationText"
  366. Me.labelYRotationText.Size = New System.Drawing.Size(60, 16)
  367. Me.labelYRotationText.TabIndex = 4
  368. Me.labelYRotationText.Text = "Y Rotation:"
  369. '
  370. 'labelXRotationText
  371. '
  372. Me.labelXRotationText.AutoSize = True
  373. Me.labelXRotationText.Enabled = False
  374. Me.labelXRotationText.Location = New System.Drawing.Point(16, 96)
  375. Me.labelXRotationText.Name = "labelXRotationText"
  376. Me.labelXRotationText.Size = New System.Drawing.Size(60, 16)
  377. Me.labelXRotationText.TabIndex = 3
  378. Me.labelXRotationText.Text = "X Rotation:"
  379. '
  380. 'labelZAxisText
  381. '
  382. Me.labelZAxisText.AutoSize = True
  383. Me.labelZAxisText.Enabled = False
  384. Me.labelZAxisText.Location = New System.Drawing.Point(16, 56)
  385. Me.labelZAxisText.Name = "labelZAxisText"
  386. Me.labelZAxisText.Size = New System.Drawing.Size(39, 16)
  387. Me.labelZAxisText.TabIndex = 2
  388. Me.labelZAxisText.Text = "Z Axis:"
  389. '
  390. 'labelYAxisText
  391. '
  392. Me.labelYAxisText.AutoSize = True
  393. Me.labelYAxisText.Enabled = False
  394. Me.labelYAxisText.Location = New System.Drawing.Point(16, 40)
  395. Me.labelYAxisText.Name = "labelYAxisText"
  396. Me.labelYAxisText.Size = New System.Drawing.Size(39, 16)
  397. Me.labelYAxisText.TabIndex = 1
  398. Me.labelYAxisText.Text = "Y Axis:"
  399. '
  400. 'labelXAxisText
  401. '
  402. Me.labelXAxisText.AutoSize = True
  403. Me.labelXAxisText.Enabled = False
  404. Me.labelXAxisText.Location = New System.Drawing.Point(16, 24)
  405. Me.labelXAxisText.Name = "labelXAxisText"
  406. Me.labelXAxisText.Size = New System.Drawing.Size(39, 16)
  407. Me.labelXAxisText.TabIndex = 0
  408. Me.labelXAxisText.Text = "X Axis:"
  409. '
  410. 'Form1
  411. '
  412. Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
  413. Me.ClientSize = New System.Drawing.Size(320, 301)
  414. Me.Controls.Add(Me.label2)
  415. Me.Controls.Add(Me.buttonExit)
  416. Me.Controls.Add(Me.groupBox1)
  417. Me.Name = "Form1"
  418. Me.Text = "Form1"
  419. Me.groupBox1.ResumeLayout(False)
  420. Me.ResumeLayout(False)
  422. End Sub
  424. #End Region
  426. ' Translation of the MS DirectX SDK Joystick example to vb
  428. ' These three fields hold common data that
  429. ' different threads will have to access
  430. Public Shared state As New JoystickState
  431. Private applicationDevice As Device = Nothing
  432. Public Shared numPOVs As Integer = 0
  433. Private SliderCount As Integer = 0 ' number of returned slider controls
  434. Private WithEvents timer1 As New Timer
  437. Private Function InitDirectInput() As Boolean
  438. ' loop through attached game controller devices
  439. For Each instance As DeviceInstance In Manager.GetDevices(DeviceClass.GameControl, EnumDevicesFlags.AttachedOnly)
  440. ' example just picks the first available
  441. applicationDevice = New Device(instance.InstanceGuid)
  442. Exit For
  443. Next
  445. ' If we didn't find one then let user know and quit
  446. If applicationDevice Is Nothing Then
  447. MessageBox.Show("Unable to create a Joystick device. Sample will exit.", "No joystick found" )
  448. Return False
  449. End If
  451. ' Set the data format to the c_dfDIJoystick pre-defined format.
  452. applicationDevice.SetDataFormat(DeviceDataFormat.Joystick)
  453. ' Set the cooperative level for the device.
  454. ' (The logical OR here has the effect of making it Exclusive and foreground)
  455. applicationDevice.SetCooperativeLevel(Me, CooperativeLevelFlags.Exclusive Or CooperativeLevelFlags.Foreground)
  456. ' Enumerate all the objects on the device.
  458. For Each d As DeviceObjectInstance In applicationDevice.Objects
  459. ' For axes that are returned, set the DIPROP_RANGE property for the
  460. ' enumerated axis in order to scale min/max values.
  461. If Not (d.ObjectId And Convert.ToInt32(DeviceObjectTypeFlags.Axis)) = 0 Then
  462. ' Set the range for the axis.
  463. applicationDevice.Properties.SetRange(ParameterHow.ById, d.ObjectId, New InputRange(-1000, +1000))
  464. ' Update the controls to reflect what
  465. ' objects the device supports.
  466. UpdateControls(d)
  467. End If
  468. Next
  469. Return True
  470. End Function
  474. Private Sub buttonExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonExit.Click
  475. Close()
  476. End Sub
  478. Public Sub GetData()
  480. ' Make sure there is a valid device.
  481. If applicationDevice Is Nothing Then Return
  483. Try
  485. ' Poll the device for info.
  486. applicationDevice.Poll()
  488. Catch notAcqEx As NotAcquiredException
  489. ' Check to see if either the app
  490. ' needs to acquire the device, or
  491. ' if the app lost the device to another
  492. ' process.
  493. Try
  494. ' Acquire the device.
  495. applicationDevice.Acquire()
  496. Catch iex As InputException
  497. ' Failed to acquire the device.
  498. ' This could be because the app
  499. ' doesn't have focus.
  500. Return
  501. End Try
  502. Catch inpLostEx As InputLostException
  503. ' Check to see if either the app
  504. ' needs to acquire the device, or
  505. ' if the app lost the device to another
  506. ' process.
  507. Try
  508. ' Acquire the device.
  509. applicationDevice.Acquire()
  510. Catch iex As InputException
  511. ' Failed to acquire the device.
  512. ' This could be because the app
  513. ' doesn't have focus.
  514. Return
  515. End Try
  516. End Try
  518. ' Get the state of the device.
  519. Try
  520. state = applicationDevice.CurrentJoystickState
  521. ' Catch any exceptions. None will be handled here,
  522. ' any device re-aquisition will be handled above.
  523. Catch iex As InputException
  524. Return
  525. End Try
  526. UpdateUI()
  527. End Sub
  529. Private Sub UpdateUI()
  531. ' This function updated the UI with
  532. ' Joystick state information.
  534. Dim strText As String = ""
  536. labelXAxis.Text = state.X.ToString()
  537. labelYAxis.Text = state.Y.ToString()
  538. labelZAxis.Text = state.Z.ToString()
  540. labelXRotation.Text = state.Rx.ToString()
  541. labelYRotation.Text = state.Ry.ToString()
  542. labelZRotation.Text = state.Rz.ToString()
  544. Dim slider As Integer() = state.GetSlider()
  546. labelSlider0.Text = slider(0).ToString()
  547. labelSlider1.Text = slider(1).ToString()
  549. Dim pov As Integer() = state.GetPointOfView()
  551. labelPOV0.Text = pov(0).ToString()
  552. labelPOV1.Text = pov(1).ToString()
  553. labelPOV2.Text = pov(2).ToString()
  554. labelPOV3.Text = pov(3).ToString()
  556. ' Fill up text with which buttons are pressed
  557. Dim buttons As Byte() = state.GetButtons()
  559. Dim _button As Integer = 0
  560. For Each b As Byte In buttons
  561. If Not ((b And &H80) = 0) Then
  562. strText += _button.ToString(" 00" )
  563. _button += 1
  564. End If
  565. Next
  567. labelButtons.Text = strText
  569. End Sub
  571. Public Sub UpdateControls(ByVal d As DeviceObjectInstance)
  573. ' Set the UI to reflect what objects the Joystick supports.
  574. If (ObjectTypeGuid.XAxis.Equals(d.ObjectType)) Then
  575. labelXAxis.Enabled = True
  576. labelXAxisText.Enabled = True
  577. End If
  579. If (ObjectTypeGuid.YAxis.Equals(d.ObjectType)) Then
  580. labelYAxis.Enabled = True
  581. labelYAxisText.Enabled = True
  582. End If
  584. If (ObjectTypeGuid.ZAxis.Equals(d.ObjectType)) Then
  585. labelZAxis.Enabled = True
  586. labelZAxisText.Enabled = True
  587. End If
  589. If (ObjectTypeGuid.RxAxis.Equals(d.ObjectType)) Then
  590. labelXRotation.Enabled = True
  591. labelXRotationText.Enabled = True
  592. End If
  594. If (ObjectTypeGuid.RyAxis.Equals(d.ObjectType)) Then
  595. labelYRotation.Enabled = True
  596. labelYRotationText.Enabled = True
  597. End If
  599. If (ObjectTypeGuid.RzAxis.Equals(d.ObjectType)) Then
  600. labelZRotation.Enabled = True
  601. labelZRotationText.Enabled = True
  602. End If
  604. If (ObjectTypeGuid.Slider.Equals(d.ObjectType)) Then
  605. SliderCount += 1
  606. Select Case SliderCount
  607. Case 0
  608. labelSlider0.Enabled = True
  609. labelSlider0Text.Enabled = True
  610. Case 1
  611. labelSlider1.Enabled = True
  612. labelSlider1Text.Enabled = True
  613. End Select
  615. End If
  617. If (ObjectTypeGuid.PointOfView.Equals(d.ObjectType)) Then
  618. numPOVs += 1
  619. Select Case numPOVs
  621. Case 0
  622. labelPOV0.Enabled = True
  623. labelPOV0Text.Enabled = True
  624. Case 1
  625. labelPOV1.Enabled = True
  626. labelPOV1Text.Enabled = True
  627. Case 2
  628. labelPOV2.Enabled = True
  629. labelPOV2Text.Enabled = True
  630. Case 3
  631. labelPOV3.Enabled = True
  632. labelPOV3Text.Enabled = True
  633. End Select
  634. End If
  636. End Sub
  638. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  639. If InitDirectInput() = False Then Close()
  640. timer1.Start()
  641. End Sub
  643. Private Sub timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles timer1.Tick
  644. GetData()
  645. End Sub
  646. End Class


 
Je pense que l'erreur se situe en bas dans la sub : Private Sub UpdateUI()
Je peux vous coller le code en c++ qui fonctionne si ca peut vous aider!

Reply

Marsh Posté le 11-05-2010 à 18:50:18   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed