I am new to .net and needing to complete and assignment. I am having issues formatting results. here is the code I have input so far:


Public Class frmMain

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()

    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click



        Dim payrate As Decimal
        Dim grosspay As Decimal
        Dim federaltax As Decimal
        Dim sstax As Decimal
        Dim statetax As Decimal
        Dim netpay As Decimal





        TextBox3.Text = payrate.ToString("C2")
        Label9.Text = grosspay.ToString("C3")
        Label10.Text = federaltax.ToString("P0")
        Label11.Text = sstax.ToString("P0")
        Label12.Text = statetax.ToString("P0")
        Label13.Text = netpay.ToString("C3")


    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

        Label9.Text = (Val(TextBox2.Text)) * (Val(TextBox3.Text))grosspay.ToString("C3")
        Label10.Text = (Val(Label9.Text)) * (0.2)
        Label11.Text = (Val(Label9.Text)) * (0.08)
        Label12.Text = (Val(Label9.Text)) * (0.02)
        Label13.Text = (Val(Label9.Text)) - (Val(Label10.Text)) - (Val(Label11.Text)) - (Val(Label12.Text))

    End Sub
End Class

I have been trying different orders etc. but I keep getting all 0's when I click the "Calculate" button.

Can anyone help, I really want to learn what I need to do...I have more like this to complete tonight.

Thanks for the help!!!


Shelly

Have you thought about changing the NAMES of all those silly numbered labels, so that they reflect their actual contents???

YOu can do that all in VS by just clicking on the label in the designer and then changing its name in the properties.

Such as change Label9 to LabelGrossPay or GrossPayLabel???

Anyway...

It's possible that your root problem is that once you have formatted a value into a string in the label, the VAL( ) function is unable to convert it back to a number.

In other words, the string in that label now is something like "$53.95" and VAL( ) sees the "$" and chokes.

You could easily check on this with a tiny bit of debugging. If you haven't learned how to use the VS debugger, now's the time to start.

Not to ask a dumb question, but what's the point of doing things like
    TextBox3.Text = payrate.ToString("C2")
in your Button2_Click sub???

Since you never give any value to payrate, it's guaranteed to be zero, so you could accomplish the exact same thing by code such as:

Anyway, go change all your label and textbox names to *READABLE* and meaningful names (if I were your instructor, I'd mark you off for using the names as-is). And figure out if VAL( ) is indeed the culprit, being unable to accept a "$" in the string value it is supposed to evaluate.

I'd also recommend not using VAL( ). It's a very very old fashioned way to code. Look into the various kinds of conversions that the .NET framework supports, instead.

Tip quoated from Professional Visual Basic 2008: "For a best practice, always set a variable equal to something when it is declared."

1.) Any value in double quotes is a literal value.
2.) Any object not set to a value = Nothing.

In your code you have:
If you proceed that line of code with something like:
You would see that the result is 0 because payrate was never set to any value.

BUT IN YOUR CODE YOU HAVE:
Are you trying to write a string of the value of payrate or "C2"?
If you want the value of payrate converted to a string then just use payrate.ToString
If you want the value "C2" converted to a string then just use ToString("C2")

NOTE: payrate is of type decimal and "C2" is not a decimal value so payrate will never be "C2"

If C2 is a variable or any other object in your application other then the literal string "C2" then you need to remove the double quotes which would equate to:

and the result would just ignore the variable1 part of the statement and return the string value of variable2 !!!

I hope this helps and I didn't confuse you.

__________________
Need free one on one help getting started with Visual Basic? Contact me via http://patrickcambria.com its free.