QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on July 28, 2020, 03:17:08 pm

Title: Calculator
Post by: SierraKen on July 28, 2020, 03:17:08 pm

Well, I did it.. lol. It took 3 days and some help from B+ on how to add the decimal point. B+, you were right, I didn't need your Function but what you did teach me is how to keep everything as a string, and that worked out perfectly. Thank you! Tempodibasic, you helped me a lot too in realizing that my "spaghetti code" was causing a lot of frustration so I labeled almost everything in the program and made it a lot easier to understand. I made this second topic because I want people to find the calculator easier with the Subject as just "Calculator". I'll put the URL to the topic where you guys helped me below. If for some reason anyone finds an error or problem, please tell me. I've tested it quite a bit but it's possible there are one or more sequences I haven't tested yet. I'll post a picture of it below too. Thanks again! Oh, and OldMoses, I made the buttons 3D like that by using loops while changing the shade color on a bunch of rectangles. You can see it under "Buttons". Thanks again guys, I feel great!

Code: QB64: [Select]

1. 'Calculator
2. 'By SierraKen on July 28, 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 3 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.  
9. _TITLE "Calculator"
10. DIM num AS DOUBLE
11. SCREEN _NEWIMAGE(400, 400, 32)
12. 'Setup calculator
13. LINE (50, 25)-(265, 50), _RGB32(255, 255, 255), B
14. LINE (50, 75)-(350, 350), _RGB32(255, 255, 255), B
15. 'Buttons
16. FOR buttony = 75 TO 295 STEP 55
17.     FOR buttonx = 50 TO 275 STEP 75
18.         FOR bb = 0 TO 10
19.             c = c + 10
20.             LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(100 + c, 100 + c, 100 + c), B
21.         NEXT bb
22.         PAINT (buttonx + 12, buttony + 12), _RGB32(100 + c, 100 + c, 100 + c)
23.         c = 0
24.     NEXT buttonx
25. NEXT buttony
26. buttonx = 275: buttony = 20
27. 'Green C Button
28. FOR bb = 0 TO 10
29.     c = c + 10
30.     LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(50, 100 + c, 50), B
31. NEXT bb
32. PAINT (buttonx + 12, buttony + 12), _RGB32(50, 100 + c, 50)
33. COLOR _RGB32(0, 0, 0), _RGB32(50, 100 + c, 50)
34. c = 0
35. 'Label Buttons
36. _PRINTSTRING (312, 47), "C"
37. COLOR _RGB32(0, 0, 0), _RGB32(210, 210, 210)
38. _PRINTSTRING (87, 102), CHR$(251) 'square root
39. _PRINTSTRING (152, 102), "sin"
40. _PRINTSTRING (227, 102), "cos"
41. _PRINTSTRING (302, 102), "tan"
42. _PRINTSTRING (87, 157), "7"
43. _PRINTSTRING (162, 157), "8"
44. _PRINTSTRING (237, 157), "9"
45. _PRINTSTRING (312, 157), "/"
46. _PRINTSTRING (87, 212), "4"
47. _PRINTSTRING (162, 212), "5"
48. _PRINTSTRING (237, 212), "6"
49. _PRINTSTRING (312, 212), "x"
50. _PRINTSTRING (87, 267), "1"
51. _PRINTSTRING (162, 267), "2"
52. _PRINTSTRING (237, 267), "3"
53. _PRINTSTRING (312, 267), "-"
54. _PRINTSTRING (87, 322), "0"
55. _PRINTSTRING (162, 322), "."
56. _PRINTSTRING (237, 322), "="
57. _PRINTSTRING (312, 322), "+"
58. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
59. DO
60.     _LIMIT 20
61.     DO WHILE _MOUSEINPUT
62.         mouseX = _MOUSEX
63.         mouseY = _MOUSEY
64.         mouseLeftButton = _MOUSEBUTTON(1)
65.     LOOP
66.     IF mouseLeftButton THEN
67.         mouseLeftButton = 0
68.  
69.         'Clear
70.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 20 AND mouseY < 75 THEN
71.             a = 0: s = 0: t = 0: d = 0: num$ = ""
72.             _PRINTSTRING (55, 30), "                          "
73.             buttonx = 275: buttony = 20
74.             GOSUB zero:
75.         END IF
76.  
77.         'Square Root
78.         IF mouseX > 50 AND mouseX < 125 AND mouseY > 75 AND mouseY < 130 THEN
79.             IF num < 0 THEN GOTO skip1:
80.             num = VAL(num$)
81.             num = SQR(num)
82.             num$ = STR$(num)
83.             skip1:
84.             buttonx = 50: buttony = 75
85.             GOSUB press:
86.             GOSUB number:
87.         END IF
88.  
89.         'Sine
90.         IF mouseX > 126 AND mouseX < 200 AND mouseY > 75 AND mouseY < 130 THEN
91.             num = VAL(num$)
92.             num = SIN(num)
93.             num$ = STR$(num)
94.             buttonx = 126: buttony = 75
95.             GOSUB press:
96.             GOSUB number:
97.         END IF
98.  
99.         'Cosine
100.         IF mouseX > 200 AND mouseX < 275 AND mouseY > 75 AND mouseY < 130 THEN
101.             num = VAL(num$)
102.             num = COS(num)
103.             num$ = STR$(num)
104.             buttonx = 200: buttony = 75
105.             GOSUB press:
106.             GOSUB number:
107.         END IF
108.  
109.         'Tangent
110.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 75 AND mouseY < 130 THEN
111.             num = VAL(num$)
112.             num = TAN(num)
113.             num$ = STR$(num)
114.             buttonx = 275: buttony = 75
115.             GOSUB press:
116.             GOSUB number:
117.         END IF
118.  
119.         IF mouseX > 50 AND mouseX < 125 AND mouseY > 130 AND mouseY < 185 THEN
120.             num$ = num$ + "7"
121.             IF n = 1 THEN num$ = "-" + num$: n = 0
122.             buttonx = 50: buttony = 130
123.             GOSUB press:
124.             GOSUB number:
125.         END IF
126.         IF mouseX > 126 AND mouseX < 200 AND mouseY > 130 AND mouseY < 185 THEN
127.             num$ = num$ + "8"
128.             IF n = 1 THEN num$ = "-" + num$: n = 0
129.             buttonx = 126: buttony = 130
130.             GOSUB press:
131.             GOSUB number:
132.         END IF
133.         IF mouseX > 200 AND mouseX < 275 AND mouseY > 130 AND mouseY < 185 THEN
134.             num$ = num$ + "9"
135.             IF n = 1 THEN num$ = "-" + num$: n = 0
136.             buttonx = 200: buttony = 130
137.             GOSUB press:
138.             GOSUB number:
139.         END IF
140.         IF mouseX > 50 AND mouseX < 125 AND mouseY > 185 AND mouseY < 240 THEN
141.             num$ = num$ + "4"
142.             IF n = 1 THEN num$ = "-" + num$: n = 0
143.             buttonx = 50: buttony = 185
144.             GOSUB press:
145.             GOSUB number:
146.         END IF
147.         IF mouseX > 126 AND mouseX < 200 AND mouseY > 185 AND mouseY < 240 THEN
148.             num$ = num$ + "5"
149.             IF n = 1 THEN num$ = "-" + num$: n = 0
150.             buttonx = 126: buttony = 185
151.             GOSUB press:
152.             GOSUB number:
153.         END IF
154.         IF mouseX > 200 AND mouseX < 275 AND mouseY > 185 AND mouseY < 240 THEN
155.             num$ = num$ + "6"
156.             IF n = 1 THEN num$ = "-" + num$: n = 0
157.             buttonx = 200: buttony = 185
158.             GOSUB press:
159.             GOSUB number:
160.         END IF
161.         IF mouseX > 50 AND mouseX < 125 AND mouseY > 240 AND mouseY < 295 THEN
162.             num$ = num$ + "1"
163.             IF n = 1 THEN num$ = "-" + num$: n = 0
164.             buttonx = 50: buttony = 240
165.             GOSUB press:
166.             GOSUB number:
167.         END IF
168.         IF mouseX > 126 AND mouseX < 200 AND mouseY > 240 AND mouseY < 295 THEN
169.             num$ = num$ + "2"
170.             IF n = 1 THEN num$ = "-" + num$: n = 0
171.             buttonx = 126: buttony = 240
172.             GOSUB press:
173.             GOSUB number:
174.         END IF
175.         IF mouseX > 200 AND mouseX < 275 AND mouseY > 240 AND mouseY < 295 THEN
176.             num$ = num$ + "3"
177.             IF n = 1 THEN num$ = "-" + num$: n = 0
178.             buttonx = 200: buttony = 240
179.             GOSUB press:
180.             GOSUB number:
181.         END IF
182.         IF mouseX > 50 AND mouseX < 125 AND mouseY > 295 AND mouseY < 350 THEN
183.             num$ = num$ + "0"
184.             IF n = 1 THEN num$ = "-" + num$: n = 0
185.             buttonx = 50: buttony = 295
186.             GOSUB press:
187.             GOSUB number:
188.         END IF
189.  
190.         'Decimal
191.         IF mouseX > 126 AND mouseX < 200 AND mouseY > 295 AND mouseY < 350 THEN
192.             buttonx = 126: buttony = 295
193.             FOR check = 1 TO LEN(num$)
194.                 IF MID$(num$, check, 1) = "." THEN GOTO skipdec:
195.             NEXT check
196.             num$ = num$ + "."
197.             _PRINTSTRING (55, 30), num$
198.             skipdec:
199.             GOSUB press:
200.         END IF
201.  
202.         'Equals
203.         IF mouseX > 200 AND mouseX < 275 AND mouseY > 295 AND mouseY < 350 THEN
204.             IF a = 1 THEN num = VAL(oldnum$) + VAL(num$): a = 0
205.             IF s = 1 THEN num = VAL(oldnum$) - VAL(num$): s = 0
206.             IF t = 1 THEN num = VAL(oldnum$) * VAL(num$): t = 0
207.             IF d = 1 THEN num = VAL(oldnum$) / VAL(num$): d = 0
208.             buttonx = 200: buttony = 295
209.             GOSUB press:
210.             GOSUB number2:
211.         END IF
212.  
213.         'Add
214.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 295 AND mouseY < 350 THEN
215.             IF a = 0 THEN
216.                 d = 0: a = 1: s = 0: t = 0
217.                 oldnum$ = num$
218.                 calc = 1
219.                 _PRINTSTRING (55, 30), "                          "
220.                 num$ = ""
221.                 GOTO nex4:
222.             END IF
223.             IF a = 1 THEN
224.                 num = VAL(oldnum$) + VAL(num$)
225.                 a = 0
226.             END IF
227.             calc = 0
228.             GOSUB number2:
229.             nex4:
230.             buttonx = 275: buttony = 295
231.             GOSUB press:
232.         END IF
233.  
234.         'Subtract
235.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 240 AND mouseY < 295 THEN
236.             IF s = 0 THEN
237.                 IF num$ = "0" OR num$ = "" OR num = 0 THEN n = 1: GOTO nex3:
238.                 d = 0: a = 0: s = 1: t = 0
239.                 oldnum$ = num$
240.                 calc = 1
241.                 _PRINTSTRING (55, 30), "                          "
242.                 num$ = ""
243.                 GOTO nex3:
244.             END IF
245.             IF s = 1 THEN
246.                 num = VAL(oldnum$) - VAL(num$)
247.                 s = 0
248.             END IF
249.             calc = 0
250.             GOSUB number2:
251.             nex3:
252.             buttonx = 275: buttony = 240
253.             GOSUB press:
254.         END IF
255.  
256.         'Multiply
257.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 185 AND mouseY < 240 THEN
258.             IF t = 0 THEN
259.                 d = 0: a = 0: s = 0: t = 1
260.                 oldnum$ = num$
261.                 calc = 1
262.                 _PRINTSTRING (55, 30), "                          "
263.                 num$ = ""
264.                 GOTO nex2:
265.             END IF
266.             IF t = 1 THEN
267.                 num = VAL(oldnum$) * VAL(num$)
268.                 t = 0
269.             END IF
270.             calc = 0
271.             GOSUB number2:
272.             nex2:
273.             buttonx = 275: buttony = 185
274.             GOSUB press:
275.         END IF
276.  
277.         'Divide
278.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 130 AND mouseY < 185 THEN
279.             IF d = 0 THEN
280.                 d = 1: a = 0: s = 0: t = 0
281.                 oldnum$ = num$
282.                 calc = 1
283.                 _PRINTSTRING (55, 30), "                          "
284.                 num$ = ""
285.                 GOTO nex1:
286.             END IF
287.             IF d = 1 AND num$ <> "" THEN
288.                 num = VAL(oldnum$) / VAL(num$)
289.                 d = 0
290.             END IF
291.             calc = 0
292.             GOSUB number2:
293.             nex1:
294.             buttonx = 275: buttony = 130
295.             GOSUB press:
296.         END IF
297.     END IF
298. LOOP
299. 'For Number Buttons.
300. number:
301. num = VAL(num$)
302.  
303. 'For Math
304. number2:
305. _PRINTSTRING (55, 30), "                          "
306. num$ = STR$(num)
307. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
308. _PRINTSTRING (55, 30), num$
309.  
310. RETURN
311.  
312. 'Pressing Each Button
313. press:
314. c = 110
315. FOR bb = 0 TO 10
316.     c = c - 10
317.     LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(100 + c, 100 + c, 100 + c), B
318. NEXT bb
319. _DELAY .25
320. FOR bb = 0 TO 10
321.     c = c + 10
322.     LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(100 + c, 100 + c, 100 + c), B
323. NEXT bb
324. RETURN
325.  
326. 'Pressing the Green C Button.
327. zero:
328. c = 110
329. FOR bb = 0 TO 10
330.     c = c - 10
331.     LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(50, 100 + c, 50), B
332. NEXT bb
333. _DELAY .25
334. FOR bb = 0 TO 10
335.     c = c + 10
336.     LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(50, 100 + c, 50), B
337. NEXT bb
338. RETURN
339.  

