DarkCat09/mobilebasic
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add files via upload

Browse source
This commit is contained in:
Андрей 2021-03-29 20:43:07 +04:00 • committed by GitHub
parent 64c6352265
commit 35131ba393
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
90 changed files with 1738 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Examples/String/strings.bas Normal file
View file

@ -0,0 +1,18 @@
SUB MAIN
DIM STR AS STRING
DIM X AS DOUBLE
STR="Hello World"
PRINT "LEN(\"" + STR + "\")=" + STR$(LEN(STR))
PRINT "LEFT$(\"" + STR + "\",3) = \"" + LEFT$(STR,3) + "\""
PRINT "RIGHT$(\"" + STR + "\",3) = \"" + RIGHT$(STR,3) + "\""
PRINT "MID$(\"" + STR + "\",5,3) = \"" + MID$(STR,5,3) + "\""
PRINT "ASC(\"A\")=" + STR$(ASC("A"))
PRINT "CHR$(65)=" + CHR$(65)
PRINT "STR$(1.234) = \"" + STR$(1.234) + "\""
PRINT "LOWER$(\"" + STR + "\") = \"" + LOWER$(STR) + "\""
PRINT "UPPER$(\"" + STR + "\") = \"" + UPPER$(STR) + "\""
STR = "1.234"
X = VAL(STR)
PRINT "VAL(\"" + STR + "\") = " + STR$(X)
END SUB