QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-04 06:00:23 +00:00
Code Issues Releases Wiki Activity

Merge branch 'main' into versioninfo-enhancement

Browse source
This commit is contained in:
Samuel Gomes 2023-10-15 19:03:30 +05:30 committed by GitHub
parent f03efa2468 ebd4ddf75c
commit 5efe08153f
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 21985 additions and 21988 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43962
internal/source/main.txt
View file

File diff suppressed because it is too large Load diff

11
source/qb64pe.bas
View file

@ -24655,20 +24655,17 @@ FUNCTION EvaluateNumbers$ (p, num() AS STRING)
EXIT FUNCTION
END IF
CASE "\"
IF FIX(VAL(num(2))) = 0 THEN
IF _ROUND(VAL(num(2))) = 0 THEN
EvaluateNumbers$ = "ERROR - Division By Zero"
EXIT FUNCTION
END IF
n1 = VAL(num(1)) \ FIX(VAL(num(2)))
n1 = VAL(num(1)) \ _ROUND(VAL(num(2)))
CASE "MOD"
IF FIX(VAL(num(2))) = 0 THEN
IF _ROUND(VAL(num(2))) = 0 THEN
EvaluateNumbers$ = "ERROR - Division By Zero"
EXIT FUNCTION
END IF
n1 = VAL(num(1)) MOD FIX(VAL(num(2)))
n1 = VAL(num(1)) MOD _ROUND(VAL(num(2)))
CASE "+": n1 = VAL(num(1)) + VAL(num(2))
CASE "-":
n1 = VAL(num(1)) - VAL(num(2))