2022年马瑞杰课程设计报告.docx

《2022年马瑞杰课程设计报告.docx》由会员分享，可在线阅读，更多相关《2022年马瑞杰课程设计报告.docx（42页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、精选学习资料 - - - - - - - - - 华东交通高校课程设计报告VB课程设计 论文 任务书土木建筑：学院给水排水工程专业2 班一、课程设计 论文 题目滚动条字幕板二、课程设计 论文 工作自2022 年 6 月 19 日起至 2022 年 6 月 26 日止三、课程设计 论文 地点 : 8-705 四、课程设计 论文 内容要求：1. 本课程设计的目的 1进一步稳固和加深对“VB 程序设计” 课程基本学问的懂得和把握,明白VB语言在项目开发中的应用； 2学习程序设计开发的一般方法,明白和把握项目开发过程及方式,培育正确的设计思想和分析问题、解决问题的才能,特殊是项目设计才能； 3通过对标

2、准化、 标准化文档的把握并查阅有关技术资料等,2. 课程设计的任务及要求 1 基本要求： 1对系统功能进行需求分析； 2使用 Visual basic 开发环境进行程序开发； 3提出系统的设计方案； 4编写源程序代码并进行调试；2 创新要求 在基本要求到达后,可进行创新设计；3 课程设计报告撰写及装订要求 课程设计报告的撰写要求表述简明,图表精确；报告按如下内容和次序用 A4 纸进行打印并装订成册； 1封面培育项目设计开发才能；采纳统一的课程设计封面,并按要求填写好封面要求的个人信息和选题； 2设计任务书 3评阅书 4目录 5正文1 名师归纳总结 - - - - - - -第 1 页,共 22

3、 页精选学习资料 - - - - - - - - - 华东交通高校课程设计报告 6主要参考文献 4 课程设计评分标准：成果评定实行优秀、良好、中等、及格和不及格五个等级；不及格者需重做；5 课程设计进度支配内容天数地点查阅资料 3 图书馆系统设计 3 8-501 编程与调试 4 8-501 检查程序及提问考核 1 8-501 6课程设计题目详细要求：题目介绍：“ 滚动字幕板” 是指人们在公共场所如车站、机场、办公大厅等常常见到的用来显示消息、 广告、通知等内容的显示屏；好的宣扬作用；滚动字幕的方式简洁引起观众的留意,具有很设计要求 ：编制一个模拟滚动字幕板的有用程序设计过程中需要考虑的问题：第

4、一：两个滚动字幕板其实就是两个窗体；字幕的滚动主要是运用了窗体的基本 Move属性；其次：两个字幕板即为两个窗口,一个是用来显示滚动字幕的显示板,另一个是掌握板；第三： 运用第七章中组合框的学问,对滚动文字及其大小、字体以及滚动的方向进行设置,使其能够按如下要求运行：1单击掌握窗口中的“ 开头滚动” 按钮,显示窗口中的文字开头滚动显示；滚动的方式由掌握窗口中“ 字幕滚动方向掌握” 框中四个单项挑选框打算的,共有四种方式：“ 从左往右” 、“ 从右往左” 、“ 穿透式左右摇摆”和“ 壁面反射式摇摆”, “ 从右往左”是默认方式；挑选“ 滚动字幕的文字大小掌握” 框中的“ 大字体” 或“ 小字体”

5、 单项挑选框,可以转变显示窗口中文字的大小；从“ 滚动字幕字体掌握”框中可以为显示窗口中的文字挑选一种字体；表示字体的四个按钮实际上是按钮样式的单项挑选框设置其 Style 属性；2本程序供应了 8 种内置文字内容,单击“ 内置字幕”框中一个按钮可以转变滚动字幕的内容； 假如要显示自定义的文字内容,可以直接在掌握窗口底部的文本框中输入,然后按回车键即可；第四：通过“ 前景色” 和“ 背景色” 组合框可以转变滚动字幕的前景色和背景色；假如选定了 “ 颜色自动变化”复选框,就滚动字幕的前景色和背景色均自动变化每 1 秒变换一次；第五：运用滚动条以及计时器的学问,调剂滚动字幕的移动速度；2 名师归纳

