计算机应用基础课程设计程序汇总.docx
- 文档编号:315191
- 上传时间:2022-10-08
- 格式:DOCX
- 页数:15
- 大小:542.17KB
计算机应用基础课程设计程序汇总.docx
《计算机应用基础课程设计程序汇总.docx》由会员分享,可在线阅读,更多相关《计算机应用基础课程设计程序汇总.docx(15页珍藏版)》请在冰豆网上搜索。
计算机应用基础课程设计程序汇总
课程设计说明书
课程名称:
计算机应用基础课程设计
课程代码:
6011339
题目:
年级/专业/班:
学生姓名:
学 号:
开始时间:
2013年2月20日(根据自己的课表填写!
)
完成时间:
2013年3月2日
课程设计成绩:
学习态度及平时成绩(30)
技术水平与实际能力(20)
创新(5)
说明书(计算书、图纸、分析报告)撰写质量(45)
总分(100)
指导教师签名:
年月日
目录(小三黑体,居中)
摘要……………………………………………………………………………………………2
1引言…………………………………………………………………………………………3
1.1问题的提出………………………………………………………………………………3
1.2任务与分析………………………………………………………………………………3
2设计方案……………………………………………………………………………………4
2.1程序功能设计……………………………………………………………………………4
2.1.1程序功能描述…………………………………………………………………………4
2.1.2程序功能结构分析……………………………………………………………………4
2.2程序界面和代码设计……………………………………………………………………6
2.2.1工程设计框架…………………………………………………………………………6
2.2.2各界面及代码设计……………………………………………………………………6
3结果分析…………………………………………………………………………………15
结论…………………………………………………………………………………………19
致谢…………………………………………………………………………………………20
参考文献……………………………………………………………………………………21
(段落行距为1.5倍行距,未具体指明使用字体的均为小四宋体,以下同)
摘要(小三楷体加黑,居中)
随着计算机的普及,计算机高级语言已经运用到生活中的各个方面,本次课程设计使用vb语言作为开发工具,进行了物体沿曲线运动的程序设计,该程序能实现物体沿曲线运动功能,计算结果简单明了,运行界面清晰实用,操作方便,易于实际处理。
(小四楷体)
关键词:
动态曲线绘制(小四楷体)
1引言(小三黑体)
随着科学技术的发展,计算机已经应用到生活、工作的各个方面。
VB一种可视化的、面向对象和采用事件驱动方式的高级程序设计语言,可用于开发Windows环境下的各类应用程序。
本次课程设计主要内容就是使用VB编制简单、实用的小程序,以巩固我们所学的计算机VB语言知识,提高分析问题和解决问题的能力,锻炼我们独立动手的能力。
1.1问题的提出(四号黑体)
传统的物体沿曲线运动的设计效率低。
使用vb操作的设计能很好的解决这个问题。
1.2任务与分析(四号黑体)
本次课程设计的题目是“物体沿曲线运动的程序设计”,主要内容是合理使用VB中的随机文件操作,设计一些简单的曲线,实现物体沿该曲线运动的功能。
2设计方案(一级标题小三黑体)
首先根据题目要求设计合理界面,确定哪些控件会用到,要考虑到操作的方便性和美观性。
再按题目的功能要求编写对象的事件代码,并其逐一进行调试和修改。
(内容为小四宋体,不加粗)
2.1程序功能设计(四号黑体)
2.1.1程序功能描述(小四号黑体,)
根据设计要求,程序要达到的功能如下:
(1)、用简单函数画出曲线图;
(2)、书写合适的代码实现物体沿曲线运动……(内容为小四宋体,不加粗)
2.1.2程序功能结构分析(小四号黑体)
根据上面对系统功能的描述,构建出系统的总体功能结构图,如图1所示。
(注意:
所有的图形都应该在图的正下方标注编号!
)
2.2程序界面和代码设计(四号黑体)
2.2.1工程设计框架
对工程的整体布局。
设计一个窗体,一个模块,一个工程文件名,各窗体文件名,即你设计的工程资源管理器窗口,如图3所示。
2.2.2各界面及代码设计
(1)欢迎界面
欢迎界面如图4所示。
欢迎界面主要代码如下:
(2)主界面一如图5所示。
主界面一主要代码如下:
通用部分的代码如下:
Dimx1,x2,y1,y2'坐标系统的左上角、右下角参数
DimZhengXianAsBoolean'绘制正弦的标记变量
DimPaoWuXianAsBoolean'绘制抛物线的标记变量
DimXzheng,Xpao'Timer事件过程中,两条曲线的自变量
ConstPiAsSingle=3.1415926
DimPaobcAsSingle'绘制抛物线的步长值
PrivateSubABOUT_Click()
MsgBox("DistortByHuBo.")
EndSub
循迹运动Command10_的代码
PrivateSubCommand10_Click()'循迹
Timer1.Enabled=True
Shape2.Visible=True
Timer1.Interval=10
EndSub
停止循迹Command7的代码
PrivateSubCommand7_Click()
Timer1.Enabled=NotTimer1.Enabled
IfCommand7.Caption="停止循迹"Then
Command7.Caption="继续循迹"
ExitSub
EndIf
IfCommand7.Caption="继续循迹"Then
Command7.Caption="停止循迹"
ExitSub
EndIf
EndSub
Form下的代码:
PrivateSubForm_Load()
Timer1.Enabled=False
Shape1.Visible=False
Shape2.Visible=False
Xzheng=-360'Timer事件过程中,动态绘制时,正弦曲线自变量的初始值
Xpao=-5'Timer事件过程中,动态绘制时,抛物线方程自变量的初始值
Paobc=0.01
EndSub
PrivateSubCommand1_Click()'定制正弦曲线坐标系统
Shape2.Visible=False
Picture1.Cls
x1=-360:
x2=360
y1=2:
y2=-2
Picture1.Scale(x1,y1)-(x2,y2)'定制正弦曲线坐标系统
Callzhenxianzuobiaoxitong'调用绘制正弦坐标系统
Timer1.Enabled=False'关闭计时器
Timer1.Interval=1'设置计时器时间间隔
Xzheng=-360:
Xpao=-5'两条曲线的自变量归为初始值
Picture1.DrawWidth=3
ForX=XzhengTo360Step1
Y=Sin(X/180*Pi)
Picture1.PSet(X,Y),vbRed
NextX
ZhengXian=True'绘制正弦为真
PaoWuXian=False'此时绘制抛物线为假
EndSub
Subzhenxianzuobiaoxitong()'绘制正弦坐标系统
Picture1.Cls
Picture1.Line(-360,0)-(360,0)'画X坐标轴
Picture1.Line(0,-2*5)-(0,2*5)'画Y坐标轴
Fori=-360To360Step90'画X坐标轴刻度线
Picture1.Line(i,0)-(i,0.1)
Nexti
Fori=-2To2Step1'画Y坐标轴刻度线
Picture1.Line(0,i)-(10,i)
Nexti
Fori=-360To360Step90'打印X坐标轴刻度值
Picture1.CurrentX=i
Picture1.CurrentY=-0.2
Picture1.Printi
Nexti
Fori=-2To2Step1'打印Y坐标轴刻度值
Picture1.CurrentX=5
Picture1.CurrentY=i
Ifi<>0ThenPicture1.Printi
Nexti
EndSub
抛物线Command3_的代码:
PrivateSubCommand3_Click()
Timer1.Enabled=False
Shape2.Visible=False
x1=-5:
y1=100
x2=5:
y2=-5
Picture1.Cls
Picture1.Scale(-5,100)-(5,-5)
Picture1.Line(-5,0)-(5,0)
Picture1.Line(0,100)-(0,0)
Fori=-5To5Step1
Picture1.Line(i,0)-(i,2)
Nexti
Fori=0To100Step20
Picture1.Line(0,i)-(0.1,i)
Nexti
Fori=-5To5Step1
Picture1.CurrentX=i
Picture1.CurrentY=-0.2
Picture1.Printi
Nexti
Fori=20To100Step20
Picture1.CurrentX=-0.5
Picture1.CurrentY=i
Picture1.Printi
Nexti
Xzheng=-360:
Xpao=-5'两条曲线的自变量归为初始值
ForX=XpaoTo5Step0.01
Y=2*X^2+5
Picture1.DrawWidth=2
Picture1.PSet(X,Y),vbBlue
NextX
ZhengXian=False
PaoWuXian=True
EndSub
PrivateSubCommand9_Click()'精确读数
Shape1.Visible=True
X=Val(Text1.Text)
Shape1.Left=X
IfZhengXian=TrueThenY=Sin(X/180*3.1415926)
IfPaoWuXian=TrueThen
Y=2*X^2+5'请独立完善此段程序!
!
!
EndIf
Y=Round(Y,4)
Text2.Text=Y
EndSub
Picture1下的代码:
PrivateSubPicture1_Mousedown(ButtonAsInteger,ShiftAsInteger,XAsSing
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 应用 基础 课程设计 程序 汇总
![提示](https://static.bdocx.com/images/bang_tan.gif)