mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-06 21:00:25 +00:00
Merge branch 'main' into versioninfo-enhancement
This commit is contained in:
commit
5efe08153f
43962
internal/source/main.txt
43962
internal/source/main.txt
File diff suppressed because it is too large
Load diff
|
@ -24655,20 +24655,17 @@ FUNCTION EvaluateNumbers$ (p, num() AS STRING)
|
||||||
EXIT FUNCTION
|
EXIT FUNCTION
|
||||||
END IF
|
END IF
|
||||||
CASE "\"
|
CASE "\"
|
||||||
IF FIX(VAL(num(2))) = 0 THEN
|
IF _ROUND(VAL(num(2))) = 0 THEN
|
||||||
EvaluateNumbers$ = "ERROR - Division By Zero"
|
EvaluateNumbers$ = "ERROR - Division By Zero"
|
||||||
EXIT FUNCTION
|
EXIT FUNCTION
|
||||||
END IF
|
END IF
|
||||||
|
n1 = VAL(num(1)) \ _ROUND(VAL(num(2)))
|
||||||
n1 = VAL(num(1)) \ FIX(VAL(num(2)))
|
|
||||||
CASE "MOD"
|
CASE "MOD"
|
||||||
IF FIX(VAL(num(2))) = 0 THEN
|
IF _ROUND(VAL(num(2))) = 0 THEN
|
||||||
EvaluateNumbers$ = "ERROR - Division By Zero"
|
EvaluateNumbers$ = "ERROR - Division By Zero"
|
||||||
EXIT FUNCTION
|
EXIT FUNCTION
|
||||||
END IF
|
END IF
|
||||||
|
n1 = VAL(num(1)) MOD _ROUND(VAL(num(2)))
|
||||||
n1 = VAL(num(1)) MOD FIX(VAL(num(2)))
|
|
||||||
|
|
||||||
CASE "+": n1 = VAL(num(1)) + VAL(num(2))
|
CASE "+": n1 = VAL(num(1)) + VAL(num(2))
|
||||||
CASE "-":
|
CASE "-":
|
||||||
n1 = VAL(num(1)) - VAL(num(2))
|
n1 = VAL(num(1)) - VAL(num(2))
|
||||||
|
|
Loading…
Reference in a new issue