VB打地鼠游戏.doc

Form1:Private Sub Form_Load()Dim temp As IntegerRandomizetemp = Int(Rnd * 3) + 1Form1.Picture = LoadPicture(C:UsersAdministratorDesktop打地鼠picture & temp & .jpg)WindowsMediaPlayer1.URL = C:UsersAdministratorDesktop打地鼠Heavens Devils.wmaEnd SubPrivate Sub Label1_Click()Form2.ShowForm2.num = -1Form1.HideWindowsMediaPlayer1.URL = Open C:UsersAdministratorDesktop打地鼠primary.dat For Append As #1 写操作 Close #1Open C:UsersAdministratorDesktop打地鼠intermediate.dat For Append As #2Close #2Open C:UsersAdministratorDesktop打地鼠advanced.dat For Append As #3Close #3End SubPrivate Sub Label2_Click()EndEnd SubForm2:Dim allnum As Integer, oknum As Integer 定义变化次数 打中次数Public num As Integer 判别是否第一次开始游戏Dim flags1 As Boolean 判别文件是否保存Public flags As Boolean 判别是否播放声音Private Sub countine_Click()pause.Enabled = TrueTimer1.Enabled = Truecountine.Enabled = FalseWLXZ.Enabled = TrueEnd SubPrivate Sub exit_Click()Dim X As IntegerDim tt As IntegerX = MsgBox(是否真的退出？, vbYesNo, 退出游戏框)If X = 6 Then tt = MsgBox(退出游戏之前,是否保存, vbYesNo, 保存提示) If tt = 6 Then If flags1 = True Then End Else If Timer1.Interval = 1000 Then Open C:UsersAdministratorDesktop打地鼠primary.dat For Append As #1 写操作 Print #1, Text1.Text + + Format(Date, M/d/yy) Close #1 ElseIf Timer1.Interval = 500 Then Open C:UsersAdministratorDesktop打地鼠intermediate.dat For Append As #2 Print #2, Text1.Text + + Format(Date, M/d/yy) Close #2 Else Open C:UsersAdministratorDesktop打地鼠advanced.dat For Append As #3 Print #3, Text1.Text + + Format(Date, M/d/yy) Close #3 End If End If End If EndEnd IfEnd SubPrivate Sub Form_Load()Form4.Check1.Value = 1WindowsMediaPlayer1.Controls.stopcountine.Enabled = Falsepause.Enabled = FalseWLXZ.Enabled = FalseForm5.Top = Form2.Top + 700Form5.Left = Form2.Leftflags1 = Falseflags = TrueEnd SubPrivate Sub help_Click()Form3.ShowEnd SubPrivate Sub new_game_Click()num = num + 1Dim t As IntegerIf (num 0) Then t = MsgBox(新游戏开始之前,是否保存, vbYesNo, 保存提示) If t = 6 Then flags1 = True If Timer1.Interval = 1000 Then Open C:UsersAdministratorDesktop打地鼠primary.dat For Append As #1 写操作 Print #1, Text1.Text + + Format(Date, M/d/yy) Close #1 ElseIf Timer1.Interval = 500 Then Open C:UsersAdministratorDesktop打地鼠intermediate.dat For Append As #2 Print #2, Text1.Text + + Format(Date, M/d/yy) Close #2 Else Open C:UsersAdministratorDesktop打地鼠advanced.dat For Append As #3 Print #3, Text1.Text + + Format(Date, M/d/yy) Close #3 End If End If End If Call Form_Load allnum = 0 变化次数初始为0 oknum = 0 打中次数初始为0Timer1.Enabled = Truepause.Enabled = TrueWLXZ.Enabled = TrueEnd SubPrivate Sub options_Click()Timer1.Enabled = FalseForm4.ShowWLXZ.Enabled = Falsecountine.Enabled = TrueEnd SubPrivate Sub pause_Click()Dim r, g, b As IntegerTimer1.Enabled = Falsecountine.Enabled = Truepause.Enabled = FalseWLXZ.Enabled = FalseForm5.Top = Form2.Top + 700Form5.Left = Form2.LeftForm5.Showr = Rnd * 255g = Rnd * 255b = Rnd * 255Form5.BackColor = RGB(r, g, b)End SubPrivate Sub Picture1_Click(Index As Integer) If Picture1(Index).Visible = True Then Picture1(Index).Picture = Src.Picture1.Picture 击晕图显示 If flags = True Then WindowsMediaPlayer1.Controls.play End If End If oknum = oknum + 1 打中次数+1End SubPrivate Sub statistics_Click()Form5.ShowWLXZ.Enabled = Falsecountine.Enabled = TrueEnd SubPrivate Sub record_Click()Form6.ShowEnd SubPrivate Sub Timer1_Timer()Dim I As IntegerText1.Text = oknum & / & allnum 打印得分 allnum = allnum + 1 变化次数值+1 For I = 0 To 23 Picture1(I).Visible = False 地鼠消失 Picture1(I).Picture = Src.Picture2.PictureNext Randomize Picture1(Int(Rnd() * 23).Visible = True 随机函数控制地鼠图片显示End SubForm4:Private Sub Check1_Click()If Check1.Value = 1 Then flags = TrueElse flags = FalseEnd IfEnd SubPrivate Sub Form_Load()Option1.Value = TrueCheck1.Value = 1End SubPrivate Sub Option1_Click()Form2.Timer1.Interval = 1000 初级End SubPrivate Sub Option2_Click()Form2.Timer1.Interval = 500 中级End SubPrivate Sub Option3_Click()Form2.Timer1.Interval = 250 高级End SubForm5:Private Sub Form_LostFocus()Form5.HideEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Form5.HideEnd SubPrivate Sub Timer1_Timer() 泡泡屏幕保护Dim X, Y, r, g, b, radiusX = Rnd * Form5.WidthY = Rnd * Form5.Heightr = Rnd * 255g = Rnd * 255b = Rnd * 255radius = Rnd * 800Form5.Circle (X, Y), radius, RGB(r, g, b)End SubPrivate Sub Timer2_Timer()Form5.ClsEnd SubForm6:Private Sub List1_Click()Text1.Text = If List1.Selected(0) = True Then Open C:UsersAdministratorDesktop打地鼠primary.dat For Input As #1 Text1.Text = Input(LOF(1), #1) Close #1ElseIf List1.Selected(1) = True Then Text1.Text = ElseIf List1.Selected(2) = True Then Open C:UsersAdministratorDesktop打地鼠i