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

万邦来朝 收藏 75 4035

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


http://bbs.tiexue.net/post_2277811_1.html [原创]最高级计算机编程语言,汉语编程入门教程3



第二章


第一节 绘图程序


扩展对象 画直线 继承自 窗口对象模板

属性 窗口标题:编字串" 画直线" 属性。

属性 开始位置:160 100 属性。

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

对象事件 绘制时:

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

25 50 坐标定位:设备描述表

100 50 画线到:设备描述表

对象事件。

对象。

启动:画直线




关键词说明

画直线格式如下:

对象事件 绘制时:

画线颜色:设备描述表

坐标定位:设备描述表

画线到:设备描述表

对象事件。




第二节 画长方形


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

属性 窗口标题:编字串" 画正方形" 属性。

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

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

对象事件 绘制时:

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

100 100 坐标定位:设备描述表

200 100 画线到:设备描述表

200 100 坐标定位:设备描述表

200 200 画线到:设备描述表

200 200 坐标定位:设备描述表

100 200 画线到:设备描述表

100 200 坐标定位:设备描述表

100 100 画线到:设备描述表

对象事件。

对象。

启动:窗口



程序设计思想

在屏幕上画两个矩形。一个是空心的,另一个是实心的,格式为:

对象事件 绘制时:


空心矩形:设备描述表


实心矩形:设备描述表

对象事件。




第三节 画一座房子



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

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

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

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

对象事件 绘制时:

0 0 读大小: 自本身 浅绿色 区域填充: 设备描述表

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

200 100 坐标定位: 设备描述表

500 100 画线到: 设备描述表

200 100 坐标定位: 设备描述表

100 200 画线到: 设备描述表

100 200 坐标定位: 设备描述表

600 200 画线到: 设备描述表

600 200 坐标定位: 设备描述表

500 100 画线到: 设备描述表

250 50 300 150 浅黄色 实心矩形: 设备描述表

200 200 500 450 浅黄色 实心矩形: 设备描述表

350 250 450 450 红色 实心矩形: 设备描述表

220 280 320 380 蓝色 实心矩形: 设备描述表

270 280 坐标定位: 设备描述表

270 380 画线到: 设备描述表

220 330 坐标定位: 设备描述表

320 330 画线到: 设备描述表

对象事件。

对象。

启动: 画房子



程序设计思想

在这个程序中,首先给窗口填充了浅绿色。然后通过四个画线语句,画出了屋顶,再画出烟囱,再然后通过三个长方形画出房子的下半部、门和窗框。最后用两条直线,完成窗户的绘制。





第四节 画圆圈



扩展对象 画圆 继承自 窗口对象模板

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

属性 开始位置: 160 100 属性。

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

对象事件 绘制时:

0 0 读大小: 自本身

黑色 区域填充: 设备描述表

浅黄色 画刷颜色: 设备描述表

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

100 100 70 填充圆: 设备描述表

对象事件。

对象。

启动: 画圆




程序说明

程序中"画圆"就是本程序的程序名,程序员可以根据需要自行定义程序名称,可以是文字,也可是数字,但若程序量较大,建议最好使用文字,避免系统将数字命名的窗口名称当作程序内容。"窗口对象模板"中包括窗口标题栏中公司图标、最小化按钮、还原按钮、关闭按钮、默认的开始尺寸、开始位置,窗口标题等内容。"属性"中包括编程人员对组合框的定义,可以包括窗口开始尺寸、窗口大小、最大尺寸、最小尺寸、开始位置、窗口标题等内容。

关键词说明

画圆的格式

对象事件 绘制时:

〈颜色〉 画刷颜色: 设备描述表

〈颜色> 画笔颜色: 设备描述表

填充圆: 设备描述表

对象事件 。

〈颜色〉 画笔颜色: 即将置为圆框的线条颜色。

〈颜色〉 画刷颜色: 即将置为圆内部填充颜色。

将画圆程序中〈画刷颜色:〉和〈画笔颜色:〉前的〈颜色〉分别改一改,仔细观察圆框线条和圆内部填充颜色有何相应的变化,想一想程序中〈画刷颜色:〉和〈画笔颜色:〉的作用及区别。

注意:

程序中 用于控制圆的位置,用于控制圆的大小。在编程序过程中,要选择好、 、,以达到预期效果。

如将程序中〈填充圆:〉改为〈画圆:〉,即可表示用指定的画笔颜色的线条画一个圆,内部不填充颜色。





第五节 画圆弧



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

属性 窗口标题: 编字串" 画圆弧" 属性。

属性 开始尺寸: 250 200 属性。

对象事件 绘制时:

0 0 读大小: 自本身

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

绿色 画笔颜色: 设备描述表

