1 |
|
---|
2 | '#require <api_mmsys.sbp>
|
---|
3 |
|
---|
4 | Namespace ActiveBasic
|
---|
5 | Namespace Windows
|
---|
6 | Namespace MM
|
---|
7 |
|
---|
8 |
|
---|
9 | Enum JoyCapability
|
---|
10 | HasZ = &H0001
|
---|
11 | HasR = &H0002
|
---|
12 | HasU = &H0004
|
---|
13 | HasV = &H0008
|
---|
14 | HasPointOfView = &H0010
|
---|
15 | PointOfView4Direction = &H0020
|
---|
16 | PointOfViewContinuous = &H0040
|
---|
17 | End Enum
|
---|
18 |
|
---|
19 | Class JoyCaps
|
---|
20 | caps As JOYCAPS
|
---|
21 |
|
---|
22 | Protected
|
---|
23 | Sub _Initialize ( id As DWord )
|
---|
24 | joyGetDevCaps(id,caps,SizeOf(JOYCAPS))
|
---|
25 | End Sub
|
---|
26 |
|
---|
27 | Public
|
---|
28 | Function ManufacturerID () As Word
|
---|
29 | Return This.caps.wMid
|
---|
30 | End Function
|
---|
31 | Function ProductID () As Word
|
---|
32 | Return This.caps.wPid
|
---|
33 | End Function
|
---|
34 | Function ProductName () As String
|
---|
35 | Return New System.String(This.caps.szPname As LPTSTR)
|
---|
36 | End Function
|
---|
37 | Function MinimumX () As DWord
|
---|
38 | Return This.caps.wXmin
|
---|
39 | End Function
|
---|
40 | Function MaximumX () As DWord
|
---|
41 | Return This.caps.wXmax
|
---|
42 | End Function
|
---|
43 | Function MinimumY () As DWord
|
---|
44 | Return This.caps.wYmin
|
---|
45 | End Function
|
---|
46 | Function MaximumY () As DWord
|
---|
47 | Return This.caps.wYmax
|
---|
48 | End Function
|
---|
49 | Function MinimumZ () As DWord
|
---|
50 | Return This.caps.wZmin
|
---|
51 | End Function
|
---|
52 | Function MaximumZ () As DWord
|
---|
53 | Return This.caps.wZmax
|
---|
54 | End Function
|
---|
55 | Function NumberOfButtons () As DWord
|
---|
56 | Return This.caps.wNumButtons
|
---|
57 | End Function
|
---|
58 | Function MinimumMessagePeriod () As DWord
|
---|
59 | Return This.caps.wPeriodMin
|
---|
60 | End Function
|
---|
61 | Function MaximumMessagePeriod () As DWord
|
---|
62 | Return This.caps.wPeriodMax
|
---|
63 | End Function
|
---|
64 | Function MinimumR () As DWord
|
---|
65 | Return This.caps.wRmin
|
---|
66 | End Function
|
---|
67 | Function MaximumR () As DWord
|
---|
68 | Return This.caps.wRmax
|
---|
69 | End Function
|
---|
70 | Function MinimumU () As DWord
|
---|
71 | Return This.caps.wUmin
|
---|
72 | End Function
|
---|
73 | Function MaximumU () As DWord
|
---|
74 | Return This.caps.wUmax
|
---|
75 | End Function
|
---|
76 | Function MinimumV () As DWord
|
---|
77 | Return This.caps.wVmin
|
---|
78 | End Function
|
---|
79 | Function MaximumV () As DWord
|
---|
80 | Return This.caps.wVmax
|
---|
81 | End Function
|
---|
82 | Function Capabilities () As JoyCapability
|
---|
83 | Return This.caps.wCaps As JoyCapability
|
---|
84 | End Function
|
---|
85 | Function NumberOfAxesSupported () As DWord
|
---|
86 | Return This.caps.wMaxAxes
|
---|
87 | End Function
|
---|
88 | Function NumberOfAxesUsed () As DWord
|
---|
89 | Return This.caps.wNumAxes
|
---|
90 | End Function
|
---|
91 | Function NumberOfButtonsSupported () As DWord
|
---|
92 | Return This.caps.wMaxButtons
|
---|
93 | End Function
|
---|
94 | Function RegistryKey () As String
|
---|
95 | Return New System.String(This.caps.szRegKey As LPTSTR)
|
---|
96 | End Function
|
---|
97 | Function OEM_VxD () As String
|
---|
98 | Return New System.String(This.caps.szOEMVxD As LPTSTR)
|
---|
99 | End Function
|
---|
100 | End Class
|
---|
101 |
|
---|
102 | Class JoyButtons
|
---|
103 | dwButtons As DWord
|
---|
104 |
|
---|
105 | Protected
|
---|
106 | Sub _Initialize ( dw As DWord )
|
---|
107 | This.dwButtons = dw
|
---|
108 | End Sub
|
---|
109 |
|
---|
110 | Public
|
---|
111 | Function Button1 () As Boolean
|
---|
112 | Return This.Button( 1 )
|
---|
113 | End Function
|
---|
114 | Function Button2 () As Boolean
|
---|
115 | Return This.Button( 2 )
|
---|
116 | End Function
|
---|
117 | Function Button3 () As Boolean
|
---|
118 | Return This.Button( 3 )
|
---|
119 | End Function
|
---|
120 | Function Button4 () As Boolean
|
---|
121 | Return This.Button( 4 )
|
---|
122 | End Function
|
---|
123 | Function Button5 () As Boolean
|
---|
124 | Return This.Button( 5 )
|
---|
125 | End Function
|
---|
126 | Function Button6 () As Boolean
|
---|
127 | Return This.Button( 6 )
|
---|
128 | End Function
|
---|
129 | Function Button7 () As Boolean
|
---|
130 | Return This.Button( 7 )
|
---|
131 | End Function
|
---|
132 | Function Button8 () As Boolean
|
---|
133 | Return This.Button( 8 )
|
---|
134 | End Function
|
---|
135 | Function Button9 () As Boolean
|
---|
136 | Return This.Button( 9 )
|
---|
137 | End Function
|
---|
138 | Function Button10 () As Boolean
|
---|
139 | Return This.Button( 10 )
|
---|
140 | End Function
|
---|
141 | Function Button11 () As Boolean
|
---|
142 | Return This.Button( 11 )
|
---|
143 | End Function
|
---|
144 | Function Button12 () As Boolean
|
---|
145 | Return This.Button( 12 )
|
---|
146 | End Function
|
---|
147 | Function Button13 () As Boolean
|
---|
148 | Return This.Button( 13 )
|
---|
149 | End Function
|
---|
150 | Function Button14 () As Boolean
|
---|
151 | Return This.Button( 14 )
|
---|
152 | End Function
|
---|
153 | Function Button15 () As Boolean
|
---|
154 | Return This.Button( 15 )
|
---|
155 | End Function
|
---|
156 | Function Button16 () As Boolean
|
---|
157 | Return This.Button( 16 )
|
---|
158 | End Function
|
---|
159 | Function Button17 () As Boolean
|
---|
160 | Return This.Button( 17 )
|
---|
161 | End Function
|
---|
162 | Function Button18 () As Boolean
|
---|
163 | Return This.Button( 18 )
|
---|
164 | End Function
|
---|
165 | Function Button19 () As Boolean
|
---|
166 | Return This.Button( 19 )
|
---|
167 | End Function
|
---|
168 | Function Button20 () As Boolean
|
---|
169 | Return This.Button( 20 )
|
---|
170 | End Function
|
---|
171 | Function Button21 () As Boolean
|
---|
172 | Return This.Button( 21 )
|
---|
173 | End Function
|
---|
174 | Function Button22 () As Boolean
|
---|
175 | Return This.Button( 22 )
|
---|
176 | End Function
|
---|
177 | Function Button23 () As Boolean
|
---|
178 | Return This.Button( 23 )
|
---|
179 | End Function
|
---|
180 | Function Button24 () As Boolean
|
---|
181 | Return This.Button( 24 )
|
---|
182 | End Function
|
---|
183 | Function Button25 () As Boolean
|
---|
184 | Return This.Button( 25 )
|
---|
185 | End Function
|
---|
186 | Function Button26 () As Boolean
|
---|
187 | Return This.Button( 26 )
|
---|
188 | End Function
|
---|
189 | Function Button27 () As Boolean
|
---|
190 | Return This.Button( 27 )
|
---|
191 | End Function
|
---|
192 | Function Button28 () As Boolean
|
---|
193 | Return This.Button( 28 )
|
---|
194 | End Function
|
---|
195 | Function Button29 () As Boolean
|
---|
196 | Return This.Button( 29 )
|
---|
197 | End Function
|
---|
198 | Function Button30 () As Boolean
|
---|
199 | Return This.Button( 30 )
|
---|
200 | End Function
|
---|
201 | Function Button31 () As Boolean
|
---|
202 | Return This.Button( 31 )
|
---|
203 | End Function
|
---|
204 | Function Button32 () As Boolean
|
---|
205 | Return This.Button( 32 )
|
---|
206 | End Function
|
---|
207 |
|
---|
208 | Public
|
---|
209 | Function Button ( n As DWord ) As Boolean
|
---|
210 | Return (1<<(n-1) And This.dwButtons) <> 0
|
---|
211 | End Function
|
---|
212 |
|
---|
213 | Public
|
---|
214 | Function Operator () As DWord
|
---|
215 | Return This.dwButtons
|
---|
216 | End Function
|
---|
217 |
|
---|
218 | Function Operator== (dw As DWord) As Boolean
|
---|
219 | Return This.dwButtons = dw
|
---|
220 | End Function
|
---|
221 | Function Operator And (dw As DWord) As Boolean
|
---|
222 | Return (This.dwButtons And dw) <> 0
|
---|
223 | End Function
|
---|
224 |
|
---|
225 | End Class
|
---|
226 |
|
---|
227 | Class JoyPointOfView
|
---|
228 | dwPOV As DWord
|
---|
229 |
|
---|
230 | Protected
|
---|
231 | Sub _Initialize ( dw As DWord )
|
---|
232 | If LOWORD(dw) = &HFFFF Then dw = -1
|
---|
233 | This.dwPOV = dw
|
---|
234 | End Sub
|
---|
235 |
|
---|
236 | Public
|
---|
237 | Static Const Centered = (-1) As DWord
|
---|
238 | Static Const Forward = 0 As DWord
|
---|
239 | Static Const ForwardAndRight = 4500 As DWord
|
---|
240 | Static Const Right = 9000 As DWord
|
---|
241 | Static Const BackwardAndRight = 13500 As DWord
|
---|
242 | Static Const Backward = 18000 As DWord
|
---|
243 | Static Const BackwardAndLeft = 22500 As DWord
|
---|
244 | Static Const Left = 27000 As DWord
|
---|
245 | Static Const ForwardAndLeft = 31500 As DWord
|
---|
246 |
|
---|
247 | Public
|
---|
248 | Function Operator () As DWord
|
---|
249 | Return This.dwPOV
|
---|
250 | End Function
|
---|
251 |
|
---|
252 | Function Operator== (value As DWord) As Boolean
|
---|
253 | Return This.dwPOV = value
|
---|
254 | End Function
|
---|
255 | Function Operator<> ( value As DWord) As Boolean
|
---|
256 | Return This.dwPOV <> value
|
---|
257 | End Function
|
---|
258 | Function Operator<= ( value As DWord) As Boolean
|
---|
259 | Return This.dwPOV <= value
|
---|
260 | End Function
|
---|
261 | Function Operator>= ( value As DWord) As Boolean
|
---|
262 | Return This.dwPOV >= value
|
---|
263 | End Function
|
---|
264 | Function Operator< ( value As DWord) As Boolean
|
---|
265 | Return This.dwPOV < value
|
---|
266 | End Function
|
---|
267 | Function Operator> ( value As DWord) As Boolean
|
---|
268 | Return This.dwPOV > value
|
---|
269 | End Function
|
---|
270 |
|
---|
271 | Function Operator== ( value As JoyPointOfView ) As Boolean
|
---|
272 | Return This = value As DWord
|
---|
273 | End Function
|
---|
274 | Function Operator<> ( value As JoyPointOfView ) As Boolean
|
---|
275 | Return This <> value As DWord
|
---|
276 | End Function
|
---|
277 | Function Operator<= ( value As JoyPointOfView ) As Boolean
|
---|
278 | Return This <= value As DWord
|
---|
279 | End Function
|
---|
280 | Function Operator>= ( value As JoyPointOfView ) As Boolean
|
---|
281 | Return This >= value As DWord
|
---|
282 | End Function
|
---|
283 | Function Operator< ( value As JoyPointOfView ) As Boolean
|
---|
284 | Return This < value As DWord
|
---|
285 | End Function
|
---|
286 | Function Operator> ( value As JoyPointOfView ) As Boolean
|
---|
287 | Return This > value As DWord
|
---|
288 | End Function
|
---|
289 | End Class
|
---|
290 |
|
---|
291 | Class JoyInfo
|
---|
292 | info As JOYINFOEX
|
---|
293 |
|
---|
294 | Protected
|
---|
295 | Sub _Initialize ( id As DWord )
|
---|
296 | This.info.dwSize = SizeOf(JOYINFOEX)
|
---|
297 | This.info.dwFlags = JOY_RETURNALL
|
---|
298 | joyGetPosEx(id,info)
|
---|
299 | End Sub
|
---|
300 |
|
---|
301 | Public
|
---|
302 | Function X () As DWord
|
---|
303 | Return This.info.dwXpos
|
---|
304 | End Function
|
---|
305 | Function Y () As DWord
|
---|
306 | Return This.info.dwYpos
|
---|
307 | End Function
|
---|
308 | Function Z () As DWord
|
---|
309 | Return This.info.dwZpos
|
---|
310 | End Function
|
---|
311 | Function R () As DWord
|
---|
312 | Return This.info.dwRpos
|
---|
313 | End Function
|
---|
314 | Function U () As DWord
|
---|
315 | Return This.info.dwUpos
|
---|
316 | End Function
|
---|
317 | Function V () As DWord
|
---|
318 | Return This.info.dwVpos
|
---|
319 | End Function
|
---|
320 | Function Buttons () As JoyButtons
|
---|
321 | Return New Detail._System_JoyButtons(This.info.dwButtons)
|
---|
322 | End Function
|
---|
323 | Function ButtonNumber () As DWord
|
---|
324 | Return This.info.dwButtonNumber
|
---|
325 | End Function
|
---|
326 | Function PointOfView () As JoyPointOfView
|
---|
327 | Return New Detail._System_JoyPointOfView(This.info.dwPOV)
|
---|
328 | End Function
|
---|
329 | End Class
|
---|
330 |
|
---|
331 | Class Joystick
|
---|
332 | id As DWord
|
---|
333 |
|
---|
334 | Protected
|
---|
335 | Sub _Initialize ( id As DWord )
|
---|
336 | This.id = id
|
---|
337 | End Sub
|
---|
338 |
|
---|
339 | Public
|
---|
340 | Sub Threshold ( value As DWord )
|
---|
341 | joySetThreshold(id,value)
|
---|
342 | End Sub
|
---|
343 | Function Threshold () As DWord
|
---|
344 | joyGetThreshold(id,VarPtr(Threshold))
|
---|
345 | End Function
|
---|
346 |
|
---|
347 | Public
|
---|
348 | Function GetCapabilities () As JoyCaps
|
---|
349 | Return New Detail._System_JoyCaps(This.id)
|
---|
350 | End Function
|
---|
351 | Function GetInfo() As JoyInfo
|
---|
352 | Return New Detail._System_JoyInfo(This.id)
|
---|
353 | End Function
|
---|
354 |
|
---|
355 | Public
|
---|
356 | Sub SetCupture ( hwnd As HWND, period As DWord, changed As Boolean)
|
---|
357 | joySetCapture(hwnd,id,period,changed)
|
---|
358 | End Sub
|
---|
359 | Sub ReleaseCapture()
|
---|
360 | joyReleaseCapture(id)
|
---|
361 | End Sub
|
---|
362 | End Class
|
---|
363 |
|
---|
364 | Class Joysticks
|
---|
365 |
|
---|
366 | Public
|
---|
367 | Static Function NumberOfDevices () As DWord
|
---|
368 | Return joyGetNumDevs()
|
---|
369 | End Function
|
---|
370 | Static Function NumberOfConnectedDevices () As DWord
|
---|
371 | Dim max = Joysticks.NumberOfDevices()
|
---|
372 | Dim cnt=0 As DWord
|
---|
373 | Dim info As JOYINFO
|
---|
374 | While joyGetPos(cnt,info) = JOYERR_NOERROR
|
---|
375 | cnt++
|
---|
376 | If cnt >= max Then Exit While
|
---|
377 | Wend
|
---|
378 | Return cnt
|
---|
379 | End Function
|
---|
380 |
|
---|
381 | Static Function GetJoysticks() As System.Collections.Generic.List<Joystick>
|
---|
382 | Dim list As System.Collections.Generic.List<Joystick>
|
---|
383 | Dim cnt As DWord
|
---|
384 | For cnt=0 To NumberOfConnectedDevices() - 1
|
---|
385 | list.Add(Joysticks.GetJoystick(cnt))
|
---|
386 | Next
|
---|
387 | Return list
|
---|
388 | End Function
|
---|
389 |
|
---|
390 | Static Function GetJoystick( id As DWord ) As Joystick
|
---|
391 | Return New Detail._System_Joystick(id)
|
---|
392 | End Function
|
---|
393 |
|
---|
394 | End Class
|
---|
395 |
|
---|
396 | Namespace Detail
|
---|
397 | Class _System_JoyCaps
|
---|
398 | Inherits JoyCaps
|
---|
399 | Public
|
---|
400 | Sub _System_JoyCaps ( id As DWord )
|
---|
401 | This._Initialize(id)
|
---|
402 | End Sub
|
---|
403 |
|
---|
404 | Override Function ToString () As String
|
---|
405 | Return "JoyCaps"
|
---|
406 | End Function
|
---|
407 | End Class
|
---|
408 |
|
---|
409 | Class _System_JoyButtons
|
---|
410 | Inherits JoyButtons
|
---|
411 | Public
|
---|
412 | Sub _System_JoyButtons ( dw As DWord )
|
---|
413 | This._Initialize(dw)
|
---|
414 | End Sub
|
---|
415 |
|
---|
416 | Override Function ToString () As String
|
---|
417 | Return "JoyButtons"
|
---|
418 | End Function
|
---|
419 | End Class
|
---|
420 |
|
---|
421 | Class _System_JoyPointOfView
|
---|
422 | Inherits JoyPointOfView
|
---|
423 | Public
|
---|
424 | Sub _System_JoyPointOfView ( dw As DWord )
|
---|
425 | This._Initialize(dw)
|
---|
426 | End Sub
|
---|
427 |
|
---|
428 | Override Function ToString () As String
|
---|
429 | Return "JoyPointOfView"
|
---|
430 | End Function
|
---|
431 | End Class
|
---|
432 |
|
---|
433 | Class _System_JoyInfo
|
---|
434 | Inherits JoyInfo
|
---|
435 | Public
|
---|
436 | Sub _System_JoyInfo ( id As DWord )
|
---|
437 | This._Initialize(id)
|
---|
438 | End Sub
|
---|
439 |
|
---|
440 | Override Function ToString () As String
|
---|
441 | Return "JoyInfo"
|
---|
442 | End Function
|
---|
443 | End Class
|
---|
444 |
|
---|
445 | Class _System_Joystick
|
---|
446 | Inherits Joystick
|
---|
447 | Public
|
---|
448 | Sub _System_Joystick ( id As DWord )
|
---|
449 | This._Initialize(id)
|
---|
450 | End Sub
|
---|
451 |
|
---|
452 | Override Function ToString () As String
|
---|
453 | Return "Joystick"
|
---|
454 | End Function
|
---|
455 | End Class
|
---|
456 |
|
---|
457 | End Namespace
|
---|
458 |
|
---|
459 | End Namespace
|
---|
460 | End Namespace
|
---|
461 | End Namespace
|
---|