[原创]最高级计算机编程语言,汉语编程入门教程3

最高级计算机编程语言,汉语编程入门教程3



当计算机还打不了字的时候,当计算机还排不了版的时候,当计算机还编不了程的时候,我们大家回想回想,回忆会议,洋人和某写无耻的国人,是怎么污蔑我们的中文的?

现在,我们能打字了,我们能排版了,我们也能编程了.可喜可贺啊!下面,我们公布几段动画设计的源代码.如果你能体会到,这是一场春风催新芽,那你就是我们的朋友.如果你体会到的是秋风扫落叶,哈哈,那毫无疑问,你就我们的敌人.

世界潮流,浩浩荡荡,顺之者昌,逆之之忘.中国人,在计算机领域的崛起,是任何人也阻挡不了的!






第三章 动画设计


第一节 文字动画



165 1 250 RGB 新颜色 紫色

扩展对象 线段循环 继承自 窗口对象模板

属性 窗口标题: 编字串" 线段循环" 属性。

属性 开始位置: 40 50 属性。

属性 开始尺寸: 280 300 属性。 \ 说明1

编 延时 5 毫秒 。


编 画线1 200 0

循环 延时 20 120 坐标定位: 设备描述表

20 内环数 + 120 画线到: 设备描述表

紫色 画线颜色: 设备描述表

回环 。

编 画线2 100 0

循环 延时 120 30 坐标定位: 设备描述表

120 30 内环数 + 画线到: 设备描述表

紫色 画线颜色: 设备描述表

回环 。

编 画线3 100 0 循环 延时

120 130 坐标定位: 设备描述表

120 内环数 - 130 内环数 + 画线到: 设备描述表

紫色 画线颜色: 设备描述表

回环 。

编 画线4 100 0

循环 延时 120 130 坐标定位: 设备描述表

120 内环数 + 130 内环数 + 画线到: 设备描述表

紫色 画线颜色: 设备描述表

回环 。

对象事件 绘制时: 0 0 读大小: 自本身 \ [说明6

浅灰色 区域填充: 设备描述表

画线1 画线2 画线3 画线4 \ 说明6]

对象事件。

对象。

启动: 线段循环





程序说明1

开一个窗口标题为"线段循环"的窗口,设定它的开始位置和开始尺寸。

程序说明2

"画线1"画一条紫色的以(20,120)为起点,延时 5 毫秒 ,横坐标20,每次加1, 循环200 次,以(20,120)为起点向右画到横坐标220纵坐标值120处停止。

程序说明3

"画线2"画一条紫色的以(120,30)为起点,延时 5毫秒 ,横坐标120不变,纵坐标30,每次加1, 循环100 次,以(120,30)为起点向下画到横坐标120纵坐标值130处停止。

程序说明4

"画线3"画一条紫色从窗口右上角(120,130)向窗口左下角(20,230)移动的线段。

程序说明5

"画线4"画一条紫色从窗口左上角(120,130)向窗口右下角(220,230)移动的线段。

程序说明6

设定窗口背景颜色为浅灰色,调用画线程序。




第二节 线段动画



165 1 250 RGB 新颜色 紫色

扩展对象 线段循环 继承自 窗口对象模板

属性 窗口标题: 编字串" 线段循环" 属性。

属性 开始位置: 40 50 属性。

属性 开始尺寸: 280 300 属性。 \ 说明1

编 延时 5 毫秒 。


编 画线1 200 0

循环 延时 20 120 坐标定位: 设备描述表

20 内环数 + 120 画线到: 设备描述表

紫色 画线颜色: 设备描述表

回环 。

编 画线2 100 0

循环 延时 120 30 坐标定位: 设备描述表

120 30 内环数 + 画线到: 设备描述表

紫色 画线颜色: 设备描述表

回环 。

编 画线3 100 0 循环 延时

120 130 坐标定位: 设备描述表

120 内环数 - 130 内环数 + 画线到: 设备描述表

紫色 画线颜色: 设备描述表

回环 。

编 画线4 100 0

循环 延时 120 130 坐标定位: 设备描述表

120 内环数 + 130 内环数 + 画线到: 设备描述表

紫色 画线颜色: 设备描述表

回环 。

对象事件 绘制时: 0 0 读大小: 自本身 \ [说明6

浅灰色 区域填充: 设备描述表

画线1 画线2 画线3 画线4 \ 说明6]

对象事件。

对象。

启动: 线段循环




