Recent Posts

Pages: 1 ... 6 7 [8] 9 10
71
QB64 Discussion / Re: Highlight% changes by itself
« Last post by Jaze on April 11, 2022, 02:39:45 pm »
I had an earlier version of the Time Calculator in desperate need of an overhaul. Hence I came up with the second menu. I commented out the Menu in the older version, cut and pasted the newer menu (the first one I posted) into the program needing the overhaul and it worked fine. Doing the same in reverse, putting the older menu into the newer version of the program and commented out the newer menu. And it flickered. So I have identical code in two different windows behaving differently
72
QB64 Discussion / Re: Highlight% changes by itself
« Last post by Jaze on April 11, 2022, 02:30:36 pm »
This code does what it is supposed to without the flicker and allows the use of the arrow keys. I didn't think the options were clear enough so I rewrote it. I don't see any difference in this style of the Menu compared to the other. Apart from the text their nearly identical but this one works... just a pain in the ass reordering the menu options but I apparently have no choice

Code: QB64: [Select]
  1. SUB Menu
  2.   DIM highlightedOption, haltAndDisplay, xPos, maxOption, yPos AS INTEGER
  3.   DIM userCommand$
  4.  
  5.   highlightedOption = 1
  6.   haltAndDisplay = TRUE
  7.   maxOption = 8
  8.   yPos = 14
  9.   DO
  10.     userCommand$ = INKEY$
  11.     IF haltAndDisplay = TRUE THEN
  12.       COLOR 14, 1: CLS
  13.       a$ = "Time Calculator": xPos = Center(a$): LOCATE yPos, xPos: PRINT a$
  14.       LOCATE yPos + 1, xPos - 1: PRINT "-----------------"
  15.       a$ = "1.) Add 2 Time Amounts": LOCATE yPos + 5, Center(a$)
  16.       IF highlightedOption = 1 THEN
  17.       COLOR 10, 0: ELSE COLOR 14, 1: END IF
  18.       PRINT a$
  19.       a$ = "2.) Add 1 Time Amount To A Date and Time": LOCATE yPos + 7, Center(a$)
  20.       IF highlightedOption = 2 THEN
  21.       COLOR 10, 0: ELSE COLOR 14, 1: END IF
  22.       PRINT a$
  23.       a$ = "3.) Subtract 1 Time Amount From Another": LOCATE yPos + 9, Center(a$)
  24.       IF highlightedOption = 3 THEN
  25.       COLOR 10, 0: ELSE COLOR 14, 1: END IF
  26.       PRINT a$
  27.       a$ = "4.) Find Date And Time Before Another Date And Time": LOCATE yPos + 11, Center(a$)
  28.       IF highlightedOption = 4 THEN
  29.       COLOR 10, 0: ELSE COLOR 14, 1: END IF
  30.       PRINT a$
  31.       a$ = "5.) Multiply 1 Time Amount By A Constant": LOCATE yPos + 13, Center(a$)
  32.       IF highlightedOption = 5 THEN
  33.       COLOR 10, 0: ELSE COLOR 14, 1: END IF
  34.       PRINT a$
  35.       a$ = "6.) Divide 1 Time Amount By A Constant": LOCATE yPos + 15, Center(a$)
  36.       IF highlightedOption = 6 THEN
  37.       COLOR 10, 0: ELSE COLOR 14, 1: END IF
  38.       PRINT a$
  39.       a$ = "7.) Find The Time From Now Until": LOCATE yPos + 17, Center(a$)
  40.       IF highlightedOption = 7 THEN
  41.       COLOR 10, 0: ELSE COLOR 14, 1: END IF
  42.       PRINT a$
  43.       a$ = "A Selected Date And Time": LOCATE yPos + 18, Center(a$)
  44.       IF highlightedOption = 7 THEN
  45.       COLOR 10, 0: ELSE COLOR 14, 1: END IF
  46.       PRINT a$
  47.       a$ = "8.) End": LOCATE yPos + 25, Center(a$)
  48.       IF highlightedOption = 8 THEN
  49.       COLOR 10, 0: ELSE COLOR 14, 1: END IF
  50.       PRINT a$
  51.       haltAndDisplay = FALSE
  52.     END IF
  53.     SELECT CASE userCommand$
  54.       CASE LeftArrowKey$, UpArrowKey$
  55.         highlightedOption = highlightedOption - 1
  56.         IF highlightedOption = 0 THEN highlightedOption = maxOption
  57.         haltAndDisplay = TRUE
  58.       CASE RightArrowKey$, DownArrowKey$
  59.         highlightedOption = highlightedOption + 1
  60.         IF highlightedOption > maxOption THEN highlightedOption = 1
  61.         haltAndDisplay = TRUE
  62.       CASE CHR$(13), CHR$(32)
  63.         SELECT CASE highlightedOption
  64.           CASE 1
  65.             CALL AddTwoTimeAmounts
  66.           CASE 2
  67.             CALL AddTimeToDate
  68.           CASE 3
  69.             CALL SubtractTimeAmounts
  70.           CASE 4
  71.             CALL FindDateBefore
  72.           CASE 5
  73.             CALL MultiplyTimeByConstant
  74.           CASE 6
  75.             CALL DivideTimeByConstant
  76.           CASE 7
  77.             CALL FindTimeUntil
  78.         END SELECT
  79.         haltAndDisplay = TRUE
  80.       CASE "1", "2", "3", "4", "5", "6", "7"
  81.         highlightedOption = VAL(userCommand$)
  82.         SELECT CASE highlightedOption
  83.           CASE 1
  84.             CALL AddTwoTimeAmounts
  85.           CASE 2
  86.             CALL AddTimeToDate
  87.           CASE 3
  88.             CALL SubtractTimeAmounts
  89.           CASE 4
  90.             CALL FindDateBefore
  91.           CASE 5
  92.             CALL MultiplyTimeByConstant
  93.           CASE 6
  94.             CALL DivideTimeByConstant
  95.           CASE 7
  96.             CALL FindTimeUntil
  97.         END SELECT
  98.         haltAndDisplay = TRUE
  99.     END SELECT
  100.   LOOP UNTIL userCommand$ = CHR$(27) OR userCommand$ = "8"
