[tseilheimer]

Hello all,

I'm creating a basketball game and I have two teams of five players each. Each player has an offensive rank (8-10), a defensive rank (8-10) and a scoring percentage (55-80). I'm trying to code the program to assign each player their stats by random. My problem is that I'm getting the same number for each player. Here's my code, can anyone help me figure out what I'm doing wrong? Thanks!!

This is just the code for the first team's offensive rank:

Dim offensiverank1 As Integer
		Dim offensiverank2 As Integer
		Dim offensiverank3 As Integer
		Dim offensiverank4 As Integer
		Dim offensiverank5 As Integer
		Dim randomgenerator1 As New Random
		Dim randomgenerator2 As New Random
		Dim randomgenerator3 As New Random
		Dim randomgenerator4 As New Random
		Dim randomgenerator5 As New Random
		offensiverank1 = randomgenerator1.Next(8, 11)
		offensiverank2 = randomgenerator2.Next(8, 11)
		offensiverank3 = randomgenerator3.Next(8, 11)
		offensiverank4 = randomgenerator4.Next(8, 11)
		offensiverank5 = randomgenerator5.Next(8, 11)
		Label37.Text = Convert.ToString(offensiverank1)
		Label40.Text = Convert.ToString(offensiverank2)
		Label41.Text = Convert.ToString(offensiverank3)
		Label42.Text = Convert.ToString(offensiverank4)
		Label43.Text = Convert.ToString(offensiverank5)

[ferrari12508]

there is a tutorial on this in the tutorial section.

[tseilheimer]

Thanks but I already read the tutorial on nonrepeating random numbers. I don't care if they repeat or if some of the numbers are the same. My problem is that all of the numbers are the same and I don't want that. I have 5 players and only three numbers to pick from (8-10) so I can't use a code that won't give me some of the same numbers, I just don't want all 5 players to have the exact same.

ferrari12508, on 12 Dec, 2007 - 07:57 PM, said:

there is a tutorial on this in the tutorial section.

[El Barto]

I seem to have the same problem. Can anyone please explain how I can make it such that when I click the generate button it makes each player's ranking and shooting percentage different? As of now, for example, it does this:

Offensive rating is: 7
Defensive rating is: 7
Shooting percentage is: 80

...only it displays this for each player, which isn't desired since each player can/should be different. One can then click the generate button and it would display, as another example:

Offensive rating is: 9
Defensive rating is: 9
Shooting percentage is: 59

..for every player. How does one make it different for each player as well as different ratings (like above where offensive and defensive are the same)?

