我想问,怎么做就像是电视上抽奖时,大屏幕上滚动的号码,请求具体教程

我想问,怎么做就像是电视上抽奖时,大屏幕上滚动的号码,请求具体教程,第1张

那是编的专门的程序,先要把所要滚动的身份z号,电话号或其它号码(名字等都可以)输入到数据库里,然后让其随机转动显示(显乎颤好示一个或几个)。敲击任意键则停止。(一般用洞册VFP,VB等语言都可以编岁铅程您可以自己试试编)。

Dim a(100) As String * 10

Private Sub Command1_Click()

Timer1.Interval = 100 - Timer1.Interval

Randomize

End Sub

Private Sub Form_Load()

Command1.Caption = "开和正始"

For i = 0 To 100

a(i) = "ABC000" &100 + i

Next i

End Sub

Private Sub Timer1_Timer()

i = Int(Rnd * 101)

Command1.Caption = "让键停止"唤滑悔 &vbCrLf &a(i)

End Sub

1.首先在通者渣段话界面号码滚动梁亮键盘上设置一个号码,并且选择“+”这个号码来滚动。

2.然后在通话界面号码滚动键盘上加入一个新的号码,首誉并且选择“-”这个号码来滚动。

3.之后在通话界面号码滚动键盘上显示“+”、“-”号码。


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/12525150.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-26
下一篇 2023-05-26

发表评论

登录后才能评论

评论列表(0条)

保存