可视化编程应用——Visual Basic 6中文版项目九 简易画图程序的设计

表9-6 与绘图有关的属性绘图属性用途AutoRedraw、ClipControls显示处理CurrentX、CurrentY当前绘图位置的x与y坐标DrawMode、DrawStyle、DrawWidth绘图模式、线型、线宽FillStyle、FillColor填充的图案、颜色ForeColor、BackColor前景颜色、背景颜色③调用绘图方法绘制图形。

即利用PSet、Line和Circle等方法画点、线和圆等图形。

9.4.1 几何图形绘制几何图形都是由点、线、面等基本图形构成。

要画一个复杂的几何图形，就是要画出构成这个复杂几何图形的点、线和面。

为此，就要掌握点、线、面等基本几何图形的画法。

由于绘图控件上的坐标系统（设备坐标系统）是两维直角坐标系统，所以要在其上画空间平面或者曲面，就要进行三维坐标到两维坐标之间的转换，比较复杂。

这里只举例说明点和线在几何图形中的画法。

【例9-14】画出0度到360度之间的正弦曲线和余弦曲线。

程序代码如下，运行结果如图9-18所示。

Option Explicit '强制变量在使用前定义Const PAI As Single = 3.1415927 '定义符号常量（圆周率）Private Sub cmdDrawSin_Click() '画正弦曲线的事件过程Dim angle As IntegerDim x As Single, y As SingleIf (cmdDrawSin.Caption = "画正弦曲线") ThenCall draw_axis(picSin) '设置并画图片框picSin的坐标轴For angle = 0 To 360 Step 1 '从0度到360度画正弦曲线x = angle * PAI / 180# '度转换为弧度y = Sin(x) '计算Sin(x)picSin.PSet (x, y) '以前景色(ForeColor)画一点Next anglecmdDrawSin.Caption = "清除正弦曲线"ElsepicSin.Cls '清除所画正弦曲线cmdDrawSin.Caption = "画正弦曲线"End IfEnd SubPrivate Sub cmdDrawCos_Click() '画余弦曲线的事件过程Dim angle As IntegerDim x1 As Single, y1 As SingleDim x2 As Single, y2 As SingleIf (cmdDrawCos.Caption = "画余弦曲线") Then232。

可视化编程应用VisualBasic6.0中文版课程设计课程简介本课程旨在帮助学习者掌握可视化编程应用VisualBasic6.0中文版的基础知识和编程技能。

本课程将涉及VisualBasic6.0中文版的编译器、常用控件、事件处理、文件操作、数据库操作、用户界面设计等方面的内容。

通过本课程的学习，学习者将能够熟练运用VisualBasic6.0中文版进行程序编写，并开发出具有实际应用价值的软件。

课程目标1.掌握VisualBasic6.0中文版的开发环境及常用控件；2.掌握VisualBasic6.0中文版的程序设计方法和编程规范；3.掌握VisualBasic6.0中文版的常见事件处理方法；4.掌握VisualBasic6.0中文版的文件操作和数据库操作；5.掌握VisualBasic6.0中文版的用户界面设计和应用。

课程大纲1. VisualBasic6.0中文版开发环境和常用控件•开发环境介绍•常用控件及其属性、方法、事件介绍2. VisualBasic6.0中文版的程序设计方法和编程规范•程序设计的基本流程•编程规范的介绍3. VisualBasic6.0中文版的常见事件处理方法•控件事件和窗体事件•常见事件及其处理方法4. VisualBasic6.0中文版的文件操作和数据库操作•文件操作的基本方法和应用•数据库操作的基本方法和应用5. VisualBasic6.0中文版的用户界面设计和应用•用户界面设计的基本方法和应用•应用案例的介绍和演示考核方式本课程的考核包括以下几方面：1.课堂表现和参与度；2.编写实际应用的程序；3.课程设计报告。

推荐学习资料1.《Visual Basic 6.0中文版基础入门全面剖析基础编程技术》2.《Visual Basic 6.0中文版编程技术详解》3.《Visual Basic 6.0程序设计案例详解》以上资料可以在线购买或通过图书馆、书店获取。

