+- QB64 Phoenix Edition (https://qb64phoenix.com/forum)
+-- Forum: QB64 Rising (https://qb64phoenix.com/forum/forumdisplay.php?fid=1)
+--- Forum: Code and Stuff (https://qb64phoenix.com/forum/forumdisplay.php?fid=3)
+---- Forum: Programs (https://qb64phoenix.com/forum/forumdisplay.php?fid=7)
+---- Thread: Calculator (/showthread.php?tid=677)
RE: Calculator - Pete - 07-29-2022
This should address the backspace issue.
Code: (Select All)
'Calculator
'By SierraKen on July 30, 2020.
'Updated on July 24, 2022 with Copy and Paste Buttons.
'Updated on July 26, 2022 with Back Space Button and RND (Random) Button
'-----------------------------------------------------------------------
'This is my very first regular calculator.
'Thank you to B+ and TempodiBasic for the help and everyone for the inspiration!
'Thank you Dav for the icon code!
_ICON BASIMAGE1&
_TITLE "Calculator - Esc for help."
DIM num AS DOUBLE
SCREEN _NEWIMAGE(400, 525, 32)
f& = _LOADFONT("Arial.ttf", 18)
begin:
_FONT f&
num$ = ""
c = 0
a = 0: s = 0: t = 0: d = 0
'Setup calculator
LINE (50, 25)-(265, 50), _RGB32(255, 255, 255), B
LINE (50, 75)-(350, 350), _RGB32(255, 255, 255), B
'Buttons
FOR buttony = 75 TO 405 STEP 55
FOR buttonx = 50 TO 275 STEP 75
FOR bb = 0 TO 10
c = c + 10
LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(100 + c, 100 + c, 100 + c), B
NEXT bb
PAINT (buttonx + 12, buttony + 12), _RGB32(100 + c, 100 + c, 100 + c)
c = 0
NEXT buttonx
NEXT buttony
'Copy Button
buttonx = 50: buttony = 460
FOR bb = 0 TO 10
c = c + 10
LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(100 + c, 100 + c, 100 + c), B
NEXT bb
PAINT (buttonx + 12, buttony + 12), _RGB32(100 + c, 100 + c, 100 + c)
c = 0
'Paste Button
buttonx = 125: buttony = 460
FOR bb = 0 TO 10
c = c + 10
LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(100 + c, 100 + c, 100 + c), B
NEXT bb
PAINT (buttonx + 12, buttony + 12), _RGB32(100 + c, 100 + c, 100 + c)
c = 0
'Back Space Button
buttonx = 200: buttony = 460
FOR bb = 0 TO 10
c = c + 10
LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(100 + c, 100 + c, 100 + c), B
NEXT bb
PAINT (buttonx + 12, buttony + 12), _RGB32(100 + c, 100 + c, 100 + c)
c = 0
'Time Button
buttonx = 275: buttony = 460
FOR bb = 0 TO 10
c = c + 10
LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(100 + c, 100 + c, 100 + c), B
NEXT bb
PAINT (buttonx + 12, buttony + 12), _RGB32(100 + c, 100 + c, 100 + c)
c = 0
'Green C Button
buttonx = 275: buttony = 20
FOR bb = 0 TO 10
c = c + 10
LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(50, 100 + c, 50), B
NEXT bb
PAINT (buttonx + 12, buttony + 12), _RGB32(50, 100 + c, 50)
COLOR _RGB32(0, 0, 0), _RGB32(50, 100 + c, 50)
_PRINTSTRING (50, 5), "Rad"
wer:
'Label Buttons
_PRINTSTRING (306, 47), "C"
COLOR _RGB32(0, 0, 0), _RGB32(210, 210, 210)
_PRINTSTRING (87, 102), CHR$(251) 'square root
_PRINTSTRING (152, 102), "sin"
_PRINTSTRING (227, 102), "cos"
_PRINTSTRING (302, 102), "tan"
_PRINTSTRING (87, 157), "7"
_PRINTSTRING (162, 157), "8"
_PRINTSTRING (237, 157), "9"
_PRINTSTRING (312, 157), "/"
_PRINTSTRING (87, 212), "4"
_PRINTSTRING (162, 212), "5"
_PRINTSTRING (237, 212), "6"
_PRINTSTRING (312, 212), "x"
_PRINTSTRING (87, 267), "1"
_PRINTSTRING (162, 267), "2"
_PRINTSTRING (237, 267), "3"
_PRINTSTRING (312, 267), "-"
_PRINTSTRING (87, 322), "0"
_PRINTSTRING (162, 322), "."
_PRINTSTRING (237, 322), "="
_PRINTSTRING (312, 322), "+"
_PRINTSTRING (79, 377), " "
_PRINTSTRING (79, 377), "deg"
_PRINTSTRING (162, 377), "x" + CHR$(253) 'second power
_PRINTSTRING (227, 377), "log"
_PRINTSTRING (307, 377), "Pi"
_PRINTSTRING (79, 432), "1/x"
_PRINTSTRING (152, 432), "x/2"
_PRINTSTRING (227, 432), "exp"
_PRINTSTRING (312, 432), CHR$(241) 'Postive or Negative
_PRINTSTRING (68, 487), "Copy"
_PRINTSTRING (141, 487), "Paste"
_PRINTSTRING (210, 487), "<Back"
_PRINTSTRING (293, 487), "RND"
COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
DO
_LIMIT 30
a$ = INKEY$
IF a$ <> "" THEN mousex = 0: mousey = 0: mouseLeftButton = 0
IF a$ = CHR$(27) THEN GOTO help:
IF a$ = CHR$(3) THEN a$ = "": GOTO clip: 'Ctrl+C copies to clipboard.
IF a$ = "C" OR a$ = "c" THEN a$ = "": GOTO delete: 'Back Space deletes output.
IF a$ = "p" OR a$ = "P" OR a$ = "n" OR a$ = "N" THEN a$ = "": GOTO posneg: 'Positive or Negative
IF a$ = "f" OR a$ = "F" THEN a$ = "": GOTO fraction:
IF a$ = "h" OR a$ = "H" THEN a$ = "": GOTO half:
IF a$ = "e" OR a$ = "E" THEN a$ = "": GOTO expcommand:
IF a$ = "r" OR a$ = "R" OR a$ = "d" OR a$ = "D" THEN a$ = "": GOTO radanddeg:
IF a$ = "u" OR a$ = "U" THEN a$ = "": GOTO squared:
IF a$ = "l" OR a$ = "L" THEN a$ = "": GOTO logarithm:
IF a$ = "i" OR a$ = "I" THEN a$ = "": GOTO pi:
IF a$ = "q" OR a$ = "Q" THEN a$ = "": GOTO squareroot:
IF a$ = "s" OR a$ = "S" THEN a$ = "": GOTO sine:
IF a$ = "o" OR a$ = "O" THEN a$ = "": GOTO cosine:
IF a$ = "t" OR a$ = "T" THEN a$ = "": GOTO tangent:
IF a$ = "1" THEN a$ = "": GOTO one:
IF a$ = "2" THEN a$ = "": GOTO two:
IF a$ = "3" THEN a$ = "": GOTO three:
IF a$ = "4" THEN a$ = "": GOTO four:
IF a$ = "5" THEN a$ = "": GOTO five:
IF a$ = "6" THEN a$ = "": GOTO six:
IF a$ = "7" THEN a$ = "": GOTO seven:
IF a$ = "8" THEN a$ = "": GOTO eight:
IF a$ = "9" THEN a$ = "": GOTO nine:
IF a$ = "0" THEN a$ = "": GOTO zero2:
IF a$ = "." THEN a$ = "": GOTO decimal:
IF a$ = "=" THEN a$ = "": GOTO equals:
IF a$ = "+" THEN a$ = "": GOTO add:
IF a$ = "-" THEN a$ = "": GOTO subtract:
IF a$ = "*" OR a$ = "x" OR a$ = "X" THEN a$ = "": GOTO multiply:
IF a$ = "/" THEN a$ = "": GOTO divide:
IF a$ = CHR$(8) THEN a$ = "": GOTO backbutton:
WHILE _MOUSEINPUT: WEND
mousex = _MOUSEX
mousey = _MOUSEY
mouseLeftButton = _MOUSEBUTTON(1)
IF mouseLeftButton THEN
Clear_MB 1
'Clipboard
IF mousex > 50 AND mousex < 265 AND mousey > 25 AND mousey < 50 THEN
clip:
COLOR _RGB32(0, 255, 0), _RGB32(0, 0, 0)
_PRINTSTRING (55, 30), num$
_DELAY .5
num2$ = _TRIM$(num$)
_CLIPBOARD$ = num2$
COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
_PRINTSTRING (55, 30), num$
END IF
'Clipboard Button
IF mousex > 50 AND mousex < 125 AND mousey > 460 AND mousey < 515 THEN
clip2:
COLOR _RGB32(0, 255, 0), _RGB32(0, 0, 0)
_PRINTSTRING (55, 30), num$
buttonx = 50: buttony = 460
GOSUB press:
_DELAY .5
num2$ = _TRIM$(num$)
_CLIPBOARD$ = num2$
COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
_PRINTSTRING (55, 30), num$
END IF
'Paste Button
IF mousex > 125 AND mousex < 200 AND mousey > 460 AND mousey < 515 THEN
paste:
buttonx = 125: buttony = 460
GOSUB press:
num$ = _CLIPBOARD$
IF LEN(num$) > 19 THEN num$ = "0"
_PRINTSTRING (55, 30), num$
num = VAL(num$)
GOSUB number:
END IF
'Back Space Button
IF mousex > 200 AND mousex < 275 AND mousey > 460 AND mousey < 515 THEN
backbutton:
buttonx = 200: buttony = 460
GOSUB press:
num$ = LEFT$(num$, LEN(num$) - 1)
GOSUB number2
END IF
'Random Button
IF mousex > 275 AND mousex < 350 AND mousey > 460 AND mousey < 515 THEN
timebutton:
buttonx = 275: buttony = 460
GOSUB press:
num$ = STR$(RND)
_PRINTSTRING (55, 30), num$
num = VAL(num$)
GOSUB number:
END IF
'Clear
IF mousex > 275 AND mousex < 350 AND mousey > 20 AND mousey < 75 THEN
delete:
a = 0: s = 0: t = 0: d = 0: num$ = ""
_PRINTSTRING (55, 30), " "
buttonx = 275: buttony = 20
GOSUB zero:
END IF
'1/x
IF mousex > 50 AND mousex < 125 AND mousey > 405 AND mousey < 460 THEN
fraction:
num = VAL(num$)
IF num = 0 THEN GOTO skipthis:
num = 1 / num
num$ = STR$(num)
skipthis:
buttonx = 50: buttony = 405
GOSUB press:
GOSUB number:
END IF
'x/2
IF mousex > 126 AND mousex < 200 AND mousey > 405 AND mousey < 460 THEN
half:
num = VAL(num$)
num = num / 2
num$ = STR$(num)
buttonx = 126: buttony = 405
GOSUB press:
GOSUB number2:
END IF
'EXP
IF mousex > 200 AND mousex < 275 AND mousey > 405 AND mousey < 460 THEN
expcommand:
_PRINTSTRING (55, 30), " "
num = EXP(VAL(num$))
num$ = STR$(num)
buttonx = 200: buttony = 405
GOSUB number2:
GOSUB press:
END IF
'Postive or Negative
IF mousex > 275 AND mousex < 350 AND mousey > 405 AND mousey < 460 THEN
posneg:
IF VAL(num$) < 0 THEN
num = -VAL(num$)
num$ = STR$(num)
GOTO skipplusnegative:
END IF
num$ = "-" + num$
skipplusnegative:
buttonx = 275: buttony = 405
GOSUB press:
GOSUB number:
END IF
'Radians and Degrees
IF mousex > 50 AND mousex < 125 AND mousey > 350 AND mousey < 405 THEN
radanddeg:
deg = deg + 1
IF deg = 2 THEN GOTO deg2rad:
COLOR _RGB32(0, 0, 0), _RGB32(210, 210, 210)
_PRINTSTRING (79, 377), " "
_PRINTSTRING (79, 377), "rad"
COLOR _RGB32(0, 0, 0), _RGB32(50, 100 + c, 50)
_PRINTSTRING (50, 5), "Deg"
num = VAL(num$)
num = _R2D(num)
num$ = STR$(num)
GOTO skipdeg2rad:
deg2rad:
deg = 0
COLOR _RGB32(0, 0, 0), _RGB32(210, 210, 210)
_PRINTSTRING (79, 377), " "
_PRINTSTRING (79, 377), "deg"
COLOR _RGB32(0, 0, 0), _RGB32(50, 100 + c, 50)
_PRINTSTRING (50, 5), "Rad"
num = VAL(num$)
num = _D2R(num)
num$ = STR$(num)
skipdeg2rad:
buttonx = 50: buttony = 350
GOSUB press:
GOSUB number:
END IF
'Second Power
IF mousex > 126 AND mousex < 200 AND mousey > 350 AND mousey < 405 THEN
squared:
num = VAL(num$)
num = num ^ 2
num$ = STR$(num)
buttonx = 126: buttony = 350
GOSUB press:
GOSUB number2:
END IF
'logarithm
IF mousex > 200 AND mousex < 275 AND mousey > 350 AND mousey < 405 THEN
logarithm:
num = VAL(num$)
IF num = 0 THEN GOTO skiplog:
IF num < 0 THEN GOTO skiplog:
num = LOG(num)
num$ = STR$(num)
skiplog:
buttonx = 200: buttony = 350
GOSUB press:
GOSUB number:
END IF
'Pi
IF mousex > 275 AND mousex < 350 AND mousey > 350 AND mousey < 405 THEN
pi:
'num = 3.14159265359
num = _PI
num$ = STR$(num)
buttonx = 275: buttony = 350
GOSUB press:
GOSUB number:
END IF
'Square Root
IF mousex > 50 AND mousex < 125 AND mousey > 75 AND mousey < 130 THEN
squareroot:
IF num < 0 THEN GOTO skip1:
num = VAL(num$)
num = SQR(num)
num$ = STR$(num)
skip1:
buttonx = 50: buttony = 75
GOSUB press:
GOSUB number:
END IF
'Sine
IF mousex > 126 AND mousex < 200 AND mousey > 75 AND mousey < 130 THEN
sine:
IF deg = 1 THEN num = SIN(_D2R(VAL(num$)))
IF deg = 0 THEN num = SIN(num)
num$ = STR$(num)
buttonx = 126: buttony = 75
GOSUB press:
GOSUB number:
END IF
'Cosine
IF mousex > 200 AND mousex < 275 AND mousey > 75 AND mousey < 130 THEN
cosine:
IF deg = 1 THEN num = COS(_D2R(VAL(num$)))
IF deg = 0 THEN num = COS(num)
num$ = STR$(num)
buttonx = 200: buttony = 75
GOSUB press:
GOSUB number:
END IF
'Tangent
IF mousex > 275 AND mousex < 350 AND mousey > 75 AND mousey < 130 THEN
tangent:
IF deg = 1 THEN num = TAN(_D2R(VAL(num$)))
IF deg = 0 THEN num = TAN(num)
num$ = STR$(num)
buttonx = 275: buttony = 75
GOSUB press:
GOSUB number:
END IF
'Number Buttons
IF mousex > 50 AND mousex < 125 AND mousey > 130 AND mousey < 185 THEN
seven:
num$ = num$ + "7"
IF n = 1 THEN num$ = "-" + num$: n = 0
buttonx = 50: buttony = 130
GOSUB press:
GOSUB number:
END IF
IF mousex > 126 AND mousex < 200 AND mousey > 130 AND mousey < 185 THEN
eight:
num$ = num$ + "8"
IF n = 1 THEN num$ = "-" + num$: n = 0
buttonx = 126: buttony = 130
GOSUB press:
GOSUB number:
END IF
IF mousex > 200 AND mousex < 275 AND mousey > 130 AND mousey < 185 THEN
nine:
num$ = num$ + "9"
IF n = 1 THEN num$ = "-" + num$: n = 0
buttonx = 200: buttony = 130
GOSUB press:
GOSUB number:
END IF
IF mousex > 50 AND mousex < 125 AND mousey > 185 AND mousey < 240 THEN
four:
num$ = num$ + "4"
IF n = 1 THEN num$ = "-" + num$: n = 0
buttonx = 50: buttony = 185
GOSUB press:
GOSUB number:
END IF
IF mousex > 126 AND mousex < 200 AND mousey > 185 AND mousey < 240 THEN
five:
num$ = num$ + "5"
IF n = 1 THEN num$ = "-" + num$: n = 0
buttonx = 126: buttony = 185
GOSUB press:
GOSUB number:
END IF
IF mousex > 200 AND mousex < 275 AND mousey > 185 AND mousey < 240 THEN
six:
num$ = num$ + "6"
IF n = 1 THEN num$ = "-" + num$: n = 0
buttonx = 200: buttony = 185
GOSUB press:
GOSUB number:
END IF
IF mousex > 50 AND mousex < 125 AND mousey > 240 AND mousey < 295 THEN
one:
num$ = num$ + "1"
IF n = 1 THEN num$ = "-" + num$: n = 0
buttonx = 50: buttony = 240
GOSUB press:
GOSUB number:
END IF
IF mousex > 126 AND mousex < 200 AND mousey > 240 AND mousey < 295 THEN
two:
num$ = num$ + "2"
IF n = 1 THEN num$ = "-" + num$: n = 0
buttonx = 126: buttony = 240
GOSUB press:
GOSUB number:
END IF
IF mousex > 200 AND mousex < 275 AND mousey > 240 AND mousey < 295 THEN
three:
num$ = num$ + "3"
IF n = 1 THEN num$ = "-" + num$: n = 0
buttonx = 200: buttony = 240
GOSUB press:
GOSUB number:
END IF
IF mousex > 50 AND mousex < 125 AND mousey > 295 AND mousey < 350 THEN
zero2:
IF num$ <> "0" THEN ' Prevents more than one leading zero input.
num$ = num$ + "0"
IF n = 1 THEN num$ = "-" + num$: n = 0
buttonx = 50: buttony = 295
GOSUB press:
GOSUB number:
END IF
END IF
'Decimal
IF mousex > 126 AND mousex < 200 AND mousey > 295 AND mousey < 350 THEN
decimal:
buttonx = 126: buttony = 295
FOR check = 1 TO LEN(num$)
IF MID$(num$, check, 1) = "." THEN GOTO skipdec:
NEXT check
num$ = num$ + "."
_PRINTSTRING (55, 30), num$
skipdec:
GOSUB press:
END IF
'Equals
IF mousex > 200 AND mousex < 275 AND mousey > 295 AND mousey < 350 THEN
equals:
IF a = 1 THEN num = VAL(oldnum$) + VAL(num$): a = 0
IF s = 1 THEN num = VAL(oldnum$) - VAL(num$): s = 0
IF t = 1 THEN num = VAL(oldnum$) * VAL(num$): t = 0
IF d = 1 THEN num = VAL(oldnum$) / VAL(num$): d = 0
'----------------------------------------------------
num$ = LTRIM$(STR$(num))
'----------------------------------------------------
buttonx = 200: buttony = 295
GOSUB press:
GOSUB number2:
END IF
'Add
IF mousex > 275 AND mousex < 350 AND mousey > 295 AND mousey < 350 THEN
add:
IF a = 0 THEN
d = 0: a = 1: s = 0: t = 0
GOSUB convert: oldnum$ = num$
_PRINTSTRING (55, 30), " "
num$ = ""
GOTO nex4:
END IF
IF a = 1 THEN
num = VAL(oldnum$) + VAL(num$)
a = 0
END IF
GOSUB number2:
nex4:
buttonx = 275: buttony = 295
GOSUB press:
END IF
'Subtract
IF mousex > 275 AND mousex < 350 AND mousey > 240 AND mousey < 295 THEN
subtract:
IF s = 0 THEN
IF num$ = "0" OR num$ = "" OR num = 0 THEN n = 1: GOTO nex3:
d = 0: a = 0: s = 1: t = 0
GOSUB convert: oldnum$ = num$
_PRINTSTRING (55, 30), " "
num$ = ""
GOTO nex3:
END IF
IF s = 1 THEN
num = VAL(oldnum$) - VAL(num$)
s = 0
END IF
GOSUB number2:
nex3:
buttonx = 275: buttony = 240
GOSUB press:
END IF
'Multiply
IF mousex > 275 AND mousex < 350 AND mousey > 185 AND mousey < 240 THEN
multiply:
IF t = 0 THEN
d = 0: a = 0: s = 0: t = 1
GOSUB convert: oldnum$ = num$
_PRINTSTRING (55, 30), " "
num$ = ""
GOTO nex2:
END IF
IF t = 1 THEN
num = VAL(oldnum$) * VAL(num$)
t = 0
END IF
GOSUB number2:
nex2:
buttonx = 275: buttony = 185
GOSUB press:
END IF
'Divide
IF mousex > 275 AND mousex < 350 AND mousey > 130 AND mousey < 185 THEN
divide:
IF d = 0 THEN
d = 1: a = 0: s = 0: t = 0
GOSUB convert: oldnum$ = num$
_PRINTSTRING (55, 30), " "
num$ = ""
GOTO nex1:
END IF
IF d = 1 AND num$ <> "" THEN
num = VAL(oldnum$) / VAL(num$)
d = 0
END IF
GOSUB number2:
nex1:
buttonx = 275: buttony = 130
GOSUB press:
END IF
END IF
LOOP
'For Number Buttons.
convert:
IF VAL(num$) > 9999999999999999 OR LEN(num$) > 19 THEN
num$ = LEFT$(num$, 19)
END IF
num = VAL(num$)
RETURN
number:
IF VAL(num$) > 9999999999999999 OR LEN(num$) > 19 THEN
num$ = LEFT$(num$, 19)
END IF
'For Math
number2:
COLOR _RGB32(0, 0, 0), _RGB32(0, 0, 0)
_PRINTSTRING (55, 30), SPACE$(40)
IF VAL(num$) > 9999999999999999 OR LEN(num$) > 19 THEN
num$ = LEFT$(num$, 19)
END IF
COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
_PRINTSTRING (55, 30), num$
RETURN
'Pressing Each Button
press:
c = 110
FOR bb = 0 TO 10
c = c - 10
LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(100 + c, 100 + c, 100 + c), B
NEXT bb
_DELAY .03
FOR bb = 0 TO 10
c = c + 10
LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(100 + c, 100 + c, 100 + c), B
NEXT bb
RETURN
'Pressing the Green C Button.
zero:
c = 110
FOR bb = 0 TO 10
c = c - 10
LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(50, 100 + c, 50), B
NEXT bb
_DELAY .25
FOR bb = 0 TO 10
c = c + 10
LINE (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(50, 100 + c, 50), B
NEXT bb
RETURN
help:
_FONT 14
CLS
_TITLE "Calculator Help"
PRINT "Esc = Keyboard Help"
PRINT "CTRL+C = Copies To Clipboard"
PRINT "Left Mouse Click Copies To Clipboard."
PRINT "Copy Button Copies To Clipboard"
PRINT "Paste Button Pastes Clipboard To Screen"
PRINT "Backspace = Deletes Last Output Digit"
PRINT "RND = Makes a random number from 0 to 1."
PRINT "Letters can be upper or lower-case."
PRINT "P or N = Positve and Negative Switch."
PRINT "F = 1 / x"
PRINT "H = x / 2"
PRINT "E = EXP"
PRINT "R or D = Radian and Degree Switch."
PRINT "U = X ^ 2"
PRINT "L = Logarithm"
PRINT "I = Pi"
PRINT "Q = Square Root"
PRINT "s = Sine"
PRINT "o = Cosine"
PRINT "t = Tangent"
PRINT
PRINT "Below can be either Number Pad or the others."
PRINT "1-9 = Number Keys"
PRINT ". = Decimal"
PRINT "= = Equals"
PRINT "+ = Add"
PRINT "- = Subtract"
PRINT "* or X = Multiply"
PRINT "/ = Divide"
PRINT
PRINT "Press Esc to go back to calculator."
DO: LOOP UNTIL INKEY$ = CHR$(27)
CLS
_TITLE "Calculator - Esc for help."
GOTO begin:
'This Function is from Dav which makes the icon picture. It uses code at the start of this program.
FUNCTION BASIMAGE1& 'calculatio icon data
v& = _NEWIMAGE(54, 48, 32)
DIM m AS _MEM: m = _MEMIMAGE(v&)
A$ = ""
A$ = A$ + "haIkJ^eBK\557GZJOl02m5YDX5J1A:YC0aGE##Oc?0RUD5A:HDOA=N=2N96`"
A$ = A$ + ";87A#=X?hm4S6=N3_[XV4CRgn4]>co5=SJdI?IR9R7K2lSmNFke\bj?c<[I]"
A$ = A$ + "3QXknHbT9:]dB;Y`kblMd7Tn#B3cF=CZmYb:[Tb<c<Y<b83Ua8c5QJnTNjY["
A$ = A$ + "X[go?_W<f^AbX=I\7O8IGRiA[eSAbZ7[ZZ[nj[?Z`2;DgD#15lTf;ZXRXlc?"
A$ = A$ + "okdUEiL`Q<>Ua]nAb]4c3\?_<S8[;_Z[[4mmQIWMfDNiUg3eeTb\[<1T9\n#"
A$ = A$ + ":\4SR=obhEVAOUX[moCNM[n#j6965KQTImDj:U^BY;mZ[O4j7D>[T3Ukfin\"
A$ = A$ + "eEomg?EB9U`DLa5[#dfRLlm]7mi0PVb:[\R;MmY>o4mUom;D>NbQnn1OoEee"
A$ = A$ + "[kSNee7]lAjKcl=b#03T1o6NcX[Lg:Gjc3mIj[CmEbP_g>jjeLM3Ee5jg0m:"
A$ = A$ + "4DO85DRAaV?IFkER^V#V5TaUnAbU4c3\?WaGln3OT^Jc8gk=gCOLPT=9V7]F"
A$ = A$ + "GRkWOjYWVZYVJ8cV=cSA07;2]l1[okJn=mc6o9IbR9jG=o[4:8V>Lj#EM]jZ"
A$ = A$ + "[B3>hPdHS=6chS?^bX84i3FKTA6Q\Je:3V7;a<F1a2ilJ[]VZj2[=jXSB;_l"
A$ = A$ + "bdNk]7M`17#k_onlX8Dc74S=fH3Jb9WDAGH>\59n?7#<#^RLf[G_JZ[eGOM:"
A$ = A$ + "H`PdeGO=c=gLS#DcW#Q2aJ>JM1KQ37V^mfKe5ARKTSAlA^VBGYdE:Mmg]^6H"
A$ = A$ + "P1X012lRZ;\o\>k\CZWNjQjZ[^hl\nj[WkCIXQ6RlkgOL[[;_lBnk7onLK^i"
A$ = A$ + "VD]eF;eJ[]B]dB;D5ED1O^9;MeNk]CmfK_T=KfX>jX3Zk^kVeDS=f8EGMeAW"
A$ = A$ + "NjY?k[GUFJY\N#O:8VEGMeDIUE6IaRUTV^P]S>j8>o?olcY3?l#nN6TWhh[^"
A$ = A$ + "jZW]^>iTChc3SPc>k<VkO_`o7On:IFgh]FOD_EkkMa5GTOn<JJ^iV5RFnPeA"
A$ = A$ + "]5#\4?m2RYCW>EEG[\b:LmKD_;2AZo92]l1_GX]fJS1ce:Nj5TcNlhAhcGhn"
A$ = A$ + "TiVK>Fo^LiBID4RlIQ5FPVHR9D^?4cQ=]RI\2bETcaBM3<jcW?jR;^P1e65Q"
A$ = A$ + "JnPJck^k^?Z^1\Qed:^J1ba8ilOceiQ_hLR>>RnnN:k8gCTj:JBY[Dj2m5^m"
A$ = A$ + "fKcnnFBGc>k\DiUG>_?UMfIWTR^>nhSiL1m<mBY;DSMZYVRZZZZX]fJ[4^^P"
A$ = A$ + "?XoXIVIVGd[GH_3hMR3?l`lnCBdjJniWWO?WXW_CEgh^gMSn1`i1#>82el1e"
A$ = A$ + "FD[O3\VFaE;#>RL=Fd5je2g3\dB;A^MkFID4Rl1m>j`Q35MQi`VFa<F1iZFm"
A$ = A$ + "7RNRAoff]KG1lOVjn7oDXU?XWKlKS0`L]RWN1i\Xnian_JZYVDf[D4P=AXU?"
A$ = A$ + "Hm6JX1VH9Na3A_o[o3Ph%%L2"
btemp$ = ""
FOR i& = 1 TO LEN(A$) STEP 4: B$ = MID$(A$, i&, 4)
IF INSTR(1, B$, "%") THEN
FOR C% = 1 TO LEN(B$): F$ = MID$(B$, C%, 1)
IF F$ <> "%" THEN C$ = C$ + F$
NEXT: B$ = C$: END IF: FOR j = 1 TO LEN(B$)
IF MID$(B$, j, 1) = "#" THEN
MID$(B$, j) = "@": END IF: NEXT
FOR t% = LEN(B$) TO 1 STEP -1
B& = B& * 64 + ASC(MID$(B$, t%)) - 48
NEXT: X$ = "": FOR t% = 1 TO LEN(B$) - 1
X$ = X$ + CHR$(B& AND 255): B& = B& \ 256
NEXT: btemp$ = btemp$ + X$: NEXT
btemp$ = _INFLATE$(btemp$)
_MEMPUT m, m.OFFSET, btemp$: _MEMFREE m
BASIMAGE1& = _COPYIMAGE(v&): _FREEIMAGE v&
END FUNCTION
SUB Clear_MB (var AS INTEGER)
DO UNTIL NOT _MOUSEBUTTON(var)
WHILE _MOUSEINPUT: WEND
LOOP
END SUB 'Clear_MBThings to note. I had to add this line to the NUMBER2: sub-routine:
_PRINTSTRING (55, 30), SPACE$(40)
It is absolutely needed to clear the field before the number is printed when backspacing, but also when any result has fewer digits than the previous shown result. Now you may want to use something other than SPACE$(40) that will clear the field.
Next, I also had to make a different way to handle not accepting more than one leading zero in a non-decimal entry.
IMPORTANT: You need to revisit the CLIPBOARD routine. I could easily paste a sequence of like 0000...0.0 and it would be accepted. It would also screw up any attempted calculation.
Anyway, there will probaly be other athings to consider with the other math functions. I'm only checking +-*/.
Pete
RE: Calculator - SierraKen - 07-29-2022
Thanks again Pete, I appreciate the help. I didn't come across any Paste "000000" problem with calculations. I did see that sometimes it converts it to 0.0 which is the same number so it doesn't matter. I did come across a +/- button issue though which I fixed. It was when someone gave 0 a negative and did it again, it would keep putting more and more ---- each time you pressed it. So since zero has no negative in reality, I just made it impossible to make zero a negative to fix it. I really hope this is the last update. lol
Fixed Update:
Code: (Select All)
'Calculator
'By SierraKen on July 30, 2020.
'Updated on July 24, 2022 with Copy and Paste Buttons.
'Updated on July 26, 2022 with Back Space Button and RND (Random) Button
'Update on July 29, 2022 with math fix problem with Pete's help.
'-----------------------------------------------------------------------
'This is my very first regular calculator.
'Thank you to B+ and TempodiBasic for the help and everyone for the inspiration!
'Thank you Dav for the icon code!
'Thanks Pete for the math help!
_Icon BASIMAGE1&
_Title "Calculator - Esc for help."
Dim num As Double
Screen _NewImage(400, 525, 32)
f& = _LoadFont("Arial.ttf", 18)
begin:
_Font f&
num$ = ""
c = 0
a = 0: s = 0: t = 0: d = 0
'Setup calculator
Line (50, 25)-(265, 50), _RGB32(255, 255, 255), B
Line (50, 75)-(350, 350), _RGB32(255, 255, 255), B
'Buttons
For buttony = 75 To 405 Step 55
For buttonx = 50 To 275 Step 75
For bb = 0 To 10
c = c + 10
Line (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(100 + c, 100 + c, 100 + c), B
Next bb
Paint (buttonx + 12, buttony + 12), _RGB32(100 + c, 100 + c, 100 + c)
c = 0
Next buttonx
Next buttony
'Copy Button
buttonx = 50: buttony = 460
For bb = 0 To 10
c = c + 10
Line (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(100 + c, 100 + c, 100 + c), B
Next bb
Paint (buttonx + 12, buttony + 12), _RGB32(100 + c, 100 + c, 100 + c)
c = 0
'Paste Button
buttonx = 125: buttony = 460
For bb = 0 To 10
c = c + 10
Line (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(100 + c, 100 + c, 100 + c), B
Next bb
Paint (buttonx + 12, buttony + 12), _RGB32(100 + c, 100 + c, 100 + c)
c = 0
'Back Space Button
buttonx = 200: buttony = 460
For bb = 0 To 10
c = c + 10
Line (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(100 + c, 100 + c, 100 + c), B
Next bb
Paint (buttonx + 12, buttony + 12), _RGB32(100 + c, 100 + c, 100 + c)
c = 0
'Time Button
buttonx = 275: buttony = 460
For bb = 0 To 10
c = c + 10
Line (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(100 + c, 100 + c, 100 + c), B
Next bb
Paint (buttonx + 12, buttony + 12), _RGB32(100 + c, 100 + c, 100 + c)
c = 0
'Green C Button
buttonx = 275: buttony = 20
For bb = 0 To 10
c = c + 10
Line (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(50, 100 + c, 50), B
Next bb
Paint (buttonx + 12, buttony + 12), _RGB32(50, 100 + c, 50)
Color _RGB32(0, 0, 0), _RGB32(50, 100 + c, 50)
_PrintString (50, 5), "Rad"
wer:
'Label Buttons
_PrintString (306, 47), "C"
Color _RGB32(0, 0, 0), _RGB32(210, 210, 210)
_PrintString (87, 102), Chr$(251) 'square root
_PrintString (152, 102), "sin"
_PrintString (227, 102), "cos"
_PrintString (302, 102), "tan"
_PrintString (87, 157), "7"
_PrintString (162, 157), "8"
_PrintString (237, 157), "9"
_PrintString (312, 157), "/"
_PrintString (87, 212), "4"
_PrintString (162, 212), "5"
_PrintString (237, 212), "6"
_PrintString (312, 212), "x"
_PrintString (87, 267), "1"
_PrintString (162, 267), "2"
_PrintString (237, 267), "3"
_PrintString (312, 267), "-"
_PrintString (87, 322), "0"
_PrintString (162, 322), "."
_PrintString (237, 322), "="
_PrintString (312, 322), "+"
_PrintString (79, 377), " "
_PrintString (79, 377), "deg"
_PrintString (162, 377), "x" + Chr$(253) 'second power
_PrintString (227, 377), "log"
_PrintString (307, 377), "Pi"
_PrintString (79, 432), "1/x"
_PrintString (152, 432), "x/2"
_PrintString (227, 432), "exp"
_PrintString (312, 432), Chr$(241) 'Postive or Negative
_PrintString (68, 487), "Copy"
_PrintString (141, 487), "Paste"
_PrintString (210, 487), "<Back"
_PrintString (293, 487), "RND"
Color _RGB32(255, 255, 255), _RGB32(0, 0, 0)
Do
_Limit 30
a$ = InKey$
If a$ <> "" Then mousex = 0: mousey = 0: mouseLeftButton = 0
If a$ = Chr$(27) Then GoTo help:
If a$ = Chr$(3) Then a$ = "": GoTo clip: 'Ctrl+C copies to clipboard.
If a$ = "C" Or a$ = "c" Then a$ = "": GoTo delete: 'Back Space deletes output.
If a$ = "p" Or a$ = "P" Or a$ = "n" Or a$ = "N" Then a$ = "": GoTo posneg: 'Positive or Negative
If a$ = "f" Or a$ = "F" Then a$ = "": GoTo fraction:
If a$ = "h" Or a$ = "H" Then a$ = "": GoTo half:
If a$ = "e" Or a$ = "E" Then a$ = "": GoTo expcommand:
If a$ = "r" Or a$ = "R" Or a$ = "d" Or a$ = "D" Then a$ = "": GoTo radanddeg:
If a$ = "u" Or a$ = "U" Then a$ = "": GoTo squared:
If a$ = "l" Or a$ = "L" Then a$ = "": GoTo logarithm:
If a$ = "i" Or a$ = "I" Then a$ = "": GoTo pi:
If a$ = "q" Or a$ = "Q" Then a$ = "": GoTo squareroot:
If a$ = "s" Or a$ = "S" Then a$ = "": GoTo sine:
If a$ = "o" Or a$ = "O" Then a$ = "": GoTo cosine:
If a$ = "t" Or a$ = "T" Then a$ = "": GoTo tangent:
If a$ = "1" Then a$ = "": GoTo one:
If a$ = "2" Then a$ = "": GoTo two:
If a$ = "3" Then a$ = "": GoTo three:
If a$ = "4" Then a$ = "": GoTo four:
If a$ = "5" Then a$ = "": GoTo five:
If a$ = "6" Then a$ = "": GoTo six:
If a$ = "7" Then a$ = "": GoTo seven:
If a$ = "8" Then a$ = "": GoTo eight:
If a$ = "9" Then a$ = "": GoTo nine:
If a$ = "0" Then a$ = "": GoTo zero2:
If a$ = "." Then a$ = "": GoTo decimal:
If a$ = "=" Then a$ = "": GoTo equals:
If a$ = "+" Then a$ = "": GoTo add:
If a$ = "-" Then a$ = "": GoTo subtract:
If a$ = "*" Or a$ = "x" Or a$ = "X" Then a$ = "": GoTo multiply:
If a$ = "/" Then a$ = "": GoTo divide:
If a$ = Chr$(8) Then a$ = "": GoTo backbutton:
While _MouseInput: Wend
mousex = _MouseX
mousey = _MouseY
mouseLeftButton = _MouseButton(1)
If mouseLeftButton Then
Clear_MB 1
'Clipboard
If mousex > 50 And mousex < 265 And mousey > 25 And mousey < 50 Then
clip:
Color _RGB32(0, 255, 0), _RGB32(0, 0, 0)
_PrintString (55, 30), num$
_Delay .5
num2$ = _Trim$(num$)
_Clipboard$ = num2$
Color _RGB32(255, 255, 255), _RGB32(0, 0, 0)
_PrintString (55, 30), num$
End If
'Clipboard Button
If mousex > 50 And mousex < 125 And mousey > 460 And mousey < 515 Then
clip2:
Color _RGB32(0, 255, 0), _RGB32(0, 0, 0)
_PrintString (55, 30), num$
buttonx = 50: buttony = 460
GoSub press:
_Delay .5
num2$ = _Trim$(num$)
_Clipboard$ = num2$
Color _RGB32(255, 255, 255), _RGB32(0, 0, 0)
_PrintString (55, 30), num$
End If
'Paste Button
If mousex > 125 And mousex < 200 And mousey > 460 And mousey < 515 Then
paste:
buttonx = 125: buttony = 460
GoSub press:
num$ = _Clipboard$
If Len(num$) > 19 Then num$ = "0"
_PrintString (55, 30), num$
num = Val(num$)
GoSub number:
End If
'Back Space Button
If mousex > 200 And mousex < 275 And mousey > 460 And mousey < 515 Then
backbutton:
buttonx = 200: buttony = 460
GoSub press:
num$ = Left$(num$, Len(num$) - 1)
GoSub number2
End If
'Random Button
If mousex > 275 And mousex < 350 And mousey > 460 And mousey < 515 Then
timebutton:
buttonx = 275: buttony = 460
GoSub press:
num$ = Str$(Rnd)
_PrintString (55, 30), num$
num = Val(num$)
GoSub number:
End If
'Clear
If mousex > 275 And mousex < 350 And mousey > 20 And mousey < 75 Then
delete:
a = 0: s = 0: t = 0: d = 0: num$ = ""
_PrintString (55, 30), " "
buttonx = 275: buttony = 20
GoSub zero:
End If
'1/x
If mousex > 50 And mousex < 125 And mousey > 405 And mousey < 460 Then
fraction:
num = Val(num$)
If num = 0 Then GoTo skipthis:
num = 1 / num
num$ = Str$(num)
skipthis:
buttonx = 50: buttony = 405
GoSub press:
GoSub number:
End If
'x/2
If mousex > 126 And mousex < 200 And mousey > 405 And mousey < 460 Then
half:
num = Val(num$)
num = num / 2
num$ = Str$(num)
buttonx = 126: buttony = 405
GoSub press:
GoSub number2:
End If
'EXP
If mousex > 200 And mousex < 275 And mousey > 405 And mousey < 460 Then
expcommand:
_PrintString (55, 30), " "
num = Exp(Val(num$))
num$ = Str$(num)
buttonx = 200: buttony = 405
GoSub number2:
GoSub press:
End If
'Postive or Negative
If mousex > 275 And mousex < 350 And mousey > 405 And mousey < 460 Then
posneg:
If Val(num$) = 0 Then GoTo skipplusnegative:
If Val(num$) < 0 Then
num = -Val(num$)
num$ = Str$(num)
GoTo skipplusnegative:
End If
num$ = "-" + num$
skipplusnegative:
buttonx = 275: buttony = 405
GoSub press:
GoSub number:
End If
'Radians and Degrees
If mousex > 50 And mousex < 125 And mousey > 350 And mousey < 405 Then
radanddeg:
deg = deg + 1
If deg = 2 Then GoTo deg2rad:
Color _RGB32(0, 0, 0), _RGB32(210, 210, 210)
_PrintString (79, 377), " "
_PrintString (79, 377), "rad"
Color _RGB32(0, 0, 0), _RGB32(50, 100 + c, 50)
_PrintString (50, 5), "Deg"
num = Val(num$)
num = _R2D(num)
num$ = Str$(num)
GoTo skipdeg2rad:
deg2rad:
deg = 0
Color _RGB32(0, 0, 0), _RGB32(210, 210, 210)
_PrintString (79, 377), " "
_PrintString (79, 377), "deg"
Color _RGB32(0, 0, 0), _RGB32(50, 100 + c, 50)
_PrintString (50, 5), "Rad"
num = Val(num$)
num = _D2R(num)
num$ = Str$(num)
skipdeg2rad:
buttonx = 50: buttony = 350
GoSub press:
GoSub number:
End If
'Second Power
If mousex > 126 And mousex < 200 And mousey > 350 And mousey < 405 Then
squared:
num = Val(num$)
num = num ^ 2
num$ = Str$(num)
buttonx = 126: buttony = 350
GoSub press:
GoSub number2:
End If
'logarithm
If mousex > 200 And mousex < 275 And mousey > 350 And mousey < 405 Then
logarithm:
num = Val(num$)
If num = 0 Then GoTo skiplog:
If num < 0 Then GoTo skiplog:
num = Log(num)
num$ = Str$(num)
skiplog:
buttonx = 200: buttony = 350
GoSub press:
GoSub number:
End If
'Pi
If mousex > 275 And mousex < 350 And mousey > 350 And mousey < 405 Then
pi:
'num = 3.14159265359
num = _Pi
num$ = Str$(num)
buttonx = 275: buttony = 350
GoSub press:
GoSub number:
End If
'Square Root
If mousex > 50 And mousex < 125 And mousey > 75 And mousey < 130 Then
squareroot:
If num < 0 Then GoTo skip1:
num = Val(num$)
num = Sqr(num)
num$ = Str$(num)
skip1:
buttonx = 50: buttony = 75
GoSub press:
GoSub number:
End If
'Sine
If mousex > 126 And mousex < 200 And mousey > 75 And mousey < 130 Then
sine:
If deg = 1 Then num = Sin(_D2R(Val(num$)))
If deg = 0 Then num = Sin(num)
num$ = Str$(num)
buttonx = 126: buttony = 75
GoSub press:
GoSub number:
End If
'Cosine
If mousex > 200 And mousex < 275 And mousey > 75 And mousey < 130 Then
cosine:
If deg = 1 Then num = Cos(_D2R(Val(num$)))
If deg = 0 Then num = Cos(num)
num$ = Str$(num)
buttonx = 200: buttony = 75
GoSub press:
GoSub number:
End If
'Tangent
If mousex > 275 And mousex < 350 And mousey > 75 And mousey < 130 Then
tangent:
If deg = 1 Then num = Tan(_D2R(Val(num$)))
If deg = 0 Then num = Tan(num)
num$ = Str$(num)
buttonx = 275: buttony = 75
GoSub press:
GoSub number:
End If
'Number Buttons
If mousex > 50 And mousex < 125 And mousey > 130 And mousey < 185 Then
seven:
num$ = num$ + "7"
If n = 1 Then num$ = "-" + num$: n = 0
buttonx = 50: buttony = 130
GoSub press:
GoSub number:
End If
If mousex > 126 And mousex < 200 And mousey > 130 And mousey < 185 Then
eight:
num$ = num$ + "8"
If n = 1 Then num$ = "-" + num$: n = 0
buttonx = 126: buttony = 130
GoSub press:
GoSub number:
End If
If mousex > 200 And mousex < 275 And mousey > 130 And mousey < 185 Then
nine:
num$ = num$ + "9"
If n = 1 Then num$ = "-" + num$: n = 0
buttonx = 200: buttony = 130
GoSub press:
GoSub number:
End If
If mousex > 50 And mousex < 125 And mousey > 185 And mousey < 240 Then
four:
num$ = num$ + "4"
If n = 1 Then num$ = "-" + num$: n = 0
buttonx = 50: buttony = 185
GoSub press:
GoSub number:
End If
If mousex > 126 And mousex < 200 And mousey > 185 And mousey < 240 Then
five:
num$ = num$ + "5"
If n = 1 Then num$ = "-" + num$: n = 0
buttonx = 126: buttony = 185
GoSub press:
GoSub number:
End If
If mousex > 200 And mousex < 275 And mousey > 185 And mousey < 240 Then
six:
num$ = num$ + "6"
If n = 1 Then num$ = "-" + num$: n = 0
buttonx = 200: buttony = 185
GoSub press:
GoSub number:
End If
If mousex > 50 And mousex < 125 And mousey > 240 And mousey < 295 Then
one:
num$ = num$ + "1"
If n = 1 Then num$ = "-" + num$: n = 0
buttonx = 50: buttony = 240
GoSub press:
GoSub number:
End If
If mousex > 126 And mousex < 200 And mousey > 240 And mousey < 295 Then
two:
num$ = num$ + "2"
If n = 1 Then num$ = "-" + num$: n = 0
buttonx = 126: buttony = 240
GoSub press:
GoSub number:
End If
If mousex > 200 And mousex < 275 And mousey > 240 And mousey < 295 Then
three:
num$ = num$ + "3"
If n = 1 Then num$ = "-" + num$: n = 0
buttonx = 200: buttony = 240
GoSub press:
GoSub number:
End If
If mousex > 50 And mousex < 125 And mousey > 295 And mousey < 350 Then
zero2:
If num$ <> "0" Then ' Prevents more than one leading zero input.
num$ = num$ + "0"
If n = 1 Then num$ = "-" + num$: n = 0
buttonx = 50: buttony = 295
GoSub press:
GoSub number:
End If
End If
'Decimal
If mousex > 126 And mousex < 200 And mousey > 295 And mousey < 350 Then
decimal:
buttonx = 126: buttony = 295
For check = 1 To Len(num$)
If Mid$(num$, check, 1) = "." Then GoTo skipdec:
Next check
num$ = num$ + "."
_PrintString (55, 30), num$
skipdec:
GoSub press:
End If
'Equals
If mousex > 200 And mousex < 275 And mousey > 295 And mousey < 350 Then
equals:
If a = 1 Then num = Val(oldnum$) + Val(num$): a = 0
If s = 1 Then num = Val(oldnum$) - Val(num$): s = 0
If t = 1 Then num = Val(oldnum$) * Val(num$): t = 0
If d = 1 Then num = Val(oldnum$) / Val(num$): d = 0
'----------------------------------------------------
num$ = LTrim$(Str$(num))
'----------------------------------------------------
buttonx = 200: buttony = 295
GoSub press:
GoSub number2:
End If
'Add
If mousex > 275 And mousex < 350 And mousey > 295 And mousey < 350 Then
add:
If a = 0 Then
d = 0: a = 1: s = 0: t = 0
GoSub convert: oldnum$ = num$
_PrintString (55, 30), " "
num$ = ""
GoTo nex4:
End If
If a = 1 Then
num = Val(oldnum$) + Val(num$)
a = 0
End If
GoSub number2:
nex4:
buttonx = 275: buttony = 295
GoSub press:
End If
'Subtract
If mousex > 275 And mousex < 350 And mousey > 240 And mousey < 295 Then
subtract:
If s = 0 Then
If num$ = "0" Or num$ = "" Or num = 0 Then n = 1: GoTo nex3:
d = 0: a = 0: s = 1: t = 0
GoSub convert: oldnum$ = num$
_PrintString (55, 30), " "
num$ = ""
GoTo nex3:
End If
If s = 1 Then
num = Val(oldnum$) - Val(num$)
s = 0
End If
GoSub number2:
nex3:
buttonx = 275: buttony = 240
GoSub press:
End If
'Multiply
If mousex > 275 And mousex < 350 And mousey > 185 And mousey < 240 Then
multiply:
If t = 0 Then
d = 0: a = 0: s = 0: t = 1
GoSub convert: oldnum$ = num$
_PrintString (55, 30), " "
num$ = ""
GoTo nex2:
End If
If t = 1 Then
num = Val(oldnum$) * Val(num$)
t = 0
End If
GoSub number2:
nex2:
buttonx = 275: buttony = 185
GoSub press:
End If
'Divide
If mousex > 275 And mousex < 350 And mousey > 130 And mousey < 185 Then
divide:
If d = 0 Then
d = 1: a = 0: s = 0: t = 0
GoSub convert: oldnum$ = num$
_PrintString (55, 30), " "
num$ = ""
GoTo nex1:
End If
If d = 1 And num$ <> "" Then
num = Val(oldnum$) / Val(num$)
d = 0
End If
GoSub number2:
nex1:
buttonx = 275: buttony = 130
GoSub press:
End If
End If
Loop
'For Number Buttons.
convert:
If Val(num$) > 9999999999999999 Or Len(num$) > 19 Then
num$ = Left$(num$, 19)
End If
num = Val(num$)
Return
number:
If Val(num$) > 9999999999999999 Or Len(num$) > 19 Then
num$ = Left$(num$, 19)
End If
'For Math
number2:
Color _RGB32(0, 0, 0), _RGB32(0, 0, 0)
_PrintString (55, 30), Space$(40)
If Val(num$) > 9999999999999999 Or Len(num$) > 19 Then
num$ = Left$(num$, 19)
End If
Color _RGB32(255, 255, 255), _RGB32(0, 0, 0)
_PrintString (55, 30), num$
Return
'Pressing Each Button
press:
c = 110
For bb = 0 To 10
c = c - 10
Line (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(100 + c, 100 + c, 100 + c), B
Next bb
_Delay .03
For bb = 0 To 10
c = c + 10
Line (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(100 + c, 100 + c, 100 + c), B
Next bb
Return
'Pressing the Green C Button.
zero:
c = 110
For bb = 0 To 10
c = c - 10
Line (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(50, 100 + c, 50), B
Next bb
_Delay .25
For bb = 0 To 10
c = c + 10
Line (buttonx + bb, buttony + bb)-(buttonx + 75 - bb, buttony + 55 - bb), _RGB32(50, 100 + c, 50), B
Next bb
Return
help:
_Font 14
Cls
_Title "Calculator Help"
Print "Esc = Keyboard Help"
Print "CTRL+C = Copies To Clipboard"
Print "Left Mouse Click Copies To Clipboard."
Print "Copy Button Copies To Clipboard"
Print "Paste Button Pastes Clipboard To Screen"
Print "Backspace = Deletes Last Output Digit"
Print "RND = Makes a random number from 0 to 1."
Print "Letters can be upper or lower-case."
Print "P or N = Positve and Negative Switch."
Print "F = 1 / x"
Print "H = x / 2"
Print "E = EXP"
Print "R or D = Radian and Degree Switch."
Print "U = X ^ 2"
Print "L = Logarithm"
Print "I = Pi"
Print "Q = Square Root"
Print "s = Sine"
Print "o = Cosine"
Print "t = Tangent"
Print
Print "Below can be either Number Pad or the others."
Print "1-9 = Number Keys"
Print ". = Decimal"
Print "= = Equals"
Print "+ = Add"
Print "- = Subtract"
Print "* or X = Multiply"
Print "/ = Divide"
Print
Print "Press Esc to go back to calculator."
Do: Loop Until InKey$ = Chr$(27)
Cls
_Title "Calculator - Esc for help."
GoTo begin:
'This Function is from Dav which makes the icon picture. It uses code at the start of this program.
Function BASIMAGE1& 'calculatio icon data
v& = _NewImage(54, 48, 32)
Dim m As _MEM: m = _MemImage(v&)
A$ = ""
A$ = A$ + "haIkJ^eBK\557GZJOl02m5YDX5J1A:YC0aGE##Oc?0RUD5A:HDOA=N=2N96`"
A$ = A$ + ";87A#=X?hm4S6=N3_[XV4CRgn4]>co5=SJdI?IR9R7K2lSmNFke\bj?c<[I]"
A$ = A$ + "3QXknHbT9:]dB;Y`kblMd7Tn#B3cF=CZmYb:[Tb<c<Y<b83Ua8c5QJnTNjY["
A$ = A$ + "X[go?_W<f^AbX=I\7O8IGRiA[eSAbZ7[ZZ[nj[?Z`2;DgD#15lTf;ZXRXlc?"
A$ = A$ + "okdUEiL`Q<>Ua]nAb]4c3\?_<S8[;_Z[[4mmQIWMfDNiUg3eeTb\[<1T9\n#"
A$ = A$ + ":\4SR=obhEVAOUX[moCNM[n#j6965KQTImDj:U^BY;mZ[O4j7D>[T3Ukfin\"
A$ = A$ + "eEomg?EB9U`DLa5[#dfRLlm]7mi0PVb:[\R;MmY>o4mUom;D>NbQnn1OoEee"
A$ = A$ + "[kSNee7]lAjKcl=b#03T1o6NcX[Lg:Gjc3mIj[CmEbP_g>jjeLM3Ee5jg0m:"
A$ = A$ + "4DO85DRAaV?IFkER^V#V5TaUnAbU4c3\?WaGln3OT^Jc8gk=gCOLPT=9V7]F"
A$ = A$ + "GRkWOjYWVZYVJ8cV=cSA07;2]l1[okJn=mc6o9IbR9jG=o[4:8V>Lj#EM]jZ"
A$ = A$ + "[B3>hPdHS=6chS?^bX84i3FKTA6Q\Je:3V7;a<F1a2ilJ[]VZj2[=jXSB;_l"
A$ = A$ + "bdNk]7M`17#k_onlX8Dc74S=fH3Jb9WDAGH>\59n?7#<#^RLf[G_JZ[eGOM:"
A$ = A$ + "H`PdeGO=c=gLS#DcW#Q2aJ>JM1KQ37V^mfKe5ARKTSAlA^VBGYdE:Mmg]^6H"
A$ = A$ + "P1X012lRZ;\o\>k\CZWNjQjZ[^hl\nj[WkCIXQ6RlkgOL[[;_lBnk7onLK^i"
A$ = A$ + "VD]eF;eJ[]B]dB;D5ED1O^9;MeNk]CmfK_T=KfX>jX3Zk^kVeDS=f8EGMeAW"
A$ = A$ + "NjY?k[GUFJY\N#O:8VEGMeDIUE6IaRUTV^P]S>j8>o?olcY3?l#nN6TWhh[^"
A$ = A$ + "jZW]^>iTChc3SPc>k<VkO_`o7On:IFgh]FOD_EkkMa5GTOn<JJ^iV5RFnPeA"
A$ = A$ + "]5#\4?m2RYCW>EEG[\b:LmKD_;2AZo92]l1_GX]fJS1ce:Nj5TcNlhAhcGhn"
A$ = A$ + "TiVK>Fo^LiBID4RlIQ5FPVHR9D^?4cQ=]RI\2bETcaBM3<jcW?jR;^P1e65Q"
A$ = A$ + "JnPJck^k^?Z^1\Qed:^J1ba8ilOceiQ_hLR>>RnnN:k8gCTj:JBY[Dj2m5^m"
A$ = A$ + "fKcnnFBGc>k\DiUG>_?UMfIWTR^>nhSiL1m<mBY;DSMZYVRZZZZX]fJ[4^^P"
A$ = A$ + "?XoXIVIVGd[GH_3hMR3?l`lnCBdjJniWWO?WXW_CEgh^gMSn1`i1#>82el1e"
A$ = A$ + "FD[O3\VFaE;#>RL=Fd5je2g3\dB;A^MkFID4Rl1m>j`Q35MQi`VFa<F1iZFm"
A$ = A$ + "7RNRAoff]KG1lOVjn7oDXU?XWKlKS0`L]RWN1i\Xnian_JZYVDf[D4P=AXU?"
A$ = A$ + "Hm6JX1VH9Na3A_o[o3Ph%%L2"
btemp$ = ""
For i& = 1 To Len(A$) Step 4: B$ = Mid$(A$, i&, 4)
If InStr(1, B$, "%") Then
For C% = 1 To Len(B$): F$ = Mid$(B$, C%, 1)
If F$ <> "%" Then C$ = C$ + F$
Next: B$ = C$: End If: For j = 1 To Len(B$)
If Mid$(B$, j, 1) = "#" Then
Mid$(B$, j) = "@": End If: Next
For t% = Len(B$) To 1 Step -1
B& = B& * 64 + Asc(Mid$(B$, t%)) - 48
Next: X$ = "": For t% = 1 To Len(B$) - 1
X$ = X$ + Chr$(B& And 255): B& = B& \ 256
Next: btemp$ = btemp$ + X$: Next
btemp$ = _Inflate$(btemp$)
_MemPut m, m.OFFSET, btemp$: _MemFree m
BASIMAGE1& = _CopyImage(v&): _FreeImage v&
End Function
Sub Clear_MB (var As Integer)
Do Until Not _MouseButton(var)
While _MouseInput: Wend
Loop
End Sub 'Clear_MBRE: Calculator - Kernelpanic - 07-29-2022
Quote:I really hope this is the last update.Whether it is the last update or not, see it positively: You have learned a lot.
RE: Calculator - SierraKen - 07-29-2022
Thanks Kernelpanic
). Yes I have.
RE: Calculator - SierraKen - 07-29-2022
Kernel, your version might be wrong, I just re-pasted it back into the same post. It might be OK though. I was having some issue with it using the old .exe instead since I didn't save it with a name I believe.