6、总结 - - - - - - -第 2 页,共 22 页精选学习资料 - - - - - - - - - 华东交通高校课程设计报告第六：单击掌握窗口中的“ 退出” 按钮,同时关闭两个窗口,程序终止；同学签名：2022 年 6 月 19 日3 名师归纳总结 - - - - - - -第 3 页,共 22 页精选学习资料 - - - - - - - - - 华东交通高校课程设计报告课程设计论文评阅看法等 级序号项目优秀良好中等及格不及格1 课程设计态度评判2 出勤情形评判3 任务难度评判4 工作量饱满评判5 设计中创新性评判6 论文书写标准化评判综合评定等级评阅人周美玲职称讲师2022 年 6 月

7、 26 日4 名师归纳总结 - - - - - - -第 4 页,共 22 页精选学习资料 - - - - - - - - - 华东交通高校课程设计报告目 录第一章 系统概要 . 1其次章设计思路与对象属性 . 21、设计思路 . 22、对象属性 . 3第三章源程序代码. 51、Form1 代码 . 52、Form2 代码 . 12 第四章运行结果及分析. 14 1、运行结果如图41 所示 . 14 2、分析 . 14 第五章 心得体会 . 16 参考文献 . 17 5 名师归纳总结 - - - - - - -第 5 页,共 22 页精选学习资料 - - - - - - - - - 华东交通高

8、校课程设计报告第一章 系统概要菜单是应用程序特别重要的组成部分,通过菜单,应用程序可以实现不同 的功能,通过本系统的设计,可以实现如下功能：1打开程序,弹出两个窗口,一个为显示板,另一个为掌握板；2在内置字幕中点击1 8 或者在输入字幕文字中输入你需要的文字,使其显示在显示板中；3在“ 滚动字幕的文字大小掌握” 框中挑选你所需要的字体大小有大字体、小字 体；4在“ 滚动字幕字体掌握”框中挑选你所需要的字体有宋体、 隶书、 楷体、 黑体；5在“ 字幕滚动方向掌握” 框中挑选你所需要的滚动方式有从左往右、从右往左、穿透式左右摇摆、壁面反射式摇摆；6在“ 背景色、前景色” 中挑选你所喜爱的颜色有黑色

9、、绿色、蓝色、青色、红 色、黄色和紫色七种颜色7在“ 滚动速度” 中移动滚动条的位置,调剂你所需要的相宜的移动速度；8本编程仍具有使其颜色自动变化以及全屏幕方式等多项功能；1 名师归纳总结 - - - - - - -第 6 页,共 22 页精选学习资料 - - - - - - - - - 华东交通高校课程设计报告其次章 设计思路与对象属性1、设计思路：第一：两个滚动字幕板其实就是两个窗体；字幕的滚动主要是运用了窗体的基本 Move 属性；其次： 两个字幕板即为两个窗口,窗口一是用来显示滚动字幕的显示板,窗口二是掌握板；第三： 运用第七章中组合框的学问,对滚动文字及其大小、字体以及滚动的方向进行

10、设置,使其能够按如下要求运行：1单击掌握窗口中的“ 开头滚动” 按钮,显示窗口中的文字开头滚动显示；滚动的方式由掌握窗口中“ 字幕滚动方向掌握” 框中四个单项挑选框打算的,共有四种方式：“ 从 左往右” 、“ 从右往左” 、“ 穿透式左右摇摆” 和“ 壁面反射式摇摆”, “ 从右往左” 是默认方 式；挑选“ 滚动字幕的文字大小掌握” 框中的“ 大字体” 或“ 小字体” 单项挑选框,可以改 变显示窗口中文字的大小；从“ 滚动字幕字体掌握”框中可以为显示窗口中的文字挑选一种 字体；表示字体的四个按钮实际上是按钮样式的单项挑选框设置其 Style 属性；2本程序供应了 8 种内置文字内容,单击“ 内

11、置字幕”框中一个按钮可以转变滚动 然 字幕的内容； 假如要显示自定义的文字内容,可以直接在掌握窗口底部的文本框中输入,后按回车键即可；第四：通过“ 前景色” 和“ 背景色” 组合框可以转变滚动字幕的前景色和背景色；假如选定了 “ 颜色自动变化”复选框,就滚动字幕的前景色和背景色均自动变化每 1 秒变换一次；第五：运用滚动条以及计时器的学问,调剂滚动字幕的移动速度；第六：单击掌握窗口中的“ 退出” 按钮,同时关闭两个窗口,程序终止；2 名师归纳总结 - - - - - - -第 7 页,共 22 页精选学习资料 - - - - - - - - - 华东交通高校课程设计报告2、对象属性：form

