Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Colonel_Panic

Pages: 1 2 3 [4]
46
Programs / Re: CODENAME:Takky
« on: November 06, 2021, 11:56:54 pm »
oh, and I am starting to try to "finalize"...

focus system, switching between multiple windows.
EDIT: here, here's a "lastrun" file... what's a lastrun file? good question.
I guess its a sort of "log", it's generated once per run, right during "open project", which is "thing #1"

during this time, in openproject... the DEFINITION file is opened, and read IN...
                                                      openproject, is MAKING a list of "object variables", which drives everything once open.
*thats* why "lastrun" is such a neato log file... it is created at *just* the right time, in between these 2 crucial..."things" happening.
NOTE: in the (above) screenshots, there were 3 of them
ONE of them? is a "four form" thing? *ignore* that one...
the OTHER TWO? they match... ONE is the listbox *closed*... OTHER is the listbox OPEN
oops... here's LASTRUN of the "two listboxes screenshots" program compiled and running...

Code: QB64: [Select]
  1. example.begin;
  2. .wide=max;
  3. .tall=max;
  4. ;--->insert head;
  5.   .form001.begin;   example
  6.     .title=PrintForm example   <esc>=end;   example.form001
  7.     .visible=1;   example.form001
  8.     .x1= 20;   example.form001
  9.     .y1=10;   example.form001
  10.     .x2=1180;   example.form001
  11.     .y2=590;   example.form001
  12.     .color=000150000;   example.form001
  13.     .backcolor=000025000;   example.form001
  14.     .killswitch=1;   example.form001
  15.     .taskbar=1;   example.form001
  16.     .data=000;   example.form001
  17.     .labelclik1.begin;   form001
  18.       .text=see Definition;   example.form001.labelclik1
  19.       .visible=1;   example.form001.labelclik1
  20.       .x1= 25;   example.form001.labelclik1
  21.       .y1= 83;   example.form001.labelclik1
  22.       .x2= 265;   example.form001.labelclik1
  23.       .y2= 133;   example.form001.labelclik1
  24.       .color=255000000;   example.form001.labelclik1
  25.       .border=1;   example.form001.labelclik1
  26.       .data=000;   example.form001.labelclik1
  27.       .autotall=1;   example.form001.labelclik1
  28.       .autowide=1;   example.form001.labelclik1
  29.     .labelclik1.end;   form001
  30.     .labelclik2.begin;   form001
  31.       .text=see LastRun;   example.form001.labelclik2
  32.       .visible=1;   example.form001.labelclik2
  33.       .x1= 25;   example.form001.labelclik2
  34.       .y1= 164;   example.form001.labelclik2
  35.       .x2= 255;   example.form001.labelclik2
  36.       .y2= 214;   example.form001.labelclik2
  37.       .color=255000000;   example.form001.labelclik2
  38.       .border=1;   example.form001.labelclik2
  39.       .data=000;   example.form001.labelclik2
  40.       .autotall=1;   example.form001.labelclik2
  41.       .autowide=1;   example.form001.labelclik2
  42.     .labelclik2.end;   form001
  43.     .labelclik3.begin;   form001
  44.       .text=see *code* !!;   example.form001.labelclik3
  45.       .visible=1;   example.form001.labelclik3
  46.       .x1= 24;   example.form001.labelclik3
  47.       .y1= 251;   example.form001.labelclik3
  48.       .x2= 264;   example.form001.labelclik3
  49.       .y2= 301;   example.form001.labelclik3
  50.       .color=255000000;   example.form001.labelclik3
  51.       .border=1;   example.form001.labelclik3
  52.       .data=000;   example.form001.labelclik3
  53.       .autotall=1;   example.form001.labelclik3
  54.       .autowide=1;   example.form001.labelclik3
  55.     .labelclik3.end;   form001
  56.     .labelclik4.begin;   form001
  57.       .text=pick manual topic :;   example.form001.labelclik4
  58.       .visible=1;   example.form001.labelclik4
  59.       .x1= 519;   example.form001.labelclik4
  60.       .y1= 316;   example.form001.labelclik4
  61.       .x2= 744;   example.form001.labelclik4
  62.       .y2= 366;   example.form001.labelclik4
  63.       .color=255255255;   example.form001.labelclik4
  64.       .border=0;   example.form001.labelclik4
  65.       .data=000;   example.form001.labelclik4
  66.       .autotall=1;   example.form001.labelclik4
  67.       .autowide=1;   example.form001.labelclik4
  68.     .labelclik4.end;   form001
  69.     .labelclik5.begin;   form001
  70.       .text= see MANUAL text ! ;   example.form001.labelclik5
  71.       .visible=1;   example.form001.labelclik5
  72.       .x1= 500;   example.form001.labelclik5
  73.       .y1= 238;   example.form001.labelclik5
  74.       .x2= 649;   example.form001.labelclik5
  75.       .y2= 288;   example.form001.labelclik5
  76.       .color=255255255;   example.form001.labelclik5
  77.       .border=0;   example.form001.labelclik5
  78.       .data=000;   example.form001.labelclik5
  79.       .autotall=1;   example.form001.labelclik5
  80.       .autowide=1;   example.form001.labelclik5
  81.     .labelclik5.end;   form001
  82.     .listboxTOPICS.begin;   form001
  83.       .text=listboxTOPICS;   example.form001.listboxTOPICS
  84.       .visible=1;   example.form001.listboxTOPICS
  85.       .x1= 175;   example.form001.listboxTOPICS
  86.       .y1= 421;   example.form001.listboxTOPICS
  87.       .x2= 1000;   example.form001.listboxTOPICS
  88.       .y2= 475;   example.form001.listboxTOPICS
  89.       .color=000000255;   example.form001.listboxTOPICS
  90.       .file=manual/TAKKYtopics005;   example.form001.listboxTOPICS
  91.       .bytes= 0;   example.form001.listboxTOPICS
  92.       .fieldsize= 0;   example.form001.listboxTOPICS
  93.       .items= 0;   example.form001.listboxTOPICS
  94.       .index=0;   example.form001.listboxTOPICS
  95.       .border=1;   example.form001.listboxTOPICS
  96.       .data=000;   example.form001.listboxTOPICS
  97.       .autotall=1;   example.form001.listboxTOPICS
  98.     .listboxTOPICS.end;   form001
  99.     .picture001.begin;   form001
  100.       .border=1;   example.form001.picture001
  101.       .color=255255255;   example.form001.picture001
  102.       .x1=900;   example.form001.picture001
  103.       .y1= 59;   example.form001.picture001
  104.       .x2=1088;   example.form001.picture001
  105.       .y2= 173;   example.form001.picture001
  106.       .file=TAKKYSLEEPING.png;   example.form001.picture001
  107.       .data=000;   example.form001.picture001
  108.       .visible=1;   example.form001.picture001
  109.     .picture001.end;   form001
  110. ;--->insert ctrl
  111.   .form001.end;   example
  112. ;--->insert tail
  113. example.end;
  114. ================================================================
  115. [LINUX][64BIT]
  116. 11-06-2021 02:33:07
  117. ----------------------------------------------------------------
  118. CodeBase = Takky v0.0.7 (pre-BETA)
  119.     Desc = monolithic GUI overlay; 0 dependencies
  120.    notes = unified IDE/RUN code base; +listboxes
  121. ----------------------------------------------------------------
  122.      QB64 start = /home/sedstar/Desktop/qb64/programs/CODENAME.Takky (copy 1)
  123.     Takky start = /home/sedstar/Desktop/qb64/programs/CODENAME.Takky (copy 1)
  124. ================================================================
  125. ================================================================
  126. Last Run Object Variables @ initialization
  127. ================================================================
  128. 1                                example.wide = max;
  129. 2                                example.tall = max;
  130. 3                       example.form001.title = PrintForm example   <esc>=end;
  131. 4                     example.form001.visible = 1;
  132. 5                          example.form001.x1 =  20;
  133. 6                          example.form001.y1 = 10;
  134. 7                          example.form001.x2 = 1180;
  135. 8                          example.form001.y2 = 590;
  136. 9                       example.form001.color = 000150000;
  137. 10                  example.form001.backcolor = 000025000;
  138. 11                 example.form001.killswitch = 1;
  139. 12                    example.form001.taskbar = 1;
  140. 13                       example.form001.data = 000;
  141. 14            example.form001.labelclik1.text = see Definition;
  142. 15           example.form001.labelclik1.visible = 1;
  143. 16              example.form001.labelclik1.x1 =  25;
  144. 17              example.form001.labelclik1.y1 =  83;
  145. 18              example.form001.labelclik1.x2 =  265;
  146. 19              example.form001.labelclik1.y2 =  133;
  147. 20           example.form001.labelclik1.color = 255000000;
  148. 21           example.form001.labelclik1.border = 1;
  149. 22            example.form001.labelclik1.data = 000;
  150. 23           example.form001.labelclik1.autotall = 1;
  151. 24           example.form001.labelclik1.autowide = 1;
  152. 25            example.form001.labelclik2.text = see LastRun;
  153. 26           example.form001.labelclik2.visible = 1;
  154. 27              example.form001.labelclik2.x1 =  25;
  155. 28              example.form001.labelclik2.y1 =  164;
  156. 29              example.form001.labelclik2.x2 =  255;
  157. 30              example.form001.labelclik2.y2 =  214;
  158. 31           example.form001.labelclik2.color = 255000000;
  159. 32           example.form001.labelclik2.border = 1;
  160. 33            example.form001.labelclik2.data = 000;
  161. 34           example.form001.labelclik2.autotall = 1;
  162. 35           example.form001.labelclik2.autowide = 1;
  163. 36            example.form001.labelclik3.text = see *code* !!;
  164. 37           example.form001.labelclik3.visible = 1;
  165. 38              example.form001.labelclik3.x1 =  24;
  166. 39              example.form001.labelclik3.y1 =  251;
  167. 40              example.form001.labelclik3.x2 =  264;
  168. 41              example.form001.labelclik3.y2 =  301;
  169. 42           example.form001.labelclik3.color = 255000000;
  170. 43           example.form001.labelclik3.border = 1;
  171. 44            example.form001.labelclik3.data = 000;
  172. 45           example.form001.labelclik3.autotall = 1;
  173. 46           example.form001.labelclik3.autowide = 1;
  174. 47            example.form001.labelclik4.text = pick manual topic :;
  175. 48           example.form001.labelclik4.visible = 1;
  176. 49              example.form001.labelclik4.x1 =  519;
  177. 50              example.form001.labelclik4.y1 =  316;
  178. 51              example.form001.labelclik4.x2 =  744;
  179. 52              example.form001.labelclik4.y2 =  366;
  180. 53           example.form001.labelclik4.color = 255255255;
  181. 54           example.form001.labelclik4.border = 0;
  182. 55            example.form001.labelclik4.data = 000;
  183. 56           example.form001.labelclik4.autotall = 1;
  184. 57           example.form001.labelclik4.autowide = 1;
  185. 58            example.form001.labelclik5.text =  see MANUAL text ! ;
  186. 59           example.form001.labelclik5.visible = 1;
  187. 60              example.form001.labelclik5.x1 =  500;
  188. 61              example.form001.labelclik5.y1 =  238;
  189. 62              example.form001.labelclik5.x2 =  649;
  190. 63              example.form001.labelclik5.y2 =  288;
  191. 64           example.form001.labelclik5.color = 255255255;
  192. 65           example.form001.labelclik5.border = 0;
  193. 66            example.form001.labelclik5.data = 000;
  194. 67           example.form001.labelclik5.autotall = 1;
  195. 68           example.form001.labelclik5.autowide = 1;
  196. 69           example.form001.listboxTOPICS.text = listboxTOPICS;
  197. 70           example.form001.listboxTOPICS.visible = 1;
  198. 71           example.form001.listboxTOPICS.x1 =  175;
  199. 72           example.form001.listboxTOPICS.y1 =  421;
  200. 73           example.form001.listboxTOPICS.x2 =  1000;
  201. 74           example.form001.listboxTOPICS.y2 =  475;
  202. 75           example.form001.listboxTOPICS.color = 000000255;
  203. 76           example.form001.listboxTOPICS.file = manual/TAKKYtopics005;
  204. 77           example.form001.listboxTOPICS.bytes =  0;
  205. 78           example.form001.listboxTOPICS.fieldsize =  0;
  206. 79           example.form001.listboxTOPICS.items =  0;
  207. 80           example.form001.listboxTOPICS.index = 0;
  208. 81           example.form001.listboxTOPICS.border = 1;
  209. 82           example.form001.listboxTOPICS.data = 000;
  210. 83           example.form001.listboxTOPICS.autotall = 1;
  211. 84           example.form001.picture001.border = 1;
  212. 85           example.form001.picture001.color = 255255255;
  213. 86              example.form001.picture001.x1 = 900;
  214. 87              example.form001.picture001.y1 =  59;
  215. 88              example.form001.picture001.x2 = 1088;
  216. 89              example.form001.picture001.y2 =  173;
  217. 90            example.form001.picture001.file = TAKKYSLEEPING.png;
  218. 91            example.form001.picture001.data = 000;
  219. 92           example.form001.picture001.visible = 1;
  220.  

