Visual Basic - Board game

[atyemail]

This is what i have done so far and also wit my friend helps so we have created the layer and the look of a board game that we are assigned to 

we have 2buttons - 1 for player 1 roll - and the second one is for player 2 roll and we wan to do it player 1 turn then player 2 turn and repeat again but the thing is that at the moment me and my friend are stuck because we do not know the code on how to start the player 1 and player 2 button so this is the code we made so far:

 

Option Strict On

Option Explicit On

Public Class frmBoard

 

    Dim lblArray(35) As Label           'array of labels that make up the game board

    Dim intRules(35) As Integer         'parallel array containing rules for the squares corresponding to lblArray entries

 

    Dim blnP1Turn As Boolean = True     'switches indicating whose turn it is

    Dim blnP2Turn As Boolean = False

    Dim intP1Position As Integer        'position of player 1 on board

    Dim intP2Position As Integer        'position of player 2 on board

    Dim blnDoubleOccupancy As Boolean = False   'True if both players on same square

 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'This is the size of each square (Label) in the game

        Const intSQUARE_SIZE As Integer = 40

        ' this is the array of labels that make up the game board

 

 

        'This for..Next Loop sets properties of each label in the array. The Select..Case statement

        'places the labels around the edges of the form 

        For intCount = 0 To 35

            lblArray(intCount) = New Label

            lblArray(intCount).Size = New System.Drawing.Size(intSQUARE_SIZE, intSQUARE_SIZE)

            lblArray(intCount).BorderStyle = BorderStyle.FixedSingle

            lblArray(intCount).Name = "lbl" & intCount

            lblArray(intCount).Visible = True

 

            'The following line display the array index on each square

            'You probably will want to comment it out

            lblArray(intCount).Text = intCount.ToString

 

            Select Case intCount

                Case Is < 10

                    lblArray(intCount).Location = New System.Drawing.Point(intSQUARE_SIZE * intCount, 0)

                Case 10 To 18

                    lblArray(intCount).Location =

                        New System.Drawing.Point(intSQUARE_SIZE * 9, intSQUARE_SIZE * (intCount - 9))

                Case 19 To 27

                    lblArray(intCount).Location =

                        New System.Drawing.Point(intSQUARE_SIZE * 9 - intSQUARE_SIZE * (intCount - 18), intSQUARE_SIZE * 9)

                Case 28 To 35

                    lblArray(intCount).Location =

                        New System.Drawing.Point(0, intSQUARE_SIZE * 9 - intSQUARE_SIZE * (intCount - 27))

            End Select

            ' Set colors of the labels

            Select Case intCount Mod 5

                Case 0

                    lblArray(intCount).BackColor = Color.Aqua

                Case 1

                    lblArray(intCount).BackColor = Color.BlueViolet

                    lblArray(intCount).ForeColor = Color.White

 

                Case 2

                    lblArray(intCount).BackColor = Color.DarkOrchid

                Case 3

                    lblArray(intCount).BackColor = Color.HotPink

                Case 4

                    lblArray(intCount).BackColor = Color.Green

                    lblArray(intCount).ForeColor = Color.White

            End Select

            Controls.Add(lblArray(intCount))

        Next

 

        'Initialize special squares

        SetRules()

 

 

 

    End Sub

    Private Sub SetRules()

        'Initialize special squares

        lblArray(0).Text = "Start"

        lblArray(lblArray.Length - 1).Text = "Finish Line"

 

        lblArray(7).Text = "2 steps back"

        intRules(7) = -2

 

        lblArray(13).Text = "1 step forward"

        intRules(13) = 1

 

        lblArray(19).Text = "2 steps forward"

        intRules(19) = 2

 

        lblArray(32).Text = "1 step back"

        intRules(32) = -1

    End Sub

 

    Private Sub btnPlayer1_Click(sender As Object, e As EventArgs) Handles btnPlayer1.Click

 

    End Sub

 

    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click

        End

    End Sub

 Private Sub btnPlayer2_Click(sender As Object, e As EventArgs) Handles btnPlayer2.Click

 

    End Sub

End Class

 

[atyemail]

Okay so basically we need to create a model of any board game and consist of 2 buttons like basically there are 2 plyers playing the game where the first person click the player 1 button and will automatically generate random number 1-12 and same goes for the second player this is the picture what it should look like i have manage to make all the model but i just need to function and to connect it with the button which i do not really get it

[Andre S. Veteran]

  On 22/08/2013 at 01:27, atyemail said:

how to start the player 1 and player 2 button

What do you mean by "start the player 1 and player 2 button"? 

 

Also, please use code tags to post code. Like this:

If YouUseCodeTags Then
    Me.readability = Readability.Good
Else
    Me.readability = Readability.MyEyesItHurts
End

[atyemail]

hmm okay wait

[atyemail]

Option Strict On

Option Explicit On

Public Class frmBoard

Dim lblArray(35) As Label 'array of labels that make up the game board

Dim intRules(35) As Integer 'parallel array containing rules for the squares corresponding to lblArray entries

Dim blnP1Turn As Boolean = True 'switches indicating whose turn it is

Dim blnP2Turn As Boolean = False

Dim intP1Position As Integer 'position of player 1 on board

Dim intP2Position As Integer 'position of player 2 on board