12、控件名属性名属性值Form1 Form1 Caption 滚动字幕板掌握面板Check1 Caption 颜色自动变化Check2 Caption 全屏幕方式Combol1 Enabled true Combol2 Enabled true Command10Caption 1 Command11Caption 2 Command1 2Caption 3 Command13Caption 4 Command14Caption 5 Command15Caption 6 Command16Caption 7 Command17Caption 8 Command2 Caption 退出Command

13、3 Caption 开头Command4 Caption 宋体Command5 Caption 隶书Command6 Caption 楷体Command7 Caption 黑体Command8 Caption 复原默认值Frame1 Caption 滚动字幕的大小掌握Frame2 Caption 滚动字幕的字体掌握Frame3 Caption 滚动字幕的方向掌握Frame4 Caption 内置字幕Hscroll1 Value 0 Label1 Caption 前景色：Label2 Caption 背景色：Label3 Caption 滚动速度Label4 Caption 快Label5 Ca

14、ption 慢Option10 Caption 大字体3 名师归纳总结 - - - - - - -第 8 页,共 22 页精选学习资料 - - - - - - - - - 华东交通高校课程设计报告Form2 控件名属性名属性值Option11 Caption 小字体Option20 Caption 从左往右Option21 Caption 从右往左Option22 Caption 穿越式摇摆Option23 Caption 壁面反射式摇摆Text1 Text 请直接在此输入文字字幕Form2 Caption 滚动字幕Label1 Caption Label1：Timer1 Interval 0

15、 Timer2 Interval 0 Timer3 Interval 0 Timer4 Interval 0 Timer5 Interval 0 4 名师归纳总结 - - - - - - -第 9 页,共 22 页精选学习资料 - - - - - - - - - 华东交通高校课程设计报告1、Form1代码第三章源程序代码Private Sub Check1_Click If Check1.Value = 1 Then Form2.Timer5.Enabled = True ElseIf Check1.Value = 0 Then Form2.Timer5.Enabled = False End

16、 If End Sub Private Sub Check2_Click If Check2.Value = 1 Then Form2.WindowState = 2 ElseIf Check2.Value = 0 Then Form2.WindowState = 0 End If End Sub Private Sub Combo1_Click 设置前景色 If Combo1.Text = 黑色 Then Form2.Label1.ForeColor = vbBlack ElseIf Combo1.Text = 绿色 Then Form2.Label1.ForeColor = vbGreen

17、 ElseIf Combo1.Text = 蓝色 Then Form2.Label1.ForeColor = vbBlue ElseIf Combo1.Text = 青色 Then Form2.Label1.ForeColor = vbCyan ElseIf Combo1.Text = 红色 Then Form2.Label1.ForeColor = vbRed ElseIf Combo1.Text = 黄色 Then Form2.Label1.ForeColor = vbYellow ElseIf Combo1.Text = 紫色 Then Form2.Label1.ForeColor =

18、QBColor9 + QBColor4 End If End Sub 5 名师归纳总结 - - - - - - -第 10 页,共 22 页精选学习资料 - - - - - - - - - 华东交通高校课程设计报告Private Sub Combo2_Click 设置背景色 If Combo2.Text = 黑色 Then Form1.BackColor = vbBlack ElseIf Combo2.Text = 绿色 Then Form1.BackColor = vbGreen ElseIf Combo2.Text = 蓝色 Then Form1.BackColor = vbBlue El

19、seIf Combo2.Text = 青色 Then Form1.BackColor = vbCyan ElseIf Combo2.Text = 红色 Then Form1.BackColor = vbRed ElseIf Combo2.Text = 黄色 Then Form1.BackColor = vbYellow ElseIf Combo2.Text = 紫色 Then Form1.BackColor = QBColor9 + QBColor4 End If End Sub Private Sub Command1_ClickIndex As Integer 挑选滚动文字 Select