47
Programs / CODENAME:Takky
« on: November 06, 2021, 11:45:51 pm »
This is my "big project" I have been working on, for about 2 months. In the evenings, when i can.

CODENAME:Takky

screenshots:
http://i.imgur.com/VcMYC5G.png
http://i.imgur.com/VrKzL6Z.png
http://i.imgur.com/vlhpJCm.png

1,983 lines of code, almost all of it inside FUNCtions and SUBs.
monolithic GUI
basically, a *working* VisualBasic "clone"... but... "preBETA" I call it...

*rough*
but? it demonstrates the almighty DATA STRUCTURE works fine, and for multiple forms.
I have...
buttons, labels, listboxes, textboxes, forms
I can...
auto-generate the "event" procedures,

working demo, like i said "pre"beta, a little rough.

PROBLEMS:
I have z-e-r-o idea how to... deploy this thing to anyone thats interested in seeing it.
you have to imagine? I have a SET of folders that surround this thing. Fonts folders, projects folders, etc etc
I have z-e-r-o experience... making downloadable.. installable... *stuff*

WORK I HAVE LEFT:
to be "finished" and by finished I mean "lets call this a beta"... not FINISHED finished....
1) I need arrays of controls, aiming for single DIMension. I *think* I got this, but, we'll see.
2) better project maker, better IDE
3) better and more controls. SLIDER buttons will be a PITA maybe.

