回复人: nik_Amis(Azrael) ( ) 信誉:109 10 Dim IWantToKnow as Explain 20 Let IWantToKnow = nik_Amis.Meaning 30 Print IWantToKnow 40 End
那顺便问一下,知道 On Local Error Goto ... 的有多少?
to Amoon(阿木) :on local error goto 估计VB版的70%-80%的人都知道
可能记得这个的就很少了 key n,string key on/off on key gosub/return inkey$
偶十年前编的一小程序,现在重写了出来:10 CLS : sleepn = 100000 20 FOR i = 1 TO 80 30 PRINT TAB(i); ">" 35 FOR j = 1 TO sleepn: NEXT j 40 NEXT i 50 FOR i = 80 TO 1 STEP -1 60 PRINT TAB(i); "<" 65 FOR j = 1 TO sleepn: NEXT j 70 NEXT i 80 IF INKEY$ <> CHR$(27) THEN GOTO 20 90 REM press ESC to exit
知道啊~和你在Immediate窗口中敲入Print效果是一样的不过因为输入习惯问题,本人还是喜欢用Print,偶尔会用用“?”*_^
是不是这种?
怎么越看越象 dbase,foxbase什么的啊:)
locate 是屏幕定位,不过不知道VB里还有没有
screen 不太清楚,在VB里屏幕对象
还有,? 原来好像是在 Foxbase 里也有的,是吧
def seg
poke
peek
call interrupt……
使用这些命令的日子都已经是回忆了……
peek
数据传送还有什么
inp
out
I/O的这种在VB里好象已经没了,
Cls 清屏
Screen 设置显示模式
locate 定位print坐标(行和列)
定义简单计算函数 seg
那些都是basica里的命令,screen用来把屏幕从文本模式变到图形模式半对喔,老兄,screen有0,1,2,3,4,7,8,9,10,11,12,13
12种模式呢。有些是VGA专用的,11,12,13
有些是CGA可以使用的,0,1
20 Let IWantToKnow = nik_Amis.Meaning
30 Print IWantToKnow
40 End
key n,string
key on/off
on key gosub/return
inkey$
20 FOR i = 1 TO 80
30 PRINT TAB(i); ">"
35 FOR j = 1 TO sleepn: NEXT j
40 NEXT i
50 FOR i = 80 TO 1 STEP -1
60 PRINT TAB(i); "<"
65 FOR j = 1 TO sleepn: NEXT j
70 NEXT i
80 IF INKEY$ <> CHR$(27) THEN GOTO 20
90 REM press ESC to exit
可能记得这个的就很少了
key n,string
key on/off
on key gosub/return
inkey$拜托,我家那本BASIC编程教材还没有扔掉呢。
INKEY$
以前最喜欢用这两句了
普通的basic无法搞出640*480*256
除非加ucdos的特显,或者call interrupt什么的
to flyingscv(zlj) 大概你编过不少小游戏吧??
-------------------
学校教的是Fortran,发现没有画图语句,正好看到Basic可以画线就用它了
还有一个就是INKEY$,呵呵,现在就用VB了
---------------------------------------
to flyingscv(zlj) 你搞错了,screen 12设置为640*480*16
普通的basic无法搞出640*480*256---------------------------------
应该是我记错了,现在有点想起来了 :)
TX也记得,可以用来写大字,哈
你记的真清楚啊,是13- 320的可以256?