VB.NET

Swapping values

Please support our VB.NET advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Mar 2009

Posts: 56

Reputation: songweaver is an unknown quantity at this point

Solved Threads: 0

songweaver songweaver is offline

Offline

Junior Poster in Training

Swapping values

Nov 3rd, 2009

Hey guys here is the problem I have two variables that need their values switched , but only if the value stored in the first is less than the value stored in the second. Tried a couple of things, but am at a brick wall, I am a newbie to VB.

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Public Class Form1
 
    Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck.Click
        Dim getMarySales As Integer
        Dim getJeffSales As Integer
        If getMarySales < getJeffSales Then
            getJeffSales = txtGetMarySales.Text
            getMarySales = txtGetJeffSales.Text
        End If
 
 
 
 
    End Sub
Public Class Form1

    Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck.Click
        Dim getMarySales As Integer
        Dim getJeffSales As Integer
        If getMarySales < getJeffSales Then
            getJeffSales = txtGetMarySales.Text
            getMarySales = txtGetJeffSales.Text
        End If




    End Sub

•

Join Date: Oct 2009

Posts: 63

Reputation: mikiurban is an unknown quantity at this point

Solved Threads: 17

mikiurban

Offline

Junior Poster in Training

Nov 3rd, 2009

In line 6, you are comparing your newly created integers, which are both 0. You need to either assign them the values from the text box before the comparison, or compare the textbox values themselves (I suggest the assignment).

You should also be having a problem assigning the textbox values to the integers themselves, because textboxes not integers. You will probably want to throw a couple Int32.Parse() calls in there to convert them to integers.

•

Join Date: Mar 2009

Posts: 56

Reputation: songweaver is an unknown quantity at this point

Solved Threads: 0

songweaver songweaver is offline

Offline

Junior Poster in Training

Reply

Nov 4th, 2009

How would I compare textbox values because if I assign values, b/c if I assign textbox values, the users couldn't enter their own, right? Please excuse my ignorance if I am wrong and please explain to me how to do that. Also I looked at the parse and see if this would be correct.

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Public Class Form1
 
    Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck.Click
 
        Dim getMarySales As Integer = txtGetMarySales.Text
        Int32.Parse(getMarySales)
        Dim getJeffSales As Integer = txtGetJeffSales.Text
        Int32.Parse(getJeffSales)
        If getMarySales < getJeffSales Then
            getJeffSales = txtGetMarySales.Text
            getMarySales = txtGetJeffSales.Text
        End If
    End Sub
End Class
Public Class Form1

    Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck.Click

        Dim getMarySales As Integer = txtGetMarySales.Text
        Int32.Parse(getMarySales)
        Dim getJeffSales As Integer = txtGetJeffSales.Text
        Int32.Parse(getJeffSales)
        If getMarySales < getJeffSales Then
            getJeffSales = txtGetMarySales.Text
            getMarySales = txtGetJeffSales.Text
        End If
    End Sub
End Class

•

Originally Posted by mikiurban

In line 6, you are comparing your newly created integers, which are both 0. You need to either assign them the values from the text box before the comparison, or compare the textbox values themselves (I suggest the assignment).

You should also be having a problem assigning the textbox values to the integers themselves, because textboxes not integers. You will probably want to throw a couple Int32.Parse() calls in there to convert them to integers.

Last edited by songweaver; Nov 4th, 2009 at 1:32 pm.

•

Join Date: Oct 2009

Posts: 63

Reputation: mikiurban is an unknown quantity at this point

Solved Threads: 17

mikiurban

Offline

Junior Poster in Training

Nov 4th, 2009

You don't need to set the textbox values to anything, just sompare them.

Then changes you made are almost complete, but change this

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Dim getMarySales As Integer = txtGetMarySales.Text        
Int32.Parse(getMarySales)
Dim getMarySales As Integer = txtGetMarySales.Text        
Int32.Parse(getMarySales)

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Dim getMarySales As Integer = Int32.Parse(txtGetMarySales.Text)
Dim getMarySales As Integer = Int32.Parse(txtGetMarySales.Text)

(and the other one, too, as well as the ones after the comparison.)

There are several ways to write this section of code, and all will end up with the same result: your two variables holding the proper values. If you want to make your code more bulletproof, you can use Int32.TryParse() to handle problems when someone enters a non-number or decimal point in the textboxes. Also, instead of parsing the numbers twice, you can use a temp variable to help you swap the already calculated values (you will probably get an assignment later to write a Swap function like this:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Dim temp As Integer = a
a = b
b = temp
Dim temp As Integer = a
a = b
b = temp

•

Join Date: Mar 2009

Posts: 56

Reputation: songweaver is an unknown quantity at this point

Solved Threads: 0

songweaver songweaver is offline

Offline

Junior Poster in Training

Close

Nov 4th, 2009

I am close getting it to work like this, however when the value jeffSales is greater than marySales it shows false not switch to the jeff value.

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Public Class Form1
 
    Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck.Click
 
        Dim getMarySales As Integer = txtGetMarySales.Text
        Int32.Parse(getMarySales)
        Dim getJeffSales As Integer = txtGetJeffSales.Text
        Int32.Parse(getJeffSales)
        If getMarySales < getJeffSales Then
            txtGetMarySales.Text = txtGetJeffSales.Text AndAlso _
            txtGetJeffSales.Text = txtGetMarySales.Text
        End If
    End Sub
Public Class Form1

    Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck.Click

        Dim getMarySales As Integer = txtGetMarySales.Text
        Int32.Parse(getMarySales)
        Dim getJeffSales As Integer = txtGetJeffSales.Text
        Int32.Parse(getJeffSales)
        If getMarySales < getJeffSales Then
            txtGetMarySales.Text = txtGetJeffSales.Text AndAlso _
            txtGetJeffSales.Text = txtGetMarySales.Text
        End If
    End Sub

•

Join Date: Oct 2009

Posts: 63

Reputation: mikiurban is an unknown quantity at this point

Solved Threads: 17

mikiurban

Offline

Junior Poster in Training

Nov 4th, 2009

In your If block, you are swapping the values of text boxes, but not the values of the variables. Did you just want the values of the textboxes swapped?

•

Join Date: Mar 2009

Posts: 56

Reputation: songweaver is an unknown quantity at this point

Solved Threads: 0

songweaver songweaver is offline

Offline

Junior Poster in Training

Nov 4th, 2009

I guess that would be correct, yes because the values showing up in the text boxes need to be switched.

•

Originally Posted by mikiurban

In your If block, you are swapping the values of text boxes, but not the values of the variables. Did you just want the values of the textboxes swapped?