用VB 6.0编写电脑抽奖程序

• 
  近年来在娱乐节目之中常常见到利用电脑来抽奖，笔者对其发生了兴趣遂自己动手用VB编了一个小程序来实现电脑抽奖的小功能，其原理如下：
  
  　　主要利用VB中的Rnd函数，来实现随机查找和打乱排序的功能，从而实现随机抽奖的目的。Rnd函数的语法结构是Rnd[(number)]，可选的number参数是 single或任何有效的数值表达式。Rnd函数返回小于1但大于或等于0的值。number 的值决定了 Rnd 生成随机数的方式。为了生成某个范围内的随机整数，可使用以下公式：
  
  Int((upperbound － lowerbound ＋ 1) × Rnd ＋ lowerbound)
  
  　　这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。
  
  　　另外，程序中还使用了INI文件，Windows INI文件,可解释为Windows初始化文件。它是一种专门用来保存应用程序初始化信息和运行环境信息的文本文件。ini文件是一种文本文件,它可以通过Notepad等文本编辑器进行编辑。ini文件具有特定的格式。一个INI文件是由若干个段(section)组成的,每个段中包含若干关键字(key)及相应的值(value)。创建应用程序自己的INI文件,通过INI文件保存应用程序的一些运行环境信息,然后在程序中读取INI文件中的设置信息并据以处理。一旦程序的运行环境需要变更,则可以通过直接修改INI文件，或在程序中提供专门的界面间接地修改INI文件来保证程序的可用性。
  
  
  　　源程序及注释如下：
  
  　　'窗体源程序
  
  Option EXPlicit
  　　Dim m_strNameArray() As MyName
  　　Dim m_bIsStart As Boolean
  　　Dim m_nNameIndex As Integer
  　　Dim MAX_INDEX As Integer
  　　Dim m_nSelectNum As Integer
  　　 '被选定数
  　　Dim nScrollStep As Integer
  　　Dim nScrollWidth As Integer
  　　Dim bScrollState As Boolean
  　　Dim nEnableSecond As Integer
  　　Dim m_strTitle As String
  　　Dim m_strAppTitle As String
  　　Dim m_strScrollTitleLeft As String
  　　Dim m_strScrollTitleRight As String
  
  Private Sub Command_Start_Stop_Click()
  　　If m_bIsStart = True Then
  　　　'按停止钮
  　　　m_bIsStart = False
  　　　Command_Start_Stop.Caption =
  　　　“开始"
  　　　Label_FlashName.Visible = True
  　　　Timer_FlashName.Enabled = True
  　　　Timer_ScrollName.Enabled = False
  　　　Label_FlashName =
  　　　　m_strNameArray（m_nNameIndex).strName ＋ “中奖了！"
  　　　m_strNameArray(m_nNameIndex).bIsSelect = True
  　　　m_nSelectNum = m_nSelectNum ＋ 1
  　　　Dim Temp As MyName
  　　　Temp =m_strNameArray(MAX_INDEX)
  　　　m_str Name Array(MAX－INDEX) = m_strNameArray(m_nNameIndex)
  
  　　　m_strNameArray(m_nNameIndex) =Temp
  

• [1] [2] [3] [4] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 用VB 6.0编写电脑抽奖程序 相关文章：
• ·用VB 6.0编写电脑抽奖程序
• 用VB 6.0编写电脑抽奖程序 相关软件

上一篇:用VB5.0实现多首背景音乐的循环播放

下一篇:七段数码管显示控件的制作与应用

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