一些简短有趣的程序
pascal吧
全部回复
仅看楼主
level 7
冥蓝炎 楼主
不是水贴，在此先发链接，进度条动画，对有些游戏增加一点点神秘感
http://[呵呵]yun.baidu.com/[呵呵]s/1dDsbIJf?fid=41149[呵呵]1507926492
2015年10月05日 04点10分 1
level 7
冥蓝炎 楼主
其实代码很简单，简单到不敢相信
2015年10月05日 04点10分 2
level 7
冥蓝炎 楼主
到时候整合到一个亚索包里
2015年10月05日 10点10分 4
level 8
Pechorr
发现一个比我还能水的人.................[喷]
2015年10月06日 02点10分 5
冥蓝炎
不，是两个
2015年10月06日 14点10分
level 7
冥蓝炎 楼主
突然发现XP比WIN7更逼真连起来的
2015年10月06日 14点10分 6
level 7
冥蓝炎 楼主
算了整个给你还有我忘了delay,你必须用2.0.4的我也不知道对不对uses crt;
var i:integer;
begin
cursoroff;
textcolor(26);
write('进度:');
for i:=1 to 10 do
begin
gotoxy(i*2+5,1);
write('▏');
delay(100);
gotoxy(i*2+5,1);
write('▎');
delay(100);
gotoxy(i*2+5,1);
write('▍');
delay(100);
gotoxy(i*2+5,1);
write('▌');
delay(100);
gotoxy(i*2+5,1);
write('▋');
delay(100);
gotoxy(i*2+5,1);
write('▊');
delay(100);
gotoxy(i*2+5,1);
write('▉');
delay(100);
gotoxy(i*2+5,1);
write('█');
delay(100);
end;
delay(2000);
clrscr;
write('加载完毕');
delay(2000);
end.
2015年10月07日 05点10分 9
level 7
冥蓝炎 楼主
更新
uses crt;
var i:integer;
begin
cursoroff;
textcolor(26);
write('游戏加载中，加载进度: ％');
for i:=1 to 10 do
begin
gotoxy(i*2-1,2);
write('▏');
gotoxy(22,1);
write(i*10-9);
gotoxy(22,1);
write(i*10-8);
gotoxy(i*2-1,2);
write('▎');
gotoxy(22,1);
write(i*10-7);
delay(100);
gotoxy(22,1);
write(i*10-6);
delay(100);
gotoxy(i*2-1,2);
write('▍');
gotoxy(22,1);
write(i*10-5);
delay(100);
gotoxy(i*2-1,2);
write('▌');
gotoxy(22,1);
write(i*10-4);
delay(100);
gotoxy(i*2-1,2);
write('▋');
gotoxy(22,1);
write(i*10-3);
delay(100);
gotoxy(i*2-1,2);
write('▊');
gotoxy(22,1);
write(i*10-2);
delay(100);
gotoxy(i*2-1,2);
write('▉');
gotoxy(22,1);
write(i*10-1);
delay(100);
gotoxy(i*2-1,2);
write('█');
gotoxy(22,1);
write(i*10);
delay(100);
end;
delay(900);
clrscr;
writeln('加载完毕');
delay(1000);
end.
2015年10月07日 09点10分 10
1