[Dougj]

I am currently learning VB6 using Teach yourself Visual basic 6 in 24 hours.
In lesson 8 we are learning looping. The question asks us to write a program that contains a text box and a command button with a label telling the user to type a numvber between 1 and 10 in the text box. If the number is out of range issue an error message and if the number is within the range casue the computer to beep the number of times equal to the number entered into the text box.

The answer given is shown as follows:

==================================================

Private Sub Command1_Click()
' Beep or issue error
Dim intCtr As Integer
Dim msg As Variant ' MsgBox() return
If Val(txtNumber.Text) >= 1 And _
Val(txtNumber.Text) <= 10 Then
For intCtr = 1 To Val(txtNumber.Text)
' If your computer is fast, you may
' not hear a lot of beeps
Beep
Next intCtr
' Let the user enter another
txtNumber.Text = ""
Else
msg = MsgBox("You did not type a number from 1 to 10", _
vbExclamation, "Error")
txtNumber.SetFocus
End If

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub txtNumber_Change()

End Sub

=================================================

My code looks as follows :

=================================================

Dim msg As String
Dim intCounter As Integer


Private Sub cmdExit_Click()
End
End Sub

Private Sub cmdPress_Click()
If (txtNumber.Text < 1) Or _
(txtNumber.Text > 10) Then
msg = MsgBox("Hey Stupid!! Your entry is out ofRange",
vbExclamation, "Input ERROR!")
'reset input box
txtNumber.Text = ""
Else
For intCounter = 1 To (txtNumber.Text)
Beep
Next intCounter
'reset input box
txtNumber.Text = ""

End If
End Sub

================================================

First question : If I use the "Val" around my (txtNumber.Text) the program operates but does not give me an error message when the number is out of range? WHY??
Why is the Val required??
Second question : whenever i try to break up a line that gets too long by using the "_" character ( as the instructor did) I get a complie error...illegal character. What am I doing wrong??
Third question : using my code the PC always only beeps once....no matter what number I input. WHY??
Fourth question : the instructors code declares "msg" as a Variant and I used String. What is the difference??

Thanks in advance for the help.........D.

[Glaswegian]

Hello

1. You are using a TextBox – but VBA has no way of knowing that the user has input a number – therefore use the Val Function which returns numbers from a string. For example
myString = “101 Dalmations”
Val(myString) would return 101.

You have to put your operators outside the parens as in

If Val(txtNumber.Text) < 1

You had

If Val(txtNumber.Text < 1)

It will therefore return the number from the Textbox – regardless of value.

2. Make sure you type a Space and then the underscore

If Val(txtNumber.Text) >= 1 And _

3. Depends on the PC. Even on the prehistoric junk I use at work, 6 beeps just run together as one.

4. A Variant is the data type for a variable that is not explicitly declared – but it is more expensive memory wise. It gives you more flexibility if you don’t know what kind of data will be assigned to the variable. A String variable is a list of characters and can be made up of letters and/or numbers. The return from a Message Box is actually an Integer that specifies which button was pressed.

HTH

Regards

[Dougj]

thanx for the help.. It has cleared up some confusion for me.

l8tr...d.