Here is the forum topic of you guys helping me: https://www.qb64.org/forum/index.php?topic=2862.new (https://www.qb64.org/forum/index.php?topic=2862.new)

Title: Re: Calculator
Post by: SpriggsySpriggs on July 28, 2020, 04:00:21 pm

That looks quite good. I'll have to try it out

Title: Re: Calculator
Post by: Dav on July 28, 2020, 04:57:52 pm

Nicely done, Ken!  Works so good it almost made me cry (because I used it to calculate my income for the month).  I plan to keep this in my QB64 folder for quick calculations, so I made a quick icon for it and put it in the code.  Here that is if you would like it.  Just add it in the code (no external .ico needed)

- Dav

Code: QB64: [Select]

1. 'Load the icon - call this somewhere near the top of your program
2. _ICON BASIMAGE1&
3.  
4.  
5. FUNCTION BASIMAGE1& 'calculatio icon data
6.     v& = _NEWIMAGE(54, 48, 32)
7.     DIM m AS _MEM: m = _MEMIMAGE(v&)
8.     A$ = ""
9.     A$ = A$ + "haIkJ^eBK\557GZJOl02m5YDX5J1A:YC0aGE##Oc?0RUD5A:HDOA=N=2N96`"
10.     A$ = A$ + ";87A#=X?hm4S6=N3_[XV4CRgn4]>co5=SJdI?IR9R7K2lSmNFke\bj?c<[I]"
11.     A$ = A$ + "3QXknHbT9:]dB;Y`kblMd7Tn#B3cF=CZmYb:[Tb<c<Y<b83Ua8c5QJnTNjY["
12.     A$ = A$ + "X[go?_W<f^AbX=I\7O8IGRiA[eSAbZ7[ZZ[nj[?Z`2;DgD#15lTf;ZXRXlc?"
13.     A$ = A$ + "okdUEiL`Q<>Ua]nAb]4c3\?_<S8[;_Z[[4mmQIWMfDNiUg3eeTb\[<1T9\n#"
14.     A$ = A$ + ":\4SR=obhEVAOUX[moCNM[n#j6965KQTImDj:U^BY;mZ[O4j7D>[T3Ukfin\"
15.     A$ = A$ + "eEomg?EB9U`DLa5[#dfRLlm]7mi0PVb:[\R;MmY>o4mUom;D>NbQnn1OoEee"
16.     A$ = A$ + "[kSNee7]lAjKcl=b#03T1o6NcX[Lg:Gjc3mIj[CmEbP_g>jjeLM3Ee5jg0m:"
17.     A$ = A$ + "4DO85DRAaV?IFkER^V#V5TaUnAbU4c3\?WaGln3OT^Jc8gk=gCOLPT=9V7]F"
18.     A$ = A$ + "GRkWOjYWVZYVJ8cV=cSA07;2]l1[okJn=mc6o9IbR9jG=o[4:8V>Lj#EM]jZ"
19.     A$ = A$ + "[B3>hPdHS=6chS?^bX84i3FKTA6Q\Je:3V7;a<F1a2ilJ[]VZj2[=jXSB;_l"
20.     A$ = A$ + "bdNk]7M`17#k_onlX8Dc74S=fH3Jb9WDAGH>\59n?7#<#^RLf[G_JZ[eGOM:"
21.     A$ = A$ + "H`PdeGO=c=gLS#DcW#Q2aJ>JM1KQ37V^mfKe5ARKTSAlA^VBGYdE:Mmg]^6H"
22.     A$ = A$ + "P1X012lRZ;\o\>k\CZWNjQjZ[^hl\nj[WkCIXQ6RlkgOL[[;_lBnk7onLK^i"
23.     A$ = A$ + "VD]eF;eJ[]B]dB;D5ED1O^9;MeNk]CmfK_T=KfX>jX3Zk^kVeDS=f8EGMeAW"
24.     A$ = A$ + "NjY?k[GUFJY\N#O:8VEGMeDIUE6IaRUTV^P]S>j8>o?olcY3?l#nN6TWhh[^"
25.     A$ = A$ + "jZW]^>iTChc3SPc>k<VkO_`o7On:IFgh]FOD_EkkMa5GTOn<JJ^iV5RFnPeA"
26.     A$ = A$ + "]5#\4?m2RYCW>EEG[\b:LmKD_;2AZo92]l1_GX]fJS1ce:Nj5TcNlhAhcGhn"
27.     A$ = A$ + "TiVK>Fo^LiBID4RlIQ5FPVHR9D^?4cQ=]RI\2bETcaBM3<jcW?jR;^P1e65Q"
28.     A$ = A$ + "JnPJck^k^?Z^1\Qed:^J1ba8ilOceiQ_hLR>>RnnN:k8gCTj:JBY[Dj2m5^m"
29.     A$ = A$ + "fKcnnFBGc>k\DiUG>_?UMfIWTR^>nhSiL1m<mBY;DSMZYVRZZZZX]fJ[4^^P"
30.     A$ = A$ + "?XoXIVIVGd[GH_3hMR3?l`lnCBdjJniWWO?WXW_CEgh^gMSn1`i1#>82el1e"
31.     A$ = A$ + "FD[O3\VFaE;#>RL=Fd5je2g3\dB;A^MkFID4Rl1m>j`Q35MQi`VFa<F1iZFm"
32.     A$ = A$ + "7RNRAoff]KG1lOVjn7oDXU?XWKlKS0`L]RWN1i\Xnian_JZYVDf[D4P=AXU?"
33.     A$ = A$ + "Hm6JX1VH9Na3A_o[o3Ph%%L2"
34.     btemp$ = ""
35.     FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
36.         IF INSTR(1, B$, "%") THEN
37.             FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
38.                 IF F$ <> "%" THEN C$ = C$ + F$
39.             NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
40.             IF MID$(B$, j, 1) = "#" THEN
41.         MID$(B$, j) = "@": END IF: NEXT
42.         FOR t% = LEN(B$) TO 1 STEP -1
43.             B& = B& * 64 + ASC(MID$(B$, t%)) - 48
44.             NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
45.             X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
46.     NEXT: btemp$ = btemp$ + X$: NEXT
47.     btemp$ = _INFLATE$(btemp$)
48.     _MEMPUT m, m.OFFSET, btemp$: _MEMFREE m
49.     BASIMAGE1& = _COPYIMAGE(v&): _FREEIMAGE v&
50. END FUNCTION
51.  

