VB课程设计报告滚动版字幕

1、visual basic课程设计说明书题 目： 姓 名： 学 号： 指导教师： 综合成绩： 2012年10月vb课程设计报告滚动版字幕一、设计目的在生活中有许多需要滚动字幕的，人们在公共场所经常见到的用来显示消息、广告、通知等内容的显示屏。滚动字幕的方式容易引起观众注意，具有良好的宣传作用。本程序要求编制一个模拟滚动字幕板的实用程序。二、软件功能介绍（1）启动程序，同时显示图1、图2所示的2个参考界面，窗口1用来显示滚动字幕的显示板，窗口2是控制板。图1 显示窗口图2 控制窗口（2）运行程序时，显示窗口中的文字开始滚动显示。滚动的方式由控制窗口中的“字幕滚动方向控制”框中的4个单选框决定。“滚

2、动字幕的文字大小控制”框可以控制字体大小。“滚动字幕字体控制”是4个按钮式样的单选框，用于设置字体样式。（3）本程序提供8中内置文字内容，单击“内置文字”框中的任一个按钮可以改变字幕的内容。如果要显示自定义的文字内容，可以直接在底部文本框中输入，然后回车即可。（4）通过“前景色”和“背景色”组合框（图3所示），可以改变滚动字幕的前景色和背景色。若选择“颜色自动变化”复选框，则滚动字幕的前景色和背景色均自动变化（每1s变化一次）。图3 选择颜色 （5）点击隐藏按钮即可隐藏控制板，任意双击显示板或滚动中的字幕即可再次显示隐藏的字幕版 （6）本程序解决了颜色自动变化后可能出现前景色和背景色相同的情况

3、，不会出现文字因与背景色颜色相同而不可见的情况三、模块及内部控件列表窗体form1中相关控件的属性设置对象名称（name）属性属性值窗体form1caption控制板文本框text1caption锄禾日当午框架frame1caption滚动字幕文字大小控制框架frame2caption滚动字幕字体控制框架frame3caption内置字幕框架frame4caption字幕滚动方向控制单选按钮option1caption大字体单选按钮option2caption小字体单选按钮option3caption从左往右单选按钮option4caption从右往左单选按钮option5caption穿透式

4、左右摆动单选按钮option6caption壁面反射式摆动复选框check1caption颜色自动变化标签label1caption背景色:标签label2caption前景色:标签label3caption滚动速度组合框combo1text紫色组合框combo2text青色水平滚动条hscrollbar1min10max200smallchange5largechange5命令按钮command1caption宋体命令按钮command2caption隶书命令按钮command3caption楷书命令按钮command4caption黑体命令按钮command5caption1命令按钮com

5、mand6caption2命令按钮command7caption3命令按钮command8caption4命令按钮command9caption5命令按钮command10caption6命令按钮command11caption7命令按钮command12caption8命令按钮command13caption开始命令按钮command14caption恢复设置命令按钮command15caption隐藏控制板命令按钮command16caption退出计时器timer1interval6计时器timer3interval1000计时器timer4interval6计时器timer5inter

6、val6计时器timer6interval6窗体form2中控件相关属性设置对象名称（name）属性属性值窗体form2caption滚动字幕板标签label1autosizetrue四、程序分析option explicit 强制显式声明dim n as integerdim fx as integer 定义方向1为向左，0为向右dim a as integerdim b as integerprivate sub check1_click()if check1.value = 1 then 此处选择是否自动改变颜色 timer3.enabled = trueelse timer3.enab

7、led = falseend ifend subprivate sub combo1_click()select case combo1.text 通过此语句改变form2里label的背景色 case 黑色 form2.label1.backcolor = vbblack 将form2中label1背景色改为黑色，下同 case 绿色 form2.label1.backcolor = vbgreen case 蓝色 form2.label1.backcolor = vbblue case 青色 form2.label1.backcolor = vbcyan case 红色 form2.lab

