events and malloc in QB64?

[madscijr]

Hi everyone.

I'm attempting to convert this manymouse library to QB64:
https://github.com/NoobsArePeople2/manymouse

TempodiBasic pointed out how the API declarations can be done in QB64.
It might help if I knew C, but I figure I'll try slogging through it.
Now I am seeing other stuff that I'm not so sure about.
I'm running into are these references to files that aren't on the github, that I assume are basic C libraries for Windows?

Code: C: [Select]

1. #define WIN32_LEAN_AND_MEAN 1
2. #include <windows.h>
3. #include <setupapi.h>
4. #include <malloc.h>  /* needed for alloca(). */
5.  

malloc
I am not finding anything on "malloc" in QB64.
Is there an equivalent or some workaround in QB64 for code like this?

Code: C: [Select]

1.     lpb = (LPBYTE) alloca(dwSize);
2.     if (lpb == NULL)
3.         return;
4.  

events
There is also some event handling:

Code: C: [Select]

1. #define MAX_EVENTS 1024
2. static ManyMouseEvent input_events[MAX_EVENTS];
3. static volatile int input_events_read = 0;
4. static volatile int input_events_write = 0;
5.  

I am not finding anything related to events in QB64.
What would you do to get that functionality to work?

Code: C: [Select]

1. static void queue_from_rawinput(const RAWINPUT *raw)
2. {
3.     int i;
4.     const RAWINPUTHEADER *header = &raw->header;
5.     const RAWMOUSE *mouse = &raw->data.mouse;
6.     ManyMouseEvent event;
7. etc.
8.  

Any advice or assistance would be much appreciated!

[bplus]

Malloc = memory allocation see _Mem stuff @SMcNeill good with that, Steve also has worked with _DEVICE$

API see @SpriggsySpriggs
Here is ref link: https://www.qb64.org/forum/index.php?topic=2930.msg121883#msg121883

[madscijr]

Malloc = memory allocation see _Mem stuff @SMcNeill good with that, Steve also has worked with _DEVICE$

API see @SpriggsySpriggs

Thanks... Is it even possible to have event handlers in QB64?

[bplus]

Thanks... Is it even possible to have event handlers in QB64?

I think so, see what @FellippeHeitor has done with InForm working Events driven model. Very much like VB.

[madscijr]

I think so, see what @FellippeHeitor has done with InForm working Events driven model. Very much like VB.

Thanks... maybe this?
https://www.qb64.org/forum/index.php?topic=2113.msg113549;topicseen#msg113549
or
https://www.qb64.org/forum/index.php?topic=524.msg3778;topicseen#msg3778

[SpriggsySpriggs]

@madscijr Hey! I've been super busy recently but I'm glad you have been looking through that manymouse repo. I'm going to try looking at it tonight and see how far I can start getting with QB64. Some portions should be relatively simple but others could be next to impossible.

[madscijr]

Oy vey! LoL

[madscijr]

@madscijr Hey! I've been super busy recently but I'm glad you have been looking through that manymouse repo. I'm going to try looking at it tonight and see how far I can start getting with QB64. Some portions should be relatively simple but others could be next to impossible.

That would be great.
I'm trying to stay positive about this, but looking at the C code:
https://github.com/NoobsArePeople2/manymouse/blob/master/windows_wminput.c
https://github.com/NoobsArePeople2/manymouse/blob/master/manymouse.c

TLDR: is it even possible to translate these to QB64?

I don't know C but I've been able to figure out logic from other languages in the past, enough to translate it to a language I do know. But this code has a ton of keywords, types, and syntax that I don't recognize at all:

• HDEVINFO
• ATOM
• LRESULT
• HMODULE
• DWORD - I think I've seen this keyword in regedit?
• CRITICAL_SECTION
• HANDLE
• HINSTANCE
• WNDCLASSEX
• SP_DEVINFO_DATA
• size_t

and functions too like

• GetProcAddress
• FreeLibrary
• LoadLibrary
• LOOKUP (a bunch inside routine find_api_symbols)
• sizeof
• MSG

I'd have to google some C to understand alien syntax like

Code: C: [Select]

1. mouse->handle = dev->hDevice;
2. if (++i >= available_mice)
3. if (mouse->handle != NULL)
4.  

Also, then there is OO looking stuff where they reference properties, like:

Code: C: [Select]

1. if (mice[i].handle == header->hDevice)
2.  

and

Code: C: [Select]

1. if (mouse->usFlags & MOUSE_MOVE_ABSOLUTE)
2.     {
3.         /* !!! FIXME: How do we get the min and max values for absmotion? */
4.         event.type = MANYMOUSE_EVENT_ABSMOTION;
5.         event.item = 0;
6.         event.value = mouse->lLastX;
7.         queue_event(&event);
8.         event.item = 1;
9.         event.value = mouse->lLastY;
10.         queue_event(&event);
11.     } /* if */
12.  

and

Code: C: [Select]

1. static const ManyMouseDriver ManyMouseDriver_interface =
2. {
3.     "Windows XP and later WM_INPUT interface",
4.     windows_wminput_init,
5.     windows_wminput_quit,
6.     windows_wminput_name,
7.     windows_wminput_poll
8. };
9.  

I'm very fuzzy on how interfaces work, I would expect that is outside the capability of QB64?

I found a couple of sites that look like they might have some info on some of the above keywords

• https://www.angelfire.com/hi5/delphizeus/lifts.html
• https://docs.microsoft.com/en-us/windows/win32/winprog/windows-data-types

Some things look familiar, but not sure if QB64 has an equivalent of, like

• HWND (I remember that from VB6)
• static
• volatile

Some that are probably covered under the _MEM functions in QB64 like:

• CopyMemory
• ZeroMemory
• alloca

Some familiar terms I would guess have a QB64 equivalent (I have to look up):

• uint
• static unsigned int - what's the difference between "uint" and "unsigned int"?

I guess what I'm asking now is, does this look like something that can be converted to QB64, or would I need to get a C compiler and somehow compile it into a DLL library that I would call from QB?

Despairingly yours,
Not a C programmer!

[bplus]

Thanks... maybe this?

@madscijr

There is a whole board at this forum devoted to InForm, but for your needs, setting event driven app, you might have to dig into his source code. There is probably a github link in the InForm Board.

I have to admit, yours is first inquiry I've ever seen about multiple mice. I do know that with device you can pickup joystick input but more than one mouse...?

[SpriggsySpriggs]

@madscijr

• HDEVINFO

//a handle will always be _OFFSET

• ATOM

//an INTEGER

• LRESULT

//an _OFFSET

• HMODULE

//a handle will always be _OFFSET

• DWORD - I think I've seen this keyword in regedit?

//DWORD corresponds to LONG

• CRITICAL_SECTION

//not sure, will have to look this up. From what I see, similar to a MUTEX object.

• HANDLE

//a handle will always be _OFFSET

• HINSTANCE

//handle, _OFFSET

• WNDCLASSEX

//just a custom struct, https://docs.microsoft.com/en-us/windows/win32/api/winuser/ns-winuser-wndclassexa

• SP_DEVINFO_DATA

//custom struct, https://docs.microsoft.com/en-us/windows/win32/api/setupapi/ns-setupapi-sp_devinfo_data

• size_t

//I believe that this is also an _OFFSET

and functions too like

• GetProcAddress

//this function, along with FreeLibrary and LoadLibrary are some that I have used in a different topic about runtime calls here https://www.qb64.org/forum/index.php?topic=3756.0

• FreeLibrary
• LoadLibrary
• LOOKUP (a bunch inside routine find_api_symbols)

//this should be able to be done using the above functions in our own wrapper

• sizeof

//this is just our LEN() keyword

• MSG

//this is a struct. We'd have to rewrite it in QB64: https://docs.microsoft.com/en-us/windows/win32/api/winuser/ns-winuser-msg
[/list][/list]

Code: C: [Select]

1. mouse->handle = dev->hDevice; //this is basically saying mouse.handle = dev.hDevice
2. if (++i >= available_mice)
3. if (mouse->handle != NULL) //if mouse.handle <> 0
4.  

Also, then there is OO looking stuff where they reference properties, like: //the stuff is really just using custom TYPEs, or structs. Like a UDT in QB64

Code: C: [Select]

1. if (mice[i].handle == header->hDevice) //if mice(i).handle = header.hDevice
2.  

and

Code: C: [Select]

1. if (mouse->usFlags & MOUSE_MOVE_ABSOLUTE) //if mouse.usFlags AND MOUSE_MOVE_ABSOLUTE
2.     {
3.         /* !!! FIXME: How do we get the min and max values for absmotion? */
4.         event.type = MANYMOUSE_EVENT_ABSMOTION;
5.         event.item = 0;
6.         event.value = mouse->lLastX;
7.         queue_event(&event);
8.         event.item = 1;
9.         event.value = mouse->lLastY;
10.         queue_event(&event);
11.     } /* if */
12.  

Some things look familiar, but not sure if QB64 has an equivalent of, like

• HWND (I remember that from VB6)
//HWND is the Handle to the Window. For QB64, if referencing OUR program's window, it's

_WINDOWHANDLE

• static

//we have STATIC as well

• volatile

//I will have to look this one up
[/list]

Some that are probably covered under the _MEM functions in QB64 like:

• CopyMemory

//we have this

• ZeroMemory

//we also have this

• alloca

//I will have to look this one up
[/list]

• uint

//we have this as _UNSIGNED LONG

• static unsigned int - what's the difference between "uint" and "unsigned int"?

//I think "UINT" is used in Win32 API and "unsigned int" is just the regular C++ definition, I believe
[/list]

I guess what I'm asking now is, does this look like something that can be converted to QB64, or would I need to get a C compiler and somehow compile it into a DLL library that I would call from QB?  //probably, but looks difficult in some areas

I hope this helps to answer some of the questions, at least

[madscijr]

@madscijr
I have to admit, yours is first inquiry I've ever seen about multiple mice. I do know that with device you can pickup joystick input but more than one mouse...?

Thank you for your reply.
I did try using _DEVICE, but it didn't seem to work.
Maybe I'm doing something wrong?
Here is my test code:

Code: QB64: [Select]

1. ' #############################################################################
2. ' MULTIMOUSE
3. ' ----------
4. ' A proof of concept / experiment to try to get the computer to read
5. ' 2 or mice plugged into the computer, as separate devices,
6. ' to control 2 or more cursors on the screen (for multiplayer games, etc.)
7. '
8. ' #############################################################################
9.  
10. ' =============================================================================
11. ' GLOBAL DECLARATIONS a$=string, i%=integer, L&=long, s!=single, d#=double
12. CONST FALSE = 0
13. CONST TRUE = NOT FALSE
14.  
15. DIM ProgramPath$
16. DIM ProgramName$
17.  
18. ' =============================================================================
19. ' INITIALIZE
20. ProgramName$ = MID$(COMMAND$(0), _INSTRREV(COMMAND$(0), "\") + 1)
21. ProgramPath$ = LEFT$(COMMAND$(0), _INSTRREV(COMMAND$(0), "\"))
22.  
23. ' =============================================================================
24. ' TRY THE MOUSE
25. main ProgramName$
26.  
27. ' =============================================================================
28. ' FINISH
29. SYSTEM ' return control to the operating system
30. PRINT ProgramName$ + " finished."
31. END
32.  
33. ' /////////////////////////////////////////////////////////////////////////////
34.  
35. SUB main (ProgName$)
36.     DIM in$: in$ = ""
37.     DO
38.         CLS
39.         PRINT ProgName$
40.         PRINT
41.         PRINT "How can we get separate input from 2 or more USB mice "
42.         PRINT "plugged into one computer?"
43.         PRINT
44.         PRINT "1. Test using _MOUSEX, _MOUSEY, etc."
45.         PRINT
46.         PRINT "2. Test using _DEVICE commands"
47.         PRINT
48.         PRINT "3. Enumerate devices with _DEVICES to try and detect >1 mouse"
49.         PRINT
50.         PRINT "What to do ('q' to exit)"
51.  
52.         INPUT in$: in$ = LCASE$(LEFT$(in$, 1))
53.         IF in$ = "1" THEN
54.             MouseInputTest in$
55.         ELSEIF in$ = "2" THEN
56.             MouseInputTest in$
57.         ELSEIF in$ = "3" THEN
58.             EnumerateDevices
59.         END IF
60.     LOOP UNTIL in$ = "q"
61. END SUB ' main
62.  
63. ' /////////////////////////////////////////////////////////////////////////////
64. ' Gets mouse input using _MOUSEX, _MOUSEY, _MOUSEBUTTON commands.
65.  
66. SUB MouseInputTest (in$)
67.     ' UDT TO HOLD THE INFO FOR EACH MOUSE
68.     TYPE InfoType
69.         c AS STRING ' cursor character
70.         x AS INTEGER ' screen x position
71.         y AS INTEGER ' screen y position
72.         wheel AS INTEGER ' mouse wheel value
73.         LeftDown AS INTEGER ' tracks left mouse button state, TRUE=down
74.         MiddleDown AS INTEGER ' tracks middle mouse button state, TRUE=down
75.         RightDown AS INTEGER ' tracks right mouse button state, TRUE=down
76.         LeftCount AS INTEGER ' counts left clicks
77.         MiddleCount AS INTEGER ' counts middle clicks
78.         RightCount AS INTEGER ' counts right clicks
79.     END TYPE ' InfoType
80.  
81.     ' MIN/MAX VALUES
82.     CONST cMinX = 2
83.     CONST cMaxX = 79
84.     CONST cMinY = 16
85.     CONST cMaxY = 24
86.     CONST cMinWheel = 0
87.     CONST cMaxWheel = 255
88.  
89.     ' MAIN VARIABLES
90.     DIM iCount AS INTEGER ' # OF MICE ATTACHED
91.     DIM arrMouseID(8) AS STRING ' device IDs for mice connected to system (guessing this would be a string, dunno)
92.     DIM arrInfo(8) AS InfoType ' STORES INFO FOR EACH MOUSE
93.     DIM left%, middle%, right% ' temp mouse variables
94.     DIM iLoop AS INTEGER
95.     DIM iIndex AS INTEGER
96.  
97.     ' TEMP VARIABLES FOR DISPLAYING FORMATTED VALUES TO SCREEN
98.     DIM iLen AS INTEGER
99.     DIM sCount AS STRING
100.     DIM sX AS STRING
101.     DIM sY AS STRING
102.     DIM sWheel AS STRING
103.     DIM sLeftDown AS STRING
104.     DIM sMiddleDown AS STRING
105.     DIM sRightDown AS STRING
106.     DIM sLeftCount AS STRING
107.     DIM sMiddleCount AS STRING
108.     DIM sRightCount AS STRING
109.  
110.     ' MOUSE CURSORS (JUST SOME LETTERS)
111.     CData:
112.     DATA A,b,C,D,E,f,G,H
113.  
114.     ' DEFAULT/INTIAL X COORDINATE OF EACH CURSOR ON SCREEN
115.     XData:
116.     DATA 5,15,25,35,45,55,65,75
117.  
118.     ' DEFAULT/INTIAL Y COORDINATE OF EACH CURSOR ON SCREEN
119.     YData:
120.     DATA 17,17,19,19,21,21,23,23
121.  
122.     ' DEFAULT/INITIAL VALUE OF EACH SCROLL WHEEL
123.     WData:
124.     DATA 224,192,160,128,96,64,32,0
125.  
126.     ' COUNT # OF MICE CONNECTED + GET DEVICE IDs
127.     iCount = GetMouseCount% ' THIS FUNCTION WOULD ENUMERATE MICE, SHOULD RETURN 1+
128.     IF (iCount > 8) THEN iCount = 8: ' FOR NOW ONLY SUPPORT UPTO 8 MICE
129.     GetMouseIDs arrMouseID() ' GET MOUSE IDs
130.  
131.     ' INITIALIZE CURSORS, MOUSE STATE, ETC.
132.     RESTORE CData
133.     iIndex = LBOUND(arrInfo) - 1
134.     FOR iLoop = 1 TO iCount
135.         iIndex = iIndex + 1
136.         READ arrInfo(iIndex).c
137.         ' INITIALIZED BELOW: arrInfo(iIndex).x = 0
138.         ' INITIALIZED BELOW: arrInfo(iIndex).y = 0
139.         ' INITIALIZED BELOW: arrInfo(iIndex).wheel = 127
140.         arrInfo(iIndex).LeftDown = FALSE
141.         arrInfo(iIndex).MiddleDown = FALSE
142.         arrInfo(iIndex).RightDown = FALSE
143.         arrInfo(iIndex).LeftCount = 0
144.         arrInfo(iIndex).MiddleCount = 0
145.         arrInfo(iIndex).RightCount = 0
146.     NEXT iLoop
147.  
148.     ' INITIALIZE X COORDINATES
149.     RESTORE XData
150.     iIndex = LBOUND(arrInfo) - 1
151.     FOR iLoop = 1 TO iCount
152.         iIndex = iIndex + 1
153.         READ arrInfo(iIndex).x
154.     NEXT iLoop
155.  
156.     ' INITIALIZE Y COORDINATES
157.     RESTORE YData
158.     iIndex = LBOUND(arrInfo) - 1
159.     FOR iLoop = 1 TO iCount
160.         iIndex = iIndex + 1
161.         READ arrInfo(iIndex).y
162.     NEXT iLoop
163.  
164.     ' INITIALIZE SCROLL WHEEL
165.     RESTORE WData
166.     iIndex = LBOUND(arrInfo) - 1
167.     FOR iLoop = 1 TO iCount
168.         iIndex = iIndex + 1
169.         READ arrInfo(iIndex).wheel
170.     NEXT iLoop
171.  
172.     ' DRAW PLAYING FIELD
173.     _SCREENMOVE _MIDDLE
174.     CLS ' clear screen
175.     LOCATE 1, 1: PRINT "1. PLUG 1-8 MICE INTO THE COMPUTER"
176.     LOCATE 2, 1: PRINT "2. USE MICE TO POSITION LETTERS ON SCREEN"
177.     LOCATE 3, 1: PRINT "3. PRESS <ESC> TO QUIT"
178.     LOCATE 4, 1: PRINT "--------------------------------------------------------------------------------";
179.     LOCATE 5, 1: PRINT "#  X  Y  Wheel LeftDown MiddleDown RightDown LeftCount MiddleCount RightCount   "
180.     LOCATE 6, 1: PRINT "--------------------------------------------------------------------------------";
181.  
182.     ' NOTE: LEAVE THE NEXT 8 LINES FREE (ROWS 8-15)
183.     '       TO DISPLAY TEST VALUES FOR UPTO 8 MICE
184.  
185.     ' DRAW BORDER AROUND PLAYING FIELD
186.     DrawTextLine cMinX - 1, cMinY - 1, cMinX - 1, cMaxY + 1, "#"
187.     DrawTextLine cMinX - 1, cMinY - 1, cMaxX + 1, cMinY - 1, "#"
188.     DrawTextLine cMaxX + 1, cMaxY + 1, cMaxX + 1, cMinY - 1, "#"
189.     DrawTextLine cMaxX + 1, cMaxY + 1, cMinX - 1, cMaxY + 1, "#"
190.  
191.     ' GET INPUT AND MOVE PLAYERS
192.     DO
193.         iIndex = LBOUND(arrInfo) - 1
194.         FOR iLoop = 1 TO iCount
195.             iIndex = iIndex + 1
196.  
197.             ' ERASE CURSORS AT CURRENT POSITION
198.             LOCATE arrInfo(iIndex).y, arrInfo(iIndex).x: PRINT " ";
199.  
200.             ' GET NEXT MOUSE INPUT
201.             IF in$ = "1" THEN
202.                 ReadMouse1 arrMouseID(iIndex), arrInfo(iIndex).x, arrInfo(iIndex).y, left%, middle%, right%, arrInfo(iIndex).wheel, cMinWheel, cMaxWheel
203.             ELSEIF in$ = "2" THEN
204.                 ReadMouse2 arrMouseID(iIndex), arrInfo(iIndex).x, arrInfo(iIndex).y, left%, middle%, right%, arrInfo(iIndex).wheel, cMinWheel, cMaxWheel
205.             END IF
206.  
207.             ' HANDLE LEFT MOUSE BUTTON
208.             IF left% THEN
209.                 IF arrInfo(iIndex).LeftDown = FALSE THEN
210.                     ' BUTTON DOWN EVENT
211.                     arrInfo(iIndex).LeftDown = TRUE
212.                     arrInfo(iIndex).LeftCount = arrInfo(iIndex).LeftCount + 1
213.                 END IF
214.             ELSE
215.                 IF arrInfo(iIndex).LeftDown = TRUE THEN
216.                     ' BUTTON UP EVENT
217.                     arrInfo(iIndex).LeftDown = FALSE
218.                 END IF
219.             END IF
220.  
221.             ' HANDLE MIDDLE MOUSE BUTTON (SCROLL WHEEL BUTTON)
222.             IF middle% THEN
223.                 IF arrInfo(iIndex).MiddleDown = FALSE THEN
224.                     ' BUTTON DOWN EVENT
225.                     arrInfo(iIndex).MiddleDown = TRUE
226.                     arrInfo(iIndex).MiddleCount = arrInfo(iIndex).MiddleCount + 1
227.                 END IF
228.             ELSE
229.                 IF arrInfo(iIndex).MiddleDown = TRUE THEN
230.                     ' BUTTON UP EVENT
231.                     arrInfo(iIndex).MiddleDown = FALSE
232.                 END IF
233.             END IF
234.  
235.             ' HANDLE RIGHT MOUSE BUTTON
236.             IF right% THEN
237.                 IF arrInfo(iIndex).RightDown = FALSE THEN
238.                     ' BUTTON DOWN EVENT
239.                     arrInfo(iIndex).RightDown = TRUE
240.                     arrInfo(iIndex).RightCount = arrInfo(iIndex).RightCount + 1
241.                 END IF
242.             ELSE
243.                 IF arrInfo(iIndex).RightDown = TRUE THEN
244.                     ' BUTTON UP EVENT
245.                     arrInfo(iIndex).RightDown = FALSE
246.                 END IF
247.             END IF
248.  
249.             ' CHECK BOUNDARIES
250.             IF arrInfo(iIndex).x < cMinX THEN arrInfo(iIndex).x = cMinX
251.             IF arrInfo(iIndex).x > cMaxX THEN arrInfo(iIndex).x = cMaxX
252.             IF arrInfo(iIndex).y < cMinY THEN arrInfo(iIndex).y = cMinY
253.             IF arrInfo(iIndex).y > cMaxY THEN arrInfo(iIndex).y = cMaxY
254.  
255.             ' PLOT CURSOR
256.             LOCATE arrInfo(iIndex).y, arrInfo(iIndex).x: PRINT arrInfo(iIndex).c;
257.  
258.             ' DISPLAY VARIABLES
259.             iLen = 3: sCount = LEFT$(LTRIM$(RTRIM$(STR$(iLoop))) + STRING$(iLen, " "), iLen)
260.             iLen = 3: sX = LEFT$(LTRIM$(RTRIM$(STR$(arrInfo(iIndex).x))) + STRING$(iLen, " "), iLen)
261.             iLen = 3: sY = LEFT$(LTRIM$(RTRIM$(STR$(arrInfo(iIndex).y))) + STRING$(iLen, " "), iLen)
262.             iLen = 6: sWheel = LEFT$(LTRIM$(RTRIM$(STR$(arrInfo(iIndex).wheel))) + STRING$(iLen, " "), iLen)
263.             iLen = 9: sLeftDown = LEFT$(LTRIM$(RTRIM$(STR$(arrInfo(iIndex).LeftDown))) + STRING$(iLen, " "), iLen)
264.             iLen = 11: sMiddleDown = LEFT$(LTRIM$(RTRIM$(STR$(arrInfo(iIndex).MiddleDown))) + STRING$(iLen, " "), iLen)
265.             iLen = 10: sRightDown = LEFT$(LTRIM$(RTRIM$(STR$(arrInfo(iIndex).RightDown))) + STRING$(iLen, " "), iLen)
266.             iLen = 10: sLeftCount = LEFT$(LTRIM$(RTRIM$(STR$(arrInfo(iIndex).LeftCount))) + STRING$(iLen, " "), iLen)
267.             iLen = 12: sMiddleCount = LEFT$(LTRIM$(RTRIM$(STR$(arrInfo(iIndex).MiddleCount))) + STRING$(iLen, " "), iLen)
268.             iLen = 11: sRightCount = LEFT$(LTRIM$(RTRIM$(STR$(arrInfo(iIndex).RightCount))) + STRING$(iLen, " "), iLen)
269.  
270.             'LOCATE 5,       1: PRINT "#  X  Y  Wheel LeftDown MiddleDown RightDown LeftCount MiddleCount RightCount   "
271.             LOCATE 6 + iLoop, 1: PRINT sCount + sX + sY + sWheel + sLeftDown + sMiddleDown + sRightDown + sLeftCount + sMiddleCount + sRightCount
272.  
273.         NEXT iLoop
274.  
275.         _LIMIT 100 ' keep loop at 100 frames per second
276.     LOOP UNTIL _KEYDOWN(27) ' escape key exit
277.     _KEYCLEAR: '_DELAY 1
278. END SUB ' MouseInputTest
279.  
280. ' /////////////////////////////////////////////////////////////////////////////
281. ' Returns a count of # of mouse devices connected to the system
282.  
283. ' *** Currently hardcoded to 1 until we figure out how to do this. ***
284.  
285. FUNCTION GetMouseCount% ()
286.     GetMouseCount% = 1
287. END FUNCTION ' GetMouseCount%
288.  
289. ' /////////////////////////////////////////////////////////////////////////////
290. ' Gets ID of each mouse device connected to the system (for now upto 8)
291. ' and returns the IDs in an array of strings
292. ' (assuming the ID is a string and not numeric?).
293. ' If no mouse found, the ID will just be a blank string.
294.  
295. ' *** Currently hardcoded to "1" until we figure out how to do this. ***
296.  
297. SUB GetMouseIDs (arrMouseID( 8) AS STRING)
298.     DIM iLoop AS INTEGER
299.  
300.     ' CLEAR OUT IDs
301.     FOR iLoop = 1 TO 8
302.         arrMouseID(iLoop) = ""
303.     NEXT iLoop
304.  
305.     ' GET IDs
306.     arrMouseID(1) = "1" ' for now just fudge it!
307.  
308. END SUB ' GetMouseCount%
309.  
310. ' /////////////////////////////////////////////////////////////////////////////
311. ' Read mouse method #1, using _MOUSEX, _MOUSEY, etc.
312.  
313. ' Gets input from mouse identified by deviceid$
314. ' (or does that needs to be an ordinal position?)
315.  
316. ' For version 1 we only return the input from the one mouse
317. ' regardless of deviceid$.
318.  
319. ' NOTE: click events (mouse up/mouse down) are handled by the calling sub,
320. '       this routine just sends back
321. '       TRUE if the given button is currently down or FALSE if it is up.
322.  
323. ' Parameters (values returned):
324. ' x% = x position of mouse pointer
325. ' y% = y position of mouse pointer
326. ' left% = current state of left mouse button (up or down)
327. ' middle% = current state of middle mouse button / scroll wheel button (up or down)
328. ' right% = current state of right mouse button (up or down)
329. ' wheel% = value of mouse scroll wheel (passed in and incremented/decremented by 1 if wheel move detected)
330.  
331. ' Parameters (input only):
332. ' wheelmin% = minimum value to allow wheel% to be decremented to
333. ' wheelmax% = maximum value to allow wheel% to be incremened to
334.  
335. SUB ReadMouse1 (deviceid$, x%, y%, left%, middle%, right%, wheel%, wheelmin%, wheelmax%)
336.     DIM scrollAmount%
337.  
338.     ' read scroll wheel
339.     WHILE _MOUSEINPUT ' get latest mouse information
340.         scrollAmount% = _MOUSEWHEEL ' (Returns -1 when scrolling up and 1 when scrolling down with 0 indicating no movement since last read.)
341.         IF (scrollAmount% = -1) AND (wheel% > wheelmin%) THEN
342.             wheel% = wheel% + scrollAmount%
343.         ELSEIF (scrollAmount% = 1) AND (wheel% < wheelmax%) THEN
344.             wheel% = wheel% + scrollAmount%
345.         END IF
346.     WEND
347.  
348.     ' read x position
349.     x% = _MOUSEX
350.  
351.     ' read y position
352.     y% = _MOUSEY
353.  
354.     ' read mouse buttons
355.     left% = _MOUSEBUTTON(1)
356.     middle% = _MOUSEBUTTON(3)
357.     right% = _MOUSEBUTTON(2)
358.  
359. END SUB ' ReadMouse1
360.  
361. ' /////////////////////////////////////////////////////////////////////////////
362. ' Read mouse method #2, using _DEVICE commands.
363.  
364. ' Gets input from mouse identified by deviceid$
365. ' (or does that needs to be an ordinal position?)
366.  
367. ' For version 1 we only return the input from the one mouse
368. ' regardless of deviceid$.
369.  
370. ' NOTE: click events (mouse up/mouse down) are handled by the calling sub,
371. '       this routine just sends back
372. '       TRUE if the given button is currently down or FALSE if it is up.
373.  
374. ' Parameters (values returned):
375. ' x% = x position of mouse pointer
376. ' y% = y position of mouse pointer
377. ' left% = current state of left mouse button (up or down)
378. ' middle% = current state of middle mouse button / scroll wheel button (up or down)
379. ' right% = current state of right mouse button (up or down)
380. ' wheel% = value of mouse scroll wheel (passed in and incremented/decremented by 1 if wheel move detected)
381.  
382. ' Parameters (input only):
383. ' wheelmin% = minimum value to allow wheel% to be decremented to
384. ' wheelmax% = maximum value to allow wheel% to be incremened to
385.  
386. SUB ReadMouse2 (deviceid$, x%, y%, left%, middle%, right%, wheel%, wheelmin%, wheelmax%)
387.     DIM scrollAmount%
388.     DIM ScreenWidth% ' screen width
389.     DIM ScreenHeight% ' screen height
390.  
391.     ' read scroll wheel
392.     WHILE _DEVICEINPUT(2) ' clear and update the mouse buffer
393.         scrollAmount% = _WHEEL(3)
394.         IF (scrollAmount% = -1) AND (wheel% > wheelmin%) THEN
395.             wheel% = wheel% + scrollAmount%
396.         ELSEIF (scrollAmount% = 1) AND (wheel% < wheelmax%) THEN
397.             wheel% = wheel% + scrollAmount%
398.         END IF
399.     WEND ' clear and update the mouse buffer
400.  
401.     ' read x position
402.     ScreenWidth% = _WIDTH \ 2
403.     x% = _AXIS(1) * ScreenWidth% + ScreenWidth%
404.  
405.     ' read y position
406.     ScreenHeight% = _HEIGHT \ 2
407.     y% = _AXIS(2) * ScreenHeight% + ScreenHeight%
408.  
409.     ' read mouse buttons
410.     left% = _BUTTON(1)
411.     middle% = _BUTTON(2)
412.     right% = _BUTTON(3)
413.  
414. END SUB ' ReadMouse2
415.  
416. ' /////////////////////////////////////////////////////////////////////////////
417. ' ORIGINAL VERSION OF FUNCTION FOR READING MOUSE WITH _DEVICE:
418.  
419. ' Gets mouse input using _DEVICE commands (part 2 of 2, subroutine)
420.  
421. ' SOURCE : https://www.qb64.org/forum/index.php?topic=1087.0
422. ' Subject: Mouse demo using _DEVICE commands
423. ' From   : SMcNeill
424. ' Date   : February 21, 2019, 06:15:28 AM »
425.  
426. SUB UpdateMouseInfo (MouseX AS INTEGER, MouseY AS INTEGER, MOUSEWHEEL AS INTEGER, LeftMouse AS INTEGER, RightMouse AS INTEGER, MiddleMouse AS INTEGER, ClickThreshold AS SINGLE)
427.     DIM SW AS INTEGER, SH AS INTEGER
428.     DIM LM AS INTEGER, MM AS INTEGER, RM AS INTEGER
429.  
430.     STATIC leftdown AS SINGLE, middledown AS SINGLE, rightdown AS SINGLE
431.  
432.     WHILE _DEVICEINPUT(2): MOUSEWHEEL = MOUSEWHEEL + _WHEEL(3): WEND 'clear and update the mouse buffer
433.  
434.     SW = _WIDTH \ 2: SH = _HEIGHT \ 2
435.     MouseX = _AXIS(1) * SW + SW: MouseY = _AXIS(2) * SH + SH
436.  
437.  
438.  
439.     LM = _BUTTON(1): MM = _BUTTON(2): RM = _BUTTON(3)
440.  
441.     IF leftdown THEN 'if it was down
442.         IF LM = 0 THEN 'and is now up
443.             IF TIMER - leftdown < ClickThreshold THEN
444.                 LeftMouse = 2 'clicked
445.             ELSE 'if it's still down
446.                 LeftMouse = 0 'the mouse was just released
447.             END IF
448.             leftdown = 0 'timer is cleared either way
449.         ELSE
450.             LeftMouse = 1 'the left mouse is down , timer should have already been set
451.         END IF
452.     ELSE
453.         IF LM THEN
454.             leftdown = TIMER 'set the timer to see if we have click or hold events
455.             LeftMouse = 1 'the left mouse is down
456.         ELSE
457.             LeftMouse = 0
458.         END IF
459.     END IF
460.  
461.     IF middledown THEN 'if it was down
462.         IF MM = 0 THEN 'and is now up
463.             IF TIMER - middledown < ClickThreshold THEN
464.                 MiddleMouse = 2 'clicked
465.             ELSE 'if it's still down
466.                 MiddleMouse = 0 'the mouse was just released
467.             END IF
468.             middledown = 0 'timer is cleared either way
469.         ELSE
470.             MiddleMouse = 1 'the middle mouse is down , timer should have already been set
471.         END IF
472.     ELSE
473.         IF MM THEN
474.             middledown = TIMER 'set the timer to see if we have click or hold events
475.             MiddleMouse = 1 'the middle mouse is down
476.         ELSE
477.             MiddleMouse = 0
478.         END IF
479.     END IF
480.  
481.     IF rightdown THEN 'if it was down
482.         IF RM = 0 THEN 'and is now up
483.             IF TIMER - rightdown < ClickThreshold THEN
484.                 RightMouse = 2 'clicked
485.             ELSE 'if it's still down
486.                 RightMouse = 0 'the mouse was just released
487.             END IF
488.             rightdown = 0 'timer is cleared either way
489.         ELSE
490.             RightMouse = 1 'the right mouse is down , timer should have already been set
491.         END IF
492.     ELSE
493.         IF RM THEN
494.             rightdown = TIMER 'set the timer to see if we have click or hold events
495.             RightMouse = 1 'the right mouse is down
496.         ELSE
497.             RightMouse = 0
498.         END IF
499.     END IF
500.  
501.  
502. END SUB ' UpdateMouseInfo
503.  
504. ' /////////////////////////////////////////////////////////////////////////////
505. ' Example: Checking for the system's input devices.
506.  
507. ' _DEVICES FUNCTION (QB64 REFERENCE)
508. ' http://www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]/wiki/index_title_DEVICES/
509. '
510. ' The _DEVICES function returns the number of INPUT devices on your computer
511. ' including keyboard, mouse and game devices.
512. '
513. ' Syntax:
514. '
515. ' device_count% = _DEVICES
516. '
517. ' Returns the number of devices that can be listed separately with the _DEVICE$
518. ' function by the device number.
519. ' Devices include keyboard, mouse, joysticks, game pads and multiple stick game
520. ' controllers.
521. ' Note: This function MUST be read before trying to use the _DEVICE$,
522. ' _DEVICEINPUT or _LAST control functions!
523.  
524. ' Note: The STRIG/STICK commands won't read from the keyboard
525. '       or mouse device the above example lists.
526.  
527. SUB EnumerateDevices
528.     DIM devices%
529.     DIM iLoop%
530.     DIM sCount$
531.     DIM iLen AS INTEGER
532.  
533.     devices% = _DEVICES ' MUST be read in order for other 2 device functions to work!
534.  
535.     CLS
536.     PRINT "Total devices found: "; STR$(devices%)
537.     FOR iLoop% = 1 TO devices%
538.         iLen = 4
539.         sCount$ = LEFT$(LTRIM$(RTRIM$(STR$(iLoop%))) + STRING$(iLen, " "), iLen)
540.         PRINT sCount$ + _DEVICE$(iLoop%) + " (" + LTRIM$(RTRIM$(STR$(_LASTBUTTON(iLoop%)))) + " buttons)"
541.     NEXT iLoop%
542.     PRINT
543.     PRINT "PRESS <ESC> TO CONTINUE"
544.     DO: LOOP UNTIL _KEYDOWN(27) ' leave loop when ESC key pressed
545.     _KEYCLEAR: '_DELAY 1
546.  
547. END SUB ' EnumerateDevices
548.  
549. ' /////////////////////////////////////////////////////////////////////////////
550. ' based on code from:
551. ' Qbasic Programs - Download free bas source code
552. ' http://www.thedubber.altervista.org/qbsrc.htm
553.  
554. SUB DrawTextLine (y%, x%, y2%, x2%, c$)
555.     'bError% = FALSE
556.     'LOCATE 2, 2: PRINT "(" + STR$(x%) + "," + STR$(y%) + ") to (" + STR$(x2%) + "," + STR$(y2%) + ") of " + CHR$(34) + c$ + CHR$(34);
557.  
558.     i% = 0: steep% = 0: e% = 0
559.     IF (x2% - x%) > 0 THEN sx% = 1: ELSE sx% = -1
560.     dx% = ABS(x2% - x%)
561.     IF (y2% - y%) > 0 THEN sy% = 1: ELSE sy% = -1
562.     dy% = ABS(y2% - y%)
563.     IF (dy% > dx%) THEN
564.         steep% = 1
565.         SWAP x%, y%
566.         SWAP dx%, dy%
567.         SWAP sx%, sy%
568.     END IF
569.     e% = 2 * dy% - dx%
570.     FOR i% = 0 TO dx% - 1
571.         IF steep% = 1 THEN
572.             'PSET (y%, x%), c%:
573.             LOCATE y%, x%
574.             PRINT c$;
575.         ELSE
576.             'PSET (x%, y%), c%
577.             LOCATE x%, y%
578.             PRINT c$;
579.         END IF
580.  
581.         WHILE e% >= 0
582.             y% = y% + sy%: e% = e% - 2 * dx%
583.         WEND
584.         x% = x% + sx%: e% = e% + 2 * dy%
585.     NEXT
586.     'PSET (x2%, y2%), c%
587.     LOCATE x2%, y2%
588.     PRINT c$;
589.  
590. END SUB ' DrawTextLine
591.  

^^^
From: Multiple mice therad #1:
https://www.qb64.org/forum/index.php?topic=3348.msg127110#msg127110

Multiple mice thread #2:
https://www.qb64.org/forum/index.php?topic=3695.0

[madscijr]

I hope this helps to answer some of the questions, at least

I am a fish out of water in the world of C and low-level Windows programming, so any information helps.
Thank you!

[SpriggsySpriggs]

@madscijr I will do my best to allocate some time tonight to work on this a bit. If you want, you can join our discord server using the link on the forum home. I'm very active there and can answer your questions quickly.

[SpriggsySpriggs]

@madscijr Just so you know that I didn't forget you, here is proof that I'm looking into this:
  [ You are not allowed to view this attachment ]  

Note: This isn't to say I've gotten anything to work yet. I'm still just trying to recreate some functions and declarations.

[FellippeHeitor]

@bplus instead of in-house event-based programming - which is what InForm offers - it seems from context that madscijr is looking to handle OS events - likely with callback functions.