Title: Re: Calculator
Post by: FellippeHeitor on July 28, 2020, 05:03:06 pm

Cool buttons, Ken!

Title: Re: Calculator
Post by: SierraKen on July 28, 2020, 08:34:04 pm

Thanks Dav! I just added it and will put the updated version below with that code. I guess it's only supposed to show up on the program itself when running right? Not as a Windows icon for stuff like Windows Shortcuts? But it's still really cool, thank you! I usually use the yellow star icon for my own programs for their Windows shortcuts anyway.

Thank you Felippe! The buttons came out better than I expected. :)

Code: QB64: [Select]

1. 'Calculator
2. 'By SierraKen on July 28, 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 3 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.  
10. 'Load the icon - call this somewhere near the top of your program
11. _ICON BASIMAGE1&
12.  
13. _TITLE "Calculator"
14. DIM num AS DOUBLE
15. SCREEN _NEWIMAGE(400, 400, 32)
16.  
17. 'Setup calculator
18. LINE (50, 25)-(265, 50), _RGB32(255, 255, 255), B
19. LINE (50, 75)-(350, 350), _RGB32(255, 255, 255), B
20. 'Buttons
21. FOR buttony = 75 TO 295 STEP 55
22.     FOR buttonx = 50 TO 275 STEP 75
23.         FOR bb = 0 TO 10
24.             c = c + 10
25.             LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(100 + c, 100 + c, 100 + c), B
26.         NEXT bb
27.         PAINT (buttonx + 12, buttony + 12), _RGB32(100 + c, 100 + c, 100 + c)
28.         c = 0
29.     NEXT buttonx
30. NEXT buttony
31. buttonx = 275: buttony = 20
32. 'Green C Button
33. FOR bb = 0 TO 10
34.     c = c + 10
35.     LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(50, 100 + c, 50), B
36. NEXT bb
37. PAINT (buttonx + 12, buttony + 12), _RGB32(50, 100 + c, 50)
38. COLOR _RGB32(0, 0, 0), _RGB32(50, 100 + c, 50)
39. c = 0
40. 'Label Buttons
41. _PRINTSTRING (312, 47), "C"
42. COLOR _RGB32(0, 0, 0), _RGB32(210, 210, 210)
43. _PRINTSTRING (87, 102), CHR$(251) 'square root
44. _PRINTSTRING (152, 102), "sin"
45. _PRINTSTRING (227, 102), "cos"
46. _PRINTSTRING (302, 102), "tan"
47. _PRINTSTRING (87, 157), "7"
48. _PRINTSTRING (162, 157), "8"
49. _PRINTSTRING (237, 157), "9"
50. _PRINTSTRING (312, 157), "/"
51. _PRINTSTRING (87, 212), "4"
52. _PRINTSTRING (162, 212), "5"
53. _PRINTSTRING (237, 212), "6"
54. _PRINTSTRING (312, 212), "x"
55. _PRINTSTRING (87, 267), "1"
56. _PRINTSTRING (162, 267), "2"
57. _PRINTSTRING (237, 267), "3"
58. _PRINTSTRING (312, 267), "-"
59. _PRINTSTRING (87, 322), "0"
60. _PRINTSTRING (162, 322), "."
61. _PRINTSTRING (237, 322), "="
62. _PRINTSTRING (312, 322), "+"
63. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
64. DO
65.     _LIMIT 20
66.     DO WHILE _MOUSEINPUT
67.         mouseX = _MOUSEX
68.         mouseY = _MOUSEY
69.         mouseLeftButton = _MOUSEBUTTON(1)
70.     LOOP
71.     IF mouseLeftButton THEN
72.         mouseLeftButton = 0
73.  
74.         'Clear
75.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 20 AND mouseY < 75 THEN
76.             a = 0: s = 0: t = 0: d = 0: num$ = ""
77.             _PRINTSTRING (55, 30), "                          "
78.             buttonx = 275: buttony = 20
79.             GOSUB zero:
80.         END IF
81.  
82.         'Square Root
83.         IF mouseX > 50 AND mouseX < 125 AND mouseY > 75 AND mouseY < 130 THEN
84.             IF num < 0 THEN GOTO skip1:
85.             num = VAL(num$)
86.             num = SQR(num)
87.             num$ = STR$(num)
88.             skip1:
89.             buttonx = 50: buttony = 75
90.             GOSUB press:
91.             GOSUB number:
92.         END IF
93.  
94.         'Sine
95.         IF mouseX > 126 AND mouseX < 200 AND mouseY > 75 AND mouseY < 130 THEN
96.             num = VAL(num$)
97.             num = SIN(num)
98.             num$ = STR$(num)
99.             buttonx = 126: buttony = 75
100.             GOSUB press:
101.             GOSUB number:
102.         END IF
103.  
104.         'Cosine
105.         IF mouseX > 200 AND mouseX < 275 AND mouseY > 75 AND mouseY < 130 THEN
106.             num = VAL(num$)
107.             num = COS(num)
108.             num$ = STR$(num)
109.             buttonx = 200: buttony = 75
110.             GOSUB press:
111.             GOSUB number:
112.         END IF
113.  
114.         'Tangent
115.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 75 AND mouseY < 130 THEN
116.             num = VAL(num$)
117.             num = TAN(num)
118.             num$ = STR$(num)
119.             buttonx = 275: buttony = 75
120.             GOSUB press:
121.             GOSUB number:
122.         END IF
123.  
124.         IF mouseX > 50 AND mouseX < 125 AND mouseY > 130 AND mouseY < 185 THEN
125.             num$ = num$ + "7"
126.             IF n = 1 THEN num$ = "-" + num$: n = 0
127.             buttonx = 50: buttony = 130
128.             GOSUB press:
129.             GOSUB number:
130.         END IF
131.         IF mouseX > 126 AND mouseX < 200 AND mouseY > 130 AND mouseY < 185 THEN
132.             num$ = num$ + "8"
133.             IF n = 1 THEN num$ = "-" + num$: n = 0
134.             buttonx = 126: buttony = 130
135.             GOSUB press:
136.             GOSUB number:
137.         END IF
138.         IF mouseX > 200 AND mouseX < 275 AND mouseY > 130 AND mouseY < 185 THEN
139.             num$ = num$ + "9"
140.             IF n = 1 THEN num$ = "-" + num$: n = 0
141.             buttonx = 200: buttony = 130
142.             GOSUB press:
143.             GOSUB number:
144.         END IF
145.         IF mouseX > 50 AND mouseX < 125 AND mouseY > 185 AND mouseY < 240 THEN
146.             num$ = num$ + "4"
147.             IF n = 1 THEN num$ = "-" + num$: n = 0
148.             buttonx = 50: buttony = 185
149.             GOSUB press:
150.             GOSUB number:
151.         END IF
152.         IF mouseX > 126 AND mouseX < 200 AND mouseY > 185 AND mouseY < 240 THEN
153.             num$ = num$ + "5"
154.             IF n = 1 THEN num$ = "-" + num$: n = 0
155.             buttonx = 126: buttony = 185
156.             GOSUB press:
157.             GOSUB number:
158.         END IF
159.         IF mouseX > 200 AND mouseX < 275 AND mouseY > 185 AND mouseY < 240 THEN
160.             num$ = num$ + "6"
161.             IF n = 1 THEN num$ = "-" + num$: n = 0
162.             buttonx = 200: buttony = 185
163.             GOSUB press:
164.             GOSUB number:
165.         END IF
166.         IF mouseX > 50 AND mouseX < 125 AND mouseY > 240 AND mouseY < 295 THEN
167.             num$ = num$ + "1"
168.             IF n = 1 THEN num$ = "-" + num$: n = 0
169.             buttonx = 50: buttony = 240
170.             GOSUB press:
171.             GOSUB number:
172.         END IF
173.         IF mouseX > 126 AND mouseX < 200 AND mouseY > 240 AND mouseY < 295 THEN
174.             num$ = num$ + "2"
175.             IF n = 1 THEN num$ = "-" + num$: n = 0
176.             buttonx = 126: buttony = 240
177.             GOSUB press:
178.             GOSUB number:
179.         END IF
180.         IF mouseX > 200 AND mouseX < 275 AND mouseY > 240 AND mouseY < 295 THEN
181.             num$ = num$ + "3"
182.             IF n = 1 THEN num$ = "-" + num$: n = 0
183.             buttonx = 200: buttony = 240
184.             GOSUB press:
185.             GOSUB number:
186.         END IF
187.         IF mouseX > 50 AND mouseX < 125 AND mouseY > 295 AND mouseY < 350 THEN
188.             num$ = num$ + "0"
189.             IF n = 1 THEN num$ = "-" + num$: n = 0
190.             buttonx = 50: buttony = 295
191.             GOSUB press:
192.             GOSUB number:
193.         END IF
194.  
195.         'Decimal
196.         IF mouseX > 126 AND mouseX < 200 AND mouseY > 295 AND mouseY < 350 THEN
197.             buttonx = 126: buttony = 295
198.             FOR check = 1 TO LEN(num$)
199.                 IF MID$(num$, check, 1) = "." THEN GOTO skipdec:
200.             NEXT check
201.             num$ = num$ + "."
202.             _PRINTSTRING (55, 30), num$
203.             skipdec:
204.             GOSUB press:
205.         END IF
206.  
207.         'Equals
208.         IF mouseX > 200 AND mouseX < 275 AND mouseY > 295 AND mouseY < 350 THEN
209.             IF a = 1 THEN num = VAL(oldnum$) + VAL(num$): a = 0
210.             IF s = 1 THEN num = VAL(oldnum$) - VAL(num$): s = 0
211.             IF t = 1 THEN num = VAL(oldnum$) * VAL(num$): t = 0
212.             IF d = 1 THEN num = VAL(oldnum$) / VAL(num$): d = 0
213.             buttonx = 200: buttony = 295
214.             GOSUB press:
215.             GOSUB number2:
216.         END IF
217.  
218.         'Add
219.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 295 AND mouseY < 350 THEN
220.             IF a = 0 THEN
221.                 d = 0: a = 1: s = 0: t = 0
222.                 oldnum$ = num$
223.                 calc = 1
224.                 _PRINTSTRING (55, 30), "                          "
225.                 num$ = ""
226.                 GOTO nex4:
227.             END IF
228.             IF a = 1 THEN
229.                 num = VAL(oldnum$) + VAL(num$)
230.                 a = 0
231.             END IF
232.             calc = 0
233.             GOSUB number2:
234.             nex4:
235.             buttonx = 275: buttony = 295
236.             GOSUB press:
237.         END IF
238.  
239.         'Subtract
240.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 240 AND mouseY < 295 THEN
241.             IF s = 0 THEN
242.                 IF num$ = "0" OR num$ = "" OR num = 0 THEN n = 1: GOTO nex3:
243.                 d = 0: a = 0: s = 1: t = 0
244.                 oldnum$ = num$
245.                 calc = 1
246.                 _PRINTSTRING (55, 30), "                          "
247.                 num$ = ""
248.                 GOTO nex3:
249.             END IF
250.             IF s = 1 THEN
251.                 num = VAL(oldnum$) - VAL(num$)
252.                 s = 0
253.             END IF
254.             calc = 0
255.             GOSUB number2:
256.             nex3:
257.             buttonx = 275: buttony = 240
258.             GOSUB press:
259.         END IF
260.  
261.         'Multiply
262.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 185 AND mouseY < 240 THEN
263.             IF t = 0 THEN
264.                 d = 0: a = 0: s = 0: t = 1
265.                 oldnum$ = num$
266.                 calc = 1
267.                 _PRINTSTRING (55, 30), "                          "
268.                 num$ = ""
269.                 GOTO nex2:
270.             END IF
271.             IF t = 1 THEN
272.                 num = VAL(oldnum$) * VAL(num$)
273.                 t = 0
274.             END IF
275.             calc = 0
276.             GOSUB number2:
277.             nex2:
278.             buttonx = 275: buttony = 185
279.             GOSUB press:
280.         END IF
281.  
282.         'Divide
283.         IF mouseX > 275 AND mouseX < 350 AND mouseY > 130 AND mouseY < 185 THEN
284.             IF d = 0 THEN
285.                 d = 1: a = 0: s = 0: t = 0
286.                 oldnum$ = num$
287.                 calc = 1
288.                 _PRINTSTRING (55, 30), "                          "
289.                 num$ = ""
290.                 GOTO nex1:
291.             END IF
292.             IF d = 1 AND num$ <> "" THEN
293.                 num = VAL(oldnum$) / VAL(num$)
294.                 d = 0
295.             END IF
296.             calc = 0
297.             GOSUB number2:
298.             nex1:
299.             buttonx = 275: buttony = 130
300.             GOSUB press:
301.         END IF
302.     END IF
303. LOOP
304. 'For Number Buttons.
305. number:
306. num = VAL(num$)
307.  
308. 'For Math
309. number2:
310. _PRINTSTRING (55, 30), "                          "
311. num$ = STR$(num)
312. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
313. _PRINTSTRING (55, 30), num$
314.  
315. RETURN
316.  
317. 'Pressing Each Button
318. press:
319. c = 110
320. FOR bb = 0 TO 10
321.     c = c - 10
322.     LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(100 + c, 100 + c, 100 + c), B
323. NEXT bb
324. _DELAY .25
325. FOR bb = 0 TO 10
326.     c = c + 10
327.     LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(100 + c, 100 + c, 100 + c), B
328. NEXT bb
329. RETURN
330.  
331. 'Pressing the Green C Button.
332. zero:
333. c = 110
334. FOR bb = 0 TO 10
335.     c = c - 10
336.     LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(50, 100 + c, 50), B
337. NEXT bb
338. _DELAY .25
339. FOR bb = 0 TO 10
340.     c = c + 10
341.     LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(50, 100 + c, 50), B
342. NEXT bb
343. RETURN
344.  
345. FUNCTION BASIMAGE1& 'calculatio icon data
346.     v& = _NEWIMAGE(54, 48, 32)
347.     DIM m AS _MEM: m = _MEMIMAGE(v&)
348.     A$ = ""
349.     A$ = A$ + "haIkJ^eBK\557GZJOl02m5YDX5J1A:YC0aGE##Oc?0RUD5A:HDOA=N=2N96`"
350.     A$ = A$ + ";87A#=X?hm4S6=N3_[XV4CRgn4]>co5=SJdI?IR9R7K2lSmNFke\bj?c<[I]"
351.     A$ = A$ + "3QXknHbT9:]dB;Y`kblMd7Tn#B3cF=CZmYb:[Tb<c<Y<b83Ua8c5QJnTNjY["
352.     A$ = A$ + "X[go?_W<f^AbX=I\7O8IGRiA[eSAbZ7[ZZ[nj[?Z`2;DgD#15lTf;ZXRXlc?"
353.     A$ = A$ + "okdUEiL`Q<>Ua]nAb]4c3\?_<S8[;_Z[[4mmQIWMfDNiUg3eeTb\[<1T9\n#"
354.     A$ = A$ + ":\4SR=obhEVAOUX[moCNM[n#j6965KQTImDj:U^BY;mZ[O4j7D>[T3Ukfin\"
355.     A$ = A$ + "eEomg?EB9U`DLa5[#dfRLlm]7mi0PVb:[\R;MmY>o4mUom;D>NbQnn1OoEee"
356.     A$ = A$ + "[kSNee7]lAjKcl=b#03T1o6NcX[Lg:Gjc3mIj[CmEbP_g>jjeLM3Ee5jg0m:"
357.     A$ = A$ + "4DO85DRAaV?IFkER^V#V5TaUnAbU4c3\?WaGln3OT^Jc8gk=gCOLPT=9V7]F"
358.     A$ = A$ + "GRkWOjYWVZYVJ8cV=cSA07;2]l1[okJn=mc6o9IbR9jG=o[4:8V>Lj#EM]jZ"
359.     A$ = A$ + "[B3>hPdHS=6chS?^bX84i3FKTA6Q\Je:3V7;a<F1a2ilJ[]VZj2[=jXSB;_l"
360.     A$ = A$ + "bdNk]7M`17#k_onlX8Dc74S=fH3Jb9WDAGH>\59n?7#<#^RLf[G_JZ[eGOM:"
361.     A$ = A$ + "H`PdeGO=c=gLS#DcW#Q2aJ>JM1KQ37V^mfKe5ARKTSAlA^VBGYdE:Mmg]^6H"
362.     A$ = A$ + "P1X012lRZ;\o\>k\CZWNjQjZ[^hl\nj[WkCIXQ6RlkgOL[[;_lBnk7onLK^i"
363.     A$ = A$ + "VD]eF;eJ[]B]dB;D5ED1O^9;MeNk]CmfK_T=KfX>jX3Zk^kVeDS=f8EGMeAW"
364.     A$ = A$ + "NjY?k[GUFJY\N#O:8VEGMeDIUE6IaRUTV^P]S>j8>o?olcY3?l#nN6TWhh[^"
365.     A$ = A$ + "jZW]^>iTChc3SPc>k<VkO_`o7On:IFgh]FOD_EkkMa5GTOn<JJ^iV5RFnPeA"
366.     A$ = A$ + "]5#\4?m2RYCW>EEG[\b:LmKD_;2AZo92]l1_GX]fJS1ce:Nj5TcNlhAhcGhn"
367.     A$ = A$ + "TiVK>Fo^LiBID4RlIQ5FPVHR9D^?4cQ=]RI\2bETcaBM3<jcW?jR;^P1e65Q"
368.     A$ = A$ + "JnPJck^k^?Z^1\Qed:^J1ba8ilOceiQ_hLR>>RnnN:k8gCTj:JBY[Dj2m5^m"
369.     A$ = A$ + "fKcnnFBGc>k\DiUG>_?UMfIWTR^>nhSiL1m<mBY;DSMZYVRZZZZX]fJ[4^^P"
370.     A$ = A$ + "?XoXIVIVGd[GH_3hMR3?l`lnCBdjJniWWO?WXW_CEgh^gMSn1`i1#>82el1e"
371.     A$ = A$ + "FD[O3\VFaE;#>RL=Fd5je2g3\dB;A^MkFID4Rl1m>j`Q35MQi`VFa<F1iZFm"
372.     A$ = A$ + "7RNRAoff]KG1lOVjn7oDXU?XWKlKS0`L]RWN1i\Xnian_JZYVDf[D4P=AXU?"
373.     A$ = A$ + "Hm6JX1VH9Na3A_o[o3Ph%%L2"
374.     btemp$ = ""
375.     FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
376.         IF INSTR(1, B$, "%") THEN
377.             FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
378.                 IF F$ <> "%" THEN C$ = C$ + F$
379.             NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
380.             IF MID$(B$, j, 1) = "#" THEN
381.         MID$(B$, j) = "@": END IF: NEXT
382.         FOR t% = LEN(B$) TO 1 STEP -1
383.             B& = B& * 64 + ASC(MID$(B$, t%)) - 48
384.             NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
385.             X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
386.     NEXT: btemp$ = btemp$ + X$: NEXT
387.     btemp$ = _INFLATE$(btemp$)
388.     _MEMPUT m, m.OFFSET, btemp$: _MEMFREE m
389.     BASIMAGE1& = _COPYIMAGE(v&): _FREEIMAGE v&
390. END FUNCTION
391.  