73
QB64 Discussion / Re: Highlight% changes by itself
« Last post by bplus on April 11, 2022, 02:27:22 pm »
Yeah working on highlights.. looks like just _limit 30 is enough to stop flicker.
74
QB64 Discussion / Re: Highlight% changes by itself
« Last post by Jaze on April 11, 2022, 02:20:56 pm »
I added _DISPLAY and _LIMIT as suggest which does fix the flicker but dose not allow an option to be highlighted and selected with the arrow keys
75
QB64 Discussion / Re: Highlight% changes by itself
« Last post by bplus on April 11, 2022, 02:19:33 pm »
Ah, I use "toggle"
toggle = 1 - toggle  0,1,0,1,....

True, False a little misleading, but everyone has their styles and preferences....

You are attempting to highlight line ready to go on Enter maybe after arrow presses, I assume.
76
QB64 Discussion / Re: Highlight% changes by itself
« Last post by Jaze on April 11, 2022, 02:10:17 pm »
changing the false constant to zero made no difference. besides I like the -1, 1 so I can flip them by multiplying by -1
77
QB64 Discussion / Re: Highlight% changes by itself
« Last post by bplus on April 11, 2022, 01:57:05 pm »
Oh you are trying to highlite something, ehhh

deja vu again today:

Didn't I suggest False% = 0 ???

An If is going to see both -1 and 1 as True and take the THEN path.
78
QB64 Discussion / Re: Highlight% changes by itself
« Last post by bplus on April 11, 2022, 01:50:20 pm »
I added _display and _limit to stop flicker.