程序说明1

开一个窗口标题为"线段循环"的窗口,设定它的开始位置和开始尺寸。

程序说明2

"画线1"画一条紫色的以(20,120)为起点,延时 5 毫秒 ,横坐标20,每次加1, 循环200 次,以(20,120)为起点向右画到横坐标220纵坐标值120处停止。

程序说明3

"画线2"画一条紫色的以(120,30)为起点,延时 5毫秒 ,横坐标120不变,纵坐标30,每次加1, 循环100 次,以(120,30)为起点向下画到横坐标120纵坐标值130处停止。

程序说明4

"画线3"画一条紫色从窗口右上角(120,130)向窗口左下角(20,230)移动的线段。

程序说明5

"画线4"画一条紫色从窗口左上角(120,130)向窗口右下角(220,230)移动的线段。

程序说明6

设定窗口背景颜色为浅灰色,调用画线程序。



第三节 图片动画



199 236 153 RGB 新颜色 草绿色

扩展对象 迈克狼 继承自 窗口对象模板

属性 窗口标题: 编字串" 图片循环" 属性。

属性 开始位置: 40 50 属性。

属性 开始尺寸: 280 300 属性。

字体对象 客户字体

对象事件 重建字体:

字串" 黑体" 置字样名: 客户字体

创建: 客户字体

句柄: 客户字体

设置字体: 设备描述表 \ 说明1

对象事件。

对象事件 初始时: 10 1 窗口句柄 打开定时器 ♀

对象事件。

0 给 变量 0 给 计数器 \ [说明2

窗口定时消息 触发时: 读设备描述表: 自本身 写入 位图设备句柄

计数器 0 = 就 变量 140 <=

就 2 +写入 变量 0 150 变量 -

字串" 迈克狼.bmp" 显位图

然后

然后

触发。 \ 说明2]

编 延时 1 毫秒 。

编 第一句 120 0

循环 延时 草绿色 置背景颜色: 设备描述表

浅红色 置文本颜色: 设备描述表

300 内环数 - 200 字串" 哈哈哈,"

文本输出: 设备描述表

回环 。

编 第二句 140 0

循环 延时 草绿色 置背景颜色: 设备描述表

浅红色 置文本颜色: 设备描述表

300 内环数 - 230 字串" 我上天啦!"

文本输出: 设备描述表

回环 。


对象事件 绘制时: 0 0 读大小: 自本身

草绿色 区域填充: 设备描述表

10 宽度: 客户字体 20 高度: 客户字体 重建字体: 自本身

第一句 第二句

对象事件。

对象。

启动: 迈克狼





程序说明1

设置字体为黑体。

程序说明2

定义定时器。程序运行时,根据定时器时间间隔触发显示图片。变量每次加1重新赋值给变量,使图片的纵坐标和变量相减,图片就由下至上移动。

关键词

显位图

功能:把图片显示在窗口区域。

格式:<图片左上角横座标> <图片左上角纵座标> 字串" 图片名称.bmp"显位图

使用说明:用该词在窗口中显示的是图片的原来大小,如果把图片放大或缩小显示在窗口中可用<图片左上角横座标> <图片左上角纵座标> <图片的长> <图片的宽> 缩放显位图的格式来完成。

触发时: …… 触发。

功能:Window消息触发,响应外部设备的触发。

格式:<功能标识> 触发时: …… 然后 触发。

窗口句柄 打开定时器

功能:将计算机中的定时器打开。

格式:<间隔><定时器号> 窗口句柄 打开定时器 ♀

其中<间隔>的单位为毫秒<定时器号>。

程序说明3

设置窗口背景颜色为草绿色,文字颜色为浅红色,且文字水平由右向左移动。

程序说明4

设置字体大小。





第四节 圆的动画



扩展对象 椭圆上下左右的循环 继承自 窗口对象模板

属性 窗口标题: 编字串" 椭圆上下左右的循环" 属性。

属性 开始位置: 40 50 属性。

属性 开始尺寸: 280 300 属性。

编 延时 3 毫秒 。

编 椭圆向右移动 100 0

循环 延时 50 内环数 + 50 120 内环数 + 80

浅灰色 画笔颜色: 设备描述表

浅蓝色 画刷颜色: 设备描述表 画椭圆: 设备描述表

回环 。

编 椭圆向下移动 100 0

循环 延时 150 50 内环数 + 220 80 内环数 +

画椭圆: 设备描述表

回环 。

编 椭圆向左移动 100 0

循环 延时 150 内环数 - 150 220 内环数 - 180

画椭圆: 设备描述表

回环 。

编 椭圆向上移动 100 0

循环 延时 50 150 内环数 - 120 180 内环数 -

画椭圆: 设备描述表

回环 。

对象事件 绘制时: 椭圆向右移动 椭圆向下移动 椭圆向左移动 椭圆向上移动

对象事件。

对象。

启动: 椭圆上下左右的循环




程序设计思想

画椭圆其实是在一个矩形中,只需要确定矩形的左上角坐标和右下角坐标,即可画出椭圆。使限定椭圆的矩形的左顶点与右顶点的横坐标逐渐增大,椭圆就从左至右运动,其他与圆上下左右循环原理相同。





第五节 综合动画 画座房子



扩展对象 房屋 继承自 窗口对象模板

属性 窗口标题: 编字串" 画房子" 属性。

属性 开始位置: 0 50 属性。

属性 开始尺寸: 400 400 属性。

属性 最大尺寸: 400 400 属性。

属性 最小尺寸: 400 400 属性。

字体对象 客户字体

对象事件 重建字体:

字串" 黑体" 置字样名: 客户字体

创建: 客户字体

句柄: 客户字体

设置字体: 设备描述表

对象事件。

编 延时41 4 毫秒 。

编 画线 190 0

循环 延时41 100 100 内环数 + 坐标定位: 设备描述表

100 100 画线到: 设备描述表

回环 。

编 画线1 200 0

循环 延时41 100 内环数 + 290 坐标定位: 设备描述表

100 290 画线到: 设备描述表

回环 。

编 画线2 190 0

循环 延时41 300 290 内环数 - 坐标定位: 设备描述表

300 290 画线到: 设备描述表

回环 。

编 画线3 200 0

循环 延时41 300 内环数 - 100 坐标定位: 设备描述表

300 100 画线到: 设备描述表

回环 。

编 画线4 150 0

循环 延时41 50 内环数 + 150 内环数 - 坐标定位: 设备描述表

50 150 画线到: 设备描述表

回环 。

编 画线5 150 0

循环 延时41 200 内环数 + 内环数 坐标定位: 设备描述表

200 0 画线到: 设备描述表

回环 。

编 画线6 200 0

循环 延时41 300 内环数 - 100 坐标定位: 设备描述表

300 100 画线到: 设备描述表

回环 。


编 房顶 150 0

循环 延时41 浅黄色 画笔颜色: 设备描述表

200 内环数 - 内环数 坐标定位: 设备描述表

200 内环数 + 内环数 画线到: 设备描述表

回环 。

编 画墙1 192 0

循环 延时41 浅红色 置背景颜色: 设备描述表

100 内环数 + 150 字串" " 文本输出: 设备描述表

回环 。

编 画墙2 192 0

循环 延时41 浅红色 置背景颜色: 设备描述表

292 内环数 - 170 字串" " 文本输出: 设备描述表

回环 。

编 画墙3 192 0

循环 延时41 浅红色 置背景颜色: 设备描述表

100 内环数 + 190 字串" " 文本输出: 设备描述表

回环 。

编 画墙4 192 0

循环 延时41 浅红色 置背景颜色: 设备描述表

292 内环数 - 210 字串" " 文本输出: 设备描述表

回环 。

编 画墙5 192 0

循环 延时41 浅红色 置背景颜色: 设备描述表

100 内环数 + 230 字串" " 文本输出: 设备描述表

回环 。

编 画墙6 192 0

循环 延时41 浅红色 置背景颜色: 设备描述表

292 内环数 - 250 字串" " 文本输出: 设备描述表

回环 。

编 画墙7 192 0

循环 延时41 浅红色 置背景颜色: 设备描述表

100 内环数 + 270 字串" " 文本输出: 设备描述表

回环 。

编 画门 50 0

循环 延时41 290 内环数 - 220 290 290 浅蓝色 区域填充: 设备描述表

回环 浅灰色 画刷颜色: 设备描述表

253 255 5 填充圆: 设备描述表 。

编 画窗 50 0

循环 延时41 130 170 130 内环数 + 210 浅蓝色 区域填充: 设备描述表

回环 。


编 画窗框 130 190 180 194 浅灰色 区域填充: 设备描述表

153 170 157 210 灰色 区域填充: 设备描述表 。

编 太阳 浅红色 画刷颜色: 设备描述表 60 40 25 填充圆: 设备描述表 。

编 画路 400 0

循环 延时41 浅灰色 画笔颜色: 设备描述表

内环数 320 坐标定位: 设备描述表

内环数 380 画线到: 设备描述表

回环

100 348 120 352 白色 区域填充: 设备描述表

30 348 50 352 白色 区域填充: 设备描述表

170 348 190 352 白色 区域填充: 设备描述表

240 348 260 352 白色 区域填充: 设备描述表

310 348 330 352 白色 区域填充: 设备描述表

380 348 400 352 白色 区域填充: 设备描述表 。

对象事件 绘制时: 读设备描述表 读句柄: 设备描述表 写入 当前描述表

0 0 读大小: 自本身

0 0 400 100 浅蓝色 区域填充: 设备描述表

0 100 400 400 浅绿色 区域填充: 设备描述表

浅灰色 置背景颜色: 设备描述表

蓝色 置文本颜色: 设备描述表 黑色 画笔颜色: 设备描述表

画线 画线1 画线2 画线3 画线4 画线5 房顶

22 高度: 客户字体 重建字体: 自本身

画墙1 画墙2 画墙3 画墙4 画墙5 画墙6 画墙7

画门 画窗 画窗框 太阳 画路

对象事件。

系统关闭消息 触发时:

关闭: 自源模板

触发。

对象。

启动: 房屋





程序说明

本程序主要利用上面学过的基本方综合画出房屋,需要注意的是在程序中多了:

系统关闭消息 触发时:

关闭: 自源模板

触发。

其作用是在画图中如果鼠标点击Windows的"×"键,在响应窗口关闭的动作。






第六节 游戏设计 追打蚂蚁



89 130 130 RGB 新颜色 新青色

扩展对象 打蚂蚁 继承自 窗口对象模板

属性 窗口标题: 编字串" 打蚂蚁" 属性。

属性 开始尺寸: 640 480 属性。

属性 最大尺寸: 640 480 属性。

属性 最小尺寸: 640 480 属性。

属性 开始位置: 自动居中: 自源模板 属性。

水平滚动栏控制 快慢框

编辑框控制 时间框

编辑框控制 只数

按钮控制 开始计时

对象事件 初始时:

本身的 启动: 快慢框

180 40 150 25 定位: 快慢框

100 2000 置滚动范围: 快慢框

1000 置当前值: 快慢框

本身的 启动: 时间框

80 40 60 25 定位: 时间框

本身的 启动: 开始计时

360 40 30 25 定位: 开始计时

字串" 开始" 置控制标题或值: 开始计时

字串" 10" 置控制标题或值: 时间框

本身的 启动: 只数

500 40 30 25 定位: 只数

对象事件。

0 给 x 0 给 y

编 蚂蚁 12 随机数 ♂ 写入 x 10 随机数 ♂ 写入 y

115 35 x * + 1 + 80 35 y * + 1 +

30 30 字串" 蚂蚁.bmp" 缩放显位图 。

对象事件 绘制时:

新青色 置背景颜色: 设备描述表

读设备描述表: 自本身 写入 位图设备句柄

0 0 字串" 蚂蚁底图.bmp" 显位图

112 78 字串" 蚂蚁底图1.bmp" 显位图

40 45 字串" 时间: 秒" 文本输出: 设备描述表

180 20 字串" 快→→→→→→→慢" 文本输出: 设备描述表

445 40 字串" 你打中 只数" 文本输出: 设备描述表

对象事件。

0 给 时间变量 0 给 首发时间 0 给 累加数

0 给 个数 0 给 命中率 1000 给 间隔数

建词 以完成 100 字节空出

窗口定时消息 触发时: ∽ 取低字

如和 4 对应就 首发时间 时间变量 + 读时间和日期 双♀ ♀

360 * ↑↓ 60 * + + =

就 0 写入 首发时间 读设备描述表: 自本身 写入 位图设备句柄

112 78 字串" 蚂蚁底图1.bmp" 显位图

0 间隔数 2 窗口句柄 关闭定时器 ♀

0 间隔数 3 窗口句柄 关闭定时器 ♀

个数 数>实 累加数 数>实 / ♂ 写入 命中率

0.8 >=

字串" 恭喜你过关,你共打中" 以完成 字串传送

个数 (单转双显) 以完成 字串+传送

字串" 只蚂蚁" 以完成 字串+传送