Title: Re: Calculator
Post by: Dav on July 28, 2020, 09:08:30 pm

That's correct - the icon won't be seen by windows and not available for shortcuts.  That's the downside.  On the plus side however you don't need external image to have an icon when the program is running.  I can attach an icon image later if you'd like have it also (I'm on another pc at the moment)..

I've been playing with animated icons using this technique.  Remember the QBV video format player a while back?  I added _ICON later on where it _ICON'ed each frame image, so a mini movie played in the task bar, even when the video was minimized.  Worked great.

I agree with Fellippe - cool buttons!

- Dav

Title: Re: Calculator
Post by: SierraKen on July 28, 2020, 09:23:34 pm

Awesome Dav. But nah, no need for an .ico. People can just choose one of the Windows ones they have on their Properties list if they want something different for Windows. :) Usually when I have a choice between 1 file or more, I pick just the 1 .bas file.

Title: Re: Calculator
Post by: Dav on July 28, 2020, 10:34:58 pm

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

Title: Re: Calculator
Post by: SierraKen on July 28, 2020, 10:48:39 pm

Yeah true. But I'm sticking with your code just so I don't need 2 files. Would be nice for people making their own icons.

Title: Re: Calculator
Post by: SierraKen on July 28, 2020, 10:50:01 pm

