Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Prithak on January 28, 2019, 09:51:35 pm

Title: Something for my Project :P
Post by: Prithak on January 28, 2019, 09:51:35 pm
I sat down to create the project we got in school about QBASIC. And then I thought to myself, "What would it be?" and then I scrapped all the huge ideas and started making a simple calculator(graphical). I made it, but I ran into ONE problem. And that is *drumroll please!* that it can't do more than 2 operations. Which is annoying cuz I planned to use this calculator myself xD. Here's the code I made up:
Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(450, 500, 256)
  3.     CLS
  4.     makecalculator
  5.     _PRINTSTRING (100, 50), a$
  6.     k$ = INKEY$
  7.     IF k$ = "=" THEN
  8.         a$ = calculate$(a$)
  9.     ELSEIF k$ = "+" THEN
  10.         a$ = a$ + " + "
  11.     ELSEIF k$ = "-" THEN
  12.         a$ = a$ + " - "
  13.     ELSEIF k$ = "*" THEN
  14.         a$ = a$ + " * "
  15.     ELSEIF k$ = "/" THEN
  16.         a$ = a$ + " / "
  17.     ELSEIF k$ = CHR$(8) THEN a$ = LEFT$(a$, LEN(a$) - 1)
  18.     ELSE
  19.         a$ = a$ + k$
  20.     END IF
  22.         IF mouseclick(50, 100, 100, 150) THEN a$ = a$ + "1"
  23.         IF mouseclick(150, 100, 200, 150) THEN a$ = a$ + "2"
  24.         IF mouseclick(250, 100, 300, 150) THEN a$ = a$ + "3"
  25.         IF mouseclick(350, 100, 400, 150) THEN a$ = a$ + " + "
  26.  
  27.         IF mouseclick(50, 200, 100, 250) THEN a$ = a$ + "4"
  28.         IF mouseclick(150, 200, 200, 250) THEN a$ = a$ + "5"
  29.         IF mouseclick(250, 200, 300, 250) THEN a$ = a$ + "6"
  30.         IF mouseclick(350, 200, 400, 250) THEN a$ = a$ + " - "
  31.  
  32.         IF mouseclick(50, 300, 100, 350) THEN a$ = a$ + "7"
  33.         IF mouseclick(150, 300, 200, 350) THEN a$ = a$ + "8"
  34.         IF mouseclick(250, 300, 300, 350) THEN a$ = a$ + "9"
  35.         IF mouseclick(350, 300, 400, 350) THEN a$ = a$ + " * "
  36.  
  37.         IF mouseclick(50, 400, 100, 450) THEN a$ = a$ + "."
  38.         IF mouseclick(150, 400, 200, 450) THEN a$ = a$ + "0"
  39.         IF mouseclick(250, 400, 300, 450) THEN a$ = calculate$(a$)
  40.         IF mouseclick(350, 400, 400, 450) THEN a$ = a$ + " / "
  41.     WEND
  42.     _DISPLAY
  44.  
  45. SUB makecalculator ()
  46.     LINE (0, 0)-(450, 500), 2, B
  47.  
  48.     LINE (50, 25)-(400, 75), 2, B 'Output Screen
  49.  
  50.     LINE (50, 100)-(100, 150), 2, B
  51.     LINE (150, 100)-(200, 150), 2, B
  52.     LINE (250, 100)-(300, 150), 2, B
  53.     LINE (350, 100)-(400, 150), 2, B
  54.     _PRINTSTRING (75, 125), "1"
  55.     _PRINTSTRING (175, 125), "2"
  56.     _PRINTSTRING (275, 125), "3"
  57.     _PRINTSTRING (375, 125), "+"
  58.  
  59.  
  60.     LINE (50, 200)-(100, 250), 2, B
  61.     LINE (150, 200)-(200, 250), 2, B
  62.     LINE (250, 200)-(300, 250), 2, B
  63.     LINE (350, 200)-(400, 250), 2, B
  64.     _PRINTSTRING (75, 225), "4"
  65.     _PRINTSTRING (175, 225), "5"
  66.     _PRINTSTRING (275, 225), "6"
  67.     _PRINTSTRING (375, 225), "-"
  68.     LINE (50, 300)-(100, 350), 2, B
  69.     LINE (150, 300)-(200, 350), 2, B
  70.     LINE (250, 300)-(300, 350), 2, B
  71.     LINE (350, 300)-(400, 350), 2, B
  72.     _PRINTSTRING (75, 325), "7"
  73.     _PRINTSTRING (175, 325), "8"
  74.     _PRINTSTRING (275, 325), "9"
  75.     _PRINTSTRING (375, 325), "*"
  76.     LINE (50, 400)-(100, 450), 2, B
  77.     LINE (150, 400)-(200, 450), 2, B
  78.     LINE (250, 400)-(300, 450), 2, B
  79.     LINE (350, 400)-(400, 450), 2, B
  80.     _PRINTSTRING (75, 425), "."
  81.     _PRINTSTRING (175, 425), "0"
  82.     _PRINTSTRING (275, 425), "="
  83.     _PRINTSTRING (375, 425), "/"
  85.  
  86. FUNCTION mouseclick (x1, y1, x2, y2)
  87.     mx = _MOUSEX
  88.     my = _MOUSEY
  89.     mb = _MOUSEBUTTON(1)
  90.  
  91.     IF mx >= x1 AND mx <= x2 AND my >= y1 AND my <= y2 AND mb THEN
  92.         mouseclick = -1
  93.     END IF
  94.  
  96.  
  97. FUNCTION calculate$ (a$)
  98.     i = 0
  99.     IF LEFT$(a$, 1) = " " THEN i = i + 1
  100.     IF RIGHT$(a$, 1) <> " " THEN a$ = a$ + " "
  101.     b$ = ""
  102.     c$ = ""
  103.     d$ = ""
  104.     DO UNTIL b$ = " "
  105.         i = i + 1
  106.         b$ = MID$(a$, i, 1)
  107.         c$ = c$ + b$
  108.     LOOP
  109.     PRINT c$
  110.     b$ = ""
  111.     DO UNTIL b$ = "+" OR b$ = "-" OR b$ = "*" OR b$ = "/" OR b$ = "%"
  112.         i = i + 1
  113.         b$ = MID$(a$, i, 1)
  114.     LOOP
  115.     op$ = b$
  116.     PRINT op$
  117.     i = i + 1
  118.     DO UNTIL b$ = " "
  119.         i = i + 1
  120.         b$ = MID$(a$, i, 1)
  121.         d$ = d$ + b$
  122.     LOOP
  123.     PRINT d$
  124.     SELECT CASE op$
  125.         CASE "+"
  126.             calculate$ = STR$(VAL(c$) + VAL(d$))
  127.         CASE "-"
  128.             calculate$ = STR$(VAL(c$) - VAL(d$))
  129.         CASE "*"
  130.             calculate$ = STR$(VAL(c$) * VAL(d$))
  131.         CASE "/"
  132.             calculate$ = STR$(VAL(c$) / VAL(d$))
  133.         CASE "%"
  134.             calculate$ = STR$(VAL(c$) MOD VAL(d$))
  135.     END SELECT
  137.  
