This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(166.4, 44%, 26%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EH%3C/text%3E%3C/svg%3E)
Alright. I am at a loss of what to do. I need help with Visual Basic stuff.
I can't figure out where I am going wrong with this, I have the basic idea of what to do.
This is what I have. It needs to be counting in text boxes. I have tried what I know and nothing is working. I do have it working to indicate when playerone or two has won and when it comes to a tie but I need it to count all those wins and ties.
Public Class frmHighTotals
Private Sub btnEndNow_Click(sender As Object, e As EventArgs) Handles btnEndNow.Click
'Closes the program
Me.Close()
End Sub
Private Sub frmHighTotals_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub btnClickPlay_Click(sender As Object, e As EventArgs) Handles btnClickPlay.Click
'Randomizes numbers for players
Dim RanNum As Integer
Dim RanNum2 As Integer
Dim RanNum3 As Integer
Dim RanNum4 As Integer
Randomize()
RanNum = Int(Rnd() * 20) + 1
RanNum2 = Int(Rnd() * 20) + 1
RanNum3 = Int(Rnd() * 20) + 1
RanNum4 = Int(Rnd() * 20) + 1
txtP1Num1.Text = RanNum
txtP1Num2.Text = RanNum2
txtP2Num1.Text = RanNum3
txtP2Num2.Text = RanNum4
'Adding Players Numbers for Totals
txtPlay1Total.Text = Val(txtP1Num1.Text) + Val(txtP1Num2.Text)
txtPlay2Total.Text = Val(txtP2Num1.Text) + Val(txtP2Num2.Text)
'Total Wins Per Player
Dim WinPlay1 As Integer
Dim WinPlay2 As Integer
Dim TiePlay As Integer
txtPlay1Wins.Text = WinPlay1
txtPlay2Wins.Text = WinPlay2
txtTies.Text = TiePlay
'Play one wins
If CInt(txtPlay1Total.Text) > CInt(txtPlay2Total.Text) Then
MsgBox(" Player 1 has Won!")
txtPlay1Wins.Text = Int(txtPlay1Wins.Text + txtPlay1Wins.Text) + 1
'Player ties
ElseIf CInt(txtPlay1Total.Text) = CInt(txtPlay2Total.Text) Then
MsgBox("Tie!")
txtTies.Text = Int(txtTies.Text + txtTies.Text) + 1
'Player 2 wins
ElseIf CInt(txtPlay1Total.Text) < CInt(txtPlay2Total.Text) Then
MsgBox(" Player 2 Has Won")
txtPlay2Wins.Text = Int(txtPlay2Wins.Text + txtPlay2Wins.Text) + 1
End If
End Sub
Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
'Clears wins and tie boxes for game to reset counter
txtPlay1Wins.Clear()
txtPlay2Wins.Clear()
txtTies.Clear()
End Sub
Private Sub btnNewGame_Click(sender As Object, e As EventArgs) Handles btnNewGame.Click
'Starts New Game and clears fields
Select Case MsgBox("Start a New Game?", MsgBoxStyle.YesNo, "New Game?")
Case MsgBoxResult.Yes
MessageBox.Show("Enter New Names!")
txtOnePName.Clear()
txtP1Num1.Clear()
txtP1Num2.Clear()
txtP2Num1.Clear()
txtP2Num2.Clear()
txtPlay1Total.Clear()
txtPlay1Wins.Clear()
txtPlay2Total.Clear()
txtPlay2Wins.Clear()
txtTies.Clear()
txtTwoPName.Clear()
'Does not start new game, closes diaglog box
Case MsgBoxResult.No
MessageBox.Show("Okay!")
End Select
End Sub
You are doing a string comparison here. In that situation, "2" is greater than "1000".
If txtPlay1Total.Text > txtPlay2Total.Text Then
Convert the strings to integers to do a numeric comparison.
If cint(txtPlay1Total.Text) > cint(txtPlay2Total.Text) Then
That worked! Thank you so much!!
But why is it defaulting back to zero when I click it, again?
It won't count the numbers.
You define 2 variables, but do not initialize them. So they would have to have a value of zero. Then you assign them to the controls on your form. I assumed that you were omitting portions of your code for some reason.
Dim WinPlay1 As Integer
Dim WinPlay2 As Integer
Dim TiePlay As Integer
txtPlay1Wins.Text = WinPlay1
txtPlay2Wins.Text = WinPlay2
Sorry, but I have no idea what you are doing.
I just edited the topic with the entire code.
I am making a game that will have two players, each play will get two random numbers that will be totaled into one number.
The game will be counting a point to whatever player has the highest or if it is a tie.
I have managed to get this far but not it keeps defaulting back to zero when I click the button a second to generate more points.
Consider the variable WinPlay1. When the user clicks on the btnClickPlay, your code defines that variable, but doesn't assign an initial value to it. Then you assign it to txtPlay1Wins.Text. Nowhere in your code do you assign any value to WinPlay1 or assign it's value to some other variable.. What does Winplay1 represent?
]1
I would think that what you want is to DIM WinPlay1 outside of the Sub and use it to keep track of the wins for player 1.
While I could fix your program for you, you will learn a lot more if you learn how to "thinK" like a programmer.
Consider this statement:
txtTies.Text = Int(txtTies.Text + txtTies.Text) + 1
What's wrong with that? If you're playing the game, and there has already been one tie, and the current game ties, what value ends up in txtTies.Text?