記憶考驗

小弟之前的寒假作業...做記憶考驗
等各位下載玩過就知道了...

有人願意幫忙編修程式或提供美美的照片pm小弟喔

Dim X(6), U, D, L, R, W, S, Su, Qu

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode
Case 32
S = S + 1
W = 1
U = 0
D = 0
L = 0
R = 0
Case 37
S = S + 1
W = 0
U = 0
D = 0
L = 1
R = 0
Case 38
S = S + 1
W = 0
U = 1
D = 0
L = 0
R = 0
Case 39
S = S + 1
W = 0
U = 0
D = 0
L = 0
R = 1
Case 40
S = S + 1
W = 0
U = 0
D = 1
L = 0
R = 0
End Select
End Sub


Private Sub Form_Load()
Qu = 50
Randomize
End Sub

Private Sub Form_Unload(Cancel As Integer)
End
End Sub

Private Sub mnuItem作者_Click()
Load Form2
Form2.Show

End Sub

Private Sub mnuItem玩法_Click()

BUTTON = MsgBox("當按下開始鍵後程式會跑出六組亂數,使用者需依照亂數指示輸入上下左右空白鍵,第一次出現時請使用者記住順序並在消失後開始輸入,第一次等待時間三秒,第二次輸入時間為10秒", vbInformation, "使用訊息")

End Sub

Private Sub mnuopen_Click()
'開始控制
Timer2.Enabled = False
Timer2.Interval = 0
Timer4.Enabled = False
Timer4.Interval = 0

Timer3.Interval = 1

End Sub

Private Sub Timer1_Timer()
If S = 1 Then

If X(0) = "上" And U = 1 Then

Label3 = "上"

ElseIf X(0) = "下" And D = 1 Then

Label3 = "下"

ElseIf X(0) = "左" And L = 1 Then

Label3 = "左"

ElseIf X(0) = "右" And R = 1 Then

Label3 = "右"

ElseIf X(0) = "空白鍵" And W = 1 Then

Label3 = "空白鍵"

Else

Timer2.Enabled = False
Timer2.Interval = 0
Timer4.Enabled = False
Timer4.Interval = 0

BUTTON = MsgBox("錯了錯了唷..呵呵", vbCritical + vbSystemModal, "錯誤訊息")

Timer3.Interval = 100

End If

End If

If S = 2 Then

If X(1) = "上" And U = 1 Then

Label4 = "上"

ElseIf X(1) = "下" And D = 1 Then

Label4 = "下"

ElseIf X(1) = "左" And L = 1 Then

Label4 = "左"

ElseIf X(1) = "右" And R = 1 Then

Label4 = "右"

ElseIf X(1) = "空白鍵" And W = 1 Then

Label4 = "空白鍵"

Else

Timer2.Enabled = False
Timer2.Interval = 0
Timer4.Enabled = False
Timer4.Int ..

訪客只能看到部份內容，免費 加入會員

x0

幫你補張圖片...突然覺得這各不錯玩..
呵呵..動動腦看有沒有更難的~

x0

下面是引用codeboy於2005-03-8 09:00發表的 :
幫你補張圖片...突然覺得這各不錯玩..
呵呵..動動腦看有沒有更難的~

有吧！
我是參考一個RPG做的
忘了遊戲名字了

他是用聲音念出來...然後固定的動畫下去配合
由於我的聲音不好聽&畫畫很濫 只能用文字代替

x0

謝謝分享~這題我去考試有類似題目~等有空我在傳上來給樓主看看!

x0