8、el1.backcolor = vbred case 黄色 form2.label1.backcolor = vbyellow case 紫色 form2.label1.backcolor = vbmagenta case else exit subend selectend subprivate sub combo2_click()select case combo2.text 通过此语句改变form2里label1显示的字幕的颜色 case 黑色 form2.label1.forecolor = vbblack 将form2里label1显示的字幕颜色改为黑色，下同 case 绿色 for

9、m2.label1.forecolor = vbgreen case 蓝色 form2.label1.forecolor = vbblue case 青色 form2.label1.forecolor = vbcyan case 红色 form2.label1.forecolor = vbred case 黄色 form2.label1.forecolor = vbyellow case 紫色 form2.label1.forecolor = vbmagenta case else exit subend selectend subprivate sub command13_click()if

10、 timer1.enabled = true then b = 1 else if timer4.enabled = true then b = 2 else if timer5.enabled = true then b = 3 else if timer6.enabled = true then b = 4 end if end if end ifend ifn = n + 1select case b 通过对b的选择从而控制计时器的执行状态，进而决定字幕的移动case 1 假如计时器1是运行的 if n mod 2 0 then 判断此时字幕为滚动状态，以便确定接下来的操作 comman

11、d13.caption = 暂停 字幕在移动，command13显示为”暂停“ timer1.enabled = true 保证字幕是滚动的 else timer1.enabled = false timer4.enabled = false timer5.enabled = false timer6.enabled = false command13.caption = 继续 此时字幕停止滚动，command13显示为”继续“ end if case 2 若计时器4是运行的 if n mod 2 0 then command13.caption = 暂停 timer4.enabled = t

12、rue else timer1.enabled = false timer4.enabled = false timer5.enabled = false timer6.enabled = false command13.caption = 继续 end if case 3 若计时器5是运行的 if n mod 2 0 then command13.caption = 暂停 timer5.enabled = true else timer1.enabled = false timer4.enabled = false timer5.enabled = false timer6.enabled

13、= false command13.caption = 继续 end if case 4 若计时器6是运行的 if n mod 2 0 then command13.caption = 暂停 timer6.enabled = true else timer1.enabled = false timer4.enabled = false timer5.enabled = false timer6.enabled = false command13.caption = 继续 end ifend select 结束select-case-end-select 结构语句end subprivate s

14、ub command14_click() 这里恢复程序开始运行时的状态option1.value = true 使用大字体option4.value = true 自右向左滚动字幕timer1.enabled = truetimer3.enabled = falsetimer4.enabled = falsetimer5.enabled = falsetimer6.enabled = falsehscroll1.value = 10 控制字幕的移动速度check1.value = 0 颜色不再自动变化text1.text = 锄禾日当午form2.label1.backcolor = vbma

15、genta 字幕背景色为紫色form2.label1.forecolor = vbcyan 字幕的暗色为青色combo1.text = 紫色combo2.text = 青色form2.label1.font = 华文琥珀 将字体恢复成开始时的样子end subprivate sub command15_click()me.visible = false 此处进行隐藏控制板操作end subprivate sub command16_click()end 退出程序end subprivate sub command1_click() 改变form2里label1的字体，下同form2.label

16、1.font = 宋体end subprivate sub command2_click()form2.label1.font = 隶书end subprivate sub command3_click()form2.label1.font = 楷书end subprivate sub command4_click()form2.label1.font = 黑体end subprivate sub command5_click() 将text1清空并使用默认的字幕，下同text1.text = text1.text = 锄禾日当午end subprivate sub command6_clic

17、k()text1.text = text1.text = 汗滴禾下土end subprivate sub command7_click()text1.text = text1.text = 谁知盘中餐end subprivate sub command8_click()text1.text = text1.text = 粒粒皆辛苦end subprivate sub command9_click()text1.text = text1.text = 横看成岭侧成峰end subprivate sub command10_click()text1.text = text1.text = 远近高低