50 50 200 150 150 80 50 100 画圆弧: 设备描述表

对象事件。

对象。

启动: 窗口



程序说明

现在我们把这段程序另存为ARC.chp文件。打开汉语言编程编译器,装载ARC.chp文件,程序运行的结果如图15-2所示。原来这就是一个画圆弧的程序啊!如果继续把程序第八行中的数值做一些改动,就会画出各种各样的圆弧来。因为这些数值分别定义了图1-30中的A、B、C、D四点的坐标,决定了圆弧的位置、大小和形状。

已知圆弧边界矩形的左上角和右下角的顶点坐标分别为(100,100)、(400,300),圆弧的起始点和终止点的坐标分别为(120,60)、(25,150),要求在分辨率为640×480的窗口里画出这条圆弧。请你编出这段程序,并将文件保存为ARC1.chp。修改ARC1.chp,使程序画出的圆弧比原来的向右平移100个象素点,另存文件为ARC2.chp。

要使程序画出的圆弧比原来的向右平移100个象素点,只要把圆弧边界矩形的左上角和右下角顶点、圆弧的起始点和终止点的横坐标分别增加100个象素点即可。

修改ARC1.chp,使程序画出的圆弧比原来的向右平移50个象素点,同时向上平移100个象素点,另存文件为ARC3.chp。分别运行各程序比较各自的差异。






第六节 画一把雨伞



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

属性 窗口标题: 编字串" 一把雨伞" 属性。

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

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

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

红色 画笔颜色: 设备描述表

140 250 155 275 红色 实心矩形: 设备描述表

146 150 149 250 白色 实心矩形: 设备描述表

145 50 150 35 红色 实心矩形: 设备描述表

80 120 155 270 155 140 80 140 画圆弧: 设备描述表

140 120 215 270 215 140 140 140 画圆弧: 设备描述表

200 120 275 270 275 140 200 140 画圆弧: 设备描述表

20 120 95 270 95 140 20 140 画圆弧: 设备描述表

25 50 270 300 270 150 25 150 画圆弧: 设备描述表

对象事件。


对象。

启动: 窗口




程序说明

定义窗口标题为" 一把雨伞"的窗口。

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

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

红色 画笔颜色: 设备描述表

140 250 155 275 红色 实心矩形: 设备描述表

146 150 149 250 白色 实心矩形: 设备描述表

145 50 150 35 红色 实心矩形: 设备描述表

对象事件。

程序说明

画三个实心矩形。即在"对象事件 绘制时: ……对象事件。"之间插入。

80 120 155 270 155 140 80 140 画圆弧: 设备描述表

140 120 215 270 215 140 140 140 画圆弧: 设备描述表

200 120 275 270 275 140 200 140 画圆弧: 设备描述表

20 120 95 270 95 140 20 140 画圆弧: 设备描述表

25 50 270 300 270 150 25 150 画圆弧: 设备描述表

程序说明

在"对象事件 绘制时: ……对象事件。"之间插入五条弧线。

画弧是画好雨伞的关键。由于四条小弧大小相等,又在同一条水平线上,可以按先中间、后两边的顺序,先画其中的一条,再用左右平移的方法画出其余的三条,然后再画大弧。保存文件,画雨伞的程序就算做成啦!




第七节 设计电子相册



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

属性 开始尺寸: 490 350 属性。

属性 窗口标题: 编字串" 电子相册" 属性。

对象事件 绘制时:

0 0 读大小: 自本身

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

10 20 400 300 白色 空心矩形: 设备描述表

415 35 480 280 浅绿色 区域填充: 设备描述表

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

65 120 字串" 欢 迎 走 进 汉语编程 世 界"

文本输出: 设备描述表

165 170 字串" --大连汉语编程科技发展公司"

文本输出: 设备描述表

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

440 50 字串" 汉" 文本输出: 设备描述表

440 100 字串" 编" 文本输出: 设备描述表

440 150 字串" 的" 文本输出: 设备描述表

440 200 字串" 世" 文本输出: 设备描述表

440 250 字串" 界" 文本输出: 设备描述表

对象事件。

单选框控制 播放

对象事件 初始时: 本身的 开始: 播放 200 310 65 30 定位: 播放

字串" 播放" 置控制标题或值: 播放

对象事件。

编 延时 1500 毫秒 。

对象事件 接受命令:

∽ 取低字

如和 读标识: 播放 对应就 读设备描述表: 自本身 写入 位图设备句柄

15 25 379 270 字串" 01.bmp" 缩放显位图

延时

15 25 379 270 字串" 02.bmp" 缩放显位图

延时

15 25 379 270 字串" 03.bmp" 缩放显位图

延时

15 25 379 270 字串" 04.bmp" 缩放显位图

延时

15 25 379 270 字串" 05.bmp" 缩放显位图

而后

对象事件。

对象。

开始: 窗口





程序说明

在这个窗口里,我们设计了照片的播放区,即白色的空心矩形,添加了"播放"单选框,还为相册起了个名称,并写了问候语。要注意的是,在"播放"图片前,必须要有"读设备描述表: 自本身"和"写入 位图设备句柄"这两句,为下面图片文件的播放做准备。

程序说明:

在"对象。"前加入:

对象事件 接受命令:

接受命令: 自源模板


对象事件。

程序序列,这是本程序中最关键的一段。不过此前还要先设定好图片播放的速度,即每张照片在屏幕上的显示时间。

关键词说明

"15 25 379 270 字串" 01.bmp" 缩放显位图"的含义是:自窗口的(15,25)处开始,在向右379个象素点、向下270个象素点的矩形区域内,缩放显示"01.bmp"图片。

"对象事件 接受命令: … 对象事件。"

功能:在程序的过程中调用触发事件。

格式:对象事件 接受命令: … 对象事件。

"如和 读标识: 播放 对应就……而后"可理解为:如果单击"播放"前的单选框,就执行"对应就"后面的内容,否则就执行"而后"后面的内容。

注意

在程序中"字串" .BMP""中半角引号和之间必须有,而且只能有一个半角空格。位图文件必须在WIN32CHP.EXE当前文件夹中。



第八节 综合练习



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

属性 窗口标题: 编字串" 画圆弧" 属性。

属性 开始位置: 160 100 属性。

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

对象事件 绘制时:

黑色 画笔颜色: 设备描述表

50 60 250 170 250 120 120 116 画圆弧: 设备描述表

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

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

250 120 画线到: 设备描述表

55 120 245 250 黑色 空心矩形: 设备描述表

56 121 244 249 浅黄色 实心矩形: 设备描述表

黑色 画笔颜色: 设备描述表

浅红色 画刷颜色: 设备描述表

100 180 30 填充圆: 设备描述表

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

70 180 坐标定位: 设备描述表

130 180 画线到: 设备描述表

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

100 150 坐标定位: 设备描述表

100 210 画线到: 设备描述表

170 170 210 250 黑色 空心矩形: 设备描述表

171 171 209 249 浅蓝色 实心矩形: 设备描述表

176 200 184 212 浅黄色 实心矩形: 设备描述表

浅红色 画刷颜色: 设备描述表

70 100 8 填充圆: 设备描述表

浅红色 画刷颜色: 设备描述表

100 75 8 填充圆: 设备描述表

浅红色 画刷颜色: 设备描述表

110 108 8 填充圆: 设备描述表

浅红色 画刷颜色: 设备描述表

140 95 8 填充圆: 设备描述表

浅红色 画刷颜色: 设备描述表

155 70 8 填充圆: 设备描述表

浅红色 画刷颜色: 设备描述表

195 90 8 填充圆: 设备描述表

浅红色 画刷颜色: 设备描述表

180 112 8 填充圆: 设备描述表

浅红色 画刷颜色: 设备描述表

225 105 8 填充圆: 设备描述表

195 40 215 80 黑色 空心矩形: 设备描述表

196 41 214 79 浅蓝色 实心矩形: 设备描述表

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

205 28 225 37 画椭圆: 设备描述表

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

210 16 245 26 画椭圆: 设备描述表

对象事件。

对象。

启动: 窗口



程序设计思想

这间小房子是由哪些图形构成的?主要由圆、矩形、弧形、椭圆及直线构成。只要找到它们的位置,填上颜色即可。




第九节 区域填充



123 49 132 RGB调色板 新颜色 阴天

254 255 230 RGB调色板 新颜色 闪电

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

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

属性 开始位置: 自动居中: 自本身 属性。

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

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

编 第一句 190 0

循环 5 毫秒 阴天 置背景颜色: 设备描述表

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

260 内环数 - 350

字串" 打雷时,请不要在树下停留!" 文本输出: 设备描述表

回环 。

对象事件 初始时: 禁用最大化按钮: 自本身

对象事件。

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

阴天 区域填充: 设备描述表

阴天 置背景颜色: 设备描述表

75 150 140 300 黄色 实心矩形: 设备描述表

浅绿色 画刷颜色: 设备描述表

20 340 280 280 画椭圆: 设备描述表

浅绿色 画刷颜色: 设备描述表

20 120 200 240 画椭圆: 设备描述表

红色 画笔颜色: 设备描述表

浅红色 画刷颜色: 设备描述表

117 142 5 填充圆: 设备描述表

140 140 3 填充圆: 设备描述表

红色 画笔颜色: 设备描述表

