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

Author Topic: Calculator  (Read 6559 times)

0 Members and 1 Guest are viewing this topic.

Offline SierraKen

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

Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Calculator
« Reply #31 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."
  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)
  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.  
  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
  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.  
  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
  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
  535.  
  536. help:
  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"
  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"
  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"
  567. PRINT "Press Esc to go back to calculator."
  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&
  621.  
« Last Edit: July 30, 2020, 03:22:03 pm by SierraKen »
Logged
Pages: 1 2 [3]   Go Up
« previous next »