1983 lines of GUI code, produces about 3MB per EXE of overhead.
I make NO windows calls, NO linux calls... I draw everything, i mouse everything.

48
Programs / Re: CLOCK.BAS
« on: November 06, 2021, 11:19:54 pm »
thanks guy.

PS - I always *did* wonder:

"now, WHY does the NAME come up on all but one of the CLOCKs I bring up, eh?"

then? one day? HELP manual, found on accident that's because I am not
"loop waiting until" the window is formed and reported back.
(I just learned in HELP to DO that a few days ago, only reason i know about it now)
if memory serves without checking, maybe it was the _SCREENEXISTS COMMAND?

49
Programs / Re: CLOCK.BAS
« on: November 06, 2021, 11:05:51 pm »
I'm kind of 'anal' sometimes, and will over-do-it...

here, I wasn't happy until:

1) hour hand and minute hand was *not* going to satisfy me, I had to have a seconds hand
2) color? once i hit the "color picking" phase... I was going for one of those "old BIG BEN luminescent, real radium, old-timey clocks"
3) I had to get the mathematical angles of the hour hand "creeping" correct. (six degrees per minute, BTW)
4) Once i saw example DRAW stuff? and the TA thing? "rotating seconds LED"

PS - in screenshot? you can see, I can run as many CLOCKs as I like; I was always wanting to make one of those
"17 clocks like important businessmen in movies always have kind of clocks", with each clock in a 1-hour different time zone...