Unless you want me to remove it?

Title: Re: Calculator
Post by: OldMoses on July 28, 2020, 11:05:39 pm

For your trig functions, don't forget that SIN, COS & TAN work with radians natively in QB64. If you want to use degrees, you'll have to use _D2R, or _PI / 180 in the calculation.

BTW, I like those buttons so well, I incorporated a modification of your algorithm in my solar system simulator. They have a cool 3D look to them, and really make the controls 'pop'.

Title: Re: Calculator
Post by: SierraKen on July 28, 2020, 11:13:23 pm

Awesome OldMoses!! Yeah, I like the radians better for us programmers. :) Maybe someday I'll make a bigger calculator and make a button to auto-convert radians to degrees. Some people here have made incredible calculators, like the TI one I saw from a couple years ago or so. :)

Title: Re: Calculator
Post by: SierraKen on July 28, 2020, 11:28:29 pm

I'm learning new stuff every day! I just found the _CLIPBOARD$ command on the Wiki so I added that. If you left click the output number, the number will turn green for 1 second and it will put it as your Windows Clipboard where you can paste as any text on any other program that has Paste for text. If you want to see the commands I used, it's right after the Mouse commands near the start of the main loop. I also added those instructions in the _TITLE so people know.
Here is the update:

Code: QB64: [Select]

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

