PASCAL单元常见过程调用
及小游戏编程方法设计
写本文的目的是教大家如何使用PASCAL单元来设计更好的程序界面和人机控制，本文不涉及算法，谢谢。
在文本VGA模式下，屏幕的位置分成25行，每行80个字符。
1：光标定位过程：(CRT单元)
Procedure Gotoxy(X,Y:byte)；
把光标移到第X列，Y行的位置。注意X，Y的顺序是先列后行，与我们常说的第几行第几列的习惯相反。
屏幕左上角第一个位置是gotoxy(1,1);
屏幕右下角最后一个位置是gotoxy(80,25);
当光标移动后，后面write(),writeln（）代码都是从当前位置输出。
例：
Var
I:integer;
begin
Fori:=1 to 25 do
begin
Gotoxy(1,i);
Write(‘AAAAA’);
End;
End.
上面的程序，就是把光标移到每行的第一个位置，然后输出’AAAAA’字符串。
2：得到当前光标位置：（CRT单元）
Function whereX: byte ; 得到当前光标位置的列；
Function whereY: byte ; 得到当前光标位置的行；
例：
gotoxy(1,1); //光标移到屏幕第1列第1行
write('AAAAA'); //输出字符串
write(wherex,' ',wherey); //当前光标的位置，输出了6，1,代表是第6列第1行
gotoxy(1,10); //光标移到屏幕第1列第10行
writeln('AAAAA'); //输出字符串
write(wherex,' ',wherey); //当前光标的位置，输出了1，11,代表是第1列第11行
明显可以看出，writeln输出后，屏幕的光标位置自动移到下一行的起点，这就是换行。
再看一个屏幕滚屏的特殊例子
gotoxy(80,25);
writeln('AAAAA');
write(wherex,' ',wherey);
在第25行80列输出一个’AAAAA’的串，当前光标是多少？
屏幕最后一个位置，输出一个A后，屏幕没有位置了，怎么办？
屏幕会往上滚屏，也就是整个屏幕上移一行，多出一个空行。
所以第24行80列显示一个’A’
所以第25行会出现‘AAAA’
此时再来一个writeln换行，屏幕再滚一行。
此时的屏幕上显示，
所以第23行80列显示一个’A’
所以第24行1列会出现‘AAAA’
最后的光标移动仍然是停在第25行第1列。
综合上述，在文本模式下，在第25行80列输出一个字符后，会导致屏幕往上滚一行，这会引起设计好的程序界面出现上滚一行的现象。至于怎么解决，大家自己想。
3：改变文字背景颜色,文字颜色：（CRT单元）
Procedure textbackground(color：byte); 设置将要输出的文字背景颜色
Procedure textcolor(color：byte)；设置将要输出的文字字体颜色
在crt单元中，已经设置了很多颜色常量，但是我们可以直接用0-15的数字，比打那些英文更方便。
Const
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; 白色
先发个例题：
uses crt;
var
i,j:integer;
procedure color(i,j:integer);
begin
textbackground(i); //设置背景色
textcolor(j); //设置文字颜色
end;
begin
fori:=0 to 15 do //背景色从0-15
begin
for j:=0 to 15 do //文字色从0-15
begin
color(i,j); //设置当前文字颜色
write('ABCD'); // 输出’ABCD’
end;
writeln;
end;
end.
//当输出的字符是空格串时，屏幕上显示的就是一个背景色的小方块。
begin
color(0,7);
clrscr;
fori:=0 to 15 do
begin
for j:=0 to 15 do
begin
color(j,15); //改变背景色
write(' '); //输出空格串
end;
writeln;
end;
end.
仔细看上面的背景色，从0-7，从8-15其实是一样的。
4：清除屏幕，清除行尾文字：（CRT单元）
Procedure clrscr; 清除整个屏幕，清除后，整个屏幕的颜色，就是文字的背景色
Procedure clreol；清除光标当前行的位置，到行的末尾，也就是第80列为止。
例：
uses crt;
var
i,j,k:integer;
ch:char;
procedure color(i,j:integer);
begin
textbackground(i);
textcolor(j);
end;
begin
fori:=0 to 15 do
begin
color(i,i); //设置颜色
clrscr; //清屏
ch:=readkey; //按任意键
end;
end.
未完待续 2015/01/19

