VB语言如何实现手动控制闪烁状态
这篇文章主要为大家展示了“VB语言如何实现手动控制闪烁状态”,内容简而易懂,条理清晰,希望能够帮助大家解决疑惑,下面让小编带领大家一起研究并学习一下“VB语言如何实现手动控制闪烁状态”这篇文章吧。
创新互联是一家集成都网站制作、成都网站建设、网站页面设计、网站优化SEO优化为一体的专业网站设计公司,已为成都等多地近百家企业提供网站建设服务。追求良好的浏览体验,以探求精品塑造与理念升华,设计最适合用户的网站页面。 合作只是第一步,服务才是根本,我们始终坚持讲诚信,负责任的原则,为您进行细心、贴心、认真的服务,与众多客户在蓬勃发展的市场环境中,互促共生。
一、手动控制闪烁状态
我们先简单实现一个小程序。
通过控制timer控件的enable属性来设置文字是否闪烁。
如果检测按钮文字为“停止”,那么设置按钮文字为“闪烁”。
如果检测按钮文字为“闪烁”,那么设置按钮文字为“停止”。
程序效果1
程序效果2
程序界面包含控件:1.timer1时钟控件。2.label1标签控件。3.command1按钮控件。程序界面设计如下:
界面设计
时钟控件的设置属性:
按钮的代码:
If Command2.Caption = "停止" Then Timer1.Enabled = False Command2.Caption = "闪烁"Else Timer1.Enabled = True Command2.Caption = "停止"End If
时钟控件timer1的源代码:
'控制是否闪烁
If Label1.Visible = True Then
Label1.Visible = False
Else
Label1.Visible = True
End If
Randomize
'控制变色
Label1.ForeColor = RGB(Int(256 * Rnd), Int(256 * Rnd), Int(256 * Rnd))
通过以上程序,我们看出程序中进行了颜色的控制,我们通过rgb函数和rnd随机数控制我们文字随机变色,会显得很漂亮。那么,随机数该如何使用呢?
二、随机数知识要点
Randomize的作用:是为了让rnd的随机数增大不同的概率。
为什么randomize会增大不同概率?
因为randomize默认以系统时间作为种子单位。
0<=rnd<1用 [0,1)来表示。
那么我们使用rnd来表示一下数值的范围:
255*rnd 表示的范围:[0,255)
rnd+254 表示的范围:[254,255)
rnd*220+10 表示的范围:[10,230)
rnd*70+30 [30,100)
我们知道在rgb函数中,每个参数的范围为0~255之间的整数。
提问:如何用rnd表示0到256之间的随机数?
rnd*256表示的是[0,256)
在以上知识中,我们求出的是实数的范围,那么我们该如何来求整数呢?此时,我们需要的是向下取整函数。
向下取整函数使用 int函数表示。
理解向下取整:结果是比这个数最靠近的小的整数。
3.3向下取整的结果是3
3.5向下取整的结果是3
3.9向下取整的结果是3
-3.3向下取整的结果是-4
最后,我们来表示[0,255]之间所有的整数: int(rnd*256)
本节教程所有代码:
Private Sub Command1_Click()
Print Label1.Visible
End Sub
Private Sub Command2_Click()
If Command2.Caption = "停止" Then
Timer1.Enabled = False
Command2.Caption = "闪烁"
Else
Timer1.Enabled = True
Command2.Caption = "停止"
End If
End Sub
Private Sub Timer1_Timer()
'控制是否闪烁
If Label1.Visible = True Then
Label1.Visible = False
Else
Label1.Visible = True
End If
Randomize
'控制变色
Label1.ForeColor = RGB(Int(256 * Rnd), Int(256 * Rnd), Int(256 * Rnd))
End Sub
以上是“VB语言如何实现手动控制闪烁状态”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注创新互联行业资讯频道!
文章标题:VB语言如何实现手动控制闪烁状态
网页URL:http://pwwzsj.com/article/gsopic.html