vb做的类似打鼹鼠的游戏,简单,十分推荐初学vb 想做游戏的人学习

最新推荐文章于 2021-06-23 21:15:54 发布

原创最新推荐文章于 2021-06-23 21:15:54 发布 · 1.5k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#vb #游戏 #timer #qq #百度

.net 专栏收录该内容

1 篇文章

订阅专栏

vb做的类似打鼹鼠的游戏,简单,十分推荐初学vb 想做游戏的人学习

2007年01月16日 01:26

类似打鼹鼠的游戏 ,每段时间随机更新小球 ,能记录打中和打错的个数

添加一个form1 窗体上添加一个picture控件一个timer

全部代码:

'***********************************************

Dim OneX&, OneY             '每块的长宽
Dim ys(4, 4) As Boolean     '5*5的数组记录是否有鼹鼠
Dim suc&, fail&             '点对和点错的个数
Private Sub Form_Load()
    Me.Show
    OneX = Picture1.Width / 5
    OneY = Picture1.Height / 5
    InitLine
    RefreshCaption
    Timer1_Timer
End Sub
Sub InitLine()
    Dim i&
    For i = 1 To 4
        Picture1.Line (OneX * i, 0)-(OneX * i, Picture1.Height)
    Next
    For i = 1 To 4
        Picture1.Line (0, OneY * i)-(Picture1.Width, OneY * i)
    Next
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim dx&, dy&
    dx = Fix(X / OneX)
    dy = Fix(Y / OneY)
    If dx > 4 Or dy > 4 Then Exit Sub

    If ys(dx, dy) Then
        suc = suc + 1
        ys(dx, dy) = False
    Else
        fail = fail + 1
    End If
    RefreshCaption
    RefreshPic
End Sub

Private Sub RefreshCaption()
Me.Caption = "打中 " & suc & "个打错 " & fail & "个"
End Sub

Private Sub RefreshPic()
    Dim i&, j&
    For j = 0 To 4
        For i = 0 To 4
            If ys(i, j) Then
                Picture1.Circle (i * OneX + OneX / 2, j * OneY + OneY / 2), IIf(OneX > OneY, OneY / 2 - 2, OneX / 2 - 2)
            Else
                Picture1.Line (OneX * i + 1, OneY * j + 1)-(OneX * (i + 1) - 1, OneY * (j + 1) - 1), vbWhite, BF
            End If
        Next
    Next
    InitLine
End Sub

Private Sub Timer1_Timer()
    Randomize
    Dim RndNum&, i&, j&
    For j = 0 To 4
        For i = 0 To 4
            If Int(Rnd * 15) <= 2 Then
                ys(i, j) = True
            End If
        Next
    Next
    RefreshPic
End Sub

'***********************************************

最终效果如下: