VB课程设计报告计算器Word文档下载推荐.docx
- 文档编号:22276717
- 上传时间:2023-02-03
- 格式:DOCX
- 页数:28
- 大小:185.13KB
VB课程设计报告计算器Word文档下载推荐.docx
《VB课程设计报告计算器Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《VB课程设计报告计算器Word文档下载推荐.docx(28页珍藏版)》请在冰豆网上搜索。
(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
PrivateSubCheck2_Click()
IfCheck2.Value=1Then
Frame2.Visible=True
Else
Frame2.Visible=False
EndIf
PrivateSubCheck3_Click()
IfCheck3.Value=1Then
Frame4.Visible=True
Frame4.Visible=False
PrivateSubCheck4_Click()
IfCheck4.Value=1Then
Timer3.Enabled=True
Timer3.Enabled=False
PrivateSubCheck5_Click()
IfCheck5.Value=1Then
Form2.Label1.FontSize=72
Form2.Label1.Top=(Form2.ScaleHeight-Form2.Label1.Height)/1
Timer1.Enabled=True
Form2.Label1.FontSize=24
'
Form2.Label1.Top=270
Frame1.Visible=False
Frame3.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.Top=(Form1.ScaleHeight-Form2.Label1.Height)/1
Form1.WindowState=2
Frame1.Visible=True'
Frame2.Visible=True
Frame3.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.Top=270'
PrivateSubCommand1_Click()'
这种代码的写法更加简炼
IfCommand1.Caption="
暂停"
Then
Command1.Caption="
继续"
Timer1.Enabled=False
blnStopMode=True
blnStopMode=False
PrivateSubCommand10_Click()
Form2.Label1.Caption=strPrompt7
Form2.Label1.Left=(Form1.ScaleWidth-Form2.Label1.Width)/2
PrivateSubCommand11_Click()
Form2.Label1.Caption=strPrompt8
PrivateSubCommand2_Click()
UnloadMe
PrivateSubCommand3_Click()
Form2.Label1.Caption=strPrompt1
PrivateSubCommand4_Click()
Form2.Label1.Caption=strPrompt4
PrivateSubCommand5_Click()
Form2.Label1.Caption=strPrompt3
PrivateSubCommand6_Click()
Form2.Label1.Caption=strPrompt2
PrivateSubCommand7_Click()
Form_Load
PrivateSubCommand8_Click()
Form2.Label1.Caption=strPrompt5
PrivateSubCommand9_Click()
Form2.Label1.Caption=strPrompt6
PrivateSubFGColor_Click()
SelectCaseFGColor.ListIndex
Form2.Label1.ForeColor=intColor1
PrivateSubForm_DblClick()
Check5.Value=0
Check5_Click
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
blnDirection=True'
表示从右往左移动
blnAutoShift=False'
表示单一方向移动
blnShiftDirection=True'
一开始向左摆动
blnShiftMode=True'
一开始选择摆动方式一
blnStopMode=False'
一开始工作于可以摆动的状态
Check4.Value=0'
一开始颜色手动控制
PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=2Then
PopupMenumnuPopupMenu
PrivateSubForm_Unload(CancelAsInteger)
UnloadForm2
PrivateSubHScroll1_Change()
intSpeed=HScroll1.Value
PrivateSubHScroll1_Scroll()
HScroll1_Change
PrivateSubmnuFileExit_Click()
Command2_Click
PrivateSubmnuFontSize12_Click()
Form2.Label1.FontSize=12
PrivateSubmnuFontSize128_Click()
Form2.Label1.FontSize=128
PrivateSubmnuFontSize24_Click()
PrivateSubmnuFontSize36_Click()
Form2.Label1.FontSize=36
PrivateSubmnuFontSize48_Click()
Form2.Label1.FontSize=48
PrivateSubmnuFontSize64_Click()
Form2.Label1.FontSize=64
PrivateSubmnuFontSize72_Click()
PrivateSubmnuFontSize96_Click()
Form2.Label1.FontSize=96
PrivateSubOption1_Click()
PrivateSubOption10_Click()
blnAutoShift=True'
进行左右摆动
blnShiftMode=False'
左右摆动方式二
Timer1.Enabled=Fa
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 课程设计 报告 计算器