Once you use _display, then you must say _display every time you want to show something immediatedly. To disable _display use _autodisplay and get default automatic "display". You could put that at the end of the sub before exiting. _display once in you main drawing loop is best.
Code: QB64: [Select]
  1.  
  2. _Title "Time Calculator"
  3.  
  4. Const TRUE% = 1
  5. Const FALSE% = -1
  6. Dim Shared LeftArrowKey$: LeftArrowKey$ = Chr$(0) + "K"
  7. Dim Shared RightArroeKey$: rightArrowKey$ = Chr$(0) + "M"
  8. Dim Shared UpArrowKey$: UpArrowKey$ = Chr$(0) + "H"
  9. Dim Shared DownArrowKey$: DownArrowKey$ = Chr$(0) + "P"
  10. Const UpArrowHit% = 18432
  11. Const LeftArrowHit% = 19200
  12. Const RightArrowHit% = 19712
  13. Const DownArrowHit% = 20480
  14. ' for the highlighted option in the GetTimeAmount SUB
  15. Const YearsHO% = 1
  16. Const DaysHO% = 2
  17. Const HoursHO% = 3
  18. Const MinutesHO% = 4
  19. Const SecondsHO% = 5
  20.  
  21. Width 80, 50
  23. Color 14, 1: Cls
  24.  
  25. Call Menu
  26.  
  27. Sub FromNowUntil
  29.  
  30. Sub HowLongSince
  32.  
  33. Sub WhatDateAfterElapsedTime
  35.  
  36. Sub AddElapsedTimes
  38.  
  39. Sub SubtractElapsedTimes
  41.  
  42. Sub Multiply
  44.  
  45. Sub Divide
  47.  
  48.  
  49. Sub Menu
  50.     HaltAndDisplay% = 0: Highlight% = 0: yPos% = 0: UserCommand$ = "": A$ = ""
  51.     xPos% = 0: MaxOption% = 0: SelectedAnOption% = 0
  52.  
  53.     HaltAndDisplay% = TRUE%: Highlight% = 1: yPos% = 13: MaxOption% = 8: SelectedAnOption% = FALSE%
  54.     Do
  55.         UserCommand$ = InKey$
  56.         Locate 45, 1: Print S$(Highlight%)
  57.         Locate 46, 1: Print "|" + UserCommand$ + "|"
  58.         If HaltAndDisplay% = TRUE% Then
  59.             Color 14, 1: Cls
  60.             A$ = "Time Calculator Menu": xPos% = Center(A$)
  61.             Locate yPos%, Center(A$): Print A$: Locate yPos% + 1, Center(A$)
  62.             Print "---- ---------- ----"
  63.  
  64.             A$ = "": A$ = "1.) Find How Long From Now"
  65.             Locate yPos% + 3, Center(A$): If Highlight% = 1 Then
  66.             Color 10, 0: Else Color 14, 1: End If: Print A$
  67.             A$ = "": A$ = "Until A Selected Time"
  68.             Locate yPos% + 4, Center(A$): If Highlight% = 1 Then
  69.             Color 10, 0: Else Color 14, 1: End If: Print A$
  70.  
  71.             A$ = "": A$ = "2.) Find How Long It Has Been Since"
  72.             Locate yPos% + 6, Center(A$): If highlighedoption% = 2 Then
  73.             Color 10, 0: Else Color 14, 1: End If: Print A$
  74.             A$ = "": A$ = "A Selected Time Has Passed"
  75.             Locate yPos% + 7, Center(A$): If Highlight% = 2 Then
  76.             Color 10, 0: Else Color 14, 1: End If: Print A$
  77.  
  78.             A$ = "": A$ = "3.) Find The Date And Time It Will Be After"
  79.             Locate yPos% + 9, Center(A$): If Highlight% = 3 Then
  80.             Color 10, 0: Else Color 14, 1: End If: Print A$
  81.             A$ = "": A$ = "A Selected Amount Of Time Has Passed"
  82.             Locate yPos% + 10, Center(A$): If Highlight% = 3 Then
  83.             Color 10, 0: Else Color 14, 1: End If: Print A$
  84.  
  85.             A$ = "": A$ = "4.) Add Two Elapsed Times"
  86.             Locate yPos% + 12, Center(A$): If Highlight% = 4 Then
  87.             Color 10, 0: Else Color 14, 1: End If: Print A$
  88.  
  89.             A$ = "": A$ = "5.) Subtract One Elapsed Time From Another One"
  90.             Locate yPos% + 14, Center(A$): If Highlight% = 5 Then
  91.             Color 10, 0: Else Color 14, 1: End If: Print A$
  92.  
  93.             A$ = "": A$ = "6.) Multiply An Elapsed Time By A Constant"
  94.             Locate yPos% + 16, Center(A$): If Highlight% = 6 Then
  95.             Color 10, 0: Else Color 14, 1: End If: Print A$
  96.  
  97.             A$ = "": A$ = "7.) Divide An Elapsed Time By A Constant"
  98.             Locate yPos% + 18, Center(A$): If Highlight% = 7 Then
  99.             Color 10, 0: Else Color 14, 1: End If: Print A$
  100.  
  101.             A$ = "": A$ = "8.) Exit"
  102.             Locate 45, Center(A$): If Highlight% = 8 Then
  103.             Color 10, 0: Else Color 14, 1: End If: Print A$
  104.  
  105.             HaltAndDisplay% = FALSE%
  106.         End If
  107.  
  108.         Select Case UserCommand$
  109.             Case UpArrowKey$, LeftArrowKey$
  110.                 Highlight% = highlightedoption - 1
  111.                 If Highlight% = 0 Then Highlight% = MaxOption%
  112.                 HaltAndDisplay% = TRUE%
  113.             Case DownArrowKey$, rightarrowkey$
  114.                 Highlight% = Highlight% + 1
  115.                 If highlightedoption > maxoption Then Highlight% = 1
  116.                 HaltAndDisplay% = TRUE%
  117.             Case Chr$(13)
  118.                 SelectedAnOption% = TRUE%
  119.             Case "1", "2", "3", "4", "5", "6", "7"
  120.                 Highlight% = Val(UserCommand$)
  121.                 SelectedAnOption% = TRUE%
  122.         End Select
  123.         If SelectedAnOption% = TRUE Then
  124.             Select Case Highlight%
  125.                 Case 1
  126.                     Call FromNowUntil: SelectedAnOption% = FALSE%
  127.                 Case 2
  128.                     Call HowLongSince: SelectedAnOption% = FALSE%
  129.                 Case 3
  130.                     Call WhatDateAfterElapsedTime: SelectedAnOption% = FALSE%
  131.                 Case 4
  132.                     Call AddElapsedTimes: SelectedAnOption% = FALSE%
  133.                 Case 5
  134.                     Call SubtractElapsedTimes: SelectedAnOption% = FALSE%
  135.                 Case 6
  136.                     Call Multiply: SelectedAnOption% = FALSE%
  137.                 Case 7
  138.                     Call Divide: SelectedAnOption% = FALSE%
  139.             End Select
  140.         End If
  141.         _Display ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< added this and next
  142.         _Limit 30
  143.     Loop Until UserCommand$ = Chr$(27) Or UserCommand$ = S$(MaxOption%)
  145.  
  146.  
  147.  
  148.  
  149.  
  150. Function Center% (Text$): Center% = Int((80 - Len(Text$)) / 2): End Function
  151. Function S$ (Number!): S$ = LTrim$(Str$(Number!)): End Function
  152. Function P$: pause$ = Input$(1): If pause$ = Chr$(27) Then End
  153. P$ = pause$: End Function
  154.  
  155.  
  156.  