Title: Re: Calculator
Post by: SierraKen on July 29, 2020, 01:40:35 am

I just improved it even more with 4 new buttons on the bottom (I made the calculator window a bit longer). The new buttons are: Rad2Deg (which changes to Deg2Rad after used, and vice-versa). This changes degrees to radians and radians to degrees. The next button is second power, which times your number to itself (by the second power). The next one is logarithm. This one uses the Base 10 logarithm (which is what most calculators use I found out). Instead of num = LOG(num) it has num = LOG(num) / LOG(10.#). The wiki page of LOG helped me with that equation. I also checked the output using Google's calculator which also uses Base 10 Log. The last new button was the easiest, it just puts _PI on the screen for anyone that needs to use Pi. You can see I clicked the Pi button in the picture attachment below.

Note: I deleted this code because of a Log error I get when trying to get the Log of a negative number, which is true in math. Go to the next post for the update.

Title: Re: Calculator
Post by: SierraKen on July 29, 2020, 01:53:49 am

Here is the update with the Log fix.

Code: QB64: [Select]

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

Title: Re: Calculator
Post by: bplus on July 29, 2020, 11:54:19 am

Quote from: Dav on July 28, 2020, 10:34:58 pm

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!

Title: Re: Calculator
Post by: SierraKen on July 29, 2020, 12:11:07 pm

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.

Title: Re: Calculator
Post by: bplus on July 29, 2020, 12:18:36 pm

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$)))

