Go4Expert

Go4Expert (http://www.go4expert.com/)
-   Visual Basic ( VB ) (http://www.go4expert.com/forumdisplay.php?f=22)
-   -   VB question (http://www.go4expert.com/showthread.php?t=14545)

7flint7 14Oct2008 22:08
VB question
 
in my programming class we r making a simple game.
the point of the game is to press as many buttons as possible in sertain amount of time,
X is represented as the buttons. but idk how to assign the buttons to be X. there are currently 20 buttons atm.
some of the code and 1 button as following:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If x < 10 Then
Form2.Visible = True
Me.Timer1.Stop()
Me.Timer2.Stop()


End If
End Sub
-----------------------------------------------------------------------
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If x > 10 Then
Form3.Visible = True
Me.Timer1.Stop()
Me.Timer2.Stop()

End If
End Sub
-----------------------------------------------------------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Button1.Dispose()

oogabooga 15Oct2008 04:19
Re: VB question
 
Surely you can explain your problem better than that!
For example, this:
"X is represented as the buttons."
is senseless, along with things like "r", "idk",
and "atm" (do you need cash?).

mbshinde78 15Oct2008 16:01
Re: VB question
 
Hi,

Why not give us your source code whatever written?

If you have written game logic then please give it to us too.

Cheers

pradeep 15Oct2008 16:52
Re: VB question
 
Your query is very vague, please post your code.

7flint7 15Oct2008 22:28
Re: VB question
 
i did put the code.
that is all i have i havent been able to move foward with out letting the application know that the buttons represent X. ill repost the entire code when i use the computer which i made the game on. im new at this and its a class work/mini project...
i shall repose the code asap. thank you

7flint7 15Oct2008 22:36
Re: VB question
 
code:

Code:
Public Class Form1

    Dim x As Integer
    Dim button(19) As Application


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If x < 10 Then
            Form2.Visible = True
            Me.Timer1.Stop()
            Me.Timer2.Stop()


        End If
    End Sub
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If x > 10 Then
            Form3.Visible = True
            Me.Timer1.Stop()
            Me.Timer2.Stop()

        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Dispose()






    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Button2.Dispose()

    End Sub

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

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Button4.Dispose()

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Button5.Dispose()

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Button6.Dispose()

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Button7.Dispose()

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Button8.Dispose()

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Button9.Dispose()

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Button10.Dispose()

    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        Button11.Dispose()

    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Button12.Dispose()

    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        Button13.Dispose()

    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        Button14.Dispose()

    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        Button15.Dispose()

    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        Button16.Dispose()

    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        Button17.Dispose()

    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        Button18.Dispose()

    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        Button19.Dispose()

    End Sub

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        Button20.Dispose()

    End Sub
End Class


All times are GMT +5.5. The time now is 19:20.