忍者ブログ
[1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11]
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

Dim misskazu As Integer
Dim keyrnd As Integer
Dim st
Dim okkazu As Integer

Private Sub cmdend_Click()
End
End Sub

Private Sub cmdstart_Click()
okkazu = 0
st = Timer
frmkeytype.KeyPreview = True
Timer1.Enabled = True
Call rndkey
End Sub

Private Sub Form_Load()
Randomize
End Sub

Private Sub Timer1_Timer()
t = Timer - st
If t > 20 Then
Timer1.Enabled = False
frmkeytype.KeyPreview = False
If okkazu > 20 Then
MsgBox "あなたは優秀です!", 64, "結果"
ElseIf okkazu > 10 And okkazu < 20 Then
MsgBox "まあまあですね!", 64, "結果"
ElseIf okkazu < 10 Then
MsgBox "もう少し練習してね!", 64, "結果"
End If
End If
End Sub

Private Sub Form_keypress(keyascii As Integer)
If keyascii = keyrnd Then
okkazu = okkazu + 1
lblokkazu.Caption = okkazu
Call rndkey
Else
misskazu = misskazu + 1
lblmisskazu.Caption = misskazu
Call rndkey
End If
End Sub

Private Sub rndkey()
keyrnd = Int(Rnd * 26) + 97
lblkey.Caption = Chr(keyrnd)
End Sub
PR


忍者ブログ [PR]