Title: Re: Calculator
Post by: Dav on July 29, 2020, 01:07:25 pm

Quote from: bplus

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

Title: Re: Calculator
Post by: bplus on July 29, 2020, 01:38:47 pm

Quote from: Dav on July 29, 2020, 01:07:25 pm

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!

Title: Re: Calculator
Post by: SpriggsySpriggs on July 29, 2020, 01:56:17 pm

Quote from: Dav on July 29, 2020, 01:07:25 pm

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!

Title: Re: Calculator
Post by: SierraKen on July 29, 2020, 03:49:27 pm

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.  

Title: Re: Calculator
Post by: bplus on July 29, 2020, 06:44:59 pm

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.

Title: Re: Calculator
Post by: SierraKen on July 29, 2020, 06:58:56 pm

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

Title: Re: Calculator
Post by: SierraKen on July 29, 2020, 07:30:05 pm

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.

Title: Re: Calculator
Post by: SierraKen on July 29, 2020, 07:32:45 pm

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

Title: Re: Calculator
Post by: bplus on July 29, 2020, 08:20:53 pm

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.  

Title: Re: Calculator
Post by: SierraKen on July 29, 2020, 08:43:19 pm

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.  

Title: Re: Calculator
Post by: bplus on July 30, 2020, 11:26:53 am

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...

