« previous next »
Pages: [1] 2 3   Go Down

Author Topic: Calculator  (Read 7779 times)

0 Members and 1 Guest are viewing this topic.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Calculator
« 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"
  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)
  60.     _LIMIT 20
  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
  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.  
  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
  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
  339.  


Here is the forum topic of you guys helping me: https://www.qb64.org/forum/index.php?topic=2862.new
Ken's Calculator.jpg
* Ken's Calculator.jpg (Filesize: 28.9 KB, Dimensions: 401x426, Views: 251)
« Last Edit: July 28, 2020, 03:20:55 pm by SierraKen »
Logged

Offline SpriggsySpriggs

  • Forum Resident
  • Posts: 1145
  • Larger than life
    • View Profile
    • GitHub
Re: Calculator
« Reply #1 on: July 28, 2020, 04:00:21 pm »
That looks quite good. I'll have to try it out
Logged
Shuwatch!

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
Re: Calculator
« Reply #2 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&
  51.  
« Last Edit: July 28, 2020, 05:55:06 pm by Dav »
Logged

FellippeHeitor

  • Guest
Re: Calculator
« Reply #3 on: July 28, 2020, 05:03:06 pm »
Cool buttons, Ken!
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Calculator
« Reply #4 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"
  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)
  65.     _LIMIT 20
  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
  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.  
  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
  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
  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&
  391.  
Logged

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
Re: Calculator
« Reply #5 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
« Last Edit: July 28, 2020, 09:17:27 pm by Dav »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Calculator
« Reply #6 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.
Logged

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
Re: Calculator
« Reply #7 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
« Last Edit: July 28, 2020, 10:39:49 pm by Dav »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Calculator
« Reply #8 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.
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Calculator
« Reply #9 on: July 28, 2020, 10:50:01 pm »
Unless you want me to remove it?
Logged

Offline OldMoses

  • Seasoned Forum Regular
  • Posts: 469
    • View Profile
Re: Calculator
« Reply #10 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'.
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Calculator
« Reply #11 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. :)
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Calculator
« Reply #12 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."
  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)
  67.     _LIMIT 20
  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
  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.  
  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
  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
  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&
  406.  
« Last Edit: July 28, 2020, 11:30:28 pm by SierraKen »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Calculator
« Reply #13 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.



Ken's Calculator.jpg
* Ken's Calculator.jpg (Filesize: 43.93 KB, Dimensions: 403x479, Views: 116)
« Last Edit: July 29, 2020, 01:54:51 am by SierraKen »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Calculator
« Reply #14 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."
  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)
  73.     _LIMIT 20
  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
  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.  
  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
  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
  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&
  468.  
Ken's Calculator.jpg
* Ken's Calculator.jpg (Filesize: 43.93 KB, Dimensions: 403x479, Views: 119)
« Last Edit: July 29, 2020, 01:55:22 am by SierraKen »
Logged
Pages: [1] 2 3   Go Up
« previous next »