打靶

介面設計

Image控制項外觀(Picture)設為人形圖案,設為鱷魚,蟑螂或烏龜更好

Timer控制項之interval先設為0,使計時器停止運作

參考程式碼

Public Class Form1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = True
        Timer1.Interval = 1000        '每1秒變換1次位置, 你可設更短的時間已增加難度
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Button1.Left = Rnd() * Me.Width     'Rnd()產生0-1間的亂數
        Button1.Top = Rnd() * Me.Height
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("打中了!")

        Timer1.Enabled = False
    End Sub
End Class

<試看看>

1. 將MsgBox內容改為擊中所花費的時間與次數

Public Class Form1

    Dim Start_time As Single, total_time As Single, hit As Integer
    

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = True
        Timer1.Interval = 1000        '每1秒變換1次位置, 你可設更短的時間已增加難度
        Start_time = Microsoft.VisualBasic.Timer
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        End
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Button1.Left = Rnd() * Me.Width     'Rnd()產生0-1間的亂數
        Button1.Top = Rnd() * Me.Height
    End Sub

    Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
        hit += 1
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        total_time = Microsoft.VisualBasic.Timer - Start_time
        Timer1.Enabled = False
        MsgBox("總費時" & Str(total_time) & "秒" & vbCrLf & "總共按了" & Str(hit) & "下")
    End Sub

End Class