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

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

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正文可编辑资料 - - - 欢迎下载精品_精品资料_内容查阅资料3天数的点图书馆系统设计38-501编程与调试48-501 6主

3、要参考文献(4) 课程设计评分标准：成果评定实行优秀、良好、中等、及格和不及格五个等级.不及格者需重做.(5) 课程设计进度支配检查程序及提问考核18-5016课程设计题目详细要求：题目介绍：“滚动字幕板”是指人们在公共场所如车站、机场、办公大厅等常常见到的用来显示消息、 广告、通知等内容的显示屏.滚动字幕的方式简洁引起观众的留意,具有很好的宣扬作用.设计要求 ：编制一个模拟滚动字幕板的有用程序设计过程中需要考虑的问题：第一：两个滚动字幕板其实就是两个窗体.字幕的滚动主要是运用了窗体的基本Move属性.其次：两个字幕板即为两个窗口, 一个是用来显示滚动字幕的显示板,另一个是掌握板.第三： 运用

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

5、了 8 种内置文字内容,单击“内置字幕”框中一个按钮可以转变滚动 字幕的内容. 假如要显示自定义的文字内容,可以直接在掌握窗口底部的文本框中输入,然后按回车键即可.第四：通过“前景色”和“背景色”组合框可以转变滚动字幕的前景色和背景色.假如选定了 “颜色自动变化” 复选框,就滚动字幕的前景色和背景色均自动变化每 1 秒变换一次.第五：运用滚动条以及计时器的学问,调剂滚动字幕的移动速度.可编辑资料 - - - 欢迎下载精品_精品资料_第六：单击掌握窗口中的“退出”按钮,同时关闭两个窗口,程序终止.同学签名：2022 年 6 月 19 日可编辑资料 - - - 欢迎下载精品_精品资料_序号项目优秀

6、良好中等及格不及格1课程设计态度评判2出勤情形评判3任务难度评判4工作量饱满评判5设计中创新性评判6论文书写标准化评判课程设计论文评阅看法等级综合评定等级评阅人周美玲职称讲师2022 年 6 月 26日可编辑资料 - - - 欢迎下载精品_精品资料_目 录第一章 系统概要1其次章 设计思路与对象属性21、设计思路22、对象属性3第三章 源程序代码51、Form1 代码52、Form2 代码12第四章 运行结果及分析141、运行结果如图 4 1 所示142、分析14第五章 心得体会16参考文献17可编辑资料 - - - 欢迎下载精品_精品资料_第一章 系统概要菜单是应用程序特别重要的组成部分,通

7、过菜单,应用程序可以实现不同的功能,通过本系统的设计,可以实现如下功能：1打开程序,弹出两个窗口,一个为显示板,另一个为掌握板.2在内置字幕中点击1 8 或者在输入字幕文字中输入你需要的文字,使其显示在显示板中.3在“滚动字幕的文字大小掌握”框中挑选你所需要的字体大小有大字体、小字体.4在“滚动字幕字体掌握” 框中挑选你所需要的字体 有宋体、 隶书、 楷体、 黑体.5在“字幕滚动方向掌握”框中挑选你所需要的滚动方式有从左往右、从右往左、穿透式左右摇摆、壁面反射式摇摆.6在“背景色、前景色”中挑选你所喜爱的颜色有黑色、绿色、蓝色、青色、红色、黄色和紫色七种颜色7在“滚动速度”中移动滚动条的位置,

8、调剂你所需要的相宜的移动速度.8本编程仍具有使其颜色自动变化以及全屏幕方式等多项功能.可编辑资料 - - - 欢迎下载精品_精品资料_其次章1、设计思路：设计思路与对象属性第一：两个滚动字幕板其实就是两个窗体.字幕的滚动主要是运用了窗体的基本属性.Move其次： 两个字幕板即为两个窗口,窗口一是用来显示滚动字幕的显示板,窗口二是掌握板.第三： 运用第七章中组合框的学问,对滚动文字及其大小、 字体以及滚动的方向进行设置,使其能够按如下要求运行：1单击掌握窗口中的“开头滚动”按钮,显示窗口中的文字开头滚动显示.滚动的方式由掌握窗口中“字幕滚动方向掌握”框中四个单项挑选框打算的,共有四种方式：“从左

