求vb高手帮做个打字游戏
①程序开始时,用户需输入用户名方可开始打字练习,并可自行设置练习的难度与打字的速度。难度可分为“小写字母”、“大小写字母”和“所有字符”,速度可分为“快”、“中”和“慢”...
① 程序开始时,用户需输入用户名方可开始打字练习,并可自行设置练习的难度与打字的速度。难度可分为“小写字母”、“大小写字母”和“所有字符”,速度可分为“快”、“中”和“慢”。
② 开始练习时,屏幕会随机产生各种字符,并从屏幕上方落到下方。在字符落到屏幕底部之前,在键盘上按对相应出现的字符,则该字符消失,并同时产生爆炸声,程序会根据速度和难度的设置自动记录分数并显示在窗口的顶部。
③ 打字练习的过程中,屏幕的顶部显示已用的时间和当前的分数。 ④ 用户可查看自己的历史成绩,并可对系统中已保存的成绩进行排序,显示出排行榜的信息。
发到kkrbd@163.com
vb加access 展开
② 开始练习时,屏幕会随机产生各种字符,并从屏幕上方落到下方。在字符落到屏幕底部之前,在键盘上按对相应出现的字符,则该字符消失,并同时产生爆炸声,程序会根据速度和难度的设置自动记录分数并显示在窗口的顶部。
③ 打字练习的过程中,屏幕的顶部显示已用的时间和当前的分数。 ④ 用户可查看自己的历史成绩,并可对系统中已保存的成绩进行排序,显示出排行榜的信息。
发到kkrbd@163.com
vb加access 展开
1个回答
展开全部
我可以给你一个小例子!
如果你要全部按照你的要求完成,你得花钱找人做了!~
例子程序可以去我资料里找我网盘的地址,然后在里面可以找到Tpying.rar
Option Explicit
Dim score As Integer
Dim speed As Integer
Dim Wrong As Integer
Sub init()
Label1.Caption = Chr(Int(Rnd * 26) + 49)
speed = Int(Rnd * 100 + Val(Label7.Text))
Label1.Left = Int(Rnd * Frame1.Width)
Label1.Top = Frame1.Top
Wrong = Wrong + 1
End Sub
Private Sub Command1_Click()
Wrong = 0
score = 0
init
Timer1.Enabled = True
Timer2.Enabled = True
Command1.Visible = False
Label4.Caption = 0
Label5.Enabled = False
Label7.Enabled = False
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = Label1.Caption Then
init
score = score + 1
Label4.Caption = score
End If
End Sub
Private Sub Form_Load()
Randomize
Timer1.Enabled = False
Timer2.Enabled = False
End Sub
Private Sub Timer1_Timer()
Label1.Top = Label1.Top + speed
If Label1.Top > Frame1.Height Then
init
End If
End Sub
Private Sub Timer2_Timer()
Label5.Text = Val(Label5.Text) - 1
If Val(Label5.Text) <= 0 Then
Timer1.Enabled = False
Label1.Caption = ""
MsgBox (score / Wrong) * 100 & "%"
Command1.Visible = True
Label4.Caption = 0
Label5.Text = 60
Label5.Enabled = True
Label7.Enabled = True
Timer1.Enabled = False
Timer2.Enabled = False
End If
End Sub
如果你要全部按照你的要求完成,你得花钱找人做了!~
例子程序可以去我资料里找我网盘的地址,然后在里面可以找到Tpying.rar
Option Explicit
Dim score As Integer
Dim speed As Integer
Dim Wrong As Integer
Sub init()
Label1.Caption = Chr(Int(Rnd * 26) + 49)
speed = Int(Rnd * 100 + Val(Label7.Text))
Label1.Left = Int(Rnd * Frame1.Width)
Label1.Top = Frame1.Top
Wrong = Wrong + 1
End Sub
Private Sub Command1_Click()
Wrong = 0
score = 0
init
Timer1.Enabled = True
Timer2.Enabled = True
Command1.Visible = False
Label4.Caption = 0
Label5.Enabled = False
Label7.Enabled = False
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = Label1.Caption Then
init
score = score + 1
Label4.Caption = score
End If
End Sub
Private Sub Form_Load()
Randomize
Timer1.Enabled = False
Timer2.Enabled = False
End Sub
Private Sub Timer1_Timer()
Label1.Top = Label1.Top + speed
If Label1.Top > Frame1.Height Then
init
End If
End Sub
Private Sub Timer2_Timer()
Label5.Text = Val(Label5.Text) - 1
If Val(Label5.Text) <= 0 Then
Timer1.Enabled = False
Label1.Caption = ""
MsgBox (score / Wrong) * 100 & "%"
Command1.Visible = True
Label4.Caption = 0
Label5.Text = 60
Label5.Enabled = True
Label7.Enabled = True
Timer1.Enabled = False
Timer2.Enabled = False
End If
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询