请告诉我17个Q-BASIC语言命令语句
答案:2 悬赏:0
解决时间 2021-03-11 22:46
- 提问者网友:房东的猫
- 2021-03-11 14:23
请告诉我17个Q-BASIC语言命令语句
最佳答案
- 二级知识专家网友:陪我到地狱流浪
- 2021-03-11 14:57
QBASIC - Statements
命令:
BEEP, BLOAD, BSAVE, CALL, CHAIN, CHDIR, CIRCLE, CLEAR, CLOSE, CLS, COLOR, COM, COMMON, CONST, DATA, DATE$, DECLARE, DEF, DEFDBL, DEFINT, DEFLNG, DEFSNG, DEFSTR, DIM, DO, DRAW, END, ENVIRON, ERASE, ERROR, EXIT, FIELD, FILES, FOR, FUNCTION, GET, GOSUB, GOTO, IF, INPUT, IOCTL, KEY, KILL, LET, LINE, LINE INPUT, LOCATE, LOCK, LPRINT, LSET, MID$, MKDIR, NAME, ON, OPEN, OPTION, OUT, PAINT, PALETTE, PCOPY, PEN, PLAY, POKE, PRESET, PRINT, PSET, PUT, RANDOMIZE, READ, REDIM, REM, RESET, RESTORE, RESUME, RETURN, RMDIR, RSET, RUN, SCREEN, SEEK, SELECT CASE, SHARED, SHELL, SLEEP, SOUND, STATIC, STOP, STRIG, SUB, SWAP, SYSTEM, TIME$, TROFF, TRON, TYPE, UNLOCK, VIEW, WAIT, WHILE, WIDTH, WINDOW, WRITE
程序:
CALL
CHAIN
DECLARE
END
OPTION
REM
RUN
STOP
事件:
ON
SLEEP
WAIT
结构:
DO
ERROR
EXIT
FOR
FUNCTION
GOSUB
GOTO
IF
RESUME
RETURN
SELECT CASE
SUB
WHILE
数据
CLEAR
COMMON
CONST
DATA
DEFDBL
DEFINT
DEFLNG
DEFSNG
DEFSTR
DIM
ERASE
INPUT
LET
MID$
RANDOMIZE
READ
REDIM
RESTORE
SHARED
SWAP
STATIC
TYPE
Pen
PEN
Joystick
STRIG
Keyboard
INPUT
KEY
LINE INPUT
Screen
CLS
COLOR
LOCATE
PALETTE
PCOPY
PRINT
SCREEN
VIEW
WIDTH
WINDOW
Printer
LPRINT
WIDTH
Graphics
CIRCLE
DRAW
GET
LINE
PAINT
PRESET
PSET
PUT
Sound
BEEP
PLAY
SOUND
Memory
BLOAD
BSAVE
CLEAR
DEF
DEF SEG
POKE
File
CLOSE
KILL
NAME
OPEN
RESET
Sequential file
INPUT
LINE INPUT
PRINT
WRITE
Random file
FIELD
GET
LOCK
LSET
PUT
RSET
SEEK
UNLOCK
Binary file
BLOAD
BSAVE
Directory
CHDIR
MKDIR
RMDIR
System
COM
ENVIRON
IOCTL
OUT
SHELL
SYSTEM
Date & Time
DATE$
TIME$
Debug
TROFF
TRON
BEEP
Sounds the speaker at 800 Hz for 1/4 second.
PRINT CHR$(7) also beeps
CIRCLE
>SCREEN 1: CIRCLE
CLOSE
Close an open file
>OPEN
DATA
>maskinkode: array
DEF
DEF SEG
Sets the current segment address.
DEF SEG [=address]
address A segment address used by BLOAD, BSAVE, CALL ABSOLUTE, PEEK, or POKE
- a value in the range 0 - 65535.
If address is omitted, DEF SEG resets the current segment address to the default data segment.
Example:
DEF SEG = 0
Status% = PEEK(&H417)
POKE &H417, (Status% XOR &H40)
DEF SEG
Read keyboard status.
Change Caps Lock state, bit 6.
Reset segment address.
>maskinkode: array
DIM
DIM declares an array or specifies a data type for a nonarray variable.
>REDIM, $DYNAMIC, $STATIC
DIM [SHARED] variable[(subscripts)] [AS type][, variable[(subscripts)] [AS type]]...
SHARED Specifies that variables are shared with all SUB or FUNCTION procedures in the module.
subscripts Dimensions of the array, expressed as follows:
[lower TO] upper [, [lower TO] upper]...
lower The lower bound of the array's subscripts.
The default lower bound is zero.
upper The upper bound.
>OPTION BASE
AS type Declares the data type of the array or variable:
INTEGER A 16-bit signed integer variable
LONG A 32-bit signed integer variable
SINGLE A single-precision 32-bit floating-point variable
DOUBLE A double-precision 64-bit floating-point variable
STRING * n% A fixed-length string variable n% bytes long
STRING A variable-length string variable
DIM i%
DIM i AS INTEGER
DIM s AS STRING * 20
DIM a(4) AS SINGLE '5 numbers (0 to 4)
DRAW
> SCREEN 1: DRAW
GET
>GET [File I/O]
>GET [Graphics]
IF...THEN...ELSE
IF condition THEN statements [ELSE statements]
IF condition THEN
statements
[ELSEIF condition THEN
statements]...
[ELSE
statements]
END IF
KEY
>KEY [Assignment]
>KEY [Event Trapping]
LINE (Graphics)
> SCREEN 1: LINE
LOCATE
> SCREEN 0: LOCATE (show/hide/define cursor)
LPRINT
> Printer: LPRINT
> PRINT
MID$
The MID$ statement replaces part of a string variable with another string.
MId$(stringvariable$,start%[,length%])=stringexpression$
stringvariable$ The string variable being modified.
start% The position of the first character in the substring being replaced.
length% The number of characters in the substring. If the length is omitted, MID$ replaces all characters to the right of the start position.
stringexpression$ The replacement string. It can be any string expression.
Ex:
Text$ = "Paris, France"
PRINT Text$
MId$(Text$, 8) = "Texas "
PRINT Text$
Paris, France
Paris, Texas
>Function: MId$()
PAINT
> SCREEN 1: PAINT
PALETTE
> SCREEN 1: PALETTE
PLAY
> Sound: PLAY
> SOUND
> PLAY (Event Trapping)
POKE
> DEF SEG
> SCREEN 0: POKE (attributes and chars)
> PEEK()
PRESET
> PSET
> SCREEN 1: PRESET
PSET
> PRESET
> SCREEN 1: PSET
PUT
>PUT (File I/O)
>PUT (Graphics)
>GET
RANDOMIZE [seed]
Benytter 'seed' til at danne en ny start p? den sekvens af 'tilf?ldige' tal, som RND() returnerer.
Med en fast seed-v?rdi kan man sikre, at den tilf?ldige sekvens altid er den samme:
RANDOMIZE 124
FOR i = 1 TO 4
PRINT RND
NEXT
.2441675
.214439
.6458486
.7624476
Hvis talsekvensen skal v?re 'rigtig tilf?ldig' benyttes
RANDOMIZE TIMER
der benytter maskines aktuelle tid som seed.
REDIM
REDIM declares or resizes a dynamic array, erasing any previous values.
REDIM [SHARED] variable[(subscripts)] [AS type][, variable[(subscripts)] [AS type]]...
>DIM
SOUND
> Sound: SOUND
> PLAY
SYSTEM
Lukker alle ?bne filer og returnere til operativsystemet (DOS)
VIEW
Definerer et omr?de af en grafik-sk?rm ("viewport") - grafik (men ikke tekst) bliver begr?nset til dette omr?de.
VIEW Uden parametre nulstiller en defineret Viewport - s? hele sk?rmen benyttes til grafik.
Grafikkoordinater er relative til en defineret Viewport - men:
VIEW SCREEN ... benytter absolutte koordinater.
CLS rydder kun det indre af en Viewport.
VIEW [[SCREEN] (x1!,y1!)-(x2!,y2!) [,[color%] [,border%]]]
SCREEN Specifies that coordinates are relative to the
screen rather than the viewport.
(x1!,y1!)-(x2!,y2!) The coordinates of diagonally opposite corners
of the viewport.
color% A color attribute that sets the viewport fill
color. Depends on Screen mode.
border% A color attribute that sets the viewport border
color. Depends on Screen mode.
F?lgende to rutiner (uden og med SCREEN) giver samme resultat (bem?rk parametrene til CIRCLE):
SCREEN 1
VIEW (80, 80)-(160, 120), , 1
LOCATE 13, 13: PRINT "A viewport";
CIRCLE (25, 20), 30
SCREEN 1
VIEW SCREEN (80, 80)-(160, 120), , 1
LOCATE 13, 13: PRINT "A viewport";
CIRCLE (105, 100), 30
et udsnit af sk?rmen:
view1.gif (1722 bytes)
SCREEN 1
VIEW (80, 80)-(160, 120), 2, 1
LOCATE 13, 13: PRINT "A viewport";
CIRCLE (25, 20), 30
view2.gif (1904 bytes)
WHILE...WEND
WHILE
'statements
WEND
Wait for any key:
WHILE Inkey$="": WEND
WIDTH
> SCREEN
命令:
BEEP, BLOAD, BSAVE, CALL, CHAIN, CHDIR, CIRCLE, CLEAR, CLOSE, CLS, COLOR, COM, COMMON, CONST, DATA, DATE$, DECLARE, DEF, DEFDBL, DEFINT, DEFLNG, DEFSNG, DEFSTR, DIM, DO, DRAW, END, ENVIRON, ERASE, ERROR, EXIT, FIELD, FILES, FOR, FUNCTION, GET, GOSUB, GOTO, IF, INPUT, IOCTL, KEY, KILL, LET, LINE, LINE INPUT, LOCATE, LOCK, LPRINT, LSET, MID$, MKDIR, NAME, ON, OPEN, OPTION, OUT, PAINT, PALETTE, PCOPY, PEN, PLAY, POKE, PRESET, PRINT, PSET, PUT, RANDOMIZE, READ, REDIM, REM, RESET, RESTORE, RESUME, RETURN, RMDIR, RSET, RUN, SCREEN, SEEK, SELECT CASE, SHARED, SHELL, SLEEP, SOUND, STATIC, STOP, STRIG, SUB, SWAP, SYSTEM, TIME$, TROFF, TRON, TYPE, UNLOCK, VIEW, WAIT, WHILE, WIDTH, WINDOW, WRITE
程序:
CALL
CHAIN
DECLARE
END
OPTION
REM
RUN
STOP
事件:
ON
SLEEP
WAIT
结构:
DO
ERROR
EXIT
FOR
FUNCTION
GOSUB
GOTO
IF
RESUME
RETURN
SELECT CASE
SUB
WHILE
数据
CLEAR
COMMON
CONST
DATA
DEFDBL
DEFINT
DEFLNG
DEFSNG
DEFSTR
DIM
ERASE
INPUT
LET
MID$
RANDOMIZE
READ
REDIM
RESTORE
SHARED
SWAP
STATIC
TYPE
Pen
PEN
Joystick
STRIG
Keyboard
INPUT
KEY
LINE INPUT
Screen
CLS
COLOR
LOCATE
PALETTE
PCOPY
SCREEN
VIEW
WIDTH
WINDOW
Printer
LPRINT
WIDTH
Graphics
CIRCLE
DRAW
GET
LINE
PAINT
PRESET
PSET
PUT
Sound
BEEP
PLAY
SOUND
Memory
BLOAD
BSAVE
CLEAR
DEF
DEF SEG
POKE
File
CLOSE
KILL
NAME
OPEN
RESET
Sequential file
INPUT
LINE INPUT
WRITE
Random file
FIELD
GET
LOCK
LSET
PUT
RSET
SEEK
UNLOCK
Binary file
BLOAD
BSAVE
Directory
CHDIR
MKDIR
RMDIR
System
COM
ENVIRON
IOCTL
OUT
SHELL
SYSTEM
Date & Time
DATE$
TIME$
Debug
TROFF
TRON
BEEP
Sounds the speaker at 800 Hz for 1/4 second.
PRINT CHR$(7) also beeps
CIRCLE
>SCREEN 1: CIRCLE
CLOSE
Close an open file
>OPEN
DATA
>maskinkode: array
DEF
DEF SEG
Sets the current segment address.
DEF SEG [=address]
address A segment address used by BLOAD, BSAVE, CALL ABSOLUTE, PEEK, or POKE
- a value in the range 0 - 65535.
If address is omitted, DEF SEG resets the current segment address to the default data segment.
Example:
DEF SEG = 0
Status% = PEEK(&H417)
POKE &H417, (Status% XOR &H40)
DEF SEG
Read keyboard status.
Change Caps Lock state, bit 6.
Reset segment address.
>maskinkode: array
DIM
DIM declares an array or specifies a data type for a nonarray variable.
>REDIM, $DYNAMIC, $STATIC
DIM [SHARED] variable[(subscripts)] [AS type][, variable[(subscripts)] [AS type]]...
SHARED Specifies that variables are shared with all SUB or FUNCTION procedures in the module.
subscripts Dimensions of the array, expressed as follows:
[lower TO] upper [, [lower TO] upper]...
lower The lower bound of the array's subscripts.
The default lower bound is zero.
upper The upper bound.
>OPTION BASE
AS type Declares the data type of the array or variable:
INTEGER A 16-bit signed integer variable
LONG A 32-bit signed integer variable
SINGLE A single-precision 32-bit floating-point variable
DOUBLE A double-precision 64-bit floating-point variable
STRING * n% A fixed-length string variable n% bytes long
STRING A variable-length string variable
DIM i%
DIM i AS INTEGER
DIM s AS STRING * 20
DIM a(4) AS SINGLE '5 numbers (0 to 4)
DRAW
> SCREEN 1: DRAW
GET
>GET [File I/O]
>GET [Graphics]
IF...THEN...ELSE
IF condition THEN statements [ELSE statements]
IF condition THEN
statements
[ELSEIF condition THEN
statements]...
[ELSE
statements]
END IF
KEY
>KEY [Assignment]
>KEY [Event Trapping]
LINE (Graphics)
> SCREEN 1: LINE
LOCATE
> SCREEN 0: LOCATE (show/hide/define cursor)
LPRINT
> Printer: LPRINT
MID$
The MID$ statement replaces part of a string variable with another string.
MId$(stringvariable$,start%[,length%])=stringexpression$
stringvariable$ The string variable being modified.
start% The position of the first character in the substring being replaced.
length% The number of characters in the substring. If the length is omitted, MID$ replaces all characters to the right of the start position.
stringexpression$ The replacement string. It can be any string expression.
Ex:
Text$ = "Paris, France"
PRINT Text$
MId$(Text$, 8) = "Texas "
PRINT Text$
Paris, France
Paris, Texas
>Function: MId$()
PAINT
> SCREEN 1: PAINT
PALETTE
> SCREEN 1: PALETTE
PLAY
> Sound: PLAY
> SOUND
> PLAY (Event Trapping)
POKE
> DEF SEG
> SCREEN 0: POKE (attributes and chars)
> PEEK()
PRESET
> PSET
> SCREEN 1: PRESET
PSET
> PRESET
> SCREEN 1: PSET
PUT
>PUT (File I/O)
>PUT (Graphics)
>GET
RANDOMIZE [seed]
Benytter 'seed' til at danne en ny start p? den sekvens af 'tilf?ldige' tal, som RND() returnerer.
Med en fast seed-v?rdi kan man sikre, at den tilf?ldige sekvens altid er den samme:
RANDOMIZE 124
FOR i = 1 TO 4
PRINT RND
NEXT
.2441675
.214439
.6458486
.7624476
Hvis talsekvensen skal v?re 'rigtig tilf?ldig' benyttes
RANDOMIZE TIMER
der benytter maskines aktuelle tid som seed.
REDIM
REDIM declares or resizes a dynamic array, erasing any previous values.
REDIM [SHARED] variable[(subscripts)] [AS type][, variable[(subscripts)] [AS type]]...
>DIM
SOUND
> Sound: SOUND
> PLAY
SYSTEM
Lukker alle ?bne filer og returnere til operativsystemet (DOS)
VIEW
Definerer et omr?de af en grafik-sk?rm ("viewport") - grafik (men ikke tekst) bliver begr?nset til dette omr?de.
VIEW Uden parametre nulstiller en defineret Viewport - s? hele sk?rmen benyttes til grafik.
Grafikkoordinater er relative til en defineret Viewport - men:
VIEW SCREEN ... benytter absolutte koordinater.
CLS rydder kun det indre af en Viewport.
VIEW [[SCREEN] (x1!,y1!)-(x2!,y2!) [,[color%] [,border%]]]
SCREEN Specifies that coordinates are relative to the
screen rather than the viewport.
(x1!,y1!)-(x2!,y2!) The coordinates of diagonally opposite corners
of the viewport.
color% A color attribute that sets the viewport fill
color. Depends on Screen mode.
border% A color attribute that sets the viewport border
color. Depends on Screen mode.
F?lgende to rutiner (uden og med SCREEN) giver samme resultat (bem?rk parametrene til CIRCLE):
SCREEN 1
VIEW (80, 80)-(160, 120), , 1
LOCATE 13, 13: PRINT "A viewport";
CIRCLE (25, 20), 30
SCREEN 1
VIEW SCREEN (80, 80)-(160, 120), , 1
LOCATE 13, 13: PRINT "A viewport";
CIRCLE (105, 100), 30
et udsnit af sk?rmen:
view1.gif (1722 bytes)
SCREEN 1
VIEW (80, 80)-(160, 120), 2, 1
LOCATE 13, 13: PRINT "A viewport";
CIRCLE (25, 20), 30
view2.gif (1904 bytes)
WHILE...WEND
WHILE
'statements
WEND
Wait for any key:
WHILE Inkey$="": WEND
WIDTH
> SCREEN
全部回答
- 1楼网友:一起来看看吧
- 2021-03-11 15:23
qbasic - statements 命令: beep, bload, bsave, call, chain, chdir, circle, clear, close, cls, color, com, common, const, data, date$, declare, def, defdbl, defint, deflng, defsng, defstr, dim, do, draw, end, environ, erase, error, exit, field, files, for, function, get, gosub, goto, if, input, ioctl, key, kill, let, line, line input, locate, lock, lprint, lset, mid$, mkdir, name, on, open, option, out, paint, palette, pcopy, pen, play, poke, preset, print, pset, put, randomize, read, redim, rem, reset, restore, resume, return, rmdir, rset, run, screen, seek, select case, shared, shell, sleep, sound, static, stop, strig, sub, swap, system, time$, troff, tron, type, unlock, view, wait, while, width, window, write 程序: call chain declare end option rem run stop 事件: on sleep wait 结构: do error exit for function gosub goto if resume return select case sub while 数据 clear common const data defdbl defint deflng defsng defstr dim erase input let mid$ randomize read redim restore shared swap static type pen pen joystick strig keyboard input key line input screen cls color locate palette pcopy print screen view width window printer lprint width graphics circle draw get line paint preset pset put sound beep play sound memory bload bsave clear def def seg poke file close kill name open reset sequential file input line input print write random file field get lock lset put rset see
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯
• 手机登qq时,显示手机磁盘不足,清理后重新登 |
• 刺客的套装怎么选啊? |