Freepascal之Crt单元

最新推荐文章于 2022-07-08 11:03:53 发布
最新推荐文章于 2022-07-08 11:03:53 发布
阅读量2k 收藏 1
点赞数
分类专栏： Pascal基础


BOB HAN 原创 转载请注明出处 http://www.cnblogs.com/Booble/

{

这是我的首个一千行程序

所以很多地方有冗余 不是很成熟

况且程序上了千行

用譬如Freepascal 等等

这类的面向过程的平台就力不从心了

Delphi7以前用过 不是很会用

凭着对Crt单元的好奇 我写了这个小游戏

}

先给代码 可以直接copy走

http://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!
    
    '
    
    )
复制代码
Delline删除 光标所在行

Insline在光标所在行的下一行插入一个空行

注意先调用GotoXY函数

11.其他函数

KeyPressed 判定是否有按键动作

Window(x1,y1,x2,y2) 划定一块窗口区域

TextBackground(Color) 确定背景颜色

WhereX WhereY 返回光标位置

使用了CRT单元 我们的程序就会更加有声有色

可以写一点小游戏娱乐娱乐

BOB HAN原创 转载请注明出处http://www.cnblogs.com/Booble/


编程老头
关注
专栏目录
Free Pascal不完全攻略之一 ：进入FP的世界
Novosbirsk Blog
03-22 2503
注：该文章转自我在163.com的BLOG。因为感觉163的blog不大适合用于写技术性文章，因此打算将上面技术类的文章转载过来CSDN。WHY FREE PASCAL在这个IT技术日新月异的时代，人们的目光总会被各种新颖的技术所吸引，例如。NET    ，Ajax，SOA等等。有时难免会忽略了一些最基本的东西。Pascal作为一种老牌的编程语言，已经走过了三十多年，似乎已经走到了尽头——但是
[大海战] Freepascal之Crt单元
weixin_33924220的博客
10-30 156
{ 这是我的首个一千行程序 所以很多地方有冗余 不是很成熟 况且程序上了千行 用譬如Freepascal 等等 这类的面向过程的平台就力不从心了 Delphi7以前用过 不是很会用 凭着对Crt单元的好奇 我写了这个小游戏 } 先给代码 可以直接copy走 http://files.cnblogs.com/Booble/D_Game_CRT.rar 可以先试试用用 具体...
Pascal Crt单元
white_elephant的博客
06-24 631
Crt单元 过程 Assigncrt(F) F:Text 将文件F放置于显示器 ClrEol 删除当前行上的字符 ClrScr 清屏并将光标移动至(1,1) CursorBig 将屏幕输出状态改为改写 CursorOff
CRT 库功能
Barry的博客
10-13 2811
CRT 库功能 Visual Studio 2013 其他版本 本主题将介绍各种 .lib 文件，包括 C 运行时库及其关联的编译器选项和预处理器指令。 C 运行时库 (CRT) 以下库包含 C 运行时库函数。 C运行时库（不含 iostream 和标
Free Pascal保留字
gsls200808的专栏
04-04 1714
本文参考FPC 3.0版的Language reference guide 保留字是Pascal程序语言的一部分，正因为如此，它不能在程序中被重新定义。他们在IDE中会用加粗字体表示，也就是大多数IDE的语法高亮功能。Pascal对大小写不敏感。 Free Pascal将保留字分为Turbo Pascal保留字和Delphi保留字。在TP(Turbo Pascal)模式下，只有Turbo Pa
Delphi 使用之函数
weixin_30252155的博客
07-10 1589
函数由一句或多句代码组成，可以实现某个特定的功能。使用函数可以使代码更加易读、易懂，加快编程速度及减少重复代码。过程与函数类似，过程与函数最重要的区别在于，过程没有返回值，而函数能有返回值。 本文整理自以下链接 http://blog.sina.com.cn/s/blog_40a8922201000py6.html http://blog.163.com/jiandan...
FREEPASCAL调试技巧.pdf
10-14
以下是对 "FREEPASCAL调试技巧.pdf" 文件中提到的调试技巧和注意事项的详细说明： 首先，调试前必须确保 Free Pascal（FP）编译器处于 Debug 模式。Debug 模式允许编译器生成包含调试信息的可执行文件，这对于追踪...
Freepascal VideoTest-开源
05-30
【标题】"Freepascal VideoTest-开源"指的是一个基于Free Pascal编译器，并且针对Linux操作系统开发的开源视频测试应用程序。这个程序的核心功能是从网络摄像头捕获实时图像，为开发者提供了一个简单易用的工具来...
lazarus freepascal
10-09
开源的Delphi，freepascal 支持跨平台，兼容delphi~~~
FreePascal_2.6.4_XiaZaiBa
09-22
2. **社区支持**：作为开源项目，FreePascal有活跃的社区提供持续的更新和支持，相比之下，TURBO PASCAL已经停止更新，且官方支持有限。 3. **扩展库支持**：FreePascal集成了大量的标准库和第三方库，如Lazarus的...
vim-freepascal:Freepascal VIM 包
06-07
vim-freepascal 向 VIM 添加 Freepascal 语法高亮和文件类型检测。 通过添加一些对象 pascal 语法突出显示来改进 VIM pascal 支持。 安装 如果您使用您可以通过执行以下命令安装此插件： cd ~/.vim/bundle && \ ...
Free Pascal IDE
08-03
Free Pascal IDE 最新版！
Secure_CRT
08-19
SecureCRT用于嵌入式开发，串口打印工具
Delphi Crt-开源
04-25
Delphi Crt单元可为您提供几乎完整且兼容的单元，用于将旧的Turbo / Borland Pascal项目移植到Borland Delphi。 该单元实现了MS-DOS编译器随附的Borland原始Crt单元的几乎所有功能。
fpjson使用方法
jeeren的博客
07-08 394
Lazarus与CodeTyphon利用FreePascal的fpjson读写JSON
lazarus调用http接口解析json（迎接云计算适应微服务）
qiaozhangchi的专栏
08-21 2432
lazarus 跨平台free pascal语言ide工具，社区 http://www.fpccn.com/ 下载 ftp://freepascal.dfmk.hu/pub/lazarus/ 号称一次编码，到处编译，window linux macos 等各种平台都可用。borland的delphi也是pascal开发工具但是收费，开源的lazarus免费用用挺好 云计算时代，很多微服务都是提供http接口给出json格式的字符串，今天简单用lazarus检查一台服务器上一个微服务是否在运行 首先搜索
5.2 32位的DOS：控制台应用程序
aishizhuang1602的博客
11-01 390
5.2.1控制台应用程序的模块入口代码 　　控制台应用程序的模块入口代码较普通的.EXE略有不同： Project2. dpr.8: begin 0040823855 　　　　　　　　　　push ebp 004082398BECmov 　　　　　　 ebp, esp 0040823B 83C4F0　　　　　　　add esp,-$10 0040823E A1B09340...
delphi中的单元
苏生-苏米沿的专栏
04-05 5010
Object Passal的程序结构很特殊，与其它语言如C++，Object Windows等结构都不同。一个Delphi程序由多个称为单元的源代码模块组成。使用单元可以把一个大型程序分成多个逻辑相关的模块，并用来创建在不同程序中使用的程序库。 8.1 Program单元 　 Program单元就是Delphi中的项目文件。 　 Program单元是一个特殊的单元，类似于C语言中的M
FreePascal与Turbo Pascal对比详解
"FreePascal极其详细资料，对比了Turbo Pascal与Free Pascal的不同，包括内存使用、文件操作、集合特性、表达式执行顺序、参数匹配规则以及新增功能的介绍。" FreePascal是一个强大的、开源的Pascal编译器，它支持...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值