The only way I can do that is by equaling it multiple times which is REALLY annoying! Can anyone give me some ideas? Cuz, I really need some....

(This probably was the first time I got in this forum with a complete program lol)
Title: Re: Something for my Project :P
Post by: Pete on January 29, 2019, 12:21:49 am
The mouse clicks cause multiple numbers to pop up. You can regulate that by waiting for a release. I added one line of code to the mouse function to achieve that. After that addition (excuse the pun) it seemed to work just fine.

As far as multiple operations, you'd need to store those in memory and then perform the operations after the = sign is pressed. I think a better way would be to have it automatically use the equals sign after the next operation is entered.

Code with mouse adjustment...

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(450, 500, 256)
  3.     CLS
  4.     makecalculator
  5.     _PRINTSTRING (100, 50), a$
  6.     k$ = INKEY$
  7.     IF k$ = "=" THEN
  8.         a$ = calculate$(a$)
  9.     ELSEIF k$ = "+" THEN
  10.         a$ = a$ + " + "
  11.     ELSEIF k$ = "-" THEN
  12.         a$ = a$ + " - "
  13.     ELSEIF k$ = "*" THEN
  14.         a$ = a$ + " * "
  15.     ELSEIF k$ = "/" THEN
  16.         a$ = a$ + " / "
  17.     ELSEIF k$ = CHR$(8) THEN a$ = LEFT$(a$, LEN(a$) - 1)
  18.     ELSE
  19.         a$ = a$ + k$
  20.     END IF
  22.         IF mouseclick(50, 100, 100, 150) THEN a$ = a$ + "1"
  23.         IF mouseclick(150, 100, 200, 150) THEN a$ = a$ + "2"
  24.         IF mouseclick(250, 100, 300, 150) THEN a$ = a$ + "3"
  25.         IF mouseclick(350, 100, 400, 150) THEN a$ = a$ + " + "
  26.  
  27.         IF mouseclick(50, 200, 100, 250) THEN a$ = a$ + "4"
  28.         IF mouseclick(150, 200, 200, 250) THEN a$ = a$ + "5"
  29.         IF mouseclick(250, 200, 300, 250) THEN a$ = a$ + "6"
  30.         IF mouseclick(350, 200, 400, 250) THEN a$ = a$ + " - "
  31.  
  32.         IF mouseclick(50, 300, 100, 350) THEN a$ = a$ + "7"
  33.         IF mouseclick(150, 300, 200, 350) THEN a$ = a$ + "8"
  34.         IF mouseclick(250, 300, 300, 350) THEN a$ = a$ + "9"
  35.         IF mouseclick(350, 300, 400, 350) THEN a$ = a$ + " * "
  36.  
  37.         IF mouseclick(50, 400, 100, 450) THEN a$ = a$ + "."
  38.         IF mouseclick(150, 400, 200, 450) THEN a$ = a$ + "0"
  39.         IF mouseclick(250, 400, 300, 450) THEN a$ = calculate$(a$)
  40.         IF mouseclick(350, 400, 400, 450) THEN a$ = a$ + " / "
  41.     WEND
  42.     _DISPLAY
  44.  
  45. SUB makecalculator ()
  46. LINE (0, 0)-(450, 500), 2, B
  47.  
  48. LINE (50, 25)-(400, 75), 2, B 'Output Screen
  49.  
  50. LINE (50, 100)-(100, 150), 2, B
  51. LINE (150, 100)-(200, 150), 2, B
  52. LINE (250, 100)-(300, 150), 2, B
  53. LINE (350, 100)-(400, 150), 2, B
  54. _PRINTSTRING (75, 125), "1"
  55. _PRINTSTRING (175, 125), "2"
  56. _PRINTSTRING (275, 125), "3"
  57. _PRINTSTRING (375, 125), "+"
  58.  
  59.  
  60. LINE (50, 200)-(100, 250), 2, B
  61. LINE (150, 200)-(200, 250), 2, B
  62. LINE (250, 200)-(300, 250), 2, B
  63. LINE (350, 200)-(400, 250), 2, B
  64. _PRINTSTRING (75, 225), "4"
  65. _PRINTSTRING (175, 225), "5"
  66. _PRINTSTRING (275, 225), "6"
  67. _PRINTSTRING (375, 225), "-"
  68. LINE (50, 300)-(100, 350), 2, B
  69. LINE (150, 300)-(200, 350), 2, B
  70. LINE (250, 300)-(300, 350), 2, B
  71. LINE (350, 300)-(400, 350), 2, B
  72. _PRINTSTRING (75, 325), "7"
  73. _PRINTSTRING (175, 325), "8"
  74. _PRINTSTRING (275, 325), "9"
  75. _PRINTSTRING (375, 325), "*"
  76. LINE (50, 400)-(100, 450), 2, B
  77. LINE (150, 400)-(200, 450), 2, B
  78. LINE (250, 400)-(300, 450), 2, B
  79. LINE (350, 400)-(400, 450), 2, B
  80. _PRINTSTRING (75, 425), "."
  81. _PRINTSTRING (175, 425), "0"
  82. _PRINTSTRING (275, 425), "="
  83. _PRINTSTRING (375, 425), "/"
  85.  
  86. FUNCTION mouseclick (x1, y1, x2, y2)
  87. mx = _MOUSEX
  88. my = _MOUSEY
  89. mb = _MOUSEBUTTON(1)
  90.  
  91. IF mx >= x1 AND mx <= x2 AND my >= y1 AND my <= y2 AND mb THEN
  93.     mouseclick = -1
  95.  
  97.  
  98. FUNCTION calculate$ (a$)
  99. i = 0
  100. IF LEFT$(a$, 1) = " " THEN i = i + 1
  101. IF RIGHT$(a$, 1) <> " " THEN a$ = a$ + " "
  102. b$ = ""
  103. c$ = ""
  104. d$ = ""
  105. DO UNTIL b$ = " "
  106.     i = i + 1
  107.     b$ = MID$(a$, i, 1)
  108.     c$ = c$ + b$
  111. b$ = ""
  112. DO UNTIL b$ = "+" OR b$ = "-" OR b$ = "*" OR b$ = "/" OR b$ = "%"
  113.     i = i + 1
  114.     b$ = MID$(a$, i, 1)
  116. op$ = b$
  117. PRINT op$
  118. i = i + 1
  119. DO UNTIL b$ = " "
  120.     i = i + 1
  121.     b$ = MID$(a$, i, 1)
  122.     d$ = d$ + b$
  126.     CASE "+"
  127.         calculate$ = STR$(VAL(c$) + VAL(d$))
  128.     CASE "-"
  129.         calculate$ = STR$(VAL(c$) - VAL(d$))
  130.     CASE "*"
  131.         calculate$ = STR$(VAL(c$) * VAL(d$))
  132.     CASE "/"
  133.         calculate$ = STR$(VAL(c$) / VAL(d$))
  134.     CASE "%"
  135.         calculate$ = STR$(VAL(c$) MOD VAL(d$))
  138.  

