vb函数曲线动态绘制报告.doc

计算机实习二 需求分析 ： 函数曲线动态绘制 使用面向对象设计环境，编程实现函数曲线的自动绘制。 程序功能是： 根据选择的演示函数，允许用户输入参数，然后动态用不同颜色绘制出相应函数曲线。在用户没有做出其他选择之前，一直重复动态演示曲线绘制过程。 要 求 函 数 名 函 数 式 需要输入的参数 及格要求 一次函数 Y=A x + B A, B 及格要求 二次函数 Y=A x2 + B x + C A, B, C 中等要求 正弦函数 Y=A sin (B x + C) + D A, B, C, D 中等要求 余弦函数 Y=A cos (B x + C) + D A, B, C, D 良好要求 幂函数 Y=x a A 良好要求 指数函数 Y=a x A 良好要求 对数函数 Y=log a x A 优秀要求 正切函数 Y=tan (A x + B) A, B 优秀要求 余切函数 Y=cot (A x + B) A, B 程序设计： 对面向对象设计环境的认识： 第一次接触面向对象设计环境，觉得和C语言和汇编语言有很大差别，不是给你一个界面一条条代码往下写，而是给出很多的控件备选，在这些控件的代码添写处写该孔件所要执行的功能，很多控件是相互联系的，一个控件会启用其他一个或几个控件的功能。还要设计一个合理的外观，通过设置相应的属性选项设计界面。但是编程的思想和以前学习的语言是完全一样的，数据类型，定义，顺序，循环，选择结构的设计都和其他语言没太大分别，所以学习起来并不困难。 2，程序构思； 把要绘制的函数放在一个列表框中，用时钟的启用和停止控制图像的都态绘制。选择列表框中的一个函数，对应的一个时钟启用，其他的时钟禁用，在时钟控件的代码填写处写图像绘制的代码，用RGB函数产生随机颜色。直线用两点法绘图，其他的用描点法绘图，用FOR循环产生X值，再根据函数公式计算出Y值。使用全局变量，因为每次只绘一个函数的图，所以全部函数可以用同样的变量，每次绘图给变量付值即可。 程序流程图： 该学生毕业设计中经过老师的指导能及时纠正自己的行为，端正学习态度。通过指导和自学，对所承担的任务进行了实施，结果较好。 报告中因为没有按指导要求使用画图软件，导致流程图不规范。语言不规范。 结果得分：中 批改老师：章小莉 2006．9．29  程序代码和注释 Dim a, b, c, d As Single ‘定义单精度的通用变量 Private Sub cancel_Click() Unload Me 退出程序 End Sub Private Sub Form_Load() ‘在列表狂中显示函数信息 List1.AddItem y=ax+b ‘在列表狂中显示函数信息 List1.AddItem y=ax^2+bx+c ‘在列表狂中显示函数信息 List1.AddItem y=asin(bx+c)+d ‘在列表狂中显示函数信息 List1.AddItem y=acos(bx+c)+d ‘在列表狂中显示函数信息 List1.AddItem y=x^a ‘在列表狂中显示函数信息 List1.AddItem y=a^x ‘在列表狂中显示函数信息 List1.AddItem y=loga^x ‘在列表狂中显示函数信息 List1.AddItem y=tan(ax+b) ‘在列表狂中显示函数信息 List1.AddItem y=cot(ax+b) ‘在列表狂中显示函数信息 End Sub Private Sub lt1_Click() ‘使所有时钟停止，即停止绘图 Timer1.Interval = 0 Timer2.Interval = 0 Timer3.Interval = 0 Timer4.Interval = 0 Timer5.Interval = 0 Timer6.Interval = 0 Timer7.Interval = 0 Timer8.Interval = 0 Timer9.Interval = 0 End Sub Private Sub lt2_Click() If List1.ListIndex = 0 Then a = InputBox(直线参数输入, 请输入系数a, 0) b = InputBox(直线参数输入, 请输入系数b, 0) Timer1.Interval = 1000 ‘当选择第一个函数时开启时钟一 End If If Li