20、Case Index Case 0 Form2.Label1.Caption = 开往北京方向的66 次列车立刻就要开车了 Case 1 Form2.Label1.Caption = 神舟飞船,载誉归来！ ！ Case 2 Form2.Label1.Caption = 东方明珠,开盘价 20 元/股 Case3 Form2.Label1.Caption = 宝剑锋从磨砺出,梅花香自苦寒来 Case4 Form2.Label1.Caption = 欲穷千里目,更上一层楼 Case 5 Form2.Label1.Caption = No Pay, no Gain Case 6 Form2.Labe

21、l1.Caption = 书山有路勤为径,学海无涯苦作舟 Case7 Form2.Label1.Caption = 团结起来,共同抗击非典！ 6 名师归纳总结 - - - - - - -第 11 页,共 22 页精选学习资料 - - - - - - - - - 华东交通高校课程设计报告Case 8 Form2.Label1.FontSize = 20 滚动文字大小 Form1.BackColor = &H8000000F 掌握面板背景色Form2.Label1.ForeColor = &H80000012 滚动文字默认前景色 Combo1.Text = 未挑选 Combo2.Text = 未挑

22、选 Form2.Timer1.Enabled = False Form2.Timer2.Enabled = False Form2.Timer3.Enabled = False Form2.Timer4.Enabled = False Form2.Timer5.Enabled = False Check1.Value = 0 Check2.Value = 0 HScroll1.Value = 1 Form2.Timer1.Interval = 1 Form2.Timer2.Interval = 1 Form2.Timer3.Interval = 1 Form2.Timer4.Interval

23、= 1 Form2.Timer5.Interval = 1000 Form2.Label1.Left = 0 End End Select End Sub Private Sub Command2_Click 隐匿掌握面板End Sub Private Sub Command3_Click Form2.Timer1.Enabled = True End Sub Private Sub Command4_Click 设置文字字体 Form2.Label1.FontName = 宋体 End Sub 7 名师归纳总结 - - - - - - -第 12 页,共 22 页精选学习资料 - - - -

24、 - - - - - 华东交通高校课程设计报告Private Sub Command5_Click Form2.Label1.FontName = 隶书 End Sub Private Sub Command6_Click Form2.Label1.FontName = 楷体 _GB2312 End Sub Private Sub Command7_Click Form2.Label1.FontName = 黑体 End Sub Private Sub Command8_Click Combo1.Text = 未挑选 Combo2.Text = 未挑选 Form2.Label1.Caption

25、 = 学海无涯苦作舟,书山有路勤为径 Form2.Label1.FontSize = 20 Combo1.AddItem 黑色 Combo1.AddItem 绿色 Combo1.AddItem 蓝色 Combo1.AddItem 青色 Combo1.AddItem 红色 Combo1.AddItem 黄色 Combo1.AddItem 紫色 Combo2.AddItem 黑色 Combo2.AddItem 绿色 Combo2.AddItem 蓝色 Combo2.AddItem 青色 Combo2.AddItem 红色 Combo2.AddItem 黄色 Combo2.AddItem 紫色 Fo

26、rm2.Timer1.Interval = 1 颜色自动变化的时间间隔 Form2.Timer2.Interval = 1 8 名师归纳总结 - - - - - - -第 13 页,共 22 页精选学习资料 - - - - - - - - - 华东交通高校课程设计报告Form2.Timer3.Interval = 1 Form2.Timer4.Interval = 1 Form2.Timer5.Interval = 1000 Form2.Timer1.Enabled = True Form2.Timer2.Enabled = False Form2.Timer3.Enabled = False

27、 Form2.Timer4.Enabled = False Form2.Timer5.Enabled = False Text1.Text = 请直接在此输入文字字幕 滚动条的最值HScroll1.Min = 1: HScroll1.Max = 100 End Sub Private Sub Form_Load 默认属性 Combo1.Text = 未挑选 Combo2.Text = 未挑选 Form2.Label1.Caption = 学海无涯苦作舟,书山有路勤为径 Form2.Label1.FontSize = 20 Combo1.AddItem 黑色 Combo1.AddItem 绿色

28、Combo1.AddItem 蓝色 Combo1.AddItem 青色 Combo1.AddItem 红色 Combo1.AddItem 黄色 Combo1.AddItem 紫色 Combo2.AddItem 黑色 Combo2.AddItem 绿色 Combo2.AddItem 蓝色 Combo2.AddItem 青色 Combo2.AddItem 红色 Combo2.AddItem 黄色 Combo2.AddItem 紫色 Form2.Timer1.Interval = 1 Form2.Timer2.Interval = 1 Form2.Timer3.Interval = 1 9 名师归纳