I suppose if you wanted to try a memory string, it might go something like this...

Code: QB64: [Select]
  1. s$ = "123+456-55*3/6"
  2. a$ = "": x = 0
  3. FOR i = 1 TO LEN(s$) + 1
  4.     t$ = MID$(s$, i, 1)
  5.     IF INSTR("+-*/", t$) OR i > LEN(s$) THEN
  6.         IF flag = 0 THEN x = VAL(a$): flag = -1
  7.         SELECT CASE o$
  8.             CASE "+"
  9.                 x = x + VAL(a$)
  10.             CASE "-"
  11.                 x = x - VAL(a$)
  12.             CASE "*"
  13.                 x = x * VAL(a$)
  14.             CASE "/"
  15.                 x = x / VAL(a$)
  16.         END SELECT
  17.         a$ = ""
  18.         o$ = t$: ' PRINT o$: SLEEP
  19.     ELSE
  20.         a$ = a$ + t$
  21.     END IF
  23. PRINT x, "=", (123 + 456 - 55) * 3 / 6
  25.  

Before you get too excited, remember that computers are binary and math is base 10. That means that you will get erroneous results from tie tie to time with calculations. I used to work with just strings for ledger calculations to avoid those types of problems, and I wish I could recall a simple rounding trick that corrected for much of the math errors thrown by the binary system but its been too many years. I'm sure there will be other response here from folks who have worked with calculator programs. As for what you have so far, very nice! Good luck with it.

