官网：
有木有同好可以继续翻译
_____ _ _ ____ _____ _____ _____
/ ____| | | | _ \ /\ / ____|_ _/ ____|
| (___ _ __ ___ __ _| | | |_) | / \ | (___ | || |
\___ \| '_ ` _ \ / _` | | | _ < / /\ \ \___ \ | || |
____) | | | | | | (_| | | | |_) / ____ \ ____) |_| || |____
|_____/|_| |_| |_|\__,_|_|_|____/_/ \_\_____/|_____\_____|
1. (Console) AT
AT x, y
将控制台光标移动到指定位置。x、y的单位是像素。
2. (Console) BEEP
BEEP
产生嘟一声。
3. (Console) CLS
CLS
清除屏幕。
4. (Console) FORM
FORM(map)
从映射变量创建表单对象。这提供了对以下子命令的访问：doEvents、close、refresh。
表单映射可能包含以下属性：value、inputs、focus。
输入是一个映射数组，每个映射可以包含以下属性： x、y、width、height、value、label、name、type、backgroundColor、color、visible、isExit、selectedIndex、length、noFocus、onclick
type属性可以是以下属性之一：
button
label
link
tab
listbox
choice
text
image
As far as I know FORM has replaced DOFORM. This example, since it is longer, will be in the Code Demo section of the Code Library as well.
Here is Chris code example of FORM's usage. As you can see, it requires knowledge of buttons and their properties. Also be forewarned this code will create the file: f.frm. I may have modified a few items playing with the code since Chris had posted it.
----[ FORM example. cut here ]--->
f.handleKeys = 0
' create some buttons
button1.y = 120
button1.label = "Button1"
button1.value = "valudofButton1"
button1.backgroundcolor = rgb(255,0,0)
button1.onclick = HelloWorld 'this prints on load
button2.x = -1
button2.y = 120
button2.label = "Button2"
button2.value = "valueofButton2"
button3.type = "image"
button3.value = "cats"
button3.x = -1
button3.y = 120
button3.background = 223344
b4.type = "choice"
b4.value = "cats|dogs|Fish|cats|dogs|Fish|cats|dogs|Fish|cats|dogs|Fish"
b4.selectedIndex = 2
b4.x = -1
b4.y = 120
b5.type = "list"
b5.value = "cats|dogs|Fish|cats|dogs|Fish|cats|dogs|Fish|cats|dogs|Fish|end|lol"
b5.x = -1
b5.y = 120
b5.height = 120
b6.type = "text"
b6.value = "cats"
b6.length=30
b6.x = -1
b6.y = 120
b6.width = 50
b6.noFocus = 0
' add buttons to the form
f.inputs << button1
f.inputs << button2
f.inputs << button3
f.inputs << b4
f.inputs << b5
f.inputs << b6
f.backgroundcolor = "green"
' at this stage 'f' is just a plain user defined structure (map)
' after calling FORM, 'f' becomes a system form object with three special functions
' doEvents, close and refresh (see sokoban.bas for refresh)
f = form(f)
' the string version of the form is JSON (see https://en.wikipedia.org/wiki/JSON)
TSAVE "f.frm", f
while 1
' pump the system event queue
f.doEvents()
' process the event
in$ = inkey
at 0,0
if len(in$)>1 then
flag= asc(left(in$,1))
keychar =right(in$,1)
n= asc(keychar)
if (flag == 1)
? "Ctrl : ";keychar ; " "
else if (flag == 2)
? "Alt : "; keychar
else if (flag == 3)
? "Ctrl+Alt: "; keychar ; " "
else
? "Arrow: "; n ; " "
end if
else
vkey = asc(in$)
if (vkey == 8) then
? "backspace!"
else if (vkey == 127) then
? "delete !"
else
? " key= "; in$; " "; vkey
endif
endif
if b6.value <> "cats" then ? b6.value
if (len(f.value) > 0) then
print f.value; " "
end if
wend
f.close()
func HelloWorld
? "hello world"
end
<---[ cut here ]----
5. (Console) INPUT
INPUT [prompt,|;] var[, var [, ...]]
读取“键盘”文本并将其存储在变量中。
prompt后用“;”会自动在prompt字符串后添加一个“?”，而用“,”就不会。
如果没有prompt，只有“;”，那么输入完成后光标还是定位在输入行，而不会正常换行
6. (Console) LINEINPUT
LINEINPUT [#fileN] var
从文件号绑定的文件或从控制台读取整行文本。
7. (Console) LINPUT
LINPUT [#fileN] var
从文件号绑定的文件或从控制台读取整行文本。
8. (Console) LOCATE
LOCATE y, x
将控制台光标移动到指定位置。x、y的单位是文本字符行列位置。
9. (Console) LOGPRINT
LOGPRINT ...
输出到应用程序日志文件。语法与PRINT命令相同。
10. (Console) NOSOUND
NOSOUND
停止背景声音并清除声音队列。
11. (Console) PEN
PEN ON|OFF
本程序内笔与鼠标功能的启用/禁用。
12. (Console) PLAY
PLAY string
播放音符字串。
A-G[-|+|#][nnn][.]
A-G是7个音的音符
“+”或“#”是升半音
“-”是降半音
nnn是数字，数字1就是一拍，64就是六十四分之一拍
“.”是音符拍数延长0.5倍
P[1..64]
P是休止符，后面的数字1就是一拍，64就是六十四分之一拍
Nnn是用“nn”1-84数字编号表示从低音到高音的音符，N0表示休止符
“<”是表示降八度，这个符号之后会降八度来播放后面的音符；“>”是表示升八度，这个符号之后会升八度来播放后面的音符
Tnnn是用数字32..255表示拍子为每分钟几拍。32就是以每分钟32拍的慢节奏播放之后的音符
Lnn是用数字1..64表示之后的音符以1/nn拍播放
ML是表示这个符号之后是以连音占空比（1）播放后面的音符；MN是表示这个符号之后是以普通占空比（3/4）播放后面的音符；MS是表示这个符号之后是以断音占空比（1/2）播放后面的音符
Vnnn
这是音量，这个符号之后的音符是以数字0..100指定的音量播放
MF是表示这个符号之后的音符以前台播放方式放完才进行下一条语句；MB是表示这个符号之后的音符以后台方式播放，边播放边继续后面的语句。注意：后台播放时，当后面的语句都运行完毕到了程序结束，即使音符序列还没播放完程序也会结束而终止播放
Q是表示清除Q之前还在后台播放的音符序列。当Q之前不是后台播放状态或后台播放的序列已经都放完了，那么遇到Q则没有任何作用
13. (Console) PRINT
PRINT [USING [format];] [expr|str [,|; [expr|str]] ...
显示文本或表达式的值。
*PRINT SEPARATORS*
| TAB(n)| Moves cursor position to the nth column.|
| SPC(n)| Prints a number of spaces specified by n.|
| ;| Carriage return/line feed suppressed after printing.|
| ,| Carriage return/line feed suppressed after printing.|
*PRINT USING*
Print USING uses the FORMAT() function to display numbers and strings. Unlike FORMAT it can also include literals.
* [_] - Print next character as a literal. The combination _#, for example, allows you to include a number sign as a literal in your numeric format.
* [other] Characters other than the foregoing may be included as literals in the format string.
p.. When a PRINT USING command is executed the format will remains on the memory until a new format is passed. Calling a PRINT USING without a new format specified the PRINT will use the format of previous call.
PRINT USING "##: #,###,##0.00";
FOR i=0 TO 20
PRINT USING; i+1, A(i)
NEXT
....
PRINT USING "Total ###,##0 of \\ \\"; number, "bytes"
The symbol ? can be used instead of keyword PRINT You can use 'USG' instead of 'USING'.
quote: <strong>It's all in the punctuation at the end of a print statement</strong>
----[ PRINT example. cut here ]--->
REM 3 ways to print hello five time.bas 2016-03-05 SmallBASIC 0.12.2 [B+=MGA]
'It's all in the punctuation at the end of a print statement
'1) no punctiation = whole print lines CR=carriage return and LF=line feed, ready to go on next line
for i=1 to 5
print "hello"
next
?:? '2 blank lines
'2) a comma which tabs to next avaiable tab column and will stay on same line until run out of coloumns
for i=1 to 5
print "hello",
next
? "& this will finish the hello, line."
?:? 'the first ?=print will finish the print line, the 2 two are blank lines
'3) a semicolon (and space after hello)
for i=1 to 5
print "hello";" "; 'or just print "hello ";
next
? "... this line needs to be finsihed."
pause
<---[ cut here ]----
To gain even more control of where your next PRINT statement will end up on screen checkout the older LOCATE keyword and the more modern method of using AT.
----[ PRINT example. cut here ]--->
' PRINT can also print to an open file or device (not only to console).
' Note: new-line (or line-break) character(s) is different on each system:
' Windows and DOS uses a pair of CR and LF characters to terminate lines.
' UNIX, Linux, FreeBSD and OS X uses a single LF character only.
' Classic Mac operating system uses a single CR character only.
' * CR is CHR(13); LF is CHR(10).
' Print lines to demo file:
Open "PRINT.TMP" For Output As #1
Print #1, "hello_1" ' print [hello new-line]
Print #1, "Hello_2", "Hello_3" ' print [hello tab hello new-line]
Print #1, "Hello_4"; "Hello_5"; ' print [hello hello]
Print #1, ' print [new-line]
Print #1, ' print [new-line]
Print #1, ; ' print [].
Print #1, Using "000 &"; 55, "is my mailbox" ' print [055... new-line]
? #1, "Hello_?" ' print [Hello_? new-line]
Close #1
' Load lines from demo file and print them to console:
Open "PRINT.TMP" For Input As #1
Color 0, 7
While Not Eof(1) Do
Lineinput #1, s
Print s
Wend
Close #1
Pause
<---[ cut here ]----
14. (Console) SOUND
SOUND freq, dur_ms [, vol] [BG]
发出指定频率的声音。
* freq 是频率
* dur_ms 持续时间（毫秒）
* vol 音量（0..100）
* BG 设在后台播放
网友评论