浅红色 画刷颜色: 设备描述表

100 152 6 填充圆: 设备描述表

58 170 4 填充圆: 设备描述表

红色 画笔颜色: 设备描述表

浅红色 画刷颜色: 设备描述表

88 172 6 填充圆: 设备描述表

浅红色 画刷颜色: 设备描述表

166 192 6 填充圆: 设备描述表

浅红色 画刷颜色: 设备描述表

133 162 6 填充圆: 设备描述表

浅红色 画刷颜色: 设备描述表

117 182 5 填充圆: 设备描述表

浅红色 画刷颜色: 设备描述表

133 132 5 填充圆: 设备描述表

浅红色 画刷颜色: 设备描述表

100 199 4 填充圆: 设备描述表

黑色 画刷颜色: 设备描述表

108 300 10 填充圆: 设备描述表

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

118 300 坐标定位: 设备描述表

136 300 画线到: 设备描述表

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

125 290 坐标定位: 设备描述表

125 310 画线到: 设备描述表

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

150 290 坐标定位: 设备描述表

136 300 画线到: 设备描述表

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

136 300 坐标定位: 设备描述表

150 310 画线到: 设备描述表

灰色 画刷颜色: 设备描述表

170 1 330 40 画椭圆: 设备描述表

灰色 画刷颜色: 设备描述表

240 1 400 40 画椭圆: 设备描述表

开始画笔路径[: 设备描述表

250 41 坐标定位: 设备描述表

220 91 画线到: 设备描述表

230 91 画线到: 设备描述表

220 135 画线到: 设备描述表

240 85 画线到: 设备描述表

232 90 画线到: 设备描述表

250 41 画线到: 设备描述表

]结束画笔路径: 设备描述表

闪电 画刷颜色: 设备描述表

关闭并填充多边形: 设备描述表

开始画笔路径[: 设备描述表

280 91 坐标定位: 设备描述表

250 191 画线到: 设备描述表

260 191 画线到: 设备描述表

252 291 画线到: 设备描述表

273 183 画线到: 设备描述表

262 189 画线到: 设备描述表

280 91 画线到: 设备描述表

]结束画笔路径: 设备描述表

闪电 画刷颜色: 设备描述表

关闭并填充多边形: 设备描述表

开始画笔路径[: 设备描述表

168 100 坐标定位: 设备描述表

138 170 画线到: 设备描述表

148 170 画线到: 设备描述表

138 290 画线到: 设备描述表

158 166 画线到: 设备描述表

150 169 画线到: 设备描述表

168 100 画线到: 设备描述表

]结束画笔路径: 设备描述表

闪电 画刷颜色: 设备描述表

关闭并填充多边形: 设备描述表

第一句

对象事件。

对象。

启动: 窗口





程序说明

路径:是使用绘图指令在窗口上勾画的封闭和开放直线或直线与曲线的组合。路径可使用不封闭的绘图指令定义,代码结构为:

开始画笔路径[: 设备描述表

[ 绘图指令 ]

]结束画笔路径: 设备描述表

在结束画笔路径前,所有绘图指令不会立即在窗口上显示。只有执行了勾画路径、封闭路径和封闭并填充指令才会真正执行绘图动作。路径可以是封闭的,也可以是不封闭的。路径一般是不规则多边形。不封闭路径可以使用以下指令封闭:

闭合路径: 设备描述表

也可以仅勾画路径而不封闭:

勾画指定路径: 设备描述表

填充:填充是指用设备描述表当前画刷,填充一个指定规则区域或不规则区域。

(1) 规则区域填充

矩形区域填充可使用区域填充和实心矩形两种指令实现。区域填充指令可使用指定颜色的任何可用画刷,而实心矩形则仅能使用指定颜色的默认画刷。区域填充无边线,实心矩形有边线,边线颜色及线型由当前画笔指定。

区域填充: 设备描述表

实心矩形: 设备描述表

填充圆和椭圆使用当前画笔和画刷绘制圆形并填充。

填充圆: 设备描述表


画椭圆: 设备描述表

(2) 路径的关闭及填充

用户定义的路径,可以使用两种方式关闭并填充。

关闭不闭合的路径并填充,但不勾画轮廓线。

关闭并填充多边形: 设备描述表

关闭不闭合路径并填充,勾画轮廓线。

勾画轮廓并填充: 设备描述表




以上是第二章的全部源代码和程序说明.










本文内容于 2007-11-4 20:02:30 被万邦来朝编辑

1
回复主贴
聚焦 国际 历史 社会 军事
75条评论
点击加载更多

发表评论

更多精彩内容

热门话题

更多
广告 东风,东风:目标韩国首尔 导弹准备发射

经典聚焦

更多
发帖 向上 向下
广告 关闭