VB写的随机点名器代码VB写的随机点名器代码
不是我写的,在其它网页上粘贴来的。看了李冬梅老师的信息及其特征这堂课发现原来一个小小的点名器可以很好的让学生集中注意力,跟着老师的思路走,所以学一下。
VB写的随机点名器代码
'
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ '1、新建一个工程;
'2、在窗体Form1内放入Label1、Timer1、Command1、Command2四个控件; '3、把以下代码直接复制到你的工程里;
'4、在工程所在的文件夹里新建...
VB写的随机点名器代码
不是我写的,在其它网页上粘贴来的。看了李冬梅老师的信息及其特征这堂课发现原来一个小小的点名器可以很好的让学生集中注意力,跟着老师的思路走,所以学一下。
VB写的随机点名器代码
'
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ '1、新建一个工程;
'2、在窗体Form1内放入Label1、Timer1、Command1、Command2四个控件; '3、把以下代码直接复制到你的工程里;
'4、在工程所在的文件夹里新建一个文本文件“N.txt”,把名字写入文件,一行一个名字。
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'
'代码虽简单,
'为你解忧烦,
'写码伤脑筋,
'占用我一晚;
'每每向钱看,
'钱包总受伤,
'拷完顶一顶,
'就算帮个忙。(这是编程的作者写的,前面挺押韵,也挺有意思,呵呵。) '
Option Explicit
Dim Temp As String
Dim NameTxt(5000) As String '存储从“N.txt”中逐行读取的内容,如果大于5000条
请更改为更大的数字。
Dim i As Long
Dim Lc As Long 'N.txt中的记录总数(文本行数)
Dim x As Long ' 存储随机数
Private Sub Command1_Click()
i = 0
Lc = 0
x = 999999
Open App.Path & "\N.txt" For Input As #1 '数一数“N.txt”中有几个记录。
Do While Not EOF(1)
Line Input #1, Temp
Lc = Lc + 1
NameTxt(Lc) = Temp '把记录写入数组。
Loop
Close #1
If Timer1.Enabled = False Then '控制定时器。
Timer1.Enabled = True Else
Timer1.Enabled = False End If
Command2.Enabled = True
Command1.Enabled = False End Sub
Private Sub Command2_Click()
Randomize '产生记录总数以内的随机数x
x = Int((Lc- 1 + 1) * Rnd + 1)
Command2.Enabled = False End Sub
Private Sub Form_Load()
Timer1.Interval = 100 '改变数字100可以调整滚动速度。
Timer1.Enabled = False
Command2.Enabled = False
Me.Caption = "随机点名"
= "开始滚动" Command1.Caption
Command2.Caption = "停"
Label1.Caption = "名单已准备好" End Sub
Private Sub Timer1_Timer()
i = i + 1
Label1.Caption = i & " " & NameTxt(i) '显示记录
If i = x Then '当滚动随机数x这条记录时停止
i = 0
Command1.Enabled = True
Timer1.Enabled = False
Else
If i = Lc Then i = 0
End If
End Sub
本文档为【VB写的随机点名器代码】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。