前排orz

前排orz

前排orz

前排orz

5：读入一个键盘按键：（CRT单元）
Function readkey: char ; 读一个字符的键盘输入
说明：用readkey读键盘，输入的字符并不在屏幕上显示，光标位置也不改变。
可以读入控制键，比如F1-F12，上下左右，退格，回车，ESC等。
当你按“上”键时，readkey第一个读到的是0，第二个才是“上”的代码72
常用的几个按键码：
上：72 下：80 左：75 右：77
退格：8 回车：13 ESC ：27
用readkey函数并不能读入键盘的状态字，比如单独的shift，大小写指示灯切换键。
例：
uses crt;
var
ch:char;
begin
repeat
ch:=readkey; //读入一个键，
writeln(ord(ch)); //输出键的ASCII码
until ch:=chr(27); //直到按ESC键
end.
上面的程序，可以测试各个按键的值，包括各种组合键，比如CTRL+F1。
6：判断当前键盘缓冲区是否还有未读按键字符：（CRT单元）
Function keypressed: boolean ; 判断键盘是否有数据输入
说明：该函数并不停下来等待键盘输入，只是判断是否有按键按下。
如果还有未读字符，结果为真，如果无字符，则结果为假。
Begin
If keypressedthen writeln(‘YES’)
Else writeln(‘NO’);
End.
该函数一般readkey配合使用。

后排orz

跟风orz

再次申明一下：对PASCAL的游戏编程，不要入迷。
用PASCAL编GRAPH游戏，效率太低。没什么意思。能玩玩文本小游戏就行了。
想当年。我借了图书馆的一本单元的书。也看了一学期了。
PASCAL对学数据结构比较好。程序代码易懂。适合初合者。
切记： 千万别沉迷游戏，要好好学习，天天向上。

7：发音程序：（CRT单元）
Procedure sound(HZ: WORD ) ; 发出HZ的频率声音。
Procedure nosound ; 停止发音。
说明：运行sound(X)后，PC扬声器一直会发出以X频率的声音，直到你运行nosound。
例：
Uses crt;
Var
Pp:array [1..7] of WORD;
I:integer;
Begin
pp[1]:=131;pp[2]:=147;pp[3]:=165;pp[4]:=175;pp[5]:=196;pp[6]:=220;pp[7]:=247;
{以上为C调1234567的发音，高一个调，只要乘2倍即可}
fori:=1 to 7 do
begin
Sound(pp[i]); //发出声音
Delay(1000); //延迟1秒（1000ms）.
End;
Nosound; //关闭声音
End.

下面的是DOS单元的常用函数过程。
8：取得当前计算机时间：（DOS单元）
Procedure gettime(Var hour,minute,second,swc100: WORD ) ; 取时/分/秒/（1/100秒）
9：重新设置计算机时间：（DOS单元）
Procedure settime(hour,minute,second,swc100: WORD ) ; 设计时/分/秒/（1/100秒）
10：取得当前计算机时间：（DOS单元）
Procedure getdate (Var year,month,day: WORD ) ;取得计算机日期年/月/日
11：重新设置计算机时间：（DOS单元）
Procedure setdate(year,month,day: WORD ) ; 设置日期：年/月/日
例：
Uses dos;
Var hour,minute,second,sec100,year,month,day:WORD;
Begin
While notkeypressed do
Begin
gettime(hour,minute,second,swc100) ;
getdate (year,month,day )
Gotoxy(1,1);
Writeln(year, ‘-’,month,’-’,day); //第一行显示年-月-日
Gotoxy(1,2);
Writeln(hour:2,’:’,minute,’:’,second, ‘.’,sec100); 第二行显示HH:MM:SS.S100
End;
End.