29、总结 - - - - - - -第 14 页,共 22 页精选学习资料 - - - - - - - - - 华东交通高校课程设计报告Form2.Timer4.Interval = 1 Form2.Timer5.Interval = 1000 Form2.Timer1.Enabled = False Form2.Timer2.Enabled = False Form2.Timer3.Enabled = False Form2.Timer4.Enabled = False Form2.Timer5.Enabled = False Text1.Text = 请直接在此输入文字字幕 HScroll1.

30、Min = 1: HScroll1.Max = 100 End Sub Private Sub HScroll1_Change 滚动条转变时的变化 If Form2.Timer1.Enabled = True Then ElseIf Form2.Timer2.Enabled = True Then ElseIf Form2.Timer3.Enabled = True Then ElseIf Form2.Timer4.Enabled = True Then End If End Sub Private Sub Option1_ClickIndex As Integer 转变字的大小 Select

31、 Case Index Case 0 Form2.Label1.FontSize = 25 Case 1 Form2.Label1.FontSize = 15 End Select End Sub Private Sub Option2_ClickIndex As Integer 转变字的移动方向 Select Case Index Case 0 10 名师归纳总结 - - - - - - -第 15 页,共 22 页精选学习资料 - - - - - - - - - 华东交通高校课程设计报告Form2.Timer1.Enabled = True Form2.Timer2.Enabled = F

32、alse Form2.Timer3.Enabled = False Form2.Timer4.Enabled = False Case 1 Form2.Timer1.Enabled = False Form2.Timer2.Enabled = True Form2.Timer3.Enabled = False Form2.Timer4.Enabled = False Case 2 Form2.Timer1.Enabled = False Form2.Timer2.Enabled = False Form2.Timer3.Enabled = True Form2.Timer4.Enabled =

33、 False Case 3 Form2.Timer1.Enabled = False Form2.Timer2.Enabled = False Form2.Timer3.Enabled = False Form2.Timer4.Enabled = True End Select End Sub Private Sub Text1_Click If Text1.Text = 请直接在此输入文字字幕 Then Text1.Text = End If End Sub Private Sub Text1_KeyPressKeyAscii As Integer If KeyAscii = 13 Then

34、 If Text1.Text = Then m = MsgBox 文字字幕不能为空 Else Text1.Text = 判定输入文字是否为空, vbExclamation, 提示 11 名师归纳总结 - - - - - - -第 16 页,共 22 页精选学习资料 - - - - - - - - - 华东交通高校课程设计报告End If End If End Sub Private Sub Text1_LostFocus Text1.Text = 请直接在此输入文字字幕 End Sub 2、Form2代码 调剂文字滚动方向End Sub Private Sub Timer1_Timer Lab

35、el1.Left = Label1.Left + 15 If Label1.Left Form2.Width Then End If End Sub Private Sub Timer2_Timer Label1.Left = Label1.Left - 15 If Label1.Left -Label1.Width Then Label1.Left = Label1.Left - 15 Else: fx = 0 End If ElseIf Label1.Left 0 Then Label1.Left = Label1.Left - 15 Else fx = 0 End If ElseIf L

36、abel1.Left Form2.Width - Label1.Width Then Label1.Left = Label1.Left + 15 Else: fx = 1 End If End Sub Private Sub Timer5_Timer 文字颜色自动转变设置 Randomize Dim r, g, b r = 255 * Rnd g = 255 * Rnd b = 255 * Rnd Form1.BackColor = RGBr, g, b Label1.ForeColor = RGBr, g, b End Sub 13 名师归纳总结 - - - - - - -第 18 页,共 22 页精选学习资料 - - - - - - - - - 华东交通高校课程设计报告第四章 运行结果及分析1、运行结果如图 41 所示：图 4-1 显示窗口图 4-2 掌握窗口2、分析：1、代码完成后, 在运行的时候,“ 滚动字幕字体掌握”中的“ 隶书”一项点击之后, 出、14 名师归纳总结 - - - - - - -第 19 页,共 22