[大海战] Freepascal之Crt单元
{
这是我的首个一千行程序
所以很多地方有冗余 不是很成熟
况且程序上了千行
用譬如Freepascal 等等
这类的面向过程的平台就力不从心了
Delphi7以前用过 不是很会用
凭着对Crt单元的好奇 我写了这个小游戏
}
先给代码 可以直接copy走
https://files.cnblogs.com/Booble/D_Game_CRT.rar
可以先试试用用
具体的玩法可以见于Readme.txt
鉴于本人水平有限 本小游戏不作娱乐用途
以免精神崩溃 仅用于示范Crt单元的功能
当然几个人在机房寂寞的时候可以玩玩...
下面结合几个程序段来解释Crt单元的某些函数的作用
1.调用单元Uses(Name)
1 //Bob's Great Naval Battles V-1.13.00 Beta
2 //Also Bob's Great Naval Battles V-1.00.00 Formal
3 uses crt;
前两行是注释 版本号 第三行是调用Crt单元
2.清屏Clrscr()
1 randomize;
2 clrscr;
3 textcolor(white);
4 writeln('+-------------+------------+');
5 writeln('|A simple game| |');
6 writeln('+-------------+ |');
7 writeln('| |');
8 writeln('| Great Naval Battles |');
9 writeln('| V-1.00.00 |');
10 writeln('| |');
11 writeln('| +--------------+');
12 writeln('| |Written by Bob|');
13 writeln('+-----------+--------------+');
几乎每切换一次界面就要清屏一次
Clrscr后再输出可以视作刷新
Clrscr就是用来清屏用的函数 没有参数
注意清屏要考虑清楚不要把有用的清掉
3.清行ClrEOL()
1 writeln('***********%$^$%^#$@%');
2 gotoxy(12,1);
3 ClrEOL;
类似清屏 清除行上的内容
清除光标所在行光标上及以后的所有字符
4.移动光标GotoXY(X0,Y0)
1 procedure print(x,y,z,s:longint);
2 var i:longint;
3 begin
4 x:=x-dx[z]; y:=y-dy[z];
5 for i:=0 to s-1 do
6 begin
7 x:=x+dx[z]; y:=y+dy[z];
8 gotoxy(x+2,y+3);
9 write(tt);
10 end;
11 end;
这段代码会在屏幕上显示
指定位置指定方向指定类型的一串数
核心就是GotoXY函数
这个函数将光标移动至指定位置
x0 y0是指定屏幕坐标 x从左到右递增 y从上到下递增
5.文本颜色TextColor(Color)
1 procedure finish(flag:boolean);
2 var ch:char;
3 begin
4 clrscr;
5 textcolor(white);
6 if flag then ch:='A' else ch:='B';
7 writeln('+--------------------------+');
8 writeln('| Game ended |');
9 writeln('+--------------------------+');
10 writeln('| |');
11 writeln('| Player',ch,' WINs! |');
12 writeln('| <=========> |');
13 writeln('| |');
14 writeln('+--------------------------+');
15 textcolor(green);
16 writeln('Press any key to continue...');
17 READKEY;
18 end;
将之后打印的文本都使用指定颜色
注意每次打印前都要考虑是否使用这个函数
否则颜色会错乱...
颜色表:(参数可以是颜色名 也可以是一个整型)
Black = 0; Blue = 1; Green = 2; Cyan = 3;
Red = 4; Magenta = 5; Brown = 6; LightGray = 7;
DarkGray = 8; LightBlue = 9; LightGreen = 10;
LightCyan = 11; LightRed = 12; LightMagenta = 13;
Yellow = 14; White = 15; Blink = 128;
6.获取键盘按键Readkey()
1 textcolor(green);
2 writeln('Press any key to continue...');
3 READKEY;
这个可以用来读入按键
可以判定用户是什么操作
也可以用于上面一个程序段所示的Pause函数
注意这是一个函数 读入一个字符 不过可以不记录返回值
7.发声Sound(Hz)
1 WriteLn('You will hear some tones from your speaker') ;
2 while (i<15000) do
3 begin
4 inc(i,500);
5 Sound(i);
6 Delay(100);
7 end;
这个函数用于发声
根据赫兹数发出一定的声音
直到程序结束或调用NoSound函数或调用另一个Sound函数
注意及时清理声音
否则主机会叽里呱啦闹个不停 关音响也不顶用
8.停止发声NoSound()
1 WriteLn ('Quiet now!') ;
2 NoSound;{Stop noise}
用于停止发声
让Sound函数停止
9.延迟Delay(Ms)
1 WriteLn('Counting Down');
2 for i:=10 downto 1 do
3 begin
4 WriteLn(i);
5 Delay(1000);{Wait one second}
6 end;
7 WriteLn('BOOM!!!');
8
可以用于让你的程序暂停几秒
参数的单位是毫秒
10.插入删除空行Insline&Delline
1 gotoxy(1,17);
2 insline;
3 if z=1
4 then if ynpc
5 then writeln('WARNING: Computer''s boat sanked!')
6 else writeln('WARNING: B''s boat sanked!')
7 else if ynpc
8 then writeln('WARNING: Your boat sanked!')
9 else writeln('WARNING: A''s boat sanked!')
Insline在光标所在行的下一行插入一个空行
注意先调用GotoXY函数
11.其他函数
KeyPressed 判定是否有按键动作
Window(x1,y1,x2,y2) 划定一块窗口区域
TextBackground(Color) 确定背景颜色
WhereX WhereY 返回光标位置
使用了CRT单元 我们的程序就会更加有声有色
可以写一点小游戏娱乐娱乐
BOB HAN原创 转载请注明出处http://www.cnblogs.com/Booble/
posted on 2010-10-30 19:17 Master_Chivu 阅读(3302) 评论(3) 编辑 收藏 举报