9、往右”、“从右往左” 、“穿透式左右摇摆”和“壁面反射式摇摆”, “从右往左”是默认方式.挑选“滚动字幕的文字大小掌握”框中的“大字体”或“小字体”单项挑选框,可以改变显示窗口中文字的大小.从“滚动字幕字体掌握” 框中可以为显示窗口中的文字挑选一种字体.表示字体的四个按钮实际上是按钮样式的单项挑选框设置其Style属性.2本程序供应了8 种内置文字内容,单击“内置字幕”框中一个按钮可以转变滚动字幕的内容. 假如要显示自定义的文字内容,可以直接在掌握窗口底部的文本框中输入,然后按回车键即可.第四：通过“前景色”和“背景色”组合框可以转变滚动字幕的前景色和背景色.假如选定了 “颜色自动变化” 复选

10、框,就滚动字幕的前景色和背景色均自动变化每 1 秒变换一次.第五：运用滚动条以及计时器的学问,调剂滚动字幕的移动速度.第六：单击掌握窗口中的“退出”按钮,同时关闭两个窗口,程序终止.可编辑资料 - - - 欢迎下载精品_精品资料_2、对象属性：form控件名属性名属性值Form1Caption滚动字幕板掌握面板Check1Caption颜色自动变化Check2Caption全屏幕方式Combol1EnabledtrueCombol2EnabledtrueCommand1 0Caption1Command1 1Caption2Command1 2Caption3Command1 3Caption

11、4Command1 4Caption5Command1 5Caption6Command1 6Caption7Command1 7Caption8Command2Caption退出Command3Caption开头Command4Caption宋体Command5Caption隶书Command6Caption楷体Command7Caption黑体Command8Caption复原默认值Frame1Caption滚动字幕的大小掌握Frame2Caption滚动字幕的字体掌握Frame3Caption滚动字幕的方向掌握Frame4Caption内置字幕Hscroll1Value0Label1Ca

12、ption前景色：Label2Caption背景色：Label3Caption滚动速度Label4Caption快Label5Caption慢Option10Caption大字体Form1可编辑资料 - - - 欢迎下载精品_精品资料_Form2控件名属性名属性值Option11Caption小字体Option20Caption从左往右Option21Caption从右往左Option22Caption穿越式摇摆Option23Caption壁面反射式摇摆Text1Text请直接在此输入文字字幕Form2Caption滚动字幕Label1CaptionLabel1 ：Timer1Interva

13、l0Timer2Interval0Timer3Interval0Timer4Interval0Timer5Interval0可编辑资料 - - - 欢迎下载精品_精品资料_第三章 源程序代码1、Form1代码Private Sub Check1_ClickIf Check1.Value = 1 Then Form2.Timer5.Enabled = TrueElseIf Check1.Value = 0 Then Form2.Timer5.Enabled = FalseEnd If End SubPrivate Sub Check2_ClickIf Check2.Value = 1 Then

14、Form2.WindowState = 2ElseIf Check2.Value = 0 ThenForm2.WindowState = 0 End IfEnd SubPrivate Sub Combo1_Click设置前景色If Combo1.Text = 黑色 Then Form2.Label1.ForeColor = vbBlackElseIf Combo1.Text = 绿色 Then Form2.Label1.ForeColor = vbGreenElseIf Combo1.Text = 蓝色 Then Form2.Label1.ForeColor = vbBlueElseIf Co

15、mbo1.Text = 青色 Then Form2.Label1.ForeColor = vbCyanElseIf Combo1.Text = 红色 Then Form2.Label1.ForeColor = vbRedElseIf Combo1.Text = 黄色 Then Form2.Label1.ForeColor = vbYellowElseIf Combo1.Text = 紫色 Then Form2.Label1.ForeColor = QBColor9 + QBColor4End If End Sub可编辑资料 - - - 欢迎下载精品_精品资料_Private Sub Combo

16、2_Click设置背景色If Combo2.Text = 黑色 Then Form1.BackColor = vbBlackElseIf Combo2.Text = 绿色 Then Form1.BackColor = vbGreenElseIf Combo2.Text = 蓝色 Then Form1.BackColor = vbBlueElseIf Combo2.Text = 青色 Then Form1.BackColor = vbCyanElseIf Combo2.Text = 红色 Then Form1.BackColor = vbRedElseIf Combo2.Text = 黄色 Th

17、en Form1.BackColor = vbYellowElseIf Combo2.Text = 紫色 Then Form1.BackColor = QBColor9 + QBColor4End If End SubPrivate Sub Command1_ClickIndex As Integer挑选滚动文字Select Case Index Case 0Form2.Label1.Caption = 开往北京方向的66 次列车立刻就要开车了Case 1Form2.Label1.Caption = 神舟飞船,载誉归来； ； Case 2Form2.Label1.Caption = 东方明珠,