79
QB64 Discussion / Re: QB64 Bounty List
« Last post by madscijr on April 11, 2022, 01:46:33 pm »
Quote from: SMcNeill on April 08, 2022, 10:29:06 am
So, that's when an idea came to me that sounds like a Win-Win for everyone involved:  A QB64 Bounty List!

This is actually a pretty interesting idea, and one I have thought about in the past for other software but like a million ideas got forgotten in the slipstream of busy life.

I'd have to give some thought to what missing features are bugging me or need fixing most, but I'll add that maybe in addition to cold hard $, some people can just barter stuff that a developer could use? Just an idea. As the economy feels the pinch, people might have a harder time coming up with extra dough, but also the busier we get the harder it becomes to find time to sell your stuff on ebay!

Another barter idea might be to barter _skills_. Maybe someone doesn't know C or how QB64 works under the hood, but they can help by writing functions in QB64 to help solve some of these problems - then someone who does know the lower level stuff can compile it, take the resulting C code, and optimize it? Just an idea.

Or barter non-programming skills - if a developer needs help with some other tool or task, to free up time to work on a given fix?

Anyway, interesting idea @SMcNeill !
80
QB64 Discussion / Highlight% changes by itself
« Last post by Jaze on April 11, 2022, 01:34:56 pm »
I often make a DO LOOP with an INKEY$ to access the string values of the arrow keys. Out of probably 25 times writing a loop similar to this one, this is the second time I could not use my HaltAndDisplay% bool to stop the flicker.
On line 56, the Highlight% rapidly changes between positive and negative integers of about 3 to 5 digits. From what I can see in the code I've written, Highlight% shouldn't change until
one of the SHARED ArrowKey$ Values has been detected. I'd be grateful to anyone who can't point out my error
Code: QB64: [Select]
  1.  
  2. _TITLE "Time Calculator"
  3.  
  4. CONST TRUE% = 1
  5. CONST FALSE% = -1
  6. DIM SHARED LeftArrowKey$: LeftArrowKey$ = CHR$(0) + "K"
  7. DIM SHARED RightArroeKey$: rightArrowKey$ = CHR$(0) + "M"
  8. DIM SHARED UpArrowKey$: UpArrowKey$ = CHR$(0) + "H"
  9. DIM SHARED DownArrowKey$: DownArrowKey$ = CHR$(0) + "P"
  10. CONST UpArrowHit% = 18432
  11. CONST LeftArrowHit% = 19200
  12. CONST RightArrowHit% = 19712
  13. CONST DownArrowHit% = 20480
  14. ' for the highlighted option in the GetTimeAmount SUB
  15. CONST YearsHO% = 1
  16. CONST DaysHO% = 2
  17. CONST HoursHO% = 3
  18. CONST MinutesHO% = 4
  19. CONST SecondsHO% = 5
  20.  
  21. WIDTH 80, 50
  23. COLOR 14, 1: CLS
  24.  
  25. CALL Menu
  26.  
  27. SUB FromNowUntil
  29.  
  30. SUB HowLongSince
  32.  
  33. SUB WhatDateAfterElapsedTime
  35.  
  36. SUB AddElapsedTimes
  38.  
  39. SUB SubtractElapsedTimes
  41.  
  42. SUB Multiply
  44.  
  45. SUB Divide
  47.  
  48.  
  49. SUB Menu
  50.   HaltAndDisplay% = 0: Highlight% = 0: yPos% = 0: UserCommand$ = "": A$ = ""
  51.   xPos% = 0: MaxOption% = 0: SelectedAnOption% = 0
  52.  
  53.   HaltAndDisplay% = TRUE%: Highlight% = 1: yPos% = 13: MaxOption% = 8: SelectedAnOption% = FALSE%
  54.   DO
  55.     UserCommand$ = INKEY$
  56.     LOCATE 45, 1: PRINT S$(Highlight%)
  57.     LOCATE 46, 1: PRINT "|" + UserCommand$ + "|"
  58.     IF HaltAndDisplay% = TRUE% THEN
  59.       COLOR 14, 1: CLS
  60.       A$ = "Time Calculator Menu": xPos% = Center(A$)
  61.       LOCATE yPos%, Center(A$): PRINT A$: LOCATE yPos% + 1, Center(A$)
  62.       PRINT "---- ---------- ----"
  63.  
  64.       A$ = "": A$ = "1.) Find How Long From Now"
  65.       LOCATE yPos% + 3, Center(A$): IF Highlight% = 1 THEN
  66.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT A$
  67.       A$ = "": A$ = "Until A Selected Time"
  68.       LOCATE yPos% + 4, Center(A$): IF Highlight% = 1 THEN
  69.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT A$
  70.  
  71.       A$ = "": A$ = "2.) Find How Long It Has Been Since"
  72.       LOCATE yPos% + 6, Center(A$): IF highlighedoption% = 2 THEN
  73.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT A$
  74.       A$ = "": A$ = "A Selected Time Has Passed"
  75.       LOCATE yPos% + 7, Center(A$): IF Highlight% = 2 THEN
  76.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT A$
  77.  
  78.       A$ = "": A$ = "3.) Find The Date And Time It Will Be After"
  79.       LOCATE yPos% + 9, Center(A$): IF Highlight% = 3 THEN
  80.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT A$
  81.       A$ = "": A$ = "A Selected Amount Of Time Has Passed"
  82.       LOCATE yPos% + 10, Center(A$): IF Highlight% = 3 THEN
  83.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT A$
  84.  
  85.       A$ = "": A$ = "4.) Add Two Elapsed Times"
  86.       LOCATE yPos% + 12, Center(A$): IF Highlight% = 4 THEN
  87.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT A$
  88.  
  89.       A$ = "": A$ = "5.) Subtract One Elapsed Time From Another One"
  90.       LOCATE yPos% + 14, Center(A$): IF Highlight% = 5 THEN
  91.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT A$
  92.  
  93.       A$ = "": A$ = "6.) Multiply An Elapsed Time By A Constant"
  94.       LOCATE yPos% + 16, Center(A$): IF Highlight% = 6 THEN
  95.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT A$
  96.  
  97.       A$ = "": A$ = "7.) Divide An Elapsed Time By A Constant"
  98.       LOCATE yPos% + 18, Center(A$): IF Highlight% = 7 THEN
  99.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT A$
  100.  
  101.       A$ = "": A$ = "8.) Exit"
  102.       LOCATE 45, Center(A$): IF Highlight% = 8 THEN
  103.       COLOR 10, 0: ELSE COLOR 14, 1: END IF: PRINT A$
  104.  
  105.       HaltAndDisplay% = FALSE%
  106.     END IF
  107.  
  108.     SELECT CASE UserCommand$
  109.       CASE UpArrowKey$, LeftArrowKey$
  110.         Highlight% = highlightedoption - 1
  111.         IF Highlight% = 0 THEN Highlight% = MaxOption%
  112.         HaltAndDisplay% = TRUE%
  113.       CASE DownArrowKey$, rightarrowkey$
  114.         Highlight% = Highlight% + 1
  115.         IF highlightedoption > maxoption THEN Highlight% = 1
  116.         HaltAndDisplay% = TRUE%
  117.       CASE CHR$(13)
  118.         SelectedAnOption% = TRUE%
  119.       CASE "1", "2", "3", "4", "5", "6", "7"
  120.         Highlight% = VAL(UserCommand$)
  121.         SelectedAnOption% = TRUE%
  122.     END SELECT
  123.     IF SelectedAnOption% = TRUE THEN
  124.       SELECT CASE Highlight%
  125.         CASE 1
  126.           CALL FromNowUntil: SelectedAnOption% = FALSE%
  127.         CASE 2
  128.           CALL HowLongSince: SelectedAnOption% = FALSE%
  129.         CASE 3
  130.           CALL WhatDateAfterElapsedTime: SelectedAnOption% = FALSE%
  131.         CASE 4
  132.           CALL AddElapsedTimes: SelectedAnOption% = FALSE%
  133.         CASE 5
  134.           CALL SubtractElapsedTimes: SelectedAnOption% = FALSE%
  135.         CASE 6
  136.           CALL Multiply: SelectedAnOption% = FALSE%
  137.         CASE 7
  138.           CALL Divide: SelectedAnOption% = FALSE%
  139.       END SELECT
  140.     END IF
  141.   LOOP UNTIL UserCommand$ = CHR$(27) OR UserCommand$ = S$(MaxOption%)
  143.  
  144.  
  145.  
  146.  
  147.  
  148. FUNCTION Center% (Text$): Center% = INT((80 - LEN(Text$)) / 2): END FUNCTION
  149. FUNCTION S$ (Number!): S$ = LTRIM$(STR$(Number!)): END FUNCTION
  150. FUNCTION P$: pause$ = INPUT$(1): IF pause$ = CHR$(27) THEN END
  151. P$ = pause$: END FUNCTION
  152.  
Pages: 1 ... 6 7 [8] 9 10