...you know, random city and countries printed on them? LMAO...

50
Programs / CLOCK.BAS
« on: November 06, 2021, 10:57:25 pm »
CLOCK.BAS
---------------

my first program post on QB64... CLOCK.BAS

its, well... its yet another CLOCK program.
I wanted to "learn graphics" as I have always been a "business programmer".

NOTE:  I cut and pasted example HELP code, because the DRAW command impressed me with the TA thing.
           then I wasn't happy until I did "ghetto 360 degrees" fake-LED rotating numbers

apologies for the 'code style' which is "did not know I would eventually post it"

PS: screenshot... http://i.imgur.com/EkNLjfN.png


Code: QB64: [Select]
  1. maxx = 420
  2. maxy = 420
  3. x = INT(maxx / 2)
  4. y = INT(maxy / 2)
  5. SCREEN _NEWIMAGE(maxx, maxy, 32)
  6. _title "Clock"
  8. GOSUB draw_clock:
  9.  
  10. again:
  11. 'LOCATE 1, 1: PRINT "hours:";: LINE INPUT hour$: hour = VAL(hour$)
  12. 'LOCATE 1, 1: PRINT STRING$(64, " ")
  13. 'LOCATE 1, 1: PRINT "minutes:";: LINE INPUT minute$: minute = VAL(minute$)
  14.  
  16. z$ = TIME$
  17. GOSUB draw_digital: ': PRINT z$
  18. hour = VAL(LEFT$(z$, 2))
  19. IF hour > 12 THEN hour = hour - 12
  20. minute = VAL(MID$(z$, 4, 2))
  21. second = VAL(MID$(z$, 7, 2))
  22. 'IF second = 0 THEN _SCREENCLICK _SCREENX, _SCREENY
  23. GOSUB draw_clock:
  24. GOSUB draw_hands:
  26. loop1:
  27. IF TIME$ <> z$ THEN GOTO again: ELSE GOTO loop1:
  28.  
  29.  
  30. 'draw hands
  31. draw_hands:
  32. DRAW "TA0"
  33. 'hour hand (thicker little hand)
  34. 'IF hour = 0 THEN SYSTEM
  35. PSET (x, y), colr&
  36. DRAW "TA " + STR$((-30 * hour) + INT(minute / -2))
  37. DRAW "U15L1D15R2U15L1 L7U100R14D100L7 L6U99R12D98L12"
  38.  
  39. 'minute hand (thinner big hand)
  40. DRAW "TA0"
  41. PSET (x, y), colr&
  42. DRAW "TA " + STR$(-6 * minute)
  43. DRAW "U20L1D20R2U20L1 L5U120R10D120L5 L6U121R12D120L12"
  44.  
  45. 'second hand
  46. DRAW "TA0"
  47. PSET (x, y), colr&
  48. DRAW "TA " + STR$(-6 * second)
  49. DRAW "U145L1D145R2U145"
  50. 'try rotating seconds display
  51. DRAW "TA0"
  52. PSET (x, y), _RGB32(255, 0, 0) 'colr&
  53. DRAW "TA " + STR$(-6 * second)
  54. DRAW "bU183 bL15bU10"
  55. zecs$ = RIGHT$(STR$(100 + second), 2)
  56. zecs$ = LTRIM$(zecs$)
  57. zecs$ = RTRIM$(zecs$)
  58. ch$ = LEFT$(zecs$, 1): GOSUB draw_digit:
  59. DRAW "TA0"
  60. PSET (x, y), _RGB32(255, 0, 0) 'colr&
  61. DRAW "TA " + STR$(-6 * second)
  62. DRAW "bU183 bR5bU10"
  63. ch$ = RIGHT$(zecs$, 1): GOSUB draw_digit
  64.  
  66.  
  67. draw_clock:
  68. 'colr& = _RGB32(128, 128, 128)
  69. colr& = _RGB32(95, 95, 95)
  70. FOR csize = 150 TO 152
  71.   CIRCLE (x, y), csize, colr&
  72. NEXT csize
  73. FOR csize = 158 TO 160
  74.   CIRCLE (x, y), csize, colr&
  75. NEXT csize
  76. FOR csize = 197 TO 202
  77.   CIRCLE (x, y), csize, colr&
  78. NEXT csize
  79. CIRCLE (x, y), 7, colr&
  80. PAINT (x, y), colr&
  81. 'DRAW "U10D20U10R10L20"
  82. colr& = _RGB32(128, 128, 55)
  83. FOR Ang = 0 TO 360 STEP 6
  84.   PSET (x, y), colr&
  85.   DRAW "TA " + STR$(Ang) + "BU150" + "U10L1D10R2U10"
  86. NEXT Ang
  87.  
  88. colr& = _RGB32(128, 188, 61)
  89. FOR Ang = 0 TO 360 STEP 30
  90.   PSET (x, y), colr&
  91.   DRAW "TA " + STR$(Ang) + "BU150" + "U20L1D20R2U20L1" + "BU15"
  92.   FOR csize = 4 TO 5
  93.     CIRCLE STEP(0, 0), csize, colr&
  94.   NEXT csize
  95. NEXT Ang
  96.  
  97. FOR csize = 1 TO 3
  98.   CIRCLE (x, y), csize, _RGB32(0, 0, 0)
  99. NEXT csize
  100. 'face numbers
  101. COLOR _RGB32(6, 255, 255)
  102. _PRINTSTRING (x - 8, y - 140), "12"
  103. _PRINTSTRING (x + 62, y - 122), "1"
  104. _PRINTSTRING (x + 62, y + 106), "5"
  105. _PRINTSTRING (x - 70, y + 106), "7"
  106. _PRINTSTRING (x - 74, y - 122), "11"
  107. _PRINTSTRING (x + 112, y - 71), "2"
  108. _PRINTSTRING (x + 112, y + 62), "4"
  109. _PRINTSTRING (x - 120, y + 62), "8"
  110. _PRINTSTRING (x - 120, y - 71), "10"
  111. _PRINTSTRING (x - 4, y + 130), "6"
  112. _PRINTSTRING (x + 130, y - 8), "3"
  113. _PRINTSTRING (x - 138, y - 8), "9"
  114.  
  116.  
  117.  
  118. draw_digital:
  119. PSET (0, 0), _RGB32(255, 0, 0)
  120. DRAW "BR10BD10"
  121. ch$ = LEFT$(z$, 1): GOSUB draw_digit:
  122. PSET (0, 0), _RGB32(255, 0, 0)
  123. DRAW "BR30BD10"
  124. ch$ = MID$(z$, 2, 1): GOSUB draw_digit:
  125. PSET (0, 0), _RGB32(255, 0, 0)
  126. DRAW "BR50BD10"
  127. ch$ = MID$(z$, 4, 1): GOSUB draw_digit:
  128. PSET (0, 0), _RGB32(255, 0, 0)
  129. DRAW "BR70BD10"
  130. ch$ = MID$(z$, 5, 1): GOSUB draw_digit:
  131. PSET (0, 0), _RGB32(255, 0, 0)
  132. DRAW "BR340BD10"
  133. ch$ = MID$(z$, 7, 1): GOSUB draw_digit:
  134. PSET (0, 0), _RGB32(255, 0, 0)
  135. DRAW "BR360BD10"
  136. ch$ = RIGHT$(z$, 1): GOSUB draw_digit:
  137.  
  138.  
  140.  
  141. draw_digit:
  142. IF ch$ = "0" THEN DRAW "R10D10D10L10U10U10"
  143. IF ch$ = "1" THEN DRAW "BR10D10D10"
  144. IF ch$ = "2" THEN DRAW "R10D10L10D10R10"
  145. IF ch$ = "3" THEN DRAW "R10D10L10R10D10L10"
  146. IF ch$ = "4" THEN DRAW "D10R10U10D10D10"
  147. IF ch$ = "5" THEN DRAW "R10L10D10R10D10L10"
  148. IF ch$ = "6" THEN DRAW "R10L10D10D10R10U10L10"
  149. IF ch$ = "7" THEN DRAW "R10D10D10"
  150. IF ch$ = "8" THEN DRAW "R10D10L10U10D10D10R10U10"
  151. IF ch$ = "9" THEN DRAW "R10D10L10U10R10D20L10"
  153.  
  154.  
  155.  

