计算机应用基础课程设计程序

1、 计算机应用基础课程设计课程设计说明书课 程 名 称: 计算机应用基础课程设计 课 程 代 码: 6011339 题 目: 年级/专业/班: 学 生 姓 名: 学 号: 开 始 时 间: 2013 年 2 月 20日（根据自己的课表填写！）完 成 时 间: 2013 年 3 月 2 日课程设计成绩：学习态度及平时成绩（30）技术水平与实际能力（20）创新（5）说明书（计算书、图纸、分析报告）撰写质量（45）总 分（100）指导教师签名： 年 月 日 目 录 （小三黑体，居中）摘要21 引言31.1问题的提出31.2任务与分析32 设计方案42.1程序功能设计42.1.1程序功能描述42.1.2

2、程序功能结构分析42.2程序界面和代码设计62.2.1工程设计框架62.2.2各界面及代码设计6 3 结果分析 15结论 19致谢 20参考文献 21（段落行距为1.5倍行距，未具体指明使用字体的均为小四宋体，以下同） 摘 要 （小三楷体_GB2312加黑，居中）随着计算机的普及，计算机高级语言已经运用到生活中的各个方面，本次课程设计使用vb语言作为开发工具，进行了物体沿曲线运动的程序设计，该程序能实现物体沿曲线运动功能，计算结果简单明了，运行界面清晰实用，操作方便，易于实际处理。（小四楷体_GB2312）关键词： 动态 曲线 绘制 （小四楷体_GB2312）1 引 言 （小三黑体）随着科学技

3、术的发展，计算机已经应用到生活、工作的各个方面。VB一种可视化的、面向对象和采用事件驱动方式的高级程序设计语言，可用于开发Windows环境下的各类应用程序。本次课程设计主要内容就是使用VB编制简单、实用的小程序，以巩固我们所学的计算机VB语言知识，提高分析问题和解决问题的能力，锻炼我们独立动手的能力。1.1 问题的提出 （四号黑体）传统的物体沿曲线运动的设计效率低。使用vb操作的设计能很好的解决这个问题。1.2任务与分析 （四号黑体）本次课程设计的题目是“物体沿曲线运动的程序设计”，主要内容是合理使用VB中的随机文件操作，设计一些简单的曲线，实现物体沿该曲线运动的功能。2 设计方案 （一级标

4、题小三黑体）首先根据题目要求设计合理界面，确定哪些控件会用到，要考虑到操作的方便性和美观性。再按题目的功能要求编写对象的事件代码，并其逐一进行调试和修改。（内容为小四宋体，不加粗）2.1程序功能设计 （四号黑体）2.1.1程序功能描述 （小四号黑体，）根据设计要求，程序要达到的功能如下： （1）、用简单函数画出曲线图； （2）、书写合适的代码实现物体沿曲线运动（内容为小四宋体，不加粗）2.1.2程序功能结构分析（小四号黑体）根据上面对系统功能的描述，构建出系统的总体功能结构图，如图1所示。（注意：所有的图形都应该在图的正下方标注编号！）2.2程序界面和代码设计 （四号黑体）2.2.1工程设计框

5、架对工程的整体布局。设计一个窗体，一个模块，一个工程文件名，各窗体文件名，即你设计的工程资源管理器窗口，如图3所示。2.2.2 各界面及代码设计（1）欢迎界面欢迎界面如图4所示。欢迎界面主要代码如下：（2）主界面一如图5所示。主界面一主要代码如下：通用部分的代码如下：Dim x1, x2, y1, y2 坐标系统的左上角、右下角参数Dim ZhengXian As Boolean 绘制正弦的标记变量Dim PaoWuXian As Boolean 绘制抛物线的标记变量Dim Xzheng, Xpao Timer事件过程中,两条曲线的自变量Const Pi As Single = 3.14159

6、26Dim Paobc As Single 绘制抛物线的步长值Private Sub ABOUT_Click()MsgBox (Distort By HuBo.)End Sub 循迹运动Command10_的代码Private Sub Command10_Click() 循迹Timer1.Enabled = TrueShape2.Visible = TrueTimer1.Interval = 10End Sub停止循迹Command7的代码Private Sub Command7_Click()Timer1.Enabled = Not Timer1.EnabledIf Command7.Cap

7、tion = 停止循迹 Then Command7.Caption = 继续循迹 Exit SubEnd IfIf Command7.Caption = 继续循迹 Then Command7.Caption = 停止循迹 Exit SubEnd IfEnd SubForm下的代码：Private Sub Form_Load()Timer1.Enabled = FalseShape1.Visible = FalseShape2.Visible = FalseXzheng = -360 Timer事件过程中,动态绘制时,正弦曲线自变量的初始值Xpao = -5 Timer事件过程中,动态绘制时,抛

8、物线方程自变量的初始值Paobc = 0.01End SubPrivate Sub Command1_Click() 定制正弦曲线坐标系统Shape2.Visible = FalsePicture1.Clsx1 = -360: x2 = 360y1 = 2: y2 = -2Picture1.Scale (x1, y1)-(x2, y2) 定制正弦曲线坐标系统Call zhenxianzuobiaoxitong 调用绘制正弦坐标系统Timer1.Enabled = False 关闭计时器Timer1.Interval = 1 设置计时器时间间隔Xzheng = -360: Xpao = -5 两