Title: Re: Calculator
Post by: SpriggsySpriggs on July 30, 2020, 12:10:50 pm

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

Title: Re: Calculator
Post by: SierraKen on July 30, 2020, 12:42:36 pm

B+, X^Y is what I made EXP to begin with because I thought that's what the EXP button does lol. But I changed it to how you wanted me to yesterday. As for the rest of the stuff, I personally don't have a need for them. I never use the memory buttons or anything else actually. As for the X^Y, probably sometime. Today I'm probably going to take a break on it. I hurt my wrist the other day when I fell down outside and today it's not doing too great.
Thanks for the suggestions though. If I really want to dive into all those things sometime, I might.

Spriggs, yes I've thought about adding keyboard use to it, like everything on the number pad. And maybe S = Sine, C = Cosine, T = Tangent, etc. It shouldn't be too hard with just INKEY$ so I probably will soon. Thanks for the suggestion.

If any of you want to tinker with this for yourself on your own mods, go right ahead. It's for all of us.
 

Title: Re: Calculator
Post by: SierraKen on July 30, 2020, 03:19:34 pm

I just added keyboard control to everything. :) I also made a Help page that describes what all the keys do. Press Esc to get to the Help page. It says this in the _TITLE as well. It's pretty neat how when you press a key on the keyboard for something, it shows the key on the calculator being pressed. When using the Number Pad (which you can use that or the others), make sure you have Num Lock turned on.

Code: QB64: [Select]

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

Text Only | Text with Attachments