51
QB64 Discussion / Re: differences between LINUX and WINDOZE mouse routines?
« on: November 06, 2021, 09:59:07 pm »
@McNeill:
A bad program? (or a loose nut on the keyboard, lol) 

Two computers with different settings? (MINT is native install, WIN's are all VM land, but. so is MANJARO which was good)
seems to rule out VM as culprit?

  Who knows!
I figured someone else might have run across a same/similar mouse issue.

52
QB64 Discussion / Re: differences between LINUX and WINDOZE mouse routines?
« on: November 06, 2021, 09:53:47 pm »
in this particular case? the LINUX compiled 'demo.bas' runs perfect.
then the WIN compiled 'demo.bas', not one byte changed, compiles fine. slow but fine.
it executes on WIN fine, except for
"drunken mouse clicking"... other than that, everything is 100% accurate and technically runs fine.

in this case? the windows "drunken stupor" manifests itself with what I feel like are 'extra mouse clicks" after
the "real" mouse click has been picked up and acted upon. A couple extra clicks tend to get through.
the same "pixel" click, just one or two extra after the fact.

as I am not an expert in the matter, but it is a consistent ongoing issue (for me anyways) it would SEEM
to be as if the "clear the mouse" routine were not working under WIN, but running fine in LINUX.

PS - I deployed to MANJARO? and no extra clicks.

53
QB64 Discussion / Re: differences between LINUX and WINDOZE mouse routines?
« on: November 06, 2021, 09:20:10 pm »
okay... let me see...
Code: QB64: [Select]
  1. Sub PollMouseClicks ()
  2.   found_lc = 0
  3.   MS$ = ""
  6.       If _MouseButton(1) And _MouseButton(2) Then LR$ = "LR": GoTo around:
  7.       If _MouseButton(1) Then LR$ = "L"
  8.       If _MouseButton(2) Then LR$ = "R"
  9.       around:
  10.       For t = 1 To clix_cnt
  11.         If _MouseX >= clix!(t, 1) And _MouseX <= clix!(t, 3) Then
  12.           If _MouseY >= clix!(t, 2) And _MouseY <= clix!(t, 4) Then
  13.             Mx = _MouseX: My = _MouseY
  14.             found_lc = t 'we trapped our click, but first...
  15.             'if item *or parent* is not .visible, clix! needs to ignore
  16.             'note default is .visible ON, if the def'n file doesn't specify
  17.             nothing$ = GetMakeProperty$(proj$ + "." + clix_name$(t) + ".visible", "1")
  18.             nothing2$ = GetMakeProperty$(proj$ + "." + ExtractParent$(clix_name$(t)) + ".visible", "1")
  19.             If Val(nothing$) = 0 Or Val(nothing2$) = 0 Then found_lc = 0: GoTo cl_mouse:
  20.             'both control & parent must be .visible
  21.             'TXT$ = String$(64, " "): _PrintString (10, 10), TXT$
  22.             'TXT$ = "you clicked on: " + clix_name$(t)
  23.             '_PrintString (10, 10), TXT$
  24.             'clear the mouse
  25.             cl_mouse:
  26.             If _MouseInput Then GoTo cl_mouse: Else GoTo done_mouse:
  27.           End If
  28.         End If
  29.       Next t
  30.     End If
  31.   End If
  32.   done_mouse:
  33.   If ide_sw = 1 Then
  34.     If found_lc > 0 And LR$ = "L" Then AdjustProperties (clix_name$(t))
  35.     If found_lc > 0 And LR$ = "R" Then MoveObject (clix_name$(t))
  36.   End If
  38.  

if i did this right, the above "code" is the "mouse click trapping" routine for... my project.
fast and accurate in Linux Mint... compile the same exact program in Windows?
drunken mouse clicking, is the best way i can describe it.

I cant post the whole program that calls it... its 1,983 lines of QB64 code.
but... here's the "main program flow" that ends up calling it...
Code: QB64: [Select]
  2. _Title "CodeName:Takky 0.0.7 - preBETA"
  4.  
  5.  
  6. ide_sw = 0
  7.  
  9. proj$ = "demo"
  10.  
  11. OpenProject: _Font fhand&: SplashDemo
  12. PaintAllForms
  13. again1:
  14. If ide_sw = 1 Then
  15.   _PrintString (110, 10), "F1=SAVE; F2=MakeForm; F3=MakeObj; F4=KillForm; F5=KillObj"
  16.   _PrintString (110, 25), "L-Click=.props; R-Click=MoveObj"
  19. PollMouseClicks
  20. If ide_sw = 0 Then
  21.   If found_lc > 0 Then
  22.     Shell _DontWait "pacat --fix-format --fix-rate start.wav"
  23.     PerformMouseClicks
  24.   End If
  27.  
  28. 'BEGIN - KEY CALLS
  29. 'These are the ESC and F1-F5 calls. UNcomment for IDE, comment out for run time
  30. 'TIP: ESC is a handy "end" key,
  31. 'and F1-save + others can be handy at run time while                                                                                                                                                                                                                                                                                                                                                           working
  32. 'If _KeyDown(15104) Then UpdateDefn 'F1
  33. 'If _KeyDown(15360) Then MakeForm 'F2
  34. 'If _KeyDown(15616) Then MakeControl 'F3
  35. 'If _KeyDown(15872) Then KillForm 'F4
  36. 'If _KeyDown(16128) Then KillObject 'F5
  37. If _KeyDown(27) Then End 'OutputProjectBones 'ESC
  38. 'END - KEY CALLS
  39.  
  40. GoTo again1:

thats basically "the whole program"... the rest of the 1983 lines of code? is basically all the "support routines"

54
QB64 Discussion / differences between LINUX and WINDOZE mouse routines?
« on: November 06, 2021, 08:48:41 pm »
phase 1 --- I begin to make retro games in QB64-WINdoze...
                  mouse *fine* in windoze.
                 
phase 2 --- compile SAME code to LINUX?
                  mouse is... drunk?

phase 3 --- decide to make retro games next in LINUX
                 mouse fine in LINUX

phase 4 --- compile to WINDOWS?
                  mouse is "sloppy drunk".

========================

now, I *am* a programmer; I have *some* logic to me, at least a little...
best I can explain? its as if, one is working on mouse UP, and the other on mouse DOWN...
and i have to PICK.

what am i missing, what am i describing?

Pages: 1 2 3 [4]