9、条曲线的自变量归为初始值Picture1.DrawWidth = 3For X = Xzheng To 360 Step 1 Y = Sin(X / 180 * Pi) Picture1.PSet (X, Y), vbRedNext XZhengXian = True 绘制正弦为真PaoWuXian = False 此时绘制抛物线为假End SubSub zhenxianzuobiaoxitong() 绘制正弦坐标系统Picture1.ClsPicture1.Line (-360, 0)-(360, 0) 画X坐标轴Picture1.Line (0, -2 * 5)-(0, 2 * 5) 画Y

10、坐标轴For i = -360 To 360 Step 90 画X坐标轴刻度线 Picture1.Line (i, 0)-(i, 0.1)Next iFor i = -2 To 2 Step 1 画Y坐标轴刻度线 Picture1.Line (0, i)-(10, i)Next iFor i = -360 To 360 Step 90 打印X坐标轴刻度值 Picture1.CurrentX = i Picture1.CurrentY = -0.2 Picture1.Print iNext iFor i = -2 To 2 Step 1 打印Y坐标轴刻度值 Picture1.CurrentX =

11、 5 Picture1.CurrentY = i If i 0 Then Picture1.Print iNext iEnd Sub抛物线Command3_的代码：Private Sub Command3_Click()Timer1.Enabled = FalseShape2.Visible = Falsex1 = -5: y1 = 100x2 = 5: y2 = -5Picture1.ClsPicture1.Scale (-5, 100)-(5, -5)Picture1.Line (-5, 0)-(5, 0)Picture1.Line (0, 100)-(0, 0)For i = -5 To

12、 5 Step 1 Picture1.Line (i, 0)-(i, 2)Next iFor i = 0 To 100 Step 20 Picture1.Line (0, i)-(0.1, i)Next iFor i = -5 To 5 Step 1 Picture1.CurrentX = i Picture1.CurrentY = -0.2 Picture1.Print iNext iFor i = 20 To 100 Step 20 Picture1.CurrentX = -0.5 Picture1.CurrentY = i Picture1.Print iNext iXzheng = -

13、360: Xpao = -5 两条曲线的自变量归为初始值 For X = Xpao To 5 Step 0.01 Y = 2 * X 2 + 5 Picture1.DrawWidth = 2 Picture1.PSet (X, Y), vbBlueNext XZhengXian = FalsePaoWuXian = TrueEnd SubPrivate Sub Command9_Click() 精确读数Shape1.Visible = TrueX = Val(Text1.Text)Shape1.Left = XIf ZhengXian = True Then Y = Sin(X / 180 *

14、 3.1415926)If PaoWuXian = True ThenY = 2 * X 2 + 5 请独立完善此段程序！End IfY = Round(Y, 4)Text2.Text = YEnd SubPicture1下的代码：Private Sub Picture1_Mousedown(Button As Integer, Shift As Integer, X As Single, Y As Single) 粗略读数Shape1.Visible = TrueShape1.Left = XIf ZhengXian = True Then Y = Sin(X / 180 * 3.14159

15、26)End IfIf PaoWuXian = True Then Y = 2 * X 2 + 5End IfText1.Text = Format(X, #.00)Text2.Text = Format(Y, #.00)End SubPrivate Sub Timer1_Timer() 循迹If ZhengXian = True Then 绘制正弦曲线 Shape2.Visible = False Picture1.Cls Call zhenxianzuobiaoxitong 调用绘制正弦坐标系统 Picture1.DrawWidth = 3 For X = -360 To 360 Step

16、 1 Y = Sin(X / 180 * Pi) Picture1.PSet (X, Y), vbRed Next X Xzheng = Xzheng + 1 X = Xzheng If X 360 Then Timer1.Enabled = False: Xzheng = 0 Y = Sin(X / 180 * Pi) Picture1.DrawWidth = 3 Picture1.FillStyle = 0 Picture1.FillColor = vbBlue Picture1.Circle (X, Y), 15, vbBlue End IfIf PaoWuXian = True The

17、n 绘制抛物线 Xpao = Xpao + Paobc X = Xpao If X = 5 Then Xpao = 5: Paobc = -Paobc End If If X -5 Then Xpao = -5: Paobc = -Paobc End If Y = 2 * X 2 + 5 Shape2.Move X - Shape2.Width / 2, Y + Shape2.Height / 2End IfEnd SubPrivate Sub TUICHU_Click()EndEnd Sub3 结果分析 （一级标题小三黑体）单击“正弦”，运行结果如下图： 图1，正弦图单击“抛物线”，运行结果如下图： 图2，抛物线图单击“循迹运动”，运行结果如下图： 图3，正弦函数下的运动 图4，抛物线下的运动单击“停止循迹”，运行结果如下图： 图5，正弦运动下的停止运动 图6，抛物线运动下的停止运动 结 论 （小三黑体，居中） 通过本次课程设计，巩固了VB语言知识，提高了综合运用所学知识解决实际问题的能力。 致 谢 （小三黑体，居中）这次能够顺利的完成这次课程设计，首先我要感谢教会我用VB语言的老师，以及在课程设计辅导我的滕艳琼老师，是他们在我每次感到困难的时候给予我很大的帮助，还