注意事项1.本课程为必修课程，学习者需按时参加课堂并完成作业；2.课程设计报告需按规定格式撰写，并于规定时间内提交；3.如需请假，请提前向任课教师请假并按时补课；4.任何形式的作弊行为均不被容忍，如有发现将按照学校相关规定处理。

退出
第3页
1.1 VB主要功能和特点
1.2 VB的启动与退出
1.3 VB集成开发环境
退出
1.1 VB 主要功能和特点
第4页
1. 具有面向对象的可视化设计工具; 2. 事件驱动的编程机制; 3. 提供了易学易用的应用程序集成开发环境; 4. 结构化的程序设计语言; 5. 支持多种数据库系统的访问; 6. Active技术; 7. VB 6.0在开发环境上、网络功能等的增强; 8. 完备的help联机帮助功能。
一、常用属性
1. Name名称属性 创建的对象名称，有默认的名。在程序中，控件名是作为对 象的标识而引用，不会显示在窗体上。 2. Caption标题属性 该属性决定了控件上显示的内容。 3. Height、width、top和left属性
Top
Left Width
Heig ht
退出
第23页
4. Enabled属性
控件是否可操作。当设置为false时，呈暗淡色，禁止用户进 行操作。 5. Visible属性
控件是否可见。当设置为false时，用户看不到，但控件本身存在。
【
例2-3-1 】 Visible属性和Enabled属性 的比较。
退出
第24页
7．Font（字体）属性 FontName：设置字体类型，属性值为字符型。如：“宋体”、“楷 体”。 FontSize：设置字体大小，属性值为整型。如：28、32。 FontBold：设置字体是否粗体，属性值为逻辑型。 FontItalic：设置字体是否斜体，属性值为逻辑型。 FontStrikethru：设置文本是否加删除线，属性值为逻辑型。 FontUnderline：设置文本是否加下划线，属性值为逻辑型。 【例2-3-2】设计一个程序，程序运行后在窗体上显示2个文本框，文本框 中显示“沈阳”二字。

obj.CurrentY = t + 0.1obj.Print tEnd IfNext tobj.Line (-0.1, 1.7)-(0#, 1.9) '画y轴方向箭头obj.Line (0.1, 1.7)-(0#, 1.9)obj.CurrentX = 0.3 '在指定位置输出字符Yobj.CurrentY = 1.9obj.Print "Y"End Sub图9-18 例9-14运行结果对该程序说明如下。

①该程序在图片框picSin上画正弦曲线，在图片框picCos上画余弦曲线。

②画正弦曲线采用画点的方式，即从0～360度每1度处画一个点，360个点就构成了正弦曲线（虽然画的是离散的点，但由于距离很近，视觉上看起来好象连续一样）。

③画余弦曲线采用画线段的方式，即从0～360度每两度之间画一条直线段，360条直线段就构成了余弦曲线（虽然每一段是直线段，但由于其长度很短，视觉上看起来好像曲线一样）。

④图片框上坐标系统的设置专门设计了一个过程draw_axis，它有一个参数obj，其类型为Object。

调用它设置图片框上的坐标系统时只需把图片框的名称传递给它即可。

9.4.2 简单动画设计在广告设计或者游戏程序设计中，存在着大量的动画设计。

有各种各样的动画设计方法，最简单的莫过于重画原图像方法，即先在一个位置画一幅图像，延迟一段时间再在同一位置用背景颜色画同一幅图像（相当于擦除该图像），然后再在预设好的下一位置画相应图像，然后再擦除，这样在视觉上就形成了动画效果；另一种是采用帧动画原理，即通过一系列静态图片辅之以连续快速变化产生动画效果，即有多张物体处于不同状态的图片，然后按一定速度与顺序连续循环显示这些图片，在视觉上也会产生动画效果。

下面针对第一种方法设计一例程以说明简单动画的实现方法。

【例9-15】设计一程序模拟地球绕太阳旋转（地球绕太阳的运行轨道是椭圆，可以用Circle画出；地球与太阳都是圆形，也可用Circle语句画出；地球的运动可采用定时器事件过程来实现。