《软件设计基础(VB)》课程设计报告书

End Select
《软件设计基础（VB）》课程设计报告
第 9 页，共 23 页
Private Sub Form_Load() Timer1.Interval = 300 Timer2.Interval = 300 WindowsMediaPlayer1.Enabled = True mhbasecursor = GetClassLong((Me.hWnd), GCL_HCURSOR) k = App.Path + "\等待-宝剑 2.ani" curcursor = LoadCursorFromFile(k) lresult = SetClassLong((Me.hWnd), GCL_HCURSOR, curcursor) End Sub
作 何使 用
打 更改 更改 更改 更改
印 坐标 各选 线条 缩放
轴数 项颜 粗细 比例、
值色
分辨
率、平
移步
长等
基础
设置
5 秒后 自动 退出 本软
件
任意一元函数曲线的绘制软件模块结构图
⑶详细设计
《软件设计基础（VB）》课程设计报告 总体流程图：
第 7 页，共 23 页
开始
0
输入 函数 1
Check1 的 值
Long, ByVal nIndex As Long) As Long
Public mhbasecursor, curcursor, lresult, k As String
Public rest As Integer
Public m, v As Integer
Form3,进入窗口 作用：进入主窗口 form1 所用控件：个 timer，2 个 Label，1 个 windowsmidiaplayer 技术：主要是对窗体属性的设置，如 from 的 borderStyle 属性为 0-none 目的：通过单击窗体进入软件 代码： Private Sub Form_Click() Form3.Hide Form1.Show End Sub
模块结构图： 根据功能分析，建立系统的体系结构，即将整个系统分解成若干子模块，用框图表示各功
能模块之间的接口关系（如下图）。
任意一元函数曲线的绘制软件
进入窗口
一元数学函数图示器
显示设置
推出窗口
进入 一元 函数 图示 器
输 显显 入 示示 函 时图 数 间像
对图 帮助 像进 用户 行移 了解 动放 本软 缩操 件如
《软件设计基础（VB）》课程设计报告

第 4 页，共 23 页
1．课程设计目的
《软件设计基础（VB）》课程设计是这门课程的实践性教学环节之一，本次设计结合实际应用 的要求，使课程设计既覆盖 VB 的知识点，又接近工程实际需要。目的是通过课程设计的综合训练， 培养学生实际分析问题、解决问题的能力，以及编程和动手能力，最终目标是通过课程设计这种形 式，帮助学生系统掌握 VB 这门课程的主要内容，养成良好的编程习惯，更好的完成教学任务。
第 10 页，共 23 页
《软件设计基础（VB）》课程设计报告 Call form_showda Call form_q2 Call form_q4 End If If Text2.Text <> "" And Text1.Text <> "" Then picshow.Cls Picda.Cls Call form_show Call form_showda Call form_q2 Call form_q4 Call form_q1 Call form_q3 End If Case 2 Check1.Value = 0
①能够显示固定一元函数(例如示意 图中的函数)的图形。
②可以设置常用的显示参数，包括显 示范围，坐标轴、曲线、显示区底色， 及刻度文字及线宽等特性，显示设置的
《软件设计基础（VB）》课程设计报告
第 5 页，共 23 页
范例可以参考右图。
③能够对图形进行缩放，并可以在显示区直接选取显示范围(窗口放大)，可以对图
Public Declare Function DestroyCursor Lib "user32" Alias "DestroyCursorA" (ByVal hCursor
As Long) As Long
Public Declare Function GetClassLong Lib "user32" Alias "GetClassLongA" (ByVal hWnd As
第 3 页，共 23 页
目录
1.课程设计目的 ··············································································3 2.课程设计任务与要求 ·····································································3 3.课程设计说明书 ···········································································5 4.课程设计成果 ············································································18 5.程序调试过程 ············································································22 6.设计问题的不足和改进方案 ··························································22 7.课程设计心得 ············································································22 8.附录 ························································································22 9.参考文献 ··················································································22
Private Sub Timer1_Timer() Label1.Move Label1.Left - 500 If (Label1.Left + Label1.Width) < 0 Then Label1.Left = Me.ScaleWidth + 10 End If End Sub
Private Sub Timer2_Timer() If Label1.ForeColor = vbBlue Then
河北理工大学
《软件设计基础（VB）》
课程设计报告
设计名称：
任意一元函数曲线的绘制
姓 名： 郭钊 学 号： 200913030119
专业班级： 09 地理信息系统 1 班
学 院：
交通与测绘学院
设计时间：
2010 年 5、6 月
设计地点：
学校机房
指导教师评语：
成绩： 指导教师签字：
年月日
《软件设计基础（VB）》课程设计报告
5、具有一定的创新性
6、说明书、流程图要清楚 7、课题完成后必须按要求提交课程设计 报告
任务：欲完成此设计题目，要求必须熟练 使用和掌握 PictureBox 控件的各种属性 （如 forecolor、backcolor、currentX、 currentY,DrawWidth 等）和方法（如 Cls、 Print、Line、Pset,Scale 等）
Public a, b As Single
Public s As Integer
Public x, y, z As Integer
Public Const GCL_HCURSOR = (-12)
Public Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA"
2．课程设计任务与要求：
要求：
本次课程设计利用《软件设计基础（VB）》课程中所学到的编程知识和编程技巧，完成具有一定
难度和工作量的程序设计题目，帮助学生掌握编程、调试的基本技能，独立完成所布置的任务。
要求：
1、对系统进行功能需求分析
2、设计合理的数据结构和系统框架
3、界面设计美观、清楚、合理
4、编程简练，程序功能齐全，能正确运行
(ByVal lpFileName As String) As Long
Public Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hWnd As
Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Label1.ForeColor = vbGreen Else Label1.ForeColor = vbBlue End If End Sub
Form1,主窗体 所用控件：1 个 CommandDialog,2 个 picturebox,3 个 label,2 个 textbox,1 个 check,若干个
jcbutton(外部控件) 作用：书写以及显示函数，还可以计算函数值。 代码如下：用来画图 Private Sub cmdshow_Click()