****大学课程设计
Vb函数绘图软件设计
单    位      **    学院(系)
专    业     **   
学    号     ** 
学生姓名     **   
指导教师     **   
           
完成日期  年 月  日
摘  要
进行数学教学高校重要工作之一。传统的数学函数绘图过程繁冗且容易出错。随着计算机和程序语言的高速发展，越来越多的高校都拥有自己的函数绘图软件，而以Visual Basic 6.0 语言为基础的软件具有很大优势。
该软件的基础核心是Visual Basic 6.0，它有许多优点，例如：“随处运行，随时保存”的特性、方便修改和使用等等。满足高便利性、高可靠性以及高时效性的应用需求，为学生及时，快速绘制函数图像提供了良好的平台。
该软件基于Visual Basic 6.0 程序语言基础、采用Pset方法, 设计并实现了系统的绘图等相关功能。
论文首先介绍了软件开发涉及的相关知识，主要围绕Visual Basic 6.0的相关控件的使用。其次，介绍了软件的总体分析与设计，包括需求分析、功能分析和窗体界面的设计。最后，利用各种控件对软件功能进行了实现，并作了详细描述，主要采用图片与代码结合的方式详细地叙述了软件功能的实现。
关键词：程序语言，Visual Basic 6.0，Pset方法
1. 选题意义    4
2．系统功能需求分析    4
2.1 系统概述   
2.2 系统的构成   
2.3 系统的运行环境   
3．系统设计    5
3.1  总体结构设计   
4．系统实现    6
4.1 函数录入的设计与实现   
4.2 图像生成及坐标定位的设计与实现   
5．总结    13
5.1总结   
5.2 存在的主要问题   
参考文献    13
第1章
选题意义
本软件基于Visual Basic 6.0,能有效实现一次函数以及二次函数智能绘图功能， 解决简单的数学绘图问题。Visual Basic 是种可视化的、面向对象的采用事件驱动方式的结构化高级程序设计语言，简单易学，效率高，且功能强大，可以与Windows的专业开发工具SDK媲美。
第2章系统功能需求分析
2.1系统概述
本软件基于Visual Basic 6.0,能有效实现一次函数以及二次函数智能绘图功能， 解决简单的
数学绘图问题。Visual Basic 是种可视化的、面向对象的采用事件驱动方式的结构化高级程序设计语言，简单易学，效率高，且功能强大，可以与Windows的专业开发工具SDK媲美。
2.2 系统的构成
一方面该软件的开发运用vb的多种控件，包括对话框，图形框，标签，按钮等等，该软件的颜选择更是使用控件数组，功能强大、图形界面丰富。
另一方面功能各异的代码编辑控制着控件的相关功能，实现了软件的绘图，编辑，保存等多想功能。
2.3 系统的运行环境
该软件基于Visual Basic 6.0 程序语言基础，VB采用了面向对象的程序设计思想。它的基本思路是把复杂的程序设计问题分解为一个个能够完成独立功能的相对简单的对象集合，所谓“对象”就是一个可操作的实体，如窗体、窗体中的命令按钮、标签、文本框等。在Windows环境下，程序是以事件驱动方式运行的，每个对象都能响应多个不同的事件，每
个事件都能驱动一段代码——事件过程，该代码决定了对象的功能。VB为编程提供了一个集成开发环境，结构化的程序设计语言，强大的数据库访问功能，VB提供了多种向导，如应用程序向导、安装向导、数据对象向导和数据窗体向导，通过它们可以快速地创建不同类型、不同功能的应用程序。 
第3章系统设计
3.1总体结构设计
基于课程设计任务书的以下要求：
1. 实现任意函数（一次函数、二次函数）的绘图功能。
2. 实现坐标系的自由设定。
3. 可以在一个坐标系统显示多个函数图像。
4. 图像的颜可以设定。
软件使用了两个窗体，一个插入图片与文字，做成一个简单的封面，另一个用来控制软件使用。
该软件用Visual Basic Pset和for next循环方法绘点成线，实现绘图功能，并使用参量解决一次和二次的函数设置问题，采用了记录鼠标坐标的方法，实现了坐标原点的自由设定，并运用相关参数解决坐标系的数值范围，以及绘制坐标及刻度。
利用控件数组实现了颜的自由设定。
窗体的结构设计主要遵循美观大方的原则，并使用多种控件，在顾及界面的同时，又能充分发挥各个控件的作用。
第4章系统实现
vb程序设计教程答案第四版刘炳文
4.1 函数录入的设计与实现
该软件针对的是一次函数和二次函数的录入并绘图，所以设计的时候采用的是变量控制函数的变化，通过窗体上text的输入值，导入代码种的参数实现任意一次函数以及二次函数的录入，而通过菜单的切换实现界面一次和二次的转换，同时隐藏或显示text3的输入。
代码方面采用函数的标准方程，控制系数的变化实现绘图时图像情况。
4.2 图像生成及坐标定位的设计与实现
图像生成方面，软件采用VB的Pset绘点方法，并使用for循环，通过控制step的数值将点连成线，实现绘图的目标。
坐标定位通过鼠标的mouse_up事件，记录鼠标在picture的坐标值，再用line方法绘制坐标系，实现坐标原点的自由设定。通过菜单编辑设定坐标宽度，在其单击事件中用scale方法绘制坐标的横纵长。
二者结合实现图像生成及坐标定位的实现
相关图片及代码：
Public c!, a!, b!, d%, z!, x!, y!, k!, m!, n!, e!, h!
'a,b,c-函数系数，d-qbcolor数值，z-函数值，x,y-鼠标当前坐标 m=x n=y，e-绘图step值，h-最大坐标值
Private Sub bai_Click()
P1.Cls
P1.Scale (-100, 100)-(100, -100)
k = 20
End Sub
Private Sub bc_Click()
CommonDialog1.DefaultExt = ".bmp"
CommonDialog1.Filter = "位图文件.bmp|*.bmp|JPG文件.jpg|*.jpg"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowSave
If CommonDialog1.FileName <> "" Then
  SavePicture P1.Image, CommonDialog1.FileName
End If
End Sub
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If k = 0.2 Then
e = 0.001
Else
e = 0.01
End If
If Label4.Caption = "一次函数y=a·x+b" Then
  For i = m - 20 * k To m + 20 * k Step e
  z = a * i + b
  P1.PSet (i + m, z + n), QBColor(d)
    If a <> 0 And b > o Then
    Label3.Caption = "y=" & a & "·x+" & b
    ElseIf a <> 0 And b = o Then
    Label3.Caption = "y=" & a & "·x"
    ElseIf a <> 0 And b < o Then
    Label3.Caption = "y=" & a & "·x" & b
    Else
    Label3.Caption = "y=" & b
    End If
Next
Else
  For i = x - 20 * k To x + 20 * k Step e
  z = a * i * i + b * i + c
  P1.PSet (i + m, z + n), QBColor(d)
    If a <> 0 And b <> 0 And c <> o Then
      If b < 0 And c > 0 Then

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。