Calculator

[bplus]

Come to think of it - you may not need my icon stuff added at all.  Just do an _ICON _DISPLAY after drawing your calculator and that would look just as good.  Instant icon.  That would be a cool trick I suppose for showing game play in the task bar when playing games.

- Dav

This is interesting idea. I've never done this but I think you draw the calculator get an image of it and use it for an icon. Maybe when playing games you can constantly update the icon?

Sounds very interesting!

Ken those are nice improvements to your calculator, EXP usually goes with LOG and yes some of these advanced math operations need checks before you attempt them. A classic one is division by 0, don't attempt to divide if the divisor is 0!

[SierraKen]

Thanks B+. I can't seem to get SIN, COS, TAN to work with degrees though. Just by clicking SIN and then Rad2Deg doesn't give the right results as just SIN(degrees). I almost flunked out of Trig class, which was over 30 years ago, so does anyone have any suggestions? I keep SIN, COS, TAN though because the radians work fine. The funny part is, Rad2Deg works perfectly with Pi.

[bplus]

When I use my regular calculator Radians/Degrees is a Toggle in Radians mode it put a little Radians up in corner when in Degrees mode a Degrees indication, you could do this by changing the name of button or just add the mode label in a corner so you know what mode you are in.

Anyway when you are in Radians Mode you do SIN, COS, TAN with VAL(num$) like SIN(VAL(num$))

In Degrees Mode you do SIN, COS, TAN with _D2R(VAL(num$)) so it's like SIN(_D2R(VAL(num$)))

If you decide to do ARC SIN, ARC COS, ARC TAN then you would show the result in the mode you are in (read as the Angle whose SIN = .xxxx) :

So if in Degrees mode for like ARC SIN: result =  _R2D(ARCSIN(VAL(num$)))

[Dav]

This is interesting idea. I've never done this but I think you draw the calculator get an image of it and use it for an icon. Maybe when playing games you can constantly update the icon?

By using _DISPLAY instead of an image, you can by pass getting an image at all - the _ICON will use the current program screen displayed.  Very easy to have an icon. I think I will be using this in future projects.

- Dav

[bplus]

By using _DISPLAY instead of an image, you can by pass getting an image at all - the _ICON will use the current program screen displayed.  Very easy to have an icon. I think I will be using this in future projects.

- Dav

Nice, no extra files at all!

[SpriggsySpriggs]

By using _DISPLAY instead of an image, you can by pass getting an image at all - the _ICON will use the current program screen displayed.  Very easy to have an icon. I think I will be using this in future projects.

I was unaware of this feature! Cool!

[SierraKen]

Since B+ said I should add the EXP and showed me how to fix the SIN, COS, TAN with deg and rad modes, I decided to make 4 more buttons and change the rad2deg (and deg2rad) button to just show which mode you can change to next if you click it. B+ also mentioned that many calculators show which mode it's on up near the top, so I added that too. :) You can see the 4 new buttons on the picture below. I hope you all enjoy this as much as I have in programming it. Thanks to B+ and all of you guys for the inspiration and help. :))
Oh, one side note. I noticed QB64 uses "Inf" when you divide by 0 so I left it in there just to make it look like how calculators say similar things, like "E", etc. It also displays that when you make your exponent too high. I believe a power over 88 is too high for QB64 it said on the Wiki. So it just displays a "Inf", which stands for infinity.

Here is the update:

Code: QB64: [Select]