仅显示确定按钮 以完成 计字节 系统对话框 ♀

否则

字串" 抱歉,您没有过关!你共打中" 以完成 字串传送

个数 (单转双显) 以完成 字串+传送

字串" 只蚂蚁" 以完成 字串+传送

仅显示确定按钮 以完成 计字节 系统对话框 ♀

然后

字串" 命中率: " 以完成 字串传送

命中率 100. * (单转双显) 以完成 字串+传送

字串" %" 以完成 字串+传送

仅显示确定按钮 以完成 计字节 系统对话框 ♀

0 写入 个数 0 写入 累加数 0 写入 命中率

以完成 100 填0

然后

而和 2 对应就 蚂蚁 1 +写入 累加数

而和 3 对应就 读设备描述表: 自本身 写入 位图设备句柄

112 78 字串" 蚂蚁底图1.bmp" 显位图

而后

触发。

WM_LBUTTONDOWN 触发时: \ 说明2

鼠标坐标列 115 35 x * + 2 + >

鼠标坐标列 150 35 x * + 1 - < 与

鼠标坐标行 80 35 y * + 2 + >

鼠标坐标行 115 35 y * + 1 - < 与 与

就 115 35 x * + 1 + 80 35 y * + 1 + 30 30 字串" 血.bmp" 缩放显位图

1 +写入 个数 个数 (单转双显) 置控制标题或值: 只数

然后

触发。

WM_HSCROLL 触发时: WM_HSCROLL 触发: 快慢框 \ 说明3

读当前值: 快慢框 写入 间隔数

触发。

对象事件 接受命令: ∽ 取低字

如和 读标识: 开始计时 对应就 0 写入 个数 0 写入 累加数

0 写入 命中率 以完成 100 填0

0 写入 首发时间 0 写入 时间变量

个数 (单转双显) 置控制标题或值: 只数

读窗口标题: 时间框 串转数成功否?

就 ♀

♂ 3 >=

就 写入 时间变量 读时间和日期 双♀ ♀

360 * ↑↓ 60 * + + 写入 首发时间

100 4 窗口句柄 打开定时器 ♀

0 间隔数 2 窗口句柄 打开定时器 ♀

0 间隔数 3 窗口句柄 打开定时器 ♀

否则 仅显示确定按钮

字串" 对不起,不得小于3秒"

系统对话框 ♀

然后

否则 仅显示确定按钮 字串" 请输入有效数字"

系统对话框 ♀

然后

而后

对象事件。

系统关闭消息 触发时: 关闭: 自源模板 退出

触发。

对象。

编 打蚂蚁1 启动: 打蚂蚁 。

打蚂蚁1





程序说明

创建游戏窗口界面,增加了滚动栏控制功能。

关键词说明

滚动栏控制(包括垂直滚动栏控制和水平滚动栏控制),有别于窗口滚动条,它可以在窗口或对话框任意定位。

格式:水平滚动栏控制 <水平滚动栏控制对象名><最小数值 最大数值>

置滚动范围: <水平滚动栏控制对象名>

<新数值> 置当前值: <水平滚动栏控制对象名>

程序说明1

程序中多次出现:

"蚂蚁"坐标确定算法:

115 35 X * + 1 +

即:(35×X)+115+1 "蚂蚁"位图横坐标X 位置;

80 35 Y * + 1 +

即:(35×Y)+80+1 "蚂蚁"位图纵坐标Y 位置;

横坐标随机数变量为 12,纵坐标随机数变量为 10 。

程序说明2

判断鼠标是否击中"蚂蚁"位图框,并分别计数。WM_LUBUTTONDOWN函数说明:按下鼠标左键;

程序说明3

M_HSCROLL函数说明水平滚动。




本章共6节,源代码和说明,都公布到了这里,不管你是赞成还是反对,只要你愿意试一试,体验体验,你就会发现,这真是地地道道,中国人发明的编程语言,一段一段地看,一行一行的理解,一个词一个词的分析,哈哈,你的那些英语编程,是这么回事吗?如果你还是觉得,这是在英语编程,加了一个外壳,那我也不跟你争辩,我会继续,逐章逐节地公布源代码的.直到你们这些英语编程的人,嗷嗷叫,直跺脚,哈哈.





本文内容为我个人原创作品,申请原创加分

[ 转自铁血社区 http://bbs.tiexue.net/ ]

猜你感兴趣

更多 >>

评论

评 论

更多精彩内容