文档分类：
在线文档经过高度压缩，下载原文更清晰。
淘豆网网友近日为您收集整理了关于VB课程设计报告计算器-滚动字幕板的文档，希望对您的工作和学习有所帮助。以下是文档介绍：VB课程设计报告计算器-滚动字幕板 华东交通大学 VB 课程设计报告各专业全套优秀毕业设计图纸VB 课程设计(论文)任务书土木建筑学院测绘专业 2 班一、课程设计(论文)题目: 滚动字幕板二、课程设计(论文)工作自 2011 年 6 月 26 日起至 2011 年 7 月 3 日止三、课程设计(论文) 地点: 计算中心 8#501四、课程设计(论文)内容要求:1. 本课程设计的目的(1)进一步巩固和加深对“VB 程序设计”课程基本知识的理解和掌握,了解 VB 语言在项目开发中的应用。(2)学习程序设计开发的一般方法,了解和掌握项目开发过程及方式,培养正确的设计思想和分析问题、解决问题的能力,特别是项目设计能力。(3)通过对标准化、规范化文档的掌握并查阅有关技术资料等,培养项目设计开发能力。2. 课程设计的任务及要求(1) 基本要求:(1) 对系统功能进行需求分析;(2) 使用 Visual basic 开发环境进行程序开发;(3) 提出系统的设计方案;(4) 编写源程序代码并进行调试。(2) 创新要求在基本要求达到后,可进行创新设计。(3) 课程设计报告撰写及装订要求课程设计报告的撰写(来源：淘豆网[/p-9623132.html])要求表述简明,图表准确。报告按如下内容和顺序用 A4 纸进行打印并装订成册。(1)封面采用统一的课程设计封面,并按要求填写好封面要求的个人信息和选题。(2)设计任务书(3)评阅书(4)目录(5)正文(6)主要参考文献(4) 课程设计评分标准:(1)达到课程设计的目的与要求,程序的可读性较好,并调试正确,60 分;(2)能正确回答设计的中老师所提问题,可增加 10 分;(3)课程设计报告书写规范整齐,可增加 10 分;(4)心得体会认真总结,可增加 10 分;(5)程序有创新性,可增加 10 分;成绩评定实行优秀、良好、中等、及格和不及格五个等级。不及格者需重做。(5) 课程设计进度安排华东交通大学 VB 课程设计报告(1)准备阶段(6 学时):选择设计题目、了解设计目的要求、查阅相关资料。(2)程序模块设计分析阶段(8 学时):程序总体设计、详细设计。(3) 代码编写调试阶段(10 学时):程序模块代码编写、调试、测试。(4) 撰写论文阶段(6 学时):总结课程设计任务和设计内容,撰写课程设计(来源：淘豆网[/p-9623132.html])论文。(6)课程设计题目具体要求:设计要求:设计一个滚动字幕板。第一:启动程序,同时显示两个窗口,一是用来显示滚动字幕的显示板,二是窗口控制板。第二:单击控制窗口的“开始”按钮,显示窗口中的文字开始滚动显示。滚动方式由控制窗口中“字幕滚动方向控制”框中的四个单选框决定的。共有四种方式:“从左往右”、“从右往左”、“穿透式左右摆动”和“壁面反射式摆动”。“从左往右是默认方式。第三:本程序提供了 8 种内置文字内容,单击“内置字幕”框中的一个按钮可以改变滚动字幕的内容。第四:通过“前景色”和“背景色”组合框可以改变滚动字幕的前景色和背景色。第五:单击控制窗口中的“退出”按钮,同时关闭两个窗口,并程序结束。学生签名:2011 年 6 月 26 日华东交通大学 VB 课程设计报告课程设计(论文)评阅意见序号项目等级优秀良好中等及格不及格1 课程设计态度评价2 出勤情况评价3 任务难度评价4 工作量饱满评价5 设计中创新性评价6 论文书写规范化评价综合评定等级评阅人周美玲职称讲师2011 年 7 月 3(来源：淘豆网[/p-9623132.html]) 日华东交通大学 VB 课程设计报告目录第 1 章系统概要..........................................................................................................11.1 功能大概介绍......................................................................................................................1第 2 章总体设计.......................................................................................................... 22.2 属性窗口...............................................................(来源：淘豆网[/p-9623132.html])..............................................................2第 3 章源程序代码...................................................................................................... 43.1 Form1 窗口上的代码..........................................................................................................43.2 Form2 的窗口代码............................................................................................................15第 4 章运行结果及分析................(来源：淘豆网[/p-9623132.html])............................................................................164.1 运行结果...........................................................................................................................164.2 程序分析............................................................................................................................174.3 运行程序使用说明................................................................................................(来源：淘豆网[/p-9623132.html])............18第 5 章心得体会........................................................................................................19参考文献......................................................................................................................20华东交通大学 VB 课程设计报告1第 1 章系统概要“滚动字幕板”是指人们在公共场所(如车站、机场、办公大厅等)经常见到的用来显示消息、广告、通知等内容的显示屏。滚动字幕的方式容易引起观众的注意,具有很好的宣传作用。本程序要求编制一个模拟滚动字幕板的实用程序。1.1 功能大概介绍⑴启动程序,同时显示两个窗口,窗口一是用来显示滚动字幕的显示板,窗口二是控制板。⑵单击控制窗口中的“开始滚动”按钮,显示(来源：淘豆网[/p-9623132.html])窗口中的文字开始滚动显示。滚动的方式由控制窗口中“字幕滚动方向控制”框中四个单选框决定的,共有四种方式:“从左往右”、“从右往左”、“穿透式左右摆动”和“壁面反射式摆动”, “从右往左”是默认方式。选择“滚动字幕的文字大小控制”框中的“大字体”或“小字体”单选框,可以改变显示窗口中文字的大小。从“滚动字幕字体控制”框中可以为显示窗口中的文字选择一种字体。表示字体的四个按钮实际上是按钮样式的单选框(设置其 Style 属性)。⑶本程序提供了 8 种内置文字内容,单击“内置字幕”框中一个按钮可以改变滚动字幕的内容。如果要显示自定义的文字内容,可以直接在控制窗口底部的文本框中输入,然后按回车键即可。⑷通过“前景色”和“背景色”组合框,可以改变滚动字幕的前景色和背景色。华东交通大学 VB 课程设计报告2第 2 章总体设计2.1 设计思路通过控制窗口上的各个控件来控制显示窗口的各种字幕运行状态。如图 2-1 为程序流程图。单击控制窗体的“开始”按钮进入程序其他控制控制背景色和前景色控制显示内容控制字的滚(来源：淘豆网[/p-9623132.html])动速度控制字的滚动方式控制字体控制字的大小随机输入显示内容图 2-1 流程图2.2 属性窗口各个控件的 caption 属性的字形不作变更;Timer1 的 interval 属性为 1000,Timer2 和 Timer3 的此属性为 1;字体控制及内置字幕上的所有单选框的 style 属性均改为 1;“暂停”控件和“继续”控件的 Visible 属性值为 F文本框的 text 属性改为“请直接在此输入字幕文字”;bo2list 属性均添加上红色,蓝色,紫色,黄色,黑色,绿色。华东交通大学 VB 课程设计报告3Form1 的属性设置如图 2-2 所示。图 2-2 form1 属性窗口Form2 的属性设置如图 2-3 所示。图 2-3 form2 属性窗口华东交通大学 VB 课程设计报告4第 3 章源程序代码3.1 Form1 窗口上的代码Dim intSpeed As IntegerConst strPrompt1 As String = &我们的实习生活结束了!&qu(来源：淘豆网[/p-9623132.html])Const strPrompt2 As String = &春眠不觉晓,处处闻啼鸟。!!!&Const strPrompt3 As String = &夜来风雨声,花落知多少?&Const strPrompt4 As String = &宝剑锋从磨砺出,梅花香自苦寒来&Const strPrompt5 As String = &吃得苦中苦,方为人上人&Const strPrompt6 As String = &No Pay, no Gain&Const strPrompt7 As String = &书山有路勤为径,学海无涯苦作舟&Const strPrompt8 As String = &团结就是力量!&Dim blnDirection As Boolean 'False 表示从右往左移动 True 表示从左往右移动Dim blnAutoS(来源：淘豆网[/p-9623132.html])hift As Boolean 'True 表示左右摆动,False 表示从左往右或从右往左Dim blnShiftDirection As Boolean ' True 表示向左摆动, False 表示向右摆动Dim blnShiftMode As Boolean ' True 表示摆动方式一, False 表示摆动方式二Dim blnStopMode As Boolean ' True 表示暂停摆动,False 表示继续摆动Private Sub BKColor_Click()Dim intColor1 As LongSelect Case BKColor.ListIndexCase 0intColor1 = vbBlackCase 1intColor1 = vbGreenCase 2intColor1 = vbBlueCase 3intColor1 = vbCyanCase 4intColor1 = vbRedCase 5intColor1 = vbYellowCase 6intColor1 = vbMagentaCase 7intColor1 = vbWhite华东交通大学 VB 课程设计报告5End SelectBKColor.Text = BKColor.TextForm1.BackColor = intColor1End SubPrivate Sub Check1_Click()If Check1.Value = 1 ThenForm2.BorderStyle = 0Form2.WindowState = 2ElseForm2.BorderStyle = 1Form2.WindowState = 0End IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 ThenFrame2.Visible = TrueElseFrame2.Visible = FalseEnd IfEnd SubPrivate Sub Check3_Click()If Check3.Value = 1 ThenFrame4.Visible = TrueElseFrame4.Visible = FalseEnd IfEnd SubPrivate Sub Check4_Click()If Check4.Value = 1 ThenTimer3.Enabled = TrueElseTimer3.Enabled = FalseEnd IfEnd SubPrivate Sub Check5_Click()华东交通大学 VB 课程设计报告6If Check5.Value = 1 ThenForm2.Label1.FontSize = 72Form2.Label1.Top = (Form2.ScaleHeight - Form2.Label1.Height) / 1Form2.WindowState = 2Timer1.Enabled = TrueElseForm2.Label1.Top = (Form2.ScaleHeight - Form2.Label1.Height) / 1Form2.WindowState = 0Form2.Label1.FontSize = 24' Form2.Label1.Top = 270End IfIf Check5.Value = 1 ThenFrame1.Visible = FalseFrame2.Visible = FalseFrame3.Visible = FalseFrame4.Visible = FalseHScroll1.Visible = FalseLabel2.Visible = FalseLabel3.Visible = FalseLabel4.Visible = mand1.Visible = mand2.Visible = mand3.Visible = mand4.Visible = mand5.Visible = mand6.Visible = mand7.Visible = mand8.Visible = mand9.Visible = mand10.Visible = mand11.Visible = FalseBKColor.Visible = FalseFGColor.Visible = FalseText1.Visible = FalseCheck4.Visible = FalseCheck5.Visible = FalseForm1.Caption = &在窗体空白处双击鼠标左键,退出全屏幕状态&播放器加载中，请稍候...
该用户其他文档
下载所得到的文件列表VB课程设计报告计算器-滚动字幕板.doc
文档介绍：
VB课程设计报告计算器-滚动字幕板 华东交通大学 VB 课程设计报告各专业全套优秀毕业设计图纸VB 课程设计(论文)任务书土木建筑学院测绘专业 2 班一、课程设计(论文)题目: 滚动字幕板二、课程设计(论文)工作自 2011 年 6 月 26 日起至 2011 年 7 月 3 日止三、课程设计(论文) 地点: 计算中心 8#501四、课程设计(论文)内容要求...
内容来自淘豆网转载请标明出处.第四章 字幕制作_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
文档贡献者
评价文档：
第四章 字幕制作
p​r​e​m​i​e​r​e​课​件
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
大小：5.76MB
登录百度文库，专享文档复制特权，财富值每天免费拿！
你可能喜欢如何更改滚动字幕的字体颜色和字体大小？_百度知道
如何更改滚动字幕的字体颜色和字体大小？
提问者采纳
marquee，，我是用的js做出滚动字幕效果
其他类似问题
为您推荐：
字体颜色的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁用vb编一个滚动字幕板
用vb编一个滚动字幕板
题目4&&&&&&滚动字幕板
1.&题目介绍
“滚动字幕板”是指人们在公共场所（如车站、机场、办公大厅等）经常见到的用来显示消息、广告、通知等内容的显示屏。滚动字幕的方式容易引起观众的注意，具有很好的宣传作用。本程序要求编制一个模拟滚动字幕板的实用程序。
2.&功能要求
&&⑴&&启动程序，同时显示如图4.1和图4.2所示的两个窗口，窗口一是用来显示滚动字幕的显示板，窗口二是控制板。
图4.1&显示窗口
图4.2&控制窗口
&&⑵&&单击控制窗口中的“开始滚动”按钮，显示窗口中的文字开始滚动显示。滚动的方式由控制窗口中“字幕滚动方向控制”框中四个单选框决定的，共有四种方式：“从左往右”、“从右往左”、“穿透式左右摆动”和“壁面反射式摆动”，&“从右往左”是默认方式。选择“滚动字幕的文字大小控制”框中的“大字体”或“小字体”单选框，可以改变显示窗口中文字的大小。从“滚动字幕字体控制”框中可以为显示窗口中的文字选择一种字体。表示字体的四个按钮实际上是按钮样式的单选框（设置其Style属性）。
&⑶&&本程序提供了8种内置文字内容，单击“内置字幕”&框中一个按钮可以改变滚动字幕的内容。如果要显示自定义的文字内容，可以直接在控制窗口底部的文本框中输入，然后按回车键即可。
⑷&通过“前景色”和“背景色”组合框（如图4.3所示）可以改变滚动字幕的前景色和背景色。如果选定了“颜色自动变化”复选框，则滚动字幕的前景色和背景色均自动变化（每1秒变换一次）。
图4.3&选择颜色
⑸&单击控制板窗口中的“隐藏控制板”按钮可以将控制窗口隐藏只留显示板，双击显示板窗口可以重新显示控制板。单击控制窗口中的“退出”按钮，同时关闭两个窗口，程序结束。
还望有技术的大哥大姐们帮个忙啊
你还需要题解吗？
form1上代码如下 （增加一个command按钮 用来隐藏form1）Private Sub Check1_Click()If Check1.Value = 1 ThenForm2.Timer5.Enabled = TrueElseIf Check1.Value = 0 ThenForm2.Timer5.Enabled = FalseEnd IfEnd SubPrivate Sub Check2_Click()If Check2.Value = 1 ThenForm2.WindowState = 2ElseIf Check2.Value = 0 ThenForm2.WindowState = 0End IfEnd SubPrivate Sub Combo1_Click()If Combo1.Text = "黑色" ThenForm2.Label1.ForeColor = vbBlackElseIf Combo1.Text = "绿色" ThenForm2.Label1.ForeColor = vbGreenElseIf Combo1.Text = "蓝色" ThenForm2.Label1.ForeColor = vbBlueElseIf Combo1.Text = "青色" ThenForm2.Label1.ForeColor = vbCyanElseIf Combo1.Text = "红色" ThenForm2.Label1.ForeColor = vbRedElseIf Combo1.Text = "黄色" ThenForm2.Label1.ForeColor = vbYellowElseIf Combo1.Text = "紫色" ThenForm2.Label1.ForeColor = QBColor(9) + QBColor(4)End IfEnd SubPrivate Sub Combo2_Click()If Combo2.Text = "黑色" ThenForm1.BackColor = vbBlackElseIf Combo2.Text = "绿色" ThenForm1.BackColor = vbGreenElseIf Combo2.Text = "蓝色" ThenForm1.BackColor = vbBlueElseIf Combo2.Text = "青色" ThenForm1.BackColor = vbCyanElseIf Combo2.Text = "红色" ThenForm1.BackColor = vbRedElseIf Combo2.Text = "黄色" ThenForm1.BackColor = vbYellowElseIf Combo2.Text = "紫色" ThenForm1.BackColor = QBColor(9) + QBColor(4)End IfEnd SubPrivate Sub Command1_Click(Index As Integer)Select Case IndexCase 0Form2.Label1.Caption = "书山有路"Case 1Form2.Label1.Caption = "学海无涯"Case 2Form2.Label1.Caption = "好好学习"Case 3Form2.Label1.Caption = "天天向上"Case 4Form2.Label1.Caption = "认真对待"Case 5Form2.Label1.Caption = "严肃处理"Case 6Form2.Label1.Caption = "坚持不懈"Case 7Form2.Label1.Caption = "勇登高峰"Case 8Form2.Label1.Caption = "欢迎光临"Form2.Label1.FontSize = 25Form1.BackColor = &H8000000FForm2.Label1.ForeColor = &HCombo1.Text = "未选择"Combo2.Text = "未选择"Form2.Timer1.Enabled = FalseForm2.Timer2.Enabled = FalseForm2.Timer3.Enabled = FalseForm2.Timer4.Enabled = FalseForm2.Timer5.Enabled = FalseCheck1.Value = 0Check2.Value = 0HScroll1.Value = 1Form2.Timer1.Interval = 1Form2.Timer2.Interval = 1Form2.Timer3.Interval = 1Form2.Timer4.Interval = 1Form2.Timer5.Interval = 1000Form2.Label1.Left = 0Case 9If Option1(6).Value = False And Option1(7).Value = False And Option1(8).Value = False And Option1(9).Value = False Then&Form2.Timer2.Enabled = True&ElseIf Option1(6).Value = True Then&&Form2.Timer1.Enabled = True&ElseIf Option1(7).Value = True Then&Form2.Timer3.Enabled = True&ElseIf Option1(8).Value = True Then&Form2.Timer2.Enabled = True&ElseIf Option1(9).Value = True Then&Form2.Timer4.Enabled = True&End IfCase 10EndEnd SelectEnd SubPrivate Sub Command2_Click()Form1.HideEnd SubPrivate Sub Form_Load()Combo1.Text = "未选择"Combo2.Text = "未选择"Form2.ShowForm2.Label1.Caption = "欢迎光临"Form2.Label1.FontSize = 25Combo1.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 "紫色"Form2.Timer1.Interval = 1Form2.Timer2.Interval = 1Form2.Timer3.Interval = 1Form2.Timer4.Interval = 1Form2.Timer5.Interval = 1000Form2.Timer1.Enabled = FalseForm2.Timer2.Enabled = FalseForm2.Timer3.Enabled = FalseForm2.Timer4.Enabled = FalseForm2.Timer5.Enabled = FalseText1.Text = "请直接在此输入文字字幕"HScroll1.Min = 1: HScroll1.Max = 100End SubPrivate Sub HScroll1_Change()If Form2.Timer1.Enabled = True ThenForm2.Timer1.Interval = HScroll1.ValueElseIf Form2.Timer2.Enabled = True ThenForm2.Timer2.Interval = HScroll1.ValueElseIf Form2.Timer3.Enabled = True ThenForm2.Timer3.Interval = HScroll1.ValueElseIf Form2.Timer4.Enabled = True ThenForm2.Timer4.Interval = HScroll1.ValueEnd IfEnd SubPrivate Sub Option1_Click(Index As Integer)Select Case IndexCase 0Form2.Label1.FontSize = 35Case 1Form2.Label1.FontSize = 15Case 2Form2.Label1.FontName = "宋体"Case 3Form2.Label1.FontName = "仿宋_gb2312"Case 4Form2.Label1.FontName = "楷体_gb2312"Case 5Form2.Label1.FontName = "黑体"Case 6Form2.Timer1.Enabled = TrueForm2.Timer2.Enabled = FalseForm2.Timer3.Enabled = FalseForm2.Timer4.Enabled = FalseCase 7Form2.Timer1.Enabled = FalseForm2.Timer2.Enabled = FalseForm2.Timer3.Enabled = TrueForm2.Timer4.Enabled = FalseCase 8Form2.Timer1.Enabled = FalseForm2.Timer2.Enabled = TrueForm2.Timer3.Enabled = FalseForm2.Timer4.Enabled = FalseCase 9Form2.Timer1.Enabled = FalseForm2.Timer2.Enabled = FalseForm2.Timer3.Enabled = FalseForm2.Timer4.Enabled = TrueEnd SelectEnd SubPrivate Sub Text1_Click()If Text1.Text = "请直接在此输入文字字幕" Then&Text1.Text = ""&End IfEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then&If Text1.Text = "" Then&m = MsgBox("文字字幕不能为空", vbExclamation, "提示")&Else&Form2.Label1.Caption = Text1.Text&Text1.Text = ""&End If&End IfEnd SubPrivate Sub Text1_LostFocus()Text1.Text = "请直接在此输入文字字幕"End Sub
form2代码如下（5个timer控件 一个label控件）其中主要是控制方向的几个函数Option ExplicitDim fx As IntegerPrivate Sub Form_DblClick()Form1.ShowEnd SubPrivate Sub Form_Load()fx = 1Label1.AutoSize = TrueForm2.Width = Form1.WidthLabel1.FontSize = 25End SubPrivate Sub Label1_DblClick()Form1.ShowEnd SubPrivate Sub Timer1_Timer()Label1.Left = Label1.Left + 15If Label1.Left & Form2.Width ThenLabel1.Left = -Label1.WidthEnd IfEnd SubPrivate Sub Timer2_Timer()Label1.Left = Label1.Left - 15If Label1.Left & -Label1.Width ThenLabel1.Left = Form2.WidthEnd IfEnd SubPrivate Sub Timer3_Timer()If fx = 1 Then&If Label1.Left & -Label1.Width Then&Label1.Left = Label1.Left - 15&Else&fx = 0&End If&Else&If Label1.Left & (Form2.Width) Then&Label1.Left = Label1.Left + 15&Else&fx = 1&End If&End IfEnd SubPrivate Sub Timer4_Timer()If fx = 1 Then&If Label1.Left & 0 Then&Label1.Left = Label1.Left - 15&Else&fx = 0&End If&Else&If Label1.Left & (Form2.Width - Label1.Width) Then&Label1.Left = Label1.Left + 15&Else&fx = 1&End If&End IfEnd SubPrivate Sub Timer5_Timer()RandomizeDim r, g, br = 255 * Rndg = 255 * Rndb = 255 * RndForm1.BackColor = RGB(r, g, b)Label1.ForeColor = RGB(r, g, b)End Sub
你有邮箱吗 ？有的话我打包发给你
这是我的邮箱，谢谢了啊
因为我用的是vb6 英文版的
你的电脑上可能打不开 所以我弄了个word， 你自己做的时候将代码粘贴进vb去就行了。程序可能会有小bug ，相信你自己能处理这些问题。
相关知识等待您来回答
编程领域专家
& &SOGOU - 京ICP证050897号}