VB.NET

Problem with form

Please support our VB.NET advertiser: Intel Parallel Studio Home

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

Problem with form

Nov 4th, 2009

Hey guys I am a newbie to VB and need help with this form,
The idea is that people enter there age and if they over 65 and are a member its one price, if they are under 65 its one price and if they are not a member it is one price. Age is entered into a textbox, memberahip is indicated by a checkbox and the price is then displayed in a textbox. Anyway I a confused about why it is not calculating. Here is what I have so far. Again I am very new to VB.

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Public Class Form1
 
    Private Sub btnPrice_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrice.Click
        Dim getAge As Integer = txtAge.Text
        Dim isChecked As Integer = chkMemeber.Checked
        Dim showPrice As Integer = txtPrice.Text
        If getAge > 65 And isChecked = True Then
            txtPrice.Text = 5
        ElseIf getAge < 65 And isChecked = True Then
            txtPrice.Text = 10
        ElseIf isChecked = False Then
            txtPrice.Text = 20
        End If
 
 
    End Sub
End Class
Public Class Form1

    Private Sub btnPrice_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrice.Click
        Dim getAge As Integer = txtAge.Text
        Dim isChecked As Integer = chkMemeber.Checked
        Dim showPrice As Integer = txtPrice.Text
        If getAge > 65 And isChecked = True Then
            txtPrice.Text = 5
        ElseIf getAge < 65 And isChecked = True Then
            txtPrice.Text = 10
        ElseIf isChecked = False Then
            txtPrice.Text = 20
        End If


    End Sub
End Class

•

Join Date: Apr 2009

Posts: 5

Reputation: pasanbuddhika is an unknown quantity at this point

Solved Threads: 2

pasanbuddhika pasanbuddhika is offline

Offline

Newbie Poster

Nov 4th, 2009

Hai !
Error is the variable isCheskde should be Boolean.

I'm wonder why are you declare variable named showPrice. you never use it.

Last edited by pasanbuddhika; Nov 4th, 2009 at 10:51 pm.

•

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

It is still not working, here is what I have:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Public Class Form1
 
    Private Sub btnPrice_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrice.Click
        Dim getAge As Integer = txtAge.Text
        Dim isChecked As Boolean = chkMemeber.Checked
 
        If getAge > 65 And isChecked = True Then
            txtPrice.Text = 5
        ElseIf getAge < 65 And isChecked = True Then
            txtPrice.Text = 10
        ElseIf isChecked = False Then
            txtPrice.Text = 20
        End If
 
 
    End Sub
End Class
Public Class Form1

    Private Sub btnPrice_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrice.Click
        Dim getAge As Integer = txtAge.Text
        Dim isChecked As Boolean = chkMemeber.Checked

        If getAge > 65 And isChecked = True Then
            txtPrice.Text = 5
        ElseIf getAge < 65 And isChecked = True Then
            txtPrice.Text = 10
        ElseIf isChecked = False Then
            txtPrice.Text = 20
        End If


    End Sub
End Class

•

Join Date: Apr 2009

Posts: 5

Reputation: pasanbuddhika is an unknown quantity at this point

Solved Threads: 2

pasanbuddhika pasanbuddhika is offline

Offline

Newbie Poster

Nov 4th, 2009

line 7 correct as

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
If getAge > 65 And isChecked == True Then
If getAge > 65 And isChecked == True Then

and also line 9

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
ElseIf getAge < 65 And isChecked == True Then
ElseIf getAge < 65 And isChecked == True Then

I think it's ok

•

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

Its giving me an error with ==, it only accepts =

•

Originally Posted by pasanbuddhika

line 7 correct as
Help with Code Tags

VB.NET Syntax (Toggle Plain Text)
If getAge > 65 And isChecked == True Then
If getAge > 65 And isChecked == True Then
and also line 9
Help with Code Tags

VB.NET Syntax (Toggle Plain Text)
ElseIf getAge < 65 And isChecked == True Then
ElseIf getAge < 65 And isChecked == True Then
I think it's ok

•

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

Nevermind

Nov 4th, 2009

It works!

Last edited by songweaver; Nov 4th, 2009 at 11:56 pm.

•

Join Date: Apr 2009

Posts: 5

Reputation: pasanbuddhika is an unknown quantity at this point

Solved Threads: 2

pasanbuddhika pasanbuddhika is offline

Offline

Newbie Poster

Nov 5th, 2009

change line 9 as

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Dim isChecked As Boolean = chkMemeber.CheckState
Dim isChecked As Boolean = chkMemeber.CheckState