Pete
Title: Re: Something for my Project :P
Post by: bplus on January 29, 2019, 12:37:15 am
To avoid pressing = all the time,  setup two operands a$ and b$ and track the operator key op$ separately.
When an op$ press is detected, if none is registered (op$ = "") handle as you have but if one is in the works then update a$ with the math calculation, clear b$ and set the op$ to the new operation k$ that was just detected.
Code: QB64: [Select]
  1. _TITLE "Prithak's calc, mod B+ 2019-01-29"
  2. SCREEN _NEWIMAGE(450, 500, 256)
  3. _SCREENMOVE 400, 100
  5.     CLS
  6.     makecalculator 'draw it
  7.     _PRINTSTRING (100, 50), a$ + " " + op$ + " " + b$ 'show current status
  8.  
  9.     'get the k$
  10.     k$ = INKEY$ 'update keypresses
  11.     WHILE _MOUSEINPUT: WEND 'update mouse
  12.     mb = _MOUSEBUTTON(1) 'getbutton status
  13.     IF mb THEN 'button down
  14.         WHILE mb 'wait until mouse button is released before handling click
  15.             something = _MOUSEINPUT
  16.             mx = _MOUSEX: my = _MOUSEY: mb = _MOUSEBUTTON(1)
  17.         WEND
  18.         textIndex = 0
  19.         FOR y1 = 100 TO 400 STEP 100
  20.             FOR x1 = 50 TO 350 STEP 100
  21.                 textIndex = textIndex + 1
  22.                 IF mx >= x1 AND mx <= x1 + 50 AND my >= y1 AND my <= y1 + 50 THEN
  23.                     k$ = MID$("123+456-789*.0=/", textIndex, 1)
  24.                 END IF
  25.             NEXT
  26.         NEXT
  27.     END IF
  28.  
  29.     'now handle the k$
  30.     IF LEN(k$) THEN
  31.         IF k$ = CHR$(8) THEN 'backspace, be nice if had mouse button too for backspace and clearing
  32.             IF LEN(b$) THEN
  33.                 b$ = LEFT$(b$, LEN(b$) - 1)
  34.             ELSEIF LEN(op$) THEN
  35.                 op$ = ""
  36.             ELSEIF LEN(a$) THEN
  37.                 a$ = LEFT$(a$, LEN(a$) - 1)
  38.             END IF
  39.         END IF
  40.         IF INSTR("+-/*", k$) > 0 THEN
  41.             IF op$ = "" THEN
  42.                 op$ = k$
  43.             ELSE
  44.                 GOSUB calc
  45.                 op$ = k$
  46.             END IF
  47.         END IF
  48.         IF INSTR(".0123456789", k$) > 0 THEN
  49.             IF op$ <> "" THEN b$ = b$ + k$ ELSE a$ = a$ + k$
  50.         END IF
  51.         IF k$ = "=" THEN
  52.             GOSUB calc
  53.         END IF
  54.     END IF
  55.  
  56.     _DISPLAY
  57.     _LIMIT 30
  59.  
  60. calc:
  61. va = VAL(a$): vb = VAL(b$)
  63.     CASE "+": a$ = STR$(va + vb)
  64.     CASE "-": a$ = STR$(va - vb)
  65.     CASE "/": IF vb <> 0 THEN a$ = STR$(va / vb) ELSE BEEP
  66.     CASE "*": a$ = STR$(va * vb)
  68. b$ = "": op$ = ""
  70.  
  71. SUB makecalculator ()
  72.     LINE (0, 0)-(450, 500), 2, B 'frame
  73.     LINE (50, 25)-(400, 75), 2, B 'Output Screen
  74.     FOR y = 100 TO 400 STEP 100
  75.         FOR x = 50 TO 350 STEP 100
  76.             textIndex = textIndex + 1
  77.             text$ = MID$("123+456-789*.0=/", textIndex, 1)
  78.             _PRINTSTRING (x + 21, y + 17), text$
  79.             LINE (x, y)-STEP(50, 50), 2, B
  80.         NEXT
  81.     NEXT
  83.  

EDIT: cut more redundant code
Text Only | Text with Attachments