• 0

Visual Basic - Board game

Asked by atyemail,

 Share

Question

Enthusiast

atyemail

Posted
Posted

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
 
Link to comment
https://www.neowin.net/forum/topic/1172345-visual-basic-board-game/
Share on other sites

14 answers to this question

Recommended Posts

  • 0
Enthusiast

atyemail

Posted
  • Author
Posted

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

post-503111-0-77315200-1377141702.png

  • 0
Grand Master

Andre S. Veteran

Posted
  • Veteran
Posted
  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
  • 0
Enthusiast

atyemail

Posted
  • Author
Posted 




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







			
		


		

		
	


	

	






	



					
					
					
				

					

					
					





					
					
					
				

					

					
					





					
					
					
				

					

					
					






	
		



	
	
    
	
		
	
		
			
  • 
				
			
    • 
		

			
  • 
				0
			
    • 

		
	
	




	

	

		

			

				

	
		
	

				
				
					
						
Grand Master
					
				
			

		

		

			

				


Andre S.
               
              
              
					Veteran
				
				
				
				
              
              
			

			

				Posted 
				
			

		

   

	
	

		




	

		

			

				
    
					
					
						
  • Veteran
    • 
					
					
					
					
				

			

			
		


		

			Posted  
			
			
				
				
			
		

	


	

    

	

		
		

			

 	
		 									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.


 :)



			
		


		

		
	


	

	






	



					
					
					
				

					

					
					





					
					
					
				

					

					
					





					
					
					
				

					

					
					






	
		



	
	
    
	
		
	
		
			
  • 
				
			
    • 
		

			
  • 
				0
			
    • 

		
	
	




	

	

		

			

				

	
		
	

				
				
					
						
Mentor
					
				
			

		

		

			

				


(Account no longer active)
               
              
              
			

			

				Posted 
				
			

		

   

	
	

		




	

		

			

				
    
					
					
					
					
					
				

			

			
		


		

			Posted  
			
			
				
				
			
		

	


	

    

	

		
		

			

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



			
		


		

		
	


	

	






	



					
					
					
				

					

					
					






	
		



	
	
    
	
		
	
		
			
  • 
				
			
    • 
		

			
  • 
				0
			
    • 

		
	
	




	

	

		

			

				

	
		
	

				
				
					
						
Grand Master
					
				
			

		

		

			

				


Andre S.
               
              
              
					Veteran
				
				
				
				
              
              
			

			

				Posted 
				
			

		

   

	
	

		




	

		

			

				
    
					
					
						
  • Veteran
    • 
					
					
					
					
				

			

			
		


		

			Posted  
			
			
				
				
			
		

	


	

    

	

		
		

			

 	
		 									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.



			
		


		

		
	


	

	






	



					
					
					
				

					

					
					





					
					
					
				

					

					
					






	
		



	
	
    
	
		
	
		
			
  • 
				
			
    • 
		

			
  • 
				0
			
    • 

		
	
	




	

	

		

			

				

	
		
	

				
				
					
						
Grand Master
					
				
			

		

		

			

				


Andre S.
               
              
              
					Veteran
				
				
				
				
              
              
			

			

				Posted 
				
			

		

   

	
	

		




	

		

			

				
    
					
					
						
  • Veteran
    • 
					
					
					
					
				

			

			
		


		

			Posted  
			
			
				
				
			
		

	


	

    

	

		
		

			

 	
		 									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.



			
		


		

		
	


	

	






	



					
					
					
				

					

					
					






	
		



	
	
    
	
		
	
		
			
  • 
				
			
    • 
		

			
  • 
				0
			
    • 

		
	
	




	

	

		

			

				

	
		
	

				
				
					
						
Grand Master
					
				
			

		

		

			

				


+FloatingFatMan
               
              
              
					Subscriber¹
				
				
				
				
              
              
			

			

				Posted 
				
			

		

   

	
	

		




	

		

			

				
    
					
					
						
  • Subscriber¹
    • 
					
					
					
					
				

			

			
		


		

			Posted  
			
			
				
				
			
		

	


	

    

	

		
		

			

 	
		 									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



			
		


		

		
			

		
	


	

	






	



					
					
					
				
			
			



		

	


	
	
	
	
	
		
	

			
				
					


	


	
		
	


	

		

			 This topic is now closed to further replies. 
		
			
		

	



				
			
		

	

	
		

			

				
					


    
          Share
    

    

				
				
                

                


				
			

		

	







	

		
			
				Go to question listing
			
		
	

	




            


	

		
    
			
				
					
					
  • 

    
    
    
        
            Recently Browsing
        
        
          0 members
        
    
    
    
    
        
      
            
                
    • No registered users viewing this page.
      • 
            
        
    
        
    
    

    • 
				
					
					
  •