VB6.0制作的界面挺花哨的七星彩摇奖机，类似于电视节目中的摇奖画面，开始摇奖后，一串数字开始转动，变化很快，停止来的一串数字就是中奖号码了，可用于举办活动时的抽奖程序，关于程序的实现，可参考以下核心部分的代码：
Dim i As Integer
Randomize '初始化随机数产生器
For i = 0 To Lbl_LuckyNum.UBound
Lbl_LuckyNum(i).Caption = Int(Rnd * 10 0) ' Lbl_LuckyNum(i)中显示产生的一个0-10的随机数
Next i
完整代码请下载本源码哦。
2022-11-14 16:08:40
294KB
1
单片机连接12864（st7920）液晶显示器和1个按键接INT0，模拟一个抽奖机。
液晶初始显示“祝你好运！”；
按一下按键，液晶显示“开始抽奖”，然后显示“3-2-1”倒计时后，产生20个（0-4之间的）随机数；
液晶屏幕根据随机数显示“特等奖”、“１等奖”、“２等奖”、“３等奖”、“谢谢参与"；
2022-03-11 11:58:18
806KB
1
利用 NSOperationQueue 实现摇奖机功能。
掌握 NSOperationQueue 的暂停功能结合业务实现效果
2021-12-03 20:12:45
37KB
1