Dim blnDoubleOccupancy As Boolean = False 'True if both players on same square

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'This is the size of each square (Label) in the game

Const intSQUARE_SIZE As Integer = 40

' this is the array of labels that make up the game board

'This for..Next Loop sets properties of each label in the array. The Select..Case statement

'places the labels around the edges of the form

For intCount = 0 To 35

lblArray(intCount) = New Label

lblArray(intCount).Size = New System.Drawing.Size(intSQUARE_SIZE, intSQUARE_SIZE)

lblArray(intCount).BorderStyle = BorderStyle.FixedSingle

lblArray(intCount).Name = "lbl" & intCount

lblArray(intCount).Visible = True

'The following line display the array index on each square

'You probably will want to comment it out

lblArray(intCount).Text = intCount.ToString

Select Case intCount

Case Is < 10

lblArray(intCount).Location = New System.Drawing.Point(intSQUARE_SIZE * intCount, 0)

Case 10 To 18

lblArray(intCount).Location =

New System.Drawing.Point(intSQUARE_SIZE * 9, intSQUARE_SIZE * (intCount - 9))

Case 19 To 27

lblArray(intCount).Location =

New System.Drawing.Point(intSQUARE_SIZE * 9 - intSQUARE_SIZE * (intCount - 18), intSQUARE_SIZE * 9)

Case 28 To 35

lblArray(intCount).Location =

New System.Drawing.Point(0, intSQUARE_SIZE * 9 - intSQUARE_SIZE * (intCount - 27))

End Select

' Set colors of the labels

Select Case intCount Mod 5

Case 0

lblArray(intCount).BackColor = Color.Aqua

Case 1

lblArray(intCount).BackColor = Color.BlueViolet

lblArray(intCount).ForeColor = Color.White

Case 2

lblArray(intCount).BackColor = Color.DarkOrchid

Case 3

lblArray(intCount).BackColor = Color.HotPink

Case 4

lblArray(intCount).BackColor = Color.Green

lblArray(intCount).ForeColor = Color.White

End Select

Controls.Add(lblArray(intCount))

Next

'Initialize special squares

SetRules()

End Sub

Private Sub SetRules()

'Initialize special squares

lblArray(0).Text = "Start"

lblArray(lblArray.Length - 1).Text = "Finish Line"

lblArray(7).Text = "2 steps back"

intRules(7) = -2

lblArray(13).Text = "1 step forward"

intRules(13) = 1

lblArray(19).Text = "2 steps forward"

intRules(19) = 2

lblArray(32).Text = "1 step back"

intRules(32) = -1

End Sub

Private Sub btnPlayer1_Click(sender As Object, e As EventArgs) Handles btnPlayer1.Click

End Sub

Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click

End

End Sub

Private Sub btnPlayer2_Click(sender As Object, e As EventArgs) Handles btnPlayer2.Click

End Sub

End Class

[atyemail]

i think above is the code tag right?

[astropheed Veteran]

Asik has the patience of a Saint.

[Andre S. Veteran]

  On 22/08/2013 at 02:36, atyemail said:

i think above is the code tag right?

Yes. You could have just edited your original post but that's ok. Now what do you mean by "start the player 1 and player 2 button"?

 

  On 22/08/2013 at 02:41, astropheed said:

Asik has the patience of a Saint.

:)

[soccerstar206]

They want to build the program so a random number will be generated from a dice (1-6) and each player will move that many spaces until they reach the finish line. Attached is the finished .exe  

candy land game.zipFetching info...

[atyemail]

yes that would be the final result

[(Account no longer active)]

All modern programming languages have functions to generate random numbers - including Visual Basic:

' Initialize the random-number generator.
Randomize()
' Generate random value between 1 and 6. 
Dim value As Integer = CInt(Int((6 * Rnd()) + 1))

More info at: http://msdn.microsoft.com/en-us/library/f7s023d2%28v=vs.90%29.aspx

[Andre S. Veteran]

  On 22/08/2013 at 03:21, atyemail said:

Okay so basically we need to create a model of any board game and consist of 2 buttons like basically there are 2 plyers playing the game where the first person click the player 1 button and will automatically generate random number 1-12 and same goes for the second player this is the picture what it should look like i have manage to make all the model but i just need to function and to connect it with the button which i do not really get it

I take it this is Winforms? Open the visual designer, select the button, in the properties window find the "Click" event. Add an event handler, it'll automatically add the code and create the method stub. Then you just implement the method.

 

It's also possible to do this purely in code but it's much more convenient to use the designer view.

[atyemail]

it's winforms and i am at the click event and what you mean by add event handler?

[Andre S. Veteran]

  On 22/08/2013 at 04:28, atyemail said:

it's winforms and i am at the click event and what you mean by add event handler?

Next to the event name is an empty box with a drop down, just double-click the box. Double-clicking the button itself also creates an event handler connected to the Click event.

[+FloatingFatMan Subscriber¹]

  On 22/08/2013 at 04:28, atyemail said:

it's winforms and i am at the click event and what you mean by add event handler?

 

No offence, but you -really- need to invest in a decent book to help you... These questions you're asking are really really basic, and a good book would go a long way towards helping you understand the concepts.

 

Without that understanding, you'll never be any good as a programmer.  Also, as you're right at the start of learning, I'd strongly advise you go with a more mainstream language like C# or Java.  There are precious few jobs in the world for VB.Net