1. 'Calculator
2. 'By SierraKen on July 29, 2020.
3. '------------------------------
4. 'This is my very first regular calculator.
5. 'Thank you to B+ and TempodiBasic for the help and everyone for the inspiration!
6. 'This was a 4 day project and I've wanted to make this all my life. Ever since I was real little
7. 'playing around with my parents' calculator.
8. 'Thank you Dav for the icon code!
9. 'Added Clipboard by clicking the output number.
10. 'Added Rad2Deg (and Deg2Rad), second power, Base 10 Logarithm, and Pi buttons.
11. 'Added 1/x, x/2, exp, postive or negative.
12.  
13. 'Load the icon - call this somewhere near the top of your program
14. _ICON BASIMAGE1&
15.  
16. _TITLE "Calculator - Click output to copy."
17. DIM num AS DOUBLE
18. SCREEN _NEWIMAGE(400, 500, 32)
19.  
20. 'Setup calculator
21. LINE (50, 25)-(265, 50), _RGB32(255, 255, 255), B
22. LINE (50, 75)-(350, 350), _RGB32(255, 255, 255), B
23. 'Buttons
24. FOR buttony = 75 TO 405 STEP 55
25.     FOR buttonx = 50 TO 275 STEP 75
26.         FOR bb = 0 TO 10
27.             c = c + 10
28.             LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(100 + c, 100 + c, 100 + c), B
29.         NEXT bb
30.         PAINT (buttonx + 12, buttony + 12), _RGB32(100 + c, 100 + c, 100 + c)
31.         c = 0
32.     NEXT buttonx
33. NEXT buttony
34. buttonx = 275: buttony = 20
35. 'Green C Button
36. FOR bb = 0 TO 10
37.     c = c + 10
38.     LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(50, 100 + c, 50), B
39. NEXT bb
40. PAINT (buttonx + 12, buttony + 12), _RGB32(50, 100 + c, 50)
41. COLOR _RGB32(0, 0, 0), _RGB32(50, 100 + c, 50)
42. _PRINTSTRING (50, 5), "Rad"
43.  
44. 'Label Buttons
45. _PRINTSTRING (312, 47), "C"
46. COLOR _RGB32(0, 0, 0), _RGB32(210, 210, 210)
47. _PRINTSTRING (87, 102), CHR$(251) 'square root
48. _PRINTSTRING (152, 102), "sin"
49. _PRINTSTRING (227, 102), "cos"
50. _PRINTSTRING (302, 102), "tan"
51. _PRINTSTRING (87, 157), "7"
52. _PRINTSTRING (162, 157), "8"
53. _PRINTSTRING (237, 157), "9"
54. _PRINTSTRING (312, 157), "/"
55. _PRINTSTRING (87, 212), "4"
56. _PRINTSTRING (162, 212), "5"
57. _PRINTSTRING (237, 212), "6"
58. _PRINTSTRING (312, 212), "x"
59. _PRINTSTRING (87, 267), "1"
60. _PRINTSTRING (162, 267), "2"
61. _PRINTSTRING (237, 267), "3"
62. _PRINTSTRING (312, 267), "-"
63. _PRINTSTRING (87, 322), "0"
64. _PRINTSTRING (162, 322), "."
65. _PRINTSTRING (237, 322), "="
66. _PRINTSTRING (312, 322), "+"
67. _PRINTSTRING (79, 377), "deg"
68. _PRINTSTRING (162, 377), "x" + CHR$(253) 'second power
69. _PRINTSTRING (227, 377), "log"
70. _PRINTSTRING (307, 377), "Pi"
71. _PRINTSTRING (79, 432), "1/x"
72. _PRINTSTRING (152, 432), "x/2"
73. _PRINTSTRING (227, 432), "exp"
74. _PRINTSTRING (312, 432), CHR$(241) 'Postive or Negative
75.  
76. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
77. DO
78.     _LIMIT 20
79.     DO WHILE _MOUSEINPUT
80.         mouseX = _MOUSEX
81.         mouseY = _MOUSEY
82.         mouseLeftButton = _MOUSEBUTTON(1)
83.     LOOP
84.     IF mouseLeftButton THEN
85.         mouseLeftButton = 0
86.  
87.         'Clipboard
88.         IF mouseX > 50 AND mouseX < 265 AND mouseY > 25 AND mouseY < 50 THEN
89.             COLOR _RGB32(0, 255, 0), _RGB32(0, 0, 0)
90.             _PRINTSTRING (55, 30), num$
91.             _DELAY 1
92.             num2$ = _TRIM$(num$)
93.             _CLIPBOARD$ = num2$
94.             COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
95.             _PRINTSTRING (55, 30), num$
96.         END IF
97.  
98.         'Clear
99.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 20 AND mouseY < 75 THEN
100.             a = 0: s = 0: t = 0: d = 0: num$ = ""
101.             _PRINTSTRING (55, 30), "                          "
102.             buttonx = 275: buttony = 20
103.             GOSUB zero:
104.         END IF
105.  
106.         '1/x
107.         IF mouseX > 50 AND mouseX < 125 AND mouseY > 405 AND mouseY < 460 THEN
108.             num = VAL(num$)
109.             IF num = 0 THEN GOTO skipthis:
110.             num = 1 / num
111.             num$ = STR$(num)
112.             skipthis:
113.             buttonx = 50: buttony = 405
114.             GOSUB press:
115.             GOSUB number:
116.         END IF
117.  
118.         'x/2
119.         IF mouseX > 126 AND mouseX < 200 AND mouseY > 405 AND mouseY < 460 THEN
120.             num = VAL(num$)
121.             num = num / 2
122.             num$ = STR$(num)
123.             buttonx = 126: buttony = 405
124.             GOSUB press:
125.             GOSUB number2:
126.         END IF
127.  
128.         'Exponents
129.         IF mouseX > 200 AND mouseX < 275 AND mouseY > 405 AND mouseY < 460 THEN
130.             ee = 1: a = 0: s = 0: t = 0: d = 0
131.             e = e + 1
132.             IF e = 2 THEN GOTO expo:
133.             oldnum$ = num$
134.             _PRINTSTRING (55, 30), "                          "
135.             num$ = ""
136.             GOTO nextexpo:
137.             expo:
138.             e = 0
139.             num = VAL(oldnum$) ^ VAL(num$)
140.             ee = 0
141.             over:
142.             GOSUB number2:
143.             nextexpo:
144.             buttonx = 200: buttony = 405
145.             GOSUB press:
146.         END IF
147.  
148.         'Postive or Negative
149.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 405 AND mouseY < 460 THEN
150.             num$ = "-" + num$
151.             buttonx = 275: buttony = 405
152.             GOSUB press:
153.             GOSUB number:
154.         END IF
155.  
156.         'Radians and Degrees
157.         IF mouseX > 50 AND mouseX < 125 AND mouseY > 350 AND mouseY < 405 THEN
158.             deg = deg + 1
159.             IF deg = 2 THEN GOTO deg2rad:
160.             COLOR _RGB32(0, 0, 0), _RGB32(210, 210, 210)
161.             _PRINTSTRING (79, 377), "rad"
162.             COLOR _RGB32(0, 0, 0), _RGB32(50, 100 + c, 50)
163.             _PRINTSTRING (50, 5), "Deg"
164.             num = VAL(num$)
165.             num = _R2D(num)
166.             num$ = STR$(num)
167.             GOTO skipdeg2rad:
168.             deg2rad:
169.             deg = 0
170.             COLOR _RGB32(0, 0, 0), _RGB32(210, 210, 210)
171.             _PRINTSTRING (79, 377), "deg"
172.             COLOR _RGB32(0, 0, 0), _RGB32(50, 100 + c, 50)
173.             _PRINTSTRING (50, 5), "Rad"
174.             num = VAL(num$)
175.             num = _D2R(num)
176.             num$ = STR$(num)
177.             skipdeg2rad:
178.             buttonx = 50: buttony = 350
179.             GOSUB press:
180.             GOSUB number:
181.         END IF
182.  
183.         'Second Power
184.         IF mouseX > 126 AND mouseX < 200 AND mouseY > 350 AND mouseY < 405 THEN
185.             num = VAL(num$)
186.             num = num ^ 2
187.             num$ = STR$(num)
188.             buttonx = 126: buttony = 350
189.             GOSUB press:
190.             GOSUB number:
191.         END IF
192.  
193.         'logarithm
194.         IF mouseX > 200 AND mouseX < 275 AND mouseY > 350 AND mouseY < 405 THEN
195.             num = VAL(num$)
196.             IF num < 0 THEN GOTO skiplog:
197.             num = LOG(num) / LOG(10.#)
198.             num$ = STR$(num)
199.             skiplog:
200.             buttonx = 200: buttony = 350
201.             GOSUB press:
202.             GOSUB number:
203.         END IF
204.  
205.         'Pi
206.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 350 AND mouseY < 405 THEN
207.             num = _PI
208.             num$ = STR$(num)
209.             buttonx = 275: buttony = 350
210.             GOSUB press:
211.             GOSUB number:
212.         END IF
213.  
214.         'Square Root
215.         IF mouseX > 50 AND mouseX < 125 AND mouseY > 75 AND mouseY < 130 THEN
216.             IF num < 0 THEN GOTO skip1:
217.             num = VAL(num$)
218.             num = SQR(num)
219.             num$ = STR$(num)
220.             skip1:
221.             buttonx = 50: buttony = 75
222.             GOSUB press:
223.             GOSUB number:
224.         END IF
225.  
226.         'Sine
227.         IF mouseX > 126 AND mouseX < 200 AND mouseY > 75 AND mouseY < 130 THEN
228.             IF deg = 1 THEN num = SIN(_D2R(VAL(num$)))
229.             IF deg = 0 THEN num = SIN(num)
230.             num$ = STR$(num)
231.             buttonx = 126: buttony = 75
232.             GOSUB press:
233.             GOSUB number:
234.         END IF
235.  
236.         'Cosine
237.         IF mouseX > 200 AND mouseX < 275 AND mouseY > 75 AND mouseY < 130 THEN
238.             IF deg = 1 THEN num = COS(_D2R(VAL(num$)))
239.             IF deg = 0 THEN num = COS(num)
240.             num$ = STR$(num)
241.             buttonx = 200: buttony = 75
242.             GOSUB press:
243.             GOSUB number:
244.         END IF
245.  
246.         'Tangent
247.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 75 AND mouseY < 130 THEN
248.             IF deg = 1 THEN num = TAN(_D2R(VAL(num$)))
249.             IF deg = 0 THEN num = TAN(num)
250.             num$ = STR$(num)
251.             buttonx = 275: buttony = 75
252.             GOSUB press:
253.             GOSUB number:
254.         END IF
255.  
256.         IF mouseX > 50 AND mouseX < 125 AND mouseY > 130 AND mouseY < 185 THEN
257.             num$ = num$ + "7"
258.             IF n = 1 THEN num$ = "-" + num$: n = 0
259.             buttonx = 50: buttony = 130
260.             GOSUB press:
261.             GOSUB number:
262.         END IF
263.         IF mouseX > 126 AND mouseX < 200 AND mouseY > 130 AND mouseY < 185 THEN
264.             num$ = num$ + "8"
265.             IF n = 1 THEN num$ = "-" + num$: n = 0
266.             buttonx = 126: buttony = 130
267.             GOSUB press:
268.             GOSUB number:
269.         END IF
270.         IF mouseX > 200 AND mouseX < 275 AND mouseY > 130 AND mouseY < 185 THEN
271.             num$ = num$ + "9"
272.             IF n = 1 THEN num$ = "-" + num$: n = 0
273.             buttonx = 200: buttony = 130
274.             GOSUB press:
275.             GOSUB number:
276.         END IF
277.         IF mouseX > 50 AND mouseX < 125 AND mouseY > 185 AND mouseY < 240 THEN
278.             num$ = num$ + "4"
279.             IF n = 1 THEN num$ = "-" + num$: n = 0
280.             buttonx = 50: buttony = 185
281.             GOSUB press:
282.             GOSUB number:
283.         END IF
284.         IF mouseX > 126 AND mouseX < 200 AND mouseY > 185 AND mouseY < 240 THEN
285.             num$ = num$ + "5"
286.             IF n = 1 THEN num$ = "-" + num$: n = 0
287.             buttonx = 126: buttony = 185
288.             GOSUB press:
289.             GOSUB number:
290.         END IF
291.         IF mouseX > 200 AND mouseX < 275 AND mouseY > 185 AND mouseY < 240 THEN
292.             num$ = num$ + "6"
293.             IF n = 1 THEN num$ = "-" + num$: n = 0
294.             buttonx = 200: buttony = 185
295.             GOSUB press:
296.             GOSUB number:
297.         END IF
298.         IF mouseX > 50 AND mouseX < 125 AND mouseY > 240 AND mouseY < 295 THEN
299.             num$ = num$ + "1"
300.             IF n = 1 THEN num$ = "-" + num$: n = 0
301.             buttonx = 50: buttony = 240
302.             GOSUB press:
303.             GOSUB number:
304.         END IF
305.         IF mouseX > 126 AND mouseX < 200 AND mouseY > 240 AND mouseY < 295 THEN
306.             num$ = num$ + "2"
307.             IF n = 1 THEN num$ = "-" + num$: n = 0
308.             buttonx = 126: buttony = 240
309.             GOSUB press:
310.             GOSUB number:
311.         END IF
312.         IF mouseX > 200 AND mouseX < 275 AND mouseY > 240 AND mouseY < 295 THEN
313.             num$ = num$ + "3"
314.             IF n = 1 THEN num$ = "-" + num$: n = 0
315.             buttonx = 200: buttony = 240
316.             GOSUB press:
317.             GOSUB number:
318.         END IF
319.         IF mouseX > 50 AND mouseX < 125 AND mouseY > 295 AND mouseY < 350 THEN
320.             num$ = num$ + "0"
321.             IF n = 1 THEN num$ = "-" + num$: n = 0
322.             buttonx = 50: buttony = 295
323.             GOSUB press:
324.             GOSUB number:
325.         END IF
326.  
327.         'Decimal
328.         IF mouseX > 126 AND mouseX < 200 AND mouseY > 295 AND mouseY < 350 THEN
329.             buttonx = 126: buttony = 295
330.             FOR check = 1 TO LEN(num$)
331.                 IF MID$(num$, check, 1) = "." THEN GOTO skipdec:
332.             NEXT check
333.             num$ = num$ + "."
334.             _PRINTSTRING (55, 30), num$
335.             skipdec:
336.             GOSUB press:
337.         END IF
338.  
339.         'Equals
340.         IF mouseX > 200 AND mouseX < 275 AND mouseY > 295 AND mouseY < 350 THEN
341.             IF a = 1 THEN num = VAL(oldnum$) + VAL(num$): a = 0
342.             IF s = 1 THEN num = VAL(oldnum$) - VAL(num$): s = 0
343.             IF t = 1 THEN num = VAL(oldnum$) * VAL(num$): t = 0
344.             IF d = 1 THEN num = VAL(oldnum$) / VAL(num$): d = 0
345.             IF ee = 1 THEN num = VAL(oldnum$) ^ VAL(num$): ee = 0
346.             buttonx = 200: buttony = 295
347.             GOSUB press:
348.             GOSUB number2:
349.         END IF
350.  
351.         'Add
352.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 295 AND mouseY < 350 THEN
353.             IF a = 0 THEN
354.                 d = 0: a = 1: s = 0: t = 0: ee = 0
355.                 oldnum$ = num$
356.                 _PRINTSTRING (55, 30), "                          "
357.                 num$ = ""
358.                 GOTO nex4:
359.             END IF
360.             IF a = 1 THEN
361.                 num = VAL(oldnum$) + VAL(num$)
362.                 a = 0
363.             END IF
364.             GOSUB number2:
365.             nex4:
366.             buttonx = 275: buttony = 295
367.             GOSUB press:
368.         END IF
369.  
370.         'Subtract
371.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 240 AND mouseY < 295 THEN
372.             IF s = 0 THEN
373.                 IF num$ = "0" OR num$ = "" OR num = 0 THEN n = 1: GOTO nex3:
374.                 d = 0: a = 0: s = 1: t = 0: ee = 0
375.                 oldnum$ = num$
376.                 _PRINTSTRING (55, 30), "                          "
377.                 num$ = ""
378.                 GOTO nex3:
379.             END IF
380.             IF s = 1 THEN
381.                 num = VAL(oldnum$) - VAL(num$)
382.                 s = 0
383.             END IF
384.             GOSUB number2:
385.             nex3:
386.             buttonx = 275: buttony = 240
387.             GOSUB press:
388.         END IF
389.  
390.         'Multiply
391.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 185 AND mouseY < 240 THEN
392.             IF t = 0 THEN
393.                 d = 0: a = 0: s = 0: t = 1: ee = 0
394.                 oldnum$ = num$
395.                 _PRINTSTRING (55, 30), "                          "
396.                 num$ = ""
397.                 GOTO nex2:
398.             END IF
399.             IF t = 1 THEN
400.                 num = VAL(oldnum$) * VAL(num$)
401.                 t = 0
402.             END IF
403.             GOSUB number2:
404.             nex2:
405.             buttonx = 275: buttony = 185
406.             GOSUB press:
407.         END IF
408.  
409.         'Divide
410.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 130 AND mouseY < 185 THEN
411.             IF d = 0 THEN
412.                 d = 1: a = 0: s = 0: t = 0: ee = 0
413.                 oldnum$ = num$
414.                 _PRINTSTRING (55, 30), "                          "
415.                 num$ = ""
416.                 GOTO nex1:
417.             END IF
418.             IF d = 1 AND num$ <> "" THEN
419.                 num = VAL(oldnum$) / VAL(num$)
420.                 d = 0
421.             END IF
422.             GOSUB number2:
423.             nex1:
424.             buttonx = 275: buttony = 130
425.             GOSUB press:
426.         END IF
427.     END IF
428. LOOP
429. 'For Number Buttons.
430. number:
431. num = VAL(num$)
432.  
433. 'For Math
434. number2:
435. COLOR _RGB32(0, 0, 0), _RGB32(0, 0, 0)
436. _PRINTSTRING (55, 30), "                          "
437. num$ = STR$(num)
438. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
439. _PRINTSTRING (55, 30), num$
440.  
441. RETURN
442.  
443. 'Pressing Each Button
444. press:
445. c = 110
446. FOR bb = 0 TO 10
447.     c = c - 10
448.     LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(100 + c, 100 + c, 100 + c), B
449. NEXT bb
450. _DELAY .25
451. FOR bb = 0 TO 10
452.     c = c + 10
453.     LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(100 + c, 100 + c, 100 + c), B
454. NEXT bb
455. RETURN
456.  
457. 'Pressing the Green C Button.
458. zero:
459. c = 110
460. FOR bb = 0 TO 10
461.     c = c - 10
462.     LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(50, 100 + c, 50), B
463. NEXT bb
464. _DELAY .25
465. FOR bb = 0 TO 10
466.     c = c + 10
467.     LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(50, 100 + c, 50), B
468. NEXT bb
469. RETURN
470.  
471.  
472.  
473.  
474. FUNCTION BASIMAGE1& 'calculatio icon data
475.     v& = _NEWIMAGE(54, 48, 32)
476.     DIM m AS _MEM: m = _MEMIMAGE(v&)
477.     A$ = ""
478.     A$ = A$ + "haIkJ^eBK\557GZJOl02m5YDX5J1A:YC0aGE##Oc?0RUD5A:HDOA=N=2N96`"
479.     A$ = A$ + ";87A#=X?hm4S6=N3_[XV4CRgn4]>co5=SJdI?IR9R7K2lSmNFke\bj?c<[I]"
480.     A$ = A$ + "3QXknHbT9:]dB;Y`kblMd7Tn#B3cF=CZmYb:[Tb<c<Y<b83Ua8c5QJnTNjY["
481.     A$ = A$ + "X[go?_W<f^AbX=I\7O8IGRiA[eSAbZ7[ZZ[nj[?Z`2;DgD#15lTf;ZXRXlc?"
482.     A$ = A$ + "okdUEiL`Q<>Ua]nAb]4c3\?_<S8[;_Z[[4mmQIWMfDNiUg3eeTb\[<1T9\n#"
483.     A$ = A$ + ":\4SR=obhEVAOUX[moCNM[n#j6965KQTImDj:U^BY;mZ[O4j7D>[T3Ukfin\"
484.     A$ = A$ + "eEomg?EB9U`DLa5[#dfRLlm]7mi0PVb:[\R;MmY>o4mUom;D>NbQnn1OoEee"
485.     A$ = A$ + "[kSNee7]lAjKcl=b#03T1o6NcX[Lg:Gjc3mIj[CmEbP_g>jjeLM3Ee5jg0m:"
486.     A$ = A$ + "4DO85DRAaV?IFkER^V#V5TaUnAbU4c3\?WaGln3OT^Jc8gk=gCOLPT=9V7]F"
487.     A$ = A$ + "GRkWOjYWVZYVJ8cV=cSA07;2]l1[okJn=mc6o9IbR9jG=o[4:8V>Lj#EM]jZ"
488.     A$ = A$ + "[B3>hPdHS=6chS?^bX84i3FKTA6Q\Je:3V7;a<F1a2ilJ[]VZj2[=jXSB;_l"
489.     A$ = A$ + "bdNk]7M`17#k_onlX8Dc74S=fH3Jb9WDAGH>\59n?7#<#^RLf[G_JZ[eGOM:"
490.     A$ = A$ + "H`PdeGO=c=gLS#DcW#Q2aJ>JM1KQ37V^mfKe5ARKTSAlA^VBGYdE:Mmg]^6H"
491.     A$ = A$ + "P1X012lRZ;\o\>k\CZWNjQjZ[^hl\nj[WkCIXQ6RlkgOL[[;_lBnk7onLK^i"
492.     A$ = A$ + "VD]eF;eJ[]B]dB;D5ED1O^9;MeNk]CmfK_T=KfX>jX3Zk^kVeDS=f8EGMeAW"
493.     A$ = A$ + "NjY?k[GUFJY\N#O:8VEGMeDIUE6IaRUTV^P]S>j8>o?olcY3?l#nN6TWhh[^"
494.     A$ = A$ + "jZW]^>iTChc3SPc>k<VkO_`o7On:IFgh]FOD_EkkMa5GTOn<JJ^iV5RFnPeA"
495.     A$ = A$ + "]5#\4?m2RYCW>EEG[\b:LmKD_;2AZo92]l1_GX]fJS1ce:Nj5TcNlhAhcGhn"
496.     A$ = A$ + "TiVK>Fo^LiBID4RlIQ5FPVHR9D^?4cQ=]RI\2bETcaBM3<jcW?jR;^P1e65Q"
497.     A$ = A$ + "JnPJck^k^?Z^1\Qed:^J1ba8ilOceiQ_hLR>>RnnN:k8gCTj:JBY[Dj2m5^m"
498.     A$ = A$ + "fKcnnFBGc>k\DiUG>_?UMfIWTR^>nhSiL1m<mBY;DSMZYVRZZZZX]fJ[4^^P"
499.     A$ = A$ + "?XoXIVIVGd[GH_3hMR3?l`lnCBdjJniWWO?WXW_CEgh^gMSn1`i1#>82el1e"
500.     A$ = A$ + "FD[O3\VFaE;#>RL=Fd5je2g3\dB;A^MkFID4Rl1m>j`Q35MQi`VFa<F1iZFm"
501.     A$ = A$ + "7RNRAoff]KG1lOVjn7oDXU?XWKlKS0`L]RWN1i\Xnian_JZYVDf[D4P=AXU?"
502.     A$ = A$ + "Hm6JX1VH9Na3A_o[o3Ph%%L2"
503.     btemp$ = ""
504.     FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
505.         IF INSTR(1, B$, "%") THEN
506.             FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
507.                 IF F$ <> "%" THEN C$ = C$ + F$
508.             NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
509.             IF MID$(B$, j, 1) = "#" THEN
510.         MID$(B$, j) = "@": END IF: NEXT
511.         FOR t% = LEN(B$) TO 1 STEP -1
512.             B& = B& * 64 + ASC(MID$(B$, t%)) - 48
513.             NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
514.             X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
515.     NEXT: btemp$ = btemp$ + X$: NEXT
516.     btemp$ = _INFLATE$(btemp$)
517.     _MEMPUT m, m.OFFSET, btemp$: _MEMFREE m
518.     BASIMAGE1& = _COPYIMAGE(v&): _FREEIMAGE v&
519. END FUNCTION
520.  

[bplus]

Hi Ken,

The trig functions look OK. :)

I thought EXP was e^x, it is with QB64 but on my old calculator 1 EXP 2 = 100 and 1 (e^x) = 2.71... = e , your EXP isn't working either way.

The +- button could work better, if by toggling a minus sign next to number. When I go 12 -+ I get -12 but when I go +- again I get 0 ?

I tried _ICON _DISPLAY (after the calc was drawn before main loop) but the image is too small to make out any detail so your choice to keep Dav's image seems good.

[SierraKen]

Thanks B+, I'll look more into EXP. Also I had no idea about the +/- problem, I'll try to fix that too.

[SierraKen]

I'm at a roadblock with EXP. Everything I try doesn't work and Google has different outputs. I have no idea how to use it. I've tried to look at other websites but they are no help either. Do you think I should just remove LOG and EXP and put something else? I don't even know if it takes 2 numbers or 1. The wiki site says one but it also says it's the natural version. I use base 10 on my Log, which is different. Google uses 2 numbers and the wiki site just 1.

[SierraKen]

But I did fix the +/- problem, which was fairly easy to fix.

[bplus]

Hi Ken,

For EXP just use QB64 EXP(num$), piece of cake. It just uses 1 number like SIN or LOG.

These are natural logarithms, base e, as opposed to base 10 logarithms

Code: QB64: [Select]

