[求助]进程条问题。

bongarcon

请问做进程条时实心的方块和条怎么画？
谢谢！

bongarcon

pls help me! I need it. 3Q

（狼）

你想要的是怎样的，象我做的那一个吗，

bongarcon

贴个图看看吧。就是跟erd commander启动时有个从左至右逐渐变化的那个一样。

（狼）

这个就是我做的，你没有看到左边上有一个我的0麦头咩

（狼）

http://www.wwwfox.net/non-cgi/usr/2/2_4026.jpg

江湖小虾米

是通过时间加上彩条实现的

bongarcon

[UploadFile=2_4119_7.gif]我是说这样的，或者类似的。有办法吗？

（狼）

都是一样的，不过你的分辩率没上到O甘高就吾好睇的

bongarcon

后边是什么意思？那用什么画呢？按哪个键？

（狼）

你要吗，我帮你做一个就是啦，

bongarcon

行，不过我更想知道怎么做的。

bongarcon

老狼教教我啊。3Q了。

（狼）

:start
print
print  [狼]                               启动光盘                          31-05-2002
print
print
print
print
print
print
print
print
print
print
print                     按[Esc]键从光盘启动，按[A]键从软盘启动。
print
print
;
:1
getkey 1 f1
onkey a goto adisk
onkey esc goto cddisk
print 1
onkey f1 goto 2
goto 1
:2
getkey 1 f1
onkey a goto adisk
onkey esc goto cddisk
print 2
onkey f1 goto 3
goto 2
:3
getkey 1 f1
onkey a goto adisk
onkey esc goto cddisk
print 3
onkey f1 goto 4
goto 3
:4
getkey 1 f1
onkey a goto adisk
onkey esc goto cddisk
print 4
onkey f1 goto 5
goto 4
:5
getkey 1 f1
onkey a goto adisk
onkey esc goto cddisk
print 5
onkey f1 goto 6
goto 5
:6
getkey 1 f1
onkey a goto adisk
onkey esc goto cddisk
print 6
onkey f1 goto 7
goto 6
:7
getkey 1 f1
onkey a goto adisk
onkey esc goto cddisk
print 7
onkey f1 goto 8
goto 7
:8
getkey 1 f1
onkey a goto adisk
onkey esc goto cddisk
print 8
onkey f1 goto 9
goto 8
:9
getkey 1 f1
onkey a goto adisk
onkey esc goto cddisk
print 9
onkey f1 goto a
goto 9
:a
getkey 1 f1
onkey a goto adisk
onkey esc goto cddisk
print a
onkey f1 goto b
goto a
:b
getkey 1 f1
onkey a goto adisk
onkey esc goto cddisk
print b
onkey f1 goto c
goto b
:c
getkey 1 f1
onkey a goto adisk
onkey esc goto cddisk
print c
onkey f1 goto d
goto c
:d
getkey 1 f1
onkey a goto adisk
onkey esc goto cddisk
print d
onkey f1 goto e
goto d
:e
getkey 1 f1
onkey a goto adisk
onkey esc goto cddisk
print e
onkey f1 goto f
goto e
:f
getkey 1 f1
onkey a goto adisk
onkey esc goto cddisk
print f
onkey f1 goto g
goto f
:g
getkey 1 f1
onkey a goto adisk
onkey esc goto cddisk
print g
onkey f1 goto h
goto g
:h
getkey 1 f1
onkey a goto adisk
onkey esc goto cddisk
print h
onkey f1 goto i
goto h
:i
getkey 1 f1
onkey a goto adisk
onkey esc goto cddisk
print i
onkey f1 goto j
goto i
:j
getkey 1 f1
onkey a goto adisk
onkey esc goto cddisk
print j
onkey f1 goto k
goto j
:k
getkey 1 f1
onkey a goto adisk
onkey esc goto cddisk
print k
cls
print                                                                     正从硬盘启动
getkey 1 af1
cls
boot 80
goto end

:adisk
cls
print                                                                     正从软盘启动
getkey 1 af1
cls
boot 0
goto end

:cddisk
cls
run DSKEMU1.BIN
goto end

:end
;eof

（狼）

[UploadFile=2_4119_14.rar]我上传，你下载回去看一下吧

bongarcon

看明白了，谢谢狼兄！