NumPlayerOneAOffense = RandomOneAOffense.Next(8, 11)
		NumPlayerOneADefense = RandomOneADefense.Next(8, 11)
		OneAPercent = RandomOneAPercent.Next(55, 81)

		LabelOne.Text = "Offensive rating is: " & NumPlayerOneAOffense & vbNewLine & "Defensive rating is: " & NumPlayerOneADefense & vbNewLine & "Shooting percentage is: " & OneAPercent

		NumPlayerTwoAOffense = RandomTwoAOffense.Next(8, 11)
		TwoAPercent = RandomTwoAPercent.Next(55, 81)
		NumPlayerTwoADefense = RandomTwoADefense.Next(8, 11)

		LabelTwo.Text = "Offensive rating is: " & NumPlayerTwoAOffense & vbNewLine & "Defensive rating is: " & NumPlayerTwoADefense & vbNewLine & "Shooting percentage is: " & TwoAPercent

		NumPlayerThreeAOffense = RandomThreeAOffense.Next(8, 11)
		ThreeAPercent = RandomThreeAPercent.Next(55, 81)
		NumPlayerThreeADefense = RandomThreeADefense.Next(8, 11)

		LabelThree.Text = "Offensive rating is: " & NumPlayerThreeAOffense & vbNewLine & "Defensive rating is: " & NumPlayerThreeADefense & vbNewLine & "Shooting percentage is: " & ThreeAPercent

		NumPlayerFourAOffense = RandomFourAOffense.Next(8, 11)
		FourAPercent = RandomFourAPercent.Next(55, 81)
		NumPlayerFourADefense = RandomFourADefense.Next(8, 11)

		LabelFour.Text = "Offensive rating is: " & NumPlayerFourAOffense & vbNewLine & "Defensive rating is: " & NumPlayerFourADefense & vbNewLine & "Shooting percentage is: " & FourAPercent

		NumPlayerFiveAOffense = RandomFiveAOffense.Next(8, 11)
		FiveAPercent = RandomFiveAPercent.Next(55, 81)
		NumPlayerFiveADefense = RandomFiveADefense.Next(8, 11)

		LabelFive.Text = "Offensive rating is: " & NumPlayerFiveAOffense & vbNewLine & "Defensive rating is: " & NumPlayerFiveADefense & vbNewLine & "Shooting percentage is: " & FiveAPercent


		NumPlayerOneBOffense = RandomOneBOffense.Next(8, 11)
		OneBPercent = RandomOneBPercent.Next(55, 81)
		NumPlayerOneBDefense = RandomOneBDefense.Next(8, 11)

		LabelSix.Text = "Offensive rating is: " & NumPlayerOneBOffense & vbNewLine & "Defensive rating is: " & NumPlayerOneBDefense & vbNewLine & "Shooting percentage is: " & OneBPercent

		NumPlayerTwoBOffense = RandomTwoBOffense.Next(8, 11)
		TwoBPercent = RandomTwoBPercent.Next(55, 81)
		NumPlayerTwoBDefense = RandomTwoBDefense.Next(8, 11)

		LabelSeven.Text = "Offensive rating is: " & NumPlayerTwoBOffense & vbNewLine & "Defensive rating is: " & NumPlayerTwoBDefense & vbNewLine & "Shooting percentage is: " & TwoBPercent

		NumPlayerThreeBOffense = RandomThreeBOffense.Next(8, 11)
		ThreeBPercent = RandomThreeBPercent.Next(55, 81)
		NumPlayerThreeBDefense = RandomThreeBDefense.Next(8, 11)

		LabelEight.Text = "Offensive rating is: " & NumPlayerThreeBOffense & vbNewLine & "Defensive rating is: " & NumPlayerThreeBDefense & vbNewLine & "Shooting percentage is: " & ThreeBPercent

		NumPlayerFourBOffense = RandomFourBOffense.Next(8, 11)
		FourBPercent = RandomFourBPercent.Next(55, 81)
		NumPlayerFourBDefense = RandomFourBDefense.Next(8, 11)

		LabelNine.Text = "Offensive rating is: " & NumPlayerFourBOffense & vbNewLine & "Defensive rating is: " & NumPlayerFourBDefense & vbNewLine & "Shooting percentage is: " & FourBPercent

		NumPlayerFiveBOffense = RandomFiveBOffense.Next(8, 11)
		FiveBPercent = RandomFiveBPercent.Next(55, 81)
		NumPlayerFiveBDefense = RandomFiveBDefense.Next(8, 11)

		LabelTen.Text = "Offensive rating is: " & NumPlayerFiveBOffense & vbNewLine & "Defensive rating is: " & NumPlayerFiveBDefense & vbNewLine & "Shooting percentage is: " & FiveBPercent

	End Sub

[xtreampb]

well when you define a random number use:

randomize()
number_being_assigned=int(max_num*rnd()+min_num)

so in your case it should look somthing like this (i think)

randomize()
player1defstat=int(10*rnd()+8)

when i made my blackjack game i had defined each and every card individually like

randomize()
ccard1=int(10*rnd()+1)
ccard2=int(10*rnd()+1)
ccard3=int(10*rnd()+1)
...

i dont know of another way of doing it so i did it this way. it works, so it is all good

hope this helps

~Xtreampb

This post has been edited by xtreampb: 20 May 2008 - 03:24 PM

[El Barto]

Thank you xtreampb. I had to tweak it a little. For some reason whenever I entered (like in your example):

randomize()
player1defstat=int(10*rnd()+8)

It would give me the lowest number of 8 but the highest number would be the two added up (took 8 and added 10 to make it 18). So I made it such that the lowest number became whatever was needed for it to add up to the highest:

For example:

NumPlayerFourBOffense = Int(Rnd() * 4) + 8

(Takes 4 and adds it to 8)...as well as...

FourBPercent = Int(Rnd() * 26) + 55

(Takes 26 and adds it to 55). It works even though it looks weird in my opinion. But I couldn't have done it without your help, I really appreciate it.

This post has been edited by El Barto: 20 May 2008 - 06:46 PM

[xtreampb]

no prob

Glad to help