18、开盘价20 元/股 Case3Form2.Label1.Caption = 宝剑锋从磨砺出,梅花香自苦寒来 Case4Form2.Label1.Caption = 欲穷千里目,更上一层楼 Case 5Form2.Label1.Caption = No Pay, no Gain Case 6Form2.Label1.Caption = 书山有路勤为径,学海无涯苦作舟Case7Form2.Label1.Caption = 团结起来,共同抗击非典；可编辑资料 - - - 欢迎下载精品_精品资料_Case 8Form2.Label1.FontSize = 20滚动文字大小Form1.BackColor

19、 = &H8000000F掌握面板背景色Form2.Label1.ForeColor = &H80000012滚动文字默认前景色Combo1.Text = 未挑选 Combo2.Text = 未挑选 Form2.Timer1.Enabled = FalseForm2.Timer2.Enabled = False Form2.Timer3.Enabled = False Form2.Timer4.Enabled = False Form2.Timer5.Enabled = False Check1.Value = 0Check2.Value = 0HScroll1.Value = 1Form2.

20、Timer1.Interval = 1Form2.Timer2.Interval = 1Form2.Timer3.Interval = 1Form2.Timer4.Interval = 1Form2.Timer5.Interval = 1000Form2.Label1.Left = 0 EndEnd Select End SubPrivate Sub Command2_Click隐匿掌握面板End SubPrivate Sub Command3_Click Form2.Timer1.Enabled = True End SubPrivate Sub Command4_Click设置文字字体Fo

21、rm2.Label1.FontName = 宋体 End Sub可编辑资料 - - - 欢迎下载精品_精品资料_Private Sub Command5_Click Form2.Label1.FontName = 隶书 End SubPrivate Sub Command6_Click Form2.Label1.FontName = 楷体 _GB2312 End SubPrivate Sub Command7_Click Form2.Label1.FontName = 黑体 End SubPrivate Sub Command8_Click Combo1.Text = 未挑选 Combo2.T

22、ext = 未挑选 Form2.Label1.Caption = 学海无涯苦作舟,书山有路勤为径 Form2.Label1.FontSize = 20Combo1.AddItem 黑色 Combo1.AddItem 绿色 Combo1.AddItem 蓝色 Combo1.AddItem 青色 Combo1.AddItem 红色 Combo1.AddItem 黄色 Combo1.AddItem 紫色 Combo2.AddItem 黑色 Combo2.AddItem 绿色 Combo2.AddItem 蓝色 Combo2.AddItem 青色 Combo2.AddItem 红色 Combo2.Ad

23、dItem 黄色 Combo2.AddItem 紫色 Form2.Timer1.Interval = 1颜色自动变化的时间间隔Form2.Timer2.Interval = 1可编辑资料 - - - 欢迎下载精品_精品资料_Form2.Timer3.Interval = 1Form2.Timer4.Interval = 1Form2.Timer5.Interval = 1000Form2.Timer1.Enabled = TrueForm2.Timer2.Enabled = FalseForm2.Timer3.Enabled = FalseForm2.Timer4.Enabled = Fals

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

25、色 Combo1.AddItem 红色 Combo1.AddItem 黄色 Combo1.AddItem 紫色 Combo2.AddItem 黑色 Combo2.AddItem 绿色 Combo2.AddItem 蓝色 Combo2.AddItem 青色 Combo2.AddItem 红色 Combo2.AddItem 黄色 Combo2.AddItem 紫色 Form2.Timer1.Interval = 1Form2.Timer2.Interval = 1Form2.Timer3.Interval = 1可编辑资料 - - - 欢迎下载精品_精品资料_Form2.Timer4.Interv

26、al = 1Form2.Timer5.Interval = 1000 Form2.Timer1.Enabled = False Form2.Timer2.Enabled = False Form2.Timer3.Enabled = False Form2.Timer4.Enabled = False Form2.Timer5.Enabled = FalseText1.Text = 请直接在此输入文字字幕 HScroll1.Min = 1: HScroll1.Max = 100End SubPrivate Sub HScroll1_Change滚动条转变时的变化If Form2.Timer1.E

27、nabled = True ThenElseIf Form2.Timer2.Enabled = True ThenElseIf Form2.Timer3.Enabled = True ThenElseIf Form2.Timer4.Enabled = True ThenEnd If End SubPrivate Sub Option1_ClickIndex As Integer转变字的大小Select Case Index Case 0Form2.Label1.FontSize = 25Case 1Form2.Label1.FontSize = 15 End SelectEnd SubPriv

