VB.NET

VB.NET RSS

Homework Help????

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

Thread Solved

•

Join Date: Apr 2009

Posts: 12

Reputation: Nawsheen is an unknown quantity at this point

Solved Threads: 0

Nawsheen

Offline

Newbie Poster

Homework Help????

Apr 10th, 2009

I am a begginer in vb.net. Actually i am having problems to do my homework. I will be posting both the question and my answer.

Question

Create a small program that allows you to enter a number. If the number is greater than 100, you will see the "You win a lucky prize" statement in a message box. Else if the number is less that 100, the message box displays “Better luck next time”.

Answer
Private Sub TxtNum_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtNum.TextChanged

Dim Num As Integer

If Num > 100 Then
MsgBox("You win a lucky prize")
ElseIf Num < 100 Then
MsgBox("Better luck next time")

End If

End Sub
End Class

My problem

When i debug the database my form appears but however when i enter a number lets say zero in the textbox the following message is displayed "Better Luck next time". The textbox is not working for two digit numbers or three digit numbers. And neither is the condition if (Num > 100) working. Can u plz explain as to what is wrong in my code.

Thanks...

•

Join Date: May 2006

Posts: 1,824

Reputation: ithelp is a name known to all

Solved Threads: 117

ithelp

Offline

Posting Virtuoso

Re: Homework Help????

Apr 10th, 2009

Restrict the textbox to accept number only.

•

Join Date: Aug 2006

Posts: 2,065

Reputation: Ramy Mahrous is just really nice

Solved Threads: 256

Ramy Mahrous Ramy Mahrous is offline

Offline

Postaholic

Re: Homework Help????

Apr 10th, 2009

Because you didn't assign Num value to TextBox.Text value
you need to modify your code to

 Help with Code Tags 
 vb.net Syntax (Toggle Plain Text) 
Private Sub TxtNum_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtNum.TextChanged
Dim Num As Integer
Num = Int.Parse(TxtNum.Text)
If Num > 100 Then
MsgBox("You win a lucky prize")
ElseIf Num < 100 Then
MsgBox("Better luck next time")
End If
End Sub
End Class
Private Sub TxtNum_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtNum.TextChanged
Dim Num As Integer
Num = Int.Parse(TxtNum.Text)
If Num > 100 Then
MsgBox("You win a lucky prize")
ElseIf Num < 100 Then
MsgBox("Better luck next time")
End If
End Sub
End Class

BI Developer | LINKdotNET
B.Sc Computer Science, Helwan University
Technical blog | http://ramymahrous.wordpress.com
LinkedIn | http://www.linkedin.com/in/ramymahrous

•

Join Date: Dec 2002

Posts: 461

Reputation: waynespangler is on a distinguished road

Solved Threads: 56

waynespangler waynespangler is offline

Offline

Posting Pro in Training

Re: Homework Help????

Apr 10th, 2009

By using text changed you are checking everytime a new character is entered. So the first character entered is 1 and you get a <100. The next character makes it a 10 so it is still less than 100. If the next character is a 0 you get a 100 so it doesn't do any thing. Instead use a button click event and I would use <100 and >=100.

Wayne

It is hard to understand how a cemetery can raise its burial rates and blame it on the cost of living.

•

Join Date: Mar 2009

Posts: 44

Reputation: crazyhorse09 is an unknown quantity at this point

Solved Threads: 4

crazyhorse09 crazyhorse09 is offline

Offline

Light Poster

Re: Homework Help????

Apr 10th, 2009

waynespangler is correct, you don't want to use TextChanged event for that.

•

Join Date: Mar 2009

Posts: 66

Reputation: c0deFr3aK is an unknown quantity at this point

Solved Threads: 10

c0deFr3aK

Offline

Junior Poster in Training

Re: Homework Help????

Apr 13th, 2009

•

Originally Posted by crazyhorse09

waynespangler is correct, you don't want to use TextChanged event for that.

That's right textchanged is not recommended.

My suggestion is to use a KeyPress or KeyUp/KeyDown event.

Try this one:

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Private Sub Textbox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Textbox1.KeyPress
        If e.KeyChar = Chr(Keys.Enter) Then 
            If Me.Textbox1.Text = "" Or Not IsNumeric(Me.Textbox1.Text) Then
                MsgBox("Invalid Number Format", MsgBoxStyle.Critical)
                Me.Textbox1.Focus()
                Me.Textbox1.SelectAll()
                Exit Sub
            Else
                Dim i As Integer = Val(Textbox1.Text)
                If i >= 100 Then
                    MsgBox("you win")
                    Exit Sub
                Else
                    MsgBox("you lose")
                End If
            End If
        End If
    End Sub
Private Sub Textbox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Textbox1.KeyPress
        If e.KeyChar = Chr(Keys.Enter) Then 
            If Me.Textbox1.Text = "" Or Not IsNumeric(Me.Textbox1.Text) Then
                MsgBox("Invalid Number Format", MsgBoxStyle.Critical)
                Me.Textbox1.Focus()
                Me.Textbox1.SelectAll()
                Exit Sub
            Else
                Dim i As Integer = Val(Textbox1.Text)
                If i >= 100 Then
                    MsgBox("you win")
                    Exit Sub
                Else
                    MsgBox("you lose")
                End If
            End If
        End If
    End Sub

•

Join Date: Aug 2006

Posts: 2,065

Reputation: Ramy Mahrous is just really nice

Solved Threads: 256

Ramy Mahrous Ramy Mahrous is offline

Offline

Postaholic

Re: Homework Help????

Apr 13th, 2009

Hey friends!!!! how could you answer their question without looking at their code?!!!! which line they assigned textbox value to Num object?!!!!!

Last edited by Ramy Mahrous; Apr 13th, 2009 at 5:00 am. Reason: Adding question mark

BI Developer | LINKdotNET
B.Sc Computer Science, Helwan University
Technical blog | http://ramymahrous.wordpress.com
LinkedIn | http://www.linkedin.com/in/ramymahrous

•

Join Date: Apr 2009

Posts: 1

Reputation: onedizzydevil is an unknown quantity at this point

Solved Threads: 1

onedizzydevil onedizzydevil is offline

Offline

Newbie Poster

Re: Homework Help????

Apr 15th, 2009

•

Originally Posted by Nawsheen

Dim Num As Integer

You are not setting the Num variable to value that was entered into the textbox; therefore, it will always be 0.

•

Join Date: Aug 2006

Posts: 2,065

Reputation: Ramy Mahrous is just really nice

Solved Threads: 256

Ramy Mahrous Ramy Mahrous is offline

Offline

Postaholic

Re: Homework Help????

Apr 15th, 2009

onedizzydevil

•

You are not setting the Num variable to value that was entered into the textbox; therefore, it will always be 0.

•

By Ramy Mahrous

Hey friends!!!! how could you answer their question without looking at their code?!!!! which line they assigned textbox value to Num object?!!!!!

Didn't you see my reply?!!

BI Developer | LINKdotNET
B.Sc Computer Science, Helwan University
Technical blog | http://ramymahrous.wordpress.com
LinkedIn | http://www.linkedin.com/in/ramymahrous