VB课程设计报告计算器.docx
《VB课程设计报告计算器.docx》由会员分享，可在线阅读，更多相关《VB课程设计报告计算器.docx（28页珍藏版）》请在冰豆网上搜索。
VB课程设计报告计算器
VB课程设计（论文）任务书
土木建筑学 院 测绘专 业2 班
一、课程设计（论文）题目：
滚动字幕板
二、课程设计（论文）工作自2011年6月26日起至2011年7月3日止
三、课程设计（论文）地点:
计算中心8#501
四、课程设计（论文）内容要求：
1.本课程设计的目的
（1）进一步巩固和加深对“VB程序设计”课程基本知识的理解和掌握，了解VB语言在项目开发中的应用。
（2）学习程序设计开发的一般方法，了解和掌握项目开发过程及方式，培养正确的设计思想和分析问题、解决问题的能力，特别是项目设计能力。
（3）通过对标准化、规范化文档的掌握并查阅有关技术资料等，培养项目设计开发能力。
2.课程设计的任务及要求
（1）基本要求：
（1）对系统功能进行需求分析；
（2）使用Visualbasic开发环境进行程序开发；
（3）提出系统的设计方案；
（4）编写源程序代码并进行调试。
（2）创新要求
在基本要求达到后，可进行创新设计。
（3）课程设计报告撰写及装订要求
课程设计报告的撰写要求表述简明，图表准确。
报告按如下内容和顺序用A4纸进行打印并装订成册。
（1）封面
采用统一的课程设计封面，并按要求填写好封面要求的个人信息和选题。
（2）设计任务书
（3）评阅书
（4）目录
（5）正文
（6）主要参考文献
（4）课程设计评分标准：
（1）达到课程设计的目的与要求，程序的可读性较好，并调试正确，60分；
（2）能正确回答设计的中老师所提问题，可增加10分；
（3）课程设计报告书写规范整齐，可增加10分；
（4）心得体会认真总结，可增加10分；
（5）程序有创新性，可增加10分；
成绩评定实行优秀、良好、中等、及格和不及格五个等级。
不及格者需重做。
（5）课程设计进度安排
（1）准备阶段（6学时）：
选择设计题目、了解设计目的要求、查阅相关资料。
（2）程序模块设计分析阶段（8学时）：
程序总体设计、详细设计。
（3）代码编写调试阶段（10学时）：
程序模块代码编写、调试、测试。
（4）撰写论文阶段（6学时）：
总结课程设计任务和设计内容，撰写课程设计论文。
（6）课程设计题目具体要求：
设计要求：
设计一个滚动字幕板。
第一：
启动程序，同时显示两个窗口，一是用来显示滚动字幕的显示板，二是窗口控制板。
第二：
单击控制窗口的“开始”按钮，显示窗口中的文字开始滚动显示。
滚动方式由控制窗口中“字幕滚动方向控制”框中的四个单选框决定的。
共有四种方式：
“从左往右”、“从右往左”、“穿透式左右摆动”和“壁面反射式摆动”。
“从左往右是默认方式。
第三：
本程序提供了8种内置文字内容，单击“内置字幕”框中的一个按钮可以改变滚动字幕的内容。
第四：
通过“前景色”和“背景色”组合框可以改变滚动字幕的前景色和背景色。
第五：
单击控制窗口中的“退出”按钮，同时关闭两个窗口，并程序结束。
学生签名：
2011年6月26日
课程设计（论文）评阅意见
序号
项目
等 级
优秀
良好
中等
及格
不及格
1
课程设计态度评价
2
出勤情况评价
3
任务难度评价
4
工作量饱满评价
5
设计中创新性评价
6
论文书写规范化评价
综合评定等级
评阅人周美玲职称讲师
2011年7月3日
目录
第1章系统概要1
1.1功能大概介绍1
第2章总体设计2
2.2属性窗口2
第3章源程序代码4
3.1Form1窗口上的代码4
3.2Form2的窗口代码15
第4章运行结果及分析16
4.1运行结果16
4.2程序分析17
4.3运行程序使用说明18
第5章心得体会19
参考文献20
第1章系统概要
“滚动字幕板”是指人们在公共场所（如车站、机场、办公大厅等）经常见到的用来显示消息、广告、通知等内容的显示屏。
滚动字幕的方式容易引起观众的注意，具有很好的宣传作用。
本程序要求编制一个模拟滚动字幕板的实用程序。
1.1功能大概介绍
⑴启动程序，同时显示两个窗口，窗口一是用来显示滚动字幕的显示板，窗口二是控制板。
⑵单击控制窗口中的“开始滚动”按钮，显示窗口中的文字开始滚动显示。
滚动的方式由控制窗口中“字幕滚动方向控制”框中四个单选框决定的，共有四种方式：
“从左往右”、“从右往左”、“穿透式左右摆动”和“壁面反射式摆动”，“从右往左”是默认方式。
选择“滚动字幕的文字大小控制”框中的“大字体”或“小字体”单选框，可以改变显示窗口中文字的大小。
从“滚动字幕字体控制”框中可以为显示窗口中的文字选择一种字体。
表示字体的四个按钮实际上是按钮样式的单选框（设置其Style属性）。
⑶本程序提供了8种内置文字内容，单击“内置字幕”框中一个按钮可以改变滚动字幕的内容。
如果要显示自定义的文字内容，可以直接在控制窗口底部的文本框中输入，然后按回车键即可。
⑷通过“前景色”和“背景色”组合框，可以改变滚动字幕的前景色和背景色。
第2章总体设计
2.1设计思路
通过控制窗口上的各个控件来控制显示窗口的各种字幕运行状态。
如图2-1为程序流程图。
图2-1流程图
2.2属性窗口
各个控件的caption属性的字形不作变更；
Timer1的interval属性为1000，Timer2和Timer3的此属性为1；
字体控制及内置字幕上的所有单选框的style属性均改为1；
“暂停”控件和“继续”控件的Visible属性值为False;
文本框的text属性改为“请直接在此输入字幕文字”；
Combo1、Combo2list属性均添加上红色，蓝色，紫色，黄色，黑色，绿色。
Form1的属性设置如图2-2所示。
图2-2form1属性窗口
Form2的属性设置如图2-3所示。
图2-3form2属性窗口
第3章源程序代码
3.1Form1窗口上的代码
DimintSpeedAsInteger
ConststrPrompt1AsString="我们的实习生活结束了！
"
ConststrPrompt2AsString="春眠不觉晓，处处闻啼鸟。
！
！
！
"
ConststrPrompt3AsString="夜来风雨声，花落知多少?
"
ConststrPrompt4AsString="宝剑锋从磨砺出，梅花香自苦寒来"
ConststrPrompt5AsString="吃得苦中苦，方为人上人"
ConststrPrompt6AsString="NoPay,noGain"
ConststrPrompt7AsString="书山有路勤为径，学海无涯苦作舟"
ConststrPrompt8AsString="团结就是力量！
"
DimblnDirectionAsBoolean'False表示从右往左移动True表示从左往右移动
DimblnAutoShiftAsBoolean'True表示左右摆动，False表示从左往右或从右往左
DimblnShiftDirectionAsBoolean'True表示向左摆动，False表示向右摆动
DimblnShiftModeAsBoolean'True表示摆动方式一，False表示摆动方式二
DimblnStopModeAsBoolean'True表示暂停摆动，False表示继续摆动
PrivateSubBKColor_Click（）
DimintColor1AsLong
SelectCaseBKColor.ListIndex
Case0
intColor1=vbBlack
Case1
intColor1=vbGreen
Case2
intColor1=vbBlue
Case3
intColor1=vbCyan
Case4
intColor1=vbRed
Case5
intColor1=vbYellow
Case6
intColor1=vbMagenta
Case7
intColor1=vbWhite
EndSelect
BKColor.Text=BKColor.Text
Form1.BackColor=intColor1
EndSub
PrivateSubCheck1_Click（）
IfCheck1.Value=1Then
Form2.BorderStyle=0
Form2.WindowState=2
Else
Form2.BorderStyle=1
Form2.WindowState=0
EndIf
EndSub
PrivateSubCheck2_Click（）
IfCheck2.Value=1Then
Frame2.Visible=True
Else
Frame2.Visible=False
EndIf
EndSub
PrivateSubCheck3_Click（）
IfCheck3.Value=1Then
Frame4.Visible=True
Else
Frame4.Visible=False
EndIf
EndSub
PrivateSubCheck4_Click（）
IfCheck4.Value=1Then
Timer3.Enabled=True
Else
Timer3.Enabled=False
EndIf
EndSub
PrivateSubCheck5_Click（）
IfCheck5.Value=1Then
Form2.Label1.FontSize=72
Form2.Label1.Top=（Form2.ScaleHeight-Form2.Label1.Height）/1
Form2.WindowState=2
Timer1.Enabled=True
Else
Form2.Label1.Top=（Form2.ScaleHeight-Form2.Label1.Height）/1
Form2.WindowState=0
Form2.Label1.FontSize=24
'Form2.Label1.Top=270
EndIf
IfCheck5.Value=1Then
Frame1.Visible=False
Frame2.Visible=False
Frame3.Visible=False
Frame4.Visible=False
HScroll1.Visible=False
Label2.Visible=False
Label3.Visible=False
Label4.Visible=False
Command1.Visible=False
Command2.Visible=False
Command3.Visible=False
Command4.Visible=False
Command5.Visible=False
Command6.Visible=False
Command7.Visible=False
Command8.Visible=False
Command9.Visible=False
Command10.Visible=False
Command11.Visible=False
BKColor.Visible=False
FGColor.Visible=False
Text1.Visible=False
Check4.Visible=False
Check5.Visible=False
Form1.Caption="在窗体空白处双击鼠标左键，退出全屏幕状态"
Form2.Label1.FontSize=72
Form2.Label1.Top=（Form1.ScaleHeight-Form2.Label1.Height）/1
Form1.WindowState=2
Timer1.Enabled=True
Else
Frame1.Visible=True'
Frame2.Visible=True
Frame3.Visible=True
Frame4.Visible=True
HScroll1.Visible=True
Label2.Visible=True
Label3.Visible=True
Label4.Visible=True
Command1.Visible=True
Command2.Visible=True
Command3.Visible=True
Command4.Visible=True
Command5.Visible=True
Command6.Visible=True
Command7.Visible=True
Command8.Visible=True
Command9.Visible=True
Command10.Visible=True
Command11.Visible=True
BKColor.Visible=True
FGColor.Visible=True
Text1.Visible=True
Check1.Value=1
Check2.Value=1
Check3.Value=1
Check4.Visible=True
Check5.Visible=True
Form1.WindowState=0
Form2.Label1.FontSize=24
Form2.Label1.Top=270'
EndIf
EndSub
PrivateSubCommand1_Click（）'这种代码的写法更加简炼
IfCommand1.Caption="暂停"Then
Command1.Caption="继续"
Timer1.Enabled=False
blnStopMode=True
Else
Command1.Caption="暂停"
Timer1.Enabled=True
blnStopMode=False
EndIf
EndSub
PrivateSubCommand10_Click（）
Form2.Label1.Caption=strPrompt7
Form2.Label1.Left=（Form1.ScaleWidth-Form2.Label1.Width）/2
EndSub
PrivateSubCommand11_Click（）
Form2.Label1.Caption=strPrompt8
Form2.Label1.Left=（Form1.ScaleWidth-Form2.Label1.Width）/2
EndSub
PrivateSubCommand2_Click（）
UnloadMe
EndSub
PrivateSubCommand3_Click（）
Form2.Label1.Caption=strPrompt1
Form2.Label1.Left=（Form1.ScaleWidth-Form2.Label1.Width）/2
EndSub
PrivateSubCommand4_Click（）
Form2.Label1.Caption=strPrompt4
Form2.Label1.Left=（Form1.ScaleWidth-Form2.Label1.Width）/2
EndSub
PrivateSubCommand5_Click（）
Form2.Label1.Caption=strPrompt3
Form2.Label1.Left=（Form1.ScaleWidth-Form2.Label1.Width）/2
EndSub
PrivateSubCommand6_Click（）
Form2.Label1.Caption=strPrompt2
Form2.Label1.Left=（Form1.ScaleWidth-Form2.Label1.Width）/2
EndSub
PrivateSubCommand7_Click（）
Form_Load
EndSub
PrivateSubCommand8_Click（）
Form2.Label1.Caption=strPrompt5
Form2.Label1.Left=（Form1.ScaleWidth-Form2.Label1.Width）/2
EndSub
PrivateSubCommand9_Click（）
Form2.Label1.Caption=strPrompt6
Form2.Label1.Left=（Form1.ScaleWidth-Form2.Label1.Width）/2
EndSub
PrivateSubFGColor_Click（）
DimintColor1AsLong
SelectCaseFGColor.ListIndex
Case0
intColor1=vbBlack
Case1
intColor1=vbGreen
Case2
intColor1=vbBlue
Case3
intColor1=vbCyan
Case4
intColor1=vbRed
Case5
intColor1=vbYellow
Case6
intColor1=vbMagenta
Case7
intColor1=vbWhite
EndSelect
Form2.Label1.ForeColor=intColor1
EndSub
PrivateSubForm_DblClick（）
Check5.Value=0
Check5_Click
EndSub
PrivateSubForm_Load（）
Form2.Show
intSpeed=20
Option2_Click
'Check1_Click
'Check2_Click
'Combo1.ListIndex=0
BKColor.ListIndex=1
FGColor.ListIndex=6
Form2.Label1.Left=（Form2.ScaleWidth-Form2.Label1.Width）/2
Form2.Label1.Caption=strPrompt5
blnDirection=True'表示从右往左移动
blnAutoShift=False'表示单一方向移动
blnShiftDirection=True'一开始向左摆动
blnShiftMode=True'一开始选择摆动方式一
blnStopMode=False'一开始工作于可以摆动的状态
Check4.Value=0'一开始颜色手动控制
EndSub
PrivateSubForm_MouseUp（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
IfButton=2Then
PopupMenumnuPopupMenu
EndIf
EndSub
PrivateSubForm_Unload（CancelAsInteger）
UnloadForm2
EndSub
PrivateSubHScroll1_Change（）
intSpeed=HScroll1.Value
EndSub
PrivateSubHScroll1_Scroll（）
HScroll1_Change
EndSub
PrivateSubmnuFileExit_Click（）
Command2_Click
EndSub
PrivateSubmnuFontSize12_Click（）
Form2.Label1.FontSize=12
EndSub
PrivateSubmnuFontSize128_Click（）
Form2.Label1.FontSize=128
EndSub
PrivateSubmnuFontSize24_Click（）
Form2.Label1.FontSize=24
EndSub
PrivateSubmnuFontSize36_Click（）
Form2.Label1.FontSize=36
EndSub
PrivateSubmnuFontSize48_Click（）
Form2.Label1.FontSize=48
EndSub
PrivateSubmnuFontSize64_Click（）
Form2.Label1.FontSize=64
EndSub
PrivateSubmnuFontSize72_Click（）
Form2.Label1.FontSize=72
EndSub
PrivateSubmnuFontSize96_Click（）
Form2.Label1.FontSize=96
EndSub
PrivateSubOption1_Click（）
Form2.Label1.FontSize=48
EndSub
PrivateSubOption10_Click（）
blnAutoShift=True'进行左右摆动
blnShiftMode=False'左右摆动方式二
Timer1.Enabled=Fa
升级会员 