28、ate Sub Option2_ClickIndex As Integer转变字的移动方向Select Case Index Case 0可编辑资料 - - - 欢迎下载精品_精品资料_Form2.Timer1.Enabled = True Form2.Timer2.Enabled = False Form2.Timer3.Enabled = False Form2.Timer4.Enabled = False Case 1Form2.Timer1.Enabled = False Form2.Timer2.Enabled = True Form2.Timer3.Enabled = False

29、Form2.Timer4.Enabled = False Case 2Form2.Timer1.Enabled = FalseForm2.Timer2.Enabled = False Form2.Timer3.Enabled = True Form2.Timer4.Enabled = False Case 3Form2.Timer1.Enabled = False Form2.Timer2.Enabled = False Form2.Timer3.Enabled = False Form2.Timer4.Enabled = True End SelectEnd SubPrivate Sub T

30、ext1_ClickIf Text1.Text = 请直接在此输入文字字幕 Then Text1.Text = End If End SubPrivate Sub Text1_KeyPressKeyAscii As Integer判定输入文字是否为空If KeyAscii = 13 ThenIf Text1.Text = Thenm = MsgBox 文字字幕不能为空, vbExclamation, 提示 ElseText1.Text = 可编辑资料 - - - 欢迎下载精品_精品资料_End If End IfEnd SubPrivate Sub Text1_LostFocusText1.T

31、ext = 请直接在此输入文字字幕 End Sub2、Form2 代码调剂文字滚动方向End SubPrivate Sub Timer1_Timer Label1.Left = Label1.Left + 15If Label1.Left Form2.Width ThenEnd If End SubPrivate Sub Timer2_Timer Label1.Left = Label1.Left - 15If Label1.Left -Label1.Width ThenLabel1.Left = Label1.Left - 15 Else: fx = 0End IfElseIf Label1

32、.Left 0 Then Label1.Left = Label1.Left - 15Else fx = 0 End IfElseIf Label1.Left Form2.Width - Label1.Width Then Label1.Left = Label1.Left + 15Else: fx = 1End If End SubPrivate Sub Timer5_Timer文字颜色自动转变设置Randomize Dim r, g, br = 255 * Rnd g = 255 * Rnd b = 255 * RndForm1.BackColor = RGBr, g, b Label1.

33、ForeColor = RGBr, g, b End Sub可编辑资料 - - - 欢迎下载精品_精品资料_第四章运行结果及分析1、运行结果如图4 1 所示：图 4-1显示窗口图 4-2掌握窗口2、分析：1、代码完成后, 在运行的时候, “滚动字幕字体掌握” 中的“隶书” 一项点击之后, 出、可编辑资料 - - - 欢迎下载精品_精品资料_现错误提示, 查看代码并未发觉错误, 连续运行仍是错误, 到最终发觉, 其实代码并未出错, 而是我用的这台电脑中并无隶书这一字体.2、这次编写代码中, 遇到代码编好啦, 程序却运行不了,原先是Timer 的 Interval 属性值为 0,把它改成实数就行.

34、 Interval 属性是掌握计时控件响应所需间隔的毫秒数3、在运行组合框单项挑选大事时,无法运行,检查代码发觉单击大事变成了change 大事导致无法运行, 只需将 change 改为 click ,就可以运行. 所以编写代码时肯定要认真核对, 一个的方错误就会使运行错误可编辑资料 - - - 欢迎下载精品_精品资料_第五章心得体会对于本次 VB 课程设计, 假如将全部的要求分开来写,那么将变得很简洁,就是对第七章中框架、组合框、单项挑选框、滚动条、定时器等的考察.但本设计将原本的在一个窗体中完成的设计分解成了两个窗体,对于各个控键的基本属性要求把握娴熟,最大的难点在于, 要将第一章的窗体、

35、 第五章循环结构程序设计、第七章常用控件的内容紧密的结合起来,环环相扣,相辅相成.我无论如何当心,在一些细节方面老是显现错误,导致程序终止.戒备我们,要多做多练,多运行多查看,多留意细节方面的问题,要善于摸索问题,善于发觉问题,更善于解决问题.不要死读书,读死书,而是要敏捷运用所学学问,学会综合把握,加强整体掌握的才能,发散思维,敢于创新.将所学学问完全发挥,运用到设计当中去.可编辑资料 - - - 欢迎下载精品_精品资料_参考文献1、熊李艳、周美玲等编.Visual Basic程序设计人民邮电出版社, 2022.2吴昊、杜玲玲等编 .Visual Basic程序设计试验教程人民邮电出版社,2022.可编辑资料 - - - 欢迎下载