1. PRINT "This is e:"; EXP(1)
2. PRINT "This is e squared:"; EXP(2)
3. ' LOG reverses EXP
4. PRINT LOG(EXP(2))
5. PRINT LOG(EXP(1))
6.  

[SierraKen]

Awesome thanks again! I did it your way and removed the base 10 from the Log and just did num = LOG(VAL(num$)) and also the same thing with EXP with num = EXP(VAL(num$)). I did what you said and they switch back and forth almost perfectly except for like a .00000003 difference, which is no big deal lol. I think I am finished now!
Oh also, in case you missed me saying yesterday, if you left click the output number with your mouse, it copies it to the windows clipboard. :) Check it out :).

Here is the update:

Code: QB64: [Select]

1. 'Calculator
2. 'By SierraKen on July 29, 2020.
3. '------------------------------
4. 'This is my very first regular calculator.
5. 'Thank you to B+ and TempodiBasic for the help and everyone for the inspiration!
6. 'This was a 4 day project and I've wanted to make this all my life. Ever since I was real little
7. 'playing around with my parents' calculator.
8. 'Thank you Dav for the icon code!
9. 'Added Clipboard by clicking the output number.
10. 'Added Rad2Deg (and Deg2Rad), second power, Logarithm, and Pi buttons.
11. 'Added 1/x, x/2, exp, postive or negative.
12.  
13. 'Load the icon - call this somewhere near the top of your program
14. _ICON BASIMAGE1&
15.  
16. _TITLE "Calculator - Click output to copy."
17. DIM num AS DOUBLE
18. SCREEN _NEWIMAGE(400, 500, 32)
19.  
20. 'Setup calculator
21. LINE (50, 25)-(265, 50), _RGB32(255, 255, 255), B
22. LINE (50, 75)-(350, 350), _RGB32(255, 255, 255), B
23. 'Buttons
24. FOR buttony = 75 TO 405 STEP 55
25.     FOR buttonx = 50 TO 275 STEP 75
26.         FOR bb = 0 TO 10
27.             c = c + 10
28.             LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(100 + c, 100 + c, 100 + c), B
29.         NEXT bb
30.         PAINT (buttonx + 12, buttony + 12), _RGB32(100 + c, 100 + c, 100 + c)
31.         c = 0
32.     NEXT buttonx
33. NEXT buttony
34. buttonx = 275: buttony = 20
35. 'Green C Button
36. FOR bb = 0 TO 10
37.     c = c + 10
38.     LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(50, 100 + c, 50), B
39. NEXT bb
40. PAINT (buttonx + 12, buttony + 12), _RGB32(50, 100 + c, 50)
41. COLOR _RGB32(0, 0, 0), _RGB32(50, 100 + c, 50)
42. _PRINTSTRING (50, 5), "Rad"
43.  
44. 'Label Buttons
45. _PRINTSTRING (312, 47), "C"
46. COLOR _RGB32(0, 0, 0), _RGB32(210, 210, 210)
47. _PRINTSTRING (87, 102), CHR$(251) 'square root
48. _PRINTSTRING (152, 102), "sin"
49. _PRINTSTRING (227, 102), "cos"
50. _PRINTSTRING (302, 102), "tan"
51. _PRINTSTRING (87, 157), "7"
52. _PRINTSTRING (162, 157), "8"
53. _PRINTSTRING (237, 157), "9"
54. _PRINTSTRING (312, 157), "/"
55. _PRINTSTRING (87, 212), "4"
56. _PRINTSTRING (162, 212), "5"
57. _PRINTSTRING (237, 212), "6"
58. _PRINTSTRING (312, 212), "x"
59. _PRINTSTRING (87, 267), "1"
60. _PRINTSTRING (162, 267), "2"
61. _PRINTSTRING (237, 267), "3"
62. _PRINTSTRING (312, 267), "-"
63. _PRINTSTRING (87, 322), "0"
64. _PRINTSTRING (162, 322), "."
65. _PRINTSTRING (237, 322), "="
66. _PRINTSTRING (312, 322), "+"
67. _PRINTSTRING (79, 377), "deg"
68. _PRINTSTRING (162, 377), "x" + CHR$(253) 'second power
69. _PRINTSTRING (227, 377), "log"
70. _PRINTSTRING (307, 377), "Pi"
71. _PRINTSTRING (79, 432), "1/x"
72. _PRINTSTRING (152, 432), "x/2"
73. _PRINTSTRING (227, 432), "exp"
74. _PRINTSTRING (312, 432), CHR$(241) 'Postive or Negative
75.  
76. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
77. DO
78.     _LIMIT 20
79.     DO WHILE _MOUSEINPUT
80.         mouseX = _MOUSEX
81.         mouseY = _MOUSEY
82.         mouseLeftButton = _MOUSEBUTTON(1)
83.     LOOP
84.     IF mouseLeftButton THEN
85.         mouseLeftButton = 0
86.  
87.         'Clipboard
88.         IF mouseX > 50 AND mouseX < 265 AND mouseY > 25 AND mouseY < 50 THEN
89.             COLOR _RGB32(0, 255, 0), _RGB32(0, 0, 0)
90.             _PRINTSTRING (55, 30), num$
91.             _DELAY 1
92.             num2$ = _TRIM$(num$)
93.             _CLIPBOARD$ = num2$
94.             COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
95.             _PRINTSTRING (55, 30), num$
96.         END IF
97.  
98.         'Clear
99.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 20 AND mouseY < 75 THEN
100.             a = 0: s = 0: t = 0: d = 0: num$ = ""
101.             _PRINTSTRING (55, 30), "                          "
102.             buttonx = 275: buttony = 20
103.             GOSUB zero:
104.         END IF
105.  
106.         '1/x
107.         IF mouseX > 50 AND mouseX < 125 AND mouseY > 405 AND mouseY < 460 THEN
108.             num = VAL(num$)
109.             IF num = 0 THEN GOTO skipthis:
110.             num = 1 / num
111.             num$ = STR$(num)
112.             skipthis:
113.             buttonx = 50: buttony = 405
114.             GOSUB press:
115.             GOSUB number:
116.         END IF
117.  
118.         'x/2
119.         IF mouseX > 126 AND mouseX < 200 AND mouseY > 405 AND mouseY < 460 THEN
120.             num = VAL(num$)
121.             num = num / 2
122.             num$ = STR$(num)
123.             buttonx = 126: buttony = 405
124.             GOSUB press:
125.             GOSUB number2:
126.         END IF
127.  
128.         'EXP
129.         IF mouseX > 200 AND mouseX < 275 AND mouseY > 405 AND mouseY < 460 THEN
130.             _PRINTSTRING (55, 30), "                          "
131.             num = EXP(VAL(num$))
132.             num$ = STR$(num)
133.             buttonx = 200: buttony = 405
134.             GOSUB number2:
135.             GOSUB press:
136.         END IF
137.  
138.         'Postive or Negative
139.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 405 AND mouseY < 460 THEN
140.             IF VAL(num$) < 0 THEN
141.                 num = -VAL(num$)
142.                 num$ = STR$(num)
143.                 GOTO skipplusnegative:
144.             END IF
145.             num$ = "-" + num$
146.             skipplusnegative:
147.             buttonx = 275: buttony = 405
148.             GOSUB press:
149.             GOSUB number:
150.         END IF
151.  
152.         'Radians and Degrees
153.         IF mouseX > 50 AND mouseX < 125 AND mouseY > 350 AND mouseY < 405 THEN
154.             deg = deg + 1
155.             IF deg = 2 THEN GOTO deg2rad:
156.             COLOR _RGB32(0, 0, 0), _RGB32(210, 210, 210)
157.             _PRINTSTRING (79, 377), "rad"
158.             COLOR _RGB32(0, 0, 0), _RGB32(50, 100 + c, 50)
159.             _PRINTSTRING (50, 5), "Deg"
160.             num = VAL(num$)
161.             num = _R2D(num)
162.             num$ = STR$(num)
163.             GOTO skipdeg2rad:
164.             deg2rad:
165.             deg = 0
166.             COLOR _RGB32(0, 0, 0), _RGB32(210, 210, 210)
167.             _PRINTSTRING (79, 377), "deg"
168.             COLOR _RGB32(0, 0, 0), _RGB32(50, 100 + c, 50)
169.             _PRINTSTRING (50, 5), "Rad"
170.             num = VAL(num$)
171.             num = _D2R(num)
172.             num$ = STR$(num)
173.             skipdeg2rad:
174.             buttonx = 50: buttony = 350
175.             GOSUB press:
176.             GOSUB number:
177.         END IF
178.  
179.         'Second Power
180.         IF mouseX > 126 AND mouseX < 200 AND mouseY > 350 AND mouseY < 405 THEN
181.             num = VAL(num$)
182.             num = num ^ 2
183.             num$ = STR$(num)
184.             buttonx = 126: buttony = 350
185.             GOSUB press:
186.             GOSUB number:
187.         END IF
188.  
189.         'logarithm
190.         IF mouseX > 200 AND mouseX < 275 AND mouseY > 350 AND mouseY < 405 THEN
191.             num = VAL(num$)
192.             IF num = 0 THEN GOTO skiplog:
193.             IF num < 0 THEN GOTO skiplog:
194.             num = LOG(num)
195.             num$ = STR$(num)
196.             skiplog:
197.             buttonx = 200: buttony = 350
198.             GOSUB press:
199.             GOSUB number:
200.         END IF
201.  
202.         'Pi
203.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 350 AND mouseY < 405 THEN
204.             num = _PI
205.             num$ = STR$(num)
206.             buttonx = 275: buttony = 350
207.             GOSUB press:
208.             GOSUB number:
209.         END IF
210.  
211.         'Square Root
212.         IF mouseX > 50 AND mouseX < 125 AND mouseY > 75 AND mouseY < 130 THEN
213.             IF num < 0 THEN GOTO skip1:
214.             num = VAL(num$)
215.             num = SQR(num)
216.             num$ = STR$(num)
217.             skip1:
218.             buttonx = 50: buttony = 75
219.             GOSUB press:
220.             GOSUB number:
221.         END IF
222.  
223.         'Sine
224.         IF mouseX > 126 AND mouseX < 200 AND mouseY > 75 AND mouseY < 130 THEN
225.             IF deg = 1 THEN num = SIN(_D2R(VAL(num$)))
226.             IF deg = 0 THEN num = SIN(num)
227.             num$ = STR$(num)
228.             buttonx = 126: buttony = 75
229.             GOSUB press:
230.             GOSUB number:
231.         END IF
232.  
233.         'Cosine
234.         IF mouseX > 200 AND mouseX < 275 AND mouseY > 75 AND mouseY < 130 THEN
235.             IF deg = 1 THEN num = COS(_D2R(VAL(num$)))
236.             IF deg = 0 THEN num = COS(num)
237.             num$ = STR$(num)
238.             buttonx = 200: buttony = 75
239.             GOSUB press:
240.             GOSUB number:
241.         END IF
242.  
243.         'Tangent
244.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 75 AND mouseY < 130 THEN
245.             IF deg = 1 THEN num = TAN(_D2R(VAL(num$)))
246.             IF deg = 0 THEN num = TAN(num)
247.             num$ = STR$(num)
248.             buttonx = 275: buttony = 75
249.             GOSUB press:
250.             GOSUB number:
251.         END IF
252.  
253.         'Number Buttons
254.         IF mouseX > 50 AND mouseX < 125 AND mouseY > 130 AND mouseY < 185 THEN
255.             num$ = num$ + "7"
256.             IF n = 1 THEN num$ = "-" + num$: n = 0
257.             buttonx = 50: buttony = 130
258.             GOSUB press:
259.             GOSUB number:
260.         END IF
261.         IF mouseX > 126 AND mouseX < 200 AND mouseY > 130 AND mouseY < 185 THEN
262.             num$ = num$ + "8"
263.             IF n = 1 THEN num$ = "-" + num$: n = 0
264.             buttonx = 126: buttony = 130
265.             GOSUB press:
266.             GOSUB number:
267.         END IF
268.         IF mouseX > 200 AND mouseX < 275 AND mouseY > 130 AND mouseY < 185 THEN
269.             num$ = num$ + "9"
270.             IF n = 1 THEN num$ = "-" + num$: n = 0
271.             buttonx = 200: buttony = 130
272.             GOSUB press:
273.             GOSUB number:
274.         END IF
275.         IF mouseX > 50 AND mouseX < 125 AND mouseY > 185 AND mouseY < 240 THEN
276.             num$ = num$ + "4"
277.             IF n = 1 THEN num$ = "-" + num$: n = 0
278.             buttonx = 50: buttony = 185
279.             GOSUB press:
280.             GOSUB number:
281.         END IF
282.         IF mouseX > 126 AND mouseX < 200 AND mouseY > 185 AND mouseY < 240 THEN
283.             num$ = num$ + "5"
284.             IF n = 1 THEN num$ = "-" + num$: n = 0
285.             buttonx = 126: buttony = 185
286.             GOSUB press:
287.             GOSUB number:
288.         END IF
289.         IF mouseX > 200 AND mouseX < 275 AND mouseY > 185 AND mouseY < 240 THEN
290.             num$ = num$ + "6"
291.             IF n = 1 THEN num$ = "-" + num$: n = 0
292.             buttonx = 200: buttony = 185
293.             GOSUB press:
294.             GOSUB number:
295.         END IF
296.         IF mouseX > 50 AND mouseX < 125 AND mouseY > 240 AND mouseY < 295 THEN
297.             num$ = num$ + "1"
298.             IF n = 1 THEN num$ = "-" + num$: n = 0
299.             buttonx = 50: buttony = 240
300.             GOSUB press:
301.             GOSUB number:
302.         END IF
303.         IF mouseX > 126 AND mouseX < 200 AND mouseY > 240 AND mouseY < 295 THEN
304.             num$ = num$ + "2"
305.             IF n = 1 THEN num$ = "-" + num$: n = 0
306.             buttonx = 126: buttony = 240
307.             GOSUB press:
308.             GOSUB number:
309.         END IF
310.         IF mouseX > 200 AND mouseX < 275 AND mouseY > 240 AND mouseY < 295 THEN
311.             num$ = num$ + "3"
312.             IF n = 1 THEN num$ = "-" + num$: n = 0
313.             buttonx = 200: buttony = 240
314.             GOSUB press:
315.             GOSUB number:
316.         END IF
317.         IF mouseX > 50 AND mouseX < 125 AND mouseY > 295 AND mouseY < 350 THEN
318.             num$ = num$ + "0"
319.             IF n = 1 THEN num$ = "-" + num$: n = 0
320.             buttonx = 50: buttony = 295
321.             GOSUB press:
322.             GOSUB number:
323.         END IF
324.  
325.         'Decimal
326.         IF mouseX > 126 AND mouseX < 200 AND mouseY > 295 AND mouseY < 350 THEN
327.             buttonx = 126: buttony = 295
328.             FOR check = 1 TO LEN(num$)
329.                 IF MID$(num$, check, 1) = "." THEN GOTO skipdec:
330.             NEXT check
331.             num$ = num$ + "."
332.             _PRINTSTRING (55, 30), num$
333.             skipdec:
334.             GOSUB press:
335.         END IF
336.  
337.         'Equals
338.         IF mouseX > 200 AND mouseX < 275 AND mouseY > 295 AND mouseY < 350 THEN
339.             IF a = 1 THEN num = VAL(oldnum$) + VAL(num$): a = 0
340.             IF s = 1 THEN num = VAL(oldnum$) - VAL(num$): s = 0
341.             IF t = 1 THEN num = VAL(oldnum$) * VAL(num$): t = 0
342.             IF d = 1 THEN num = VAL(oldnum$) / VAL(num$): d = 0
343.             buttonx = 200: buttony = 295
344.             GOSUB press:
345.             GOSUB number2:
346.         END IF
347.  
348.         'Add
349.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 295 AND mouseY < 350 THEN
350.             IF a = 0 THEN
351.                 d = 0: a = 1: s = 0: t = 0
352.                 oldnum$ = num$
353.                 _PRINTSTRING (55, 30), "                          "
354.                 num$ = ""
355.                 GOTO nex4:
356.             END IF
357.             IF a = 1 THEN
358.                 num = VAL(oldnum$) + VAL(num$)
359.                 a = 0
360.             END IF
361.             GOSUB number2:
362.             nex4:
363.             buttonx = 275: buttony = 295
364.             GOSUB press:
365.         END IF
366.  
367.         'Subtract
368.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 240 AND mouseY < 295 THEN
369.             IF s = 0 THEN
370.                 IF num$ = "0" OR num$ = "" OR num = 0 THEN n = 1: GOTO nex3:
371.                 d = 0: a = 0: s = 1: t = 0
372.                 oldnum$ = num$
373.                 _PRINTSTRING (55, 30), "                          "
374.                 num$ = ""
375.                 GOTO nex3:
376.             END IF
377.             IF s = 1 THEN
378.                 num = VAL(oldnum$) - VAL(num$)
379.                 s = 0
380.             END IF
381.             GOSUB number2:
382.             nex3:
383.             buttonx = 275: buttony = 240
384.             GOSUB press:
385.         END IF
386.  
387.         'Multiply
388.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 185 AND mouseY < 240 THEN
389.             IF t = 0 THEN
390.                 d = 0: a = 0: s = 0: t = 1
391.                 oldnum$ = num$
392.                 _PRINTSTRING (55, 30), "                          "
393.                 num$ = ""
394.                 GOTO nex2:
395.             END IF
396.             IF t = 1 THEN
397.                 num = VAL(oldnum$) * VAL(num$)
398.                 t = 0
399.             END IF
400.             GOSUB number2:
401.             nex2:
402.             buttonx = 275: buttony = 185
403.             GOSUB press:
404.         END IF
405.  
406.         'Divide
407.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 130 AND mouseY < 185 THEN
408.             IF d = 0 THEN
409.                 d = 1: a = 0: s = 0: t = 0
410.                 oldnum$ = num$
411.                 _PRINTSTRING (55, 30), "                          "
412.                 num$ = ""
413.                 GOTO nex1:
414.             END IF
415.             IF d = 1 AND num$ <> "" THEN
416.                 num = VAL(oldnum$) / VAL(num$)
417.                 d = 0
418.             END IF
419.             GOSUB number2:
420.             nex1:
421.             buttonx = 275: buttony = 130
422.             GOSUB press:
423.         END IF
424.     END IF
425. LOOP
426. 'For Number Buttons.
427. number:
428. num = VAL(num$)
429.  
430. 'For Math
431. number2:
432. COLOR _RGB32(0, 0, 0), _RGB32(0, 0, 0)
433. _PRINTSTRING (55, 30), "                          "
434. num$ = STR$(num)
435. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
436. _PRINTSTRING (55, 30), num$
437.  
438. RETURN
439.  
440. 'Pressing Each Button
441. press:
442. c = 110
443. FOR bb = 0 TO 10
444.     c = c - 10
445.     LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(100 + c, 100 + c, 100 + c), B
446. NEXT bb
447. _DELAY .25
448. FOR bb = 0 TO 10
449.     c = c + 10
450.     LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(100 + c, 100 + c, 100 + c), B
451. NEXT bb
452. RETURN
453.  
454. 'Pressing the Green C Button.
455. zero:
456. c = 110
457. FOR bb = 0 TO 10
458.     c = c - 10
459.     LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(50, 100 + c, 50), B
460. NEXT bb
461. _DELAY .25
462. FOR bb = 0 TO 10
463.     c = c + 10
464.     LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(50, 100 + c, 50), B
465. NEXT bb
466. RETURN
467.  
468. 'This Function is from Dav which makes the icon picture. It uses code at the start of this program.
469. FUNCTION BASIMAGE1& 'calculatio icon data
470.     v& = _NEWIMAGE(54, 48, 32)
471.     DIM m AS _MEM: m = _MEMIMAGE(v&)
472.     A$ = ""
473.     A$ = A$ + "haIkJ^eBK\557GZJOl02m5YDX5J1A:YC0aGE##Oc?0RUD5A:HDOA=N=2N96`"
474.     A$ = A$ + ";87A#=X?hm4S6=N3_[XV4CRgn4]>co5=SJdI?IR9R7K2lSmNFke\bj?c<[I]"
475.     A$ = A$ + "3QXknHbT9:]dB;Y`kblMd7Tn#B3cF=CZmYb:[Tb<c<Y<b83Ua8c5QJnTNjY["
476.     A$ = A$ + "X[go?_W<f^AbX=I\7O8IGRiA[eSAbZ7[ZZ[nj[?Z`2;DgD#15lTf;ZXRXlc?"
477.     A$ = A$ + "okdUEiL`Q<>Ua]nAb]4c3\?_<S8[;_Z[[4mmQIWMfDNiUg3eeTb\[<1T9\n#"
478.     A$ = A$ + ":\4SR=obhEVAOUX[moCNM[n#j6965KQTImDj:U^BY;mZ[O4j7D>[T3Ukfin\"
479.     A$ = A$ + "eEomg?EB9U`DLa5[#dfRLlm]7mi0PVb:[\R;MmY>o4mUom;D>NbQnn1OoEee"
480.     A$ = A$ + "[kSNee7]lAjKcl=b#03T1o6NcX[Lg:Gjc3mIj[CmEbP_g>jjeLM3Ee5jg0m:"
481.     A$ = A$ + "4DO85DRAaV?IFkER^V#V5TaUnAbU4c3\?WaGln3OT^Jc8gk=gCOLPT=9V7]F"
482.     A$ = A$ + "GRkWOjYWVZYVJ8cV=cSA07;2]l1[okJn=mc6o9IbR9jG=o[4:8V>Lj#EM]jZ"
483.     A$ = A$ + "[B3>hPdHS=6chS?^bX84i3FKTA6Q\Je:3V7;a<F1a2ilJ[]VZj2[=jXSB;_l"
484.     A$ = A$ + "bdNk]7M`17#k_onlX8Dc74S=fH3Jb9WDAGH>\59n?7#<#^RLf[G_JZ[eGOM:"
485.     A$ = A$ + "H`PdeGO=c=gLS#DcW#Q2aJ>JM1KQ37V^mfKe5ARKTSAlA^VBGYdE:Mmg]^6H"
486.     A$ = A$ + "P1X012lRZ;\o\>k\CZWNjQjZ[^hl\nj[WkCIXQ6RlkgOL[[;_lBnk7onLK^i"
487.     A$ = A$ + "VD]eF;eJ[]B]dB;D5ED1O^9;MeNk]CmfK_T=KfX>jX3Zk^kVeDS=f8EGMeAW"
488.     A$ = A$ + "NjY?k[GUFJY\N#O:8VEGMeDIUE6IaRUTV^P]S>j8>o?olcY3?l#nN6TWhh[^"
489.     A$ = A$ + "jZW]^>iTChc3SPc>k<VkO_`o7On:IFgh]FOD_EkkMa5GTOn<JJ^iV5RFnPeA"
490.     A$ = A$ + "]5#\4?m2RYCW>EEG[\b:LmKD_;2AZo92]l1_GX]fJS1ce:Nj5TcNlhAhcGhn"
491.     A$ = A$ + "TiVK>Fo^LiBID4RlIQ5FPVHR9D^?4cQ=]RI\2bETcaBM3<jcW?jR;^P1e65Q"
492.     A$ = A$ + "JnPJck^k^?Z^1\Qed:^J1ba8ilOceiQ_hLR>>RnnN:k8gCTj:JBY[Dj2m5^m"
493.     A$ = A$ + "fKcnnFBGc>k\DiUG>_?UMfIWTR^>nhSiL1m<mBY;DSMZYVRZZZZX]fJ[4^^P"
494.     A$ = A$ + "?XoXIVIVGd[GH_3hMR3?l`lnCBdjJniWWO?WXW_CEgh^gMSn1`i1#>82el1e"
495.     A$ = A$ + "FD[O3\VFaE;#>RL=Fd5je2g3\dB;A^MkFID4Rl1m>j`Q35MQi`VFa<F1iZFm"
496.     A$ = A$ + "7RNRAoff]KG1lOVjn7oDXU?XWKlKS0`L]RWN1i\Xnian_JZYVDf[D4P=AXU?"
497.     A$ = A$ + "Hm6JX1VH9Na3A_o[o3Ph%%L2"
498.     btemp$ = ""
499.     FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
500.         IF INSTR(1, B$, "%") THEN
501.             FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
502.                 IF F$ <> "%" THEN C$ = C$ + F$
503.             NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
504.             IF MID$(B$, j, 1) = "#" THEN
505.         MID$(B$, j) = "@": END IF: NEXT
506.         FOR t% = LEN(B$) TO 1 STEP -1
507.             B& = B& * 64 + ASC(MID$(B$, t%)) - 48
508.             NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
509.             X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
510.     NEXT: btemp$ = btemp$ + X$: NEXT
511.     btemp$ = _INFLATE$(btemp$)
512.     _MEMPUT m, m.OFFSET, btemp$: _MEMFREE m
513.     BASIMAGE1& = _COPYIMAGE(v&): _FREEIMAGE v&
514. END FUNCTION
515.  

[bplus]

What is really handy for calculators is an extra Memory key to hold a value and modify it, also this not being a real calculator you could show the previous value and the operation button. In fact, if you aren't a big fan of Ln(x) or e^(x) you might rearrange buttons for extra memory value. Also more handy than Ln and e is X^Y so you could do 2^8 or 3^5...

[SpriggsySpriggs]

That's a good-looking calculator. Works quite well. Have you thought about adding keyboard functionality?