18、各不同 end subprivate sub command11_click()text1.text = text1.text = 不识庐山真面目end subprivate sub command12_click()text1.text = text1.text = 只缘身在此山中end subprivate sub form_load() form2.show 程序运行时提示显示两个窗口 form2.backcolor = form2.label1.backcolorfx = 1 值为”1 代表字幕向左移动option4.value = truetimer1.enabled = truet

19、imer3.enabled = falsetimer4.enabled = falsetimer5.enabled = falsetimer6.enabled = falsetext1.text = 锄禾日当午form2.label1.backcolor = vbmagentaform2.label1.forecolor = vbcyancombo1.text = 紫色combo2.text = 青色combo1.additem 黑色 给组合框list属性赋值，下同combo1.additem 绿色combo1.additem 蓝色combo1.additem 青色combo1.additem

20、 红色combo1.additem 黄色combo1.additem 紫色combo2.additem 黑色combo2.additem 绿色combo2.additem 蓝色combo2.additem 青色combo2.additem 红色combo2.additem 黄色combo2.additem 紫色end subprivate sub option1_click()form2.label1.fontsize = 90 使用较大的字体end subprivate sub option2_click()form2.label1.fontsize = 50 使用较小的字体end subp

21、rivate sub option3_click() 改变字幕的滚动方式，下同n = 1command13.caption = 暂停 每次改变滚动方式时默认字幕是运行着的timer4.enabled = truetimer5.enabled = falsetimer6.enabled = falsetimer1.enabled = falseend subprivate sub option4_click()n = 1command13.caption = 暂停timer1.enabled = truetimer4.enabled = falsetimer5.enabled = falseti

22、mer6.enabled = falseend subprivate sub option5_click()n = 1command13.caption = 暂停timer5.enabled = truetimer4.enabled = falsetimer1.enabled = falsetimer6.enabled = falseend subprivate sub option6_click()n = 1command13.caption = 暂停timer6.enabled = truetimer4.enabled = falsetimer1.enabled = falsetimer5

23、.enabled = falseend subprivate sub text1_change()form2.label1.caption = text1.text 所显示的字幕即为text1中所键入的字end subprivate sub timer1_timer()form2.label1.move form2.label1.left - hscroll1.value 字幕向左滚动，且移动速度由滚动条的值决定if form2.label1.left -form2.label1.width then form2.label1.left = form2.widthend ifend subpr

24、ivate sub timer3_timer()dim s as integer, r as integerrandomizes = int(rnd * (7 - 1 + 1) + 1) 随机选出一个（1-7）的整数，下同r = int(rnd * (7 - 1 + 1) + 1)do 运行此循环语句使得字幕的前景色和背景色不会相同r = int(rnd * (7 - 1 + 1) + 1)loop until s rselect case s 此处每一个数都对应一种颜色，通过此语句来随机改变字幕的背景颜色，下同 case 1 form2.label1.backcolor = vbblack

25、case 2 form2.label1.backcolor = vbgreen case 3 form2.label1.backcolor = vbblue case 4 form2.label1.backcolor = vbcyan case 5 form2.label1.backcolor = vbred case 6 form2.label1.backcolor = vbyellow case 7 form2.label1.backcolor = vbmagenta end selectselect case r case 1 form2.label1.forecolor = vbbla

26、ck case 2 form2.label1.forecolor = vbgreen case 3 form2.label1.forecolor = vbblue case 4 form2.label1.forecolor = vbcyan case 5 form2.label1.forecolor = vbred case 6 form2.label1.forecolor = vbyellow case 7 form2.label1.forecolor = vbmagenta end selectend subprivate sub timer4_timer()form2.label1.move form2.label1.left + hscroll1.value 字幕向右滚动if form2.label1.left = form2.width then form2.label1.left = -form2.label1.widthend ifend subprivate sub timer5_timer() 字幕进行穿透式左右摆动if fx = 1 then if form2.label1.left -form2.label1.width then form2.label1.left = f