Programming Forums > Application Development > Visual Basic

Clotters · Jun 13th, 2005, 9:17 PM

I'm beginning to advance with VB6 and when I have more time, instead of asking for help from you guys, I plan to try to figure out these problems myslef, but for now I have no time to waste.

Basically, I've made a few applications, but I just want to spruce them up a bit and be more professional.

If for an integer value someone decides it would be funny to enter a string, how can I create a msgbox or inputbox that will pop-up if someone enters the wrong data type?

For now, I can control it if someone enters a bad value such as a number less than 1,000 or more than 10,000 (supposing the input needed in the text box is an integer), but if someone enters a string, the application breaks down.

I tried using the NOT statement but it still didn't work for me when a string was entered when an integer was need.

How can I fix this?

Thanks in advance.

Ooble · Jun 13th, 2005, 9:22 PM

Read it in as a String variable, and use the Int(Val(myString)) to convert it to an integer.

Clotters · Jun 13th, 2005, 10:12 PM

I'm not far enough into the book I'm using to have understood what the Int() does exactly. This is what I'd guess you mean doing.

DIM strnumber AS STRING

Int(Val(strnumber))

I don't see how this would affect anything though and I'm not sure what you mean to be put in for the "Val".

Is there any other method I could go about doing it or could you explain further?

Clotters · Jun 14th, 2005, 12:30 AM

Actually, I think I may have just cracked it. This should work right?

Private Sub Command1_Click()

On Error GoTo errh:

Dim X As Integer

sof:
X = InputBox(relevant stuff)

Exit Sub

errh:
MsgBox(relevant stuff)
GoTo sof:

End Sub

tempest · Jun 14th, 2005, 1:04 AM

GOTO's are the devil. do this...

(Toggle Plain Text)

On Error Resume Next
Dim x as integer
Dim xstr as string
Dim error as boolean
error = true

While error
    xstr = InputBox("Please enter a positive integer: ", "")
    If int(val(xstr)) <= 0 then
        MsgBox("You are a moron, how hard is this...? Let's try again!")
    else
        error = false
        x = int(val(xstr))
    end if
Wend

uman · Jun 14th, 2005, 1:16 AM

I thought Bill Gates was the devil.

Berto · Jun 14th, 2005, 3:36 AM

no Just goto's Bill Gates gives lots of money to charity...

Clotters · Jun 14th, 2005, 9:43 AM

Okay thanks for that help, I'll probably try that method for great ease in code reading. Loops are the one real things that I'm struggling to grasp though, but this one isn't too taxing.

The project I'm working on is ambitious, but is now starting to take shape. I'm slightly limitted at the moment as I haven't learned about creating databases yet, and my simulation will be one HUGE databse.

Still, I'm getting there and you guys have helped a lot. Thanks.

Rory · Jun 14th, 2005, 3:53 PM

Huh? On error goto bleh meh fortran urghh!
What's wrong with IsNumeric() ?

big_k105 · Jun 14th, 2005, 4:06 PM

I personally use IsNumeric() like rory mentioned

it works great for me

Jun 13th, 2005, 9:17 PM	#1
Clotters Programmer Join Date: May 2005 Posts: 60 Rep Power: 4	Got another problem for you :) I'm beginning to advance with VB6 and when I have more time, instead of asking for help from you guys, I plan to try to figure out these problems myslef, but for now I have no time to waste. Basically, I've made a few applications, but I just want to spruce them up a bit and be more professional. If for an integer value someone decides it would be funny to enter a string, how can I create a msgbox or inputbox that will pop-up if someone enters the wrong data type? For now, I can control it if someone enters a bad value such as a number less than 1,000 or more than 10,000 (supposing the input needed in the text box is an integer), but if someone enters a string, the application breaks down. I tried using the NOT statement but it still didn't work for me when a string was entered when an integer was need. How can I fix this? Thanks in advance.

Jun 13th, 2005, 9:22 PM	#2
Ooble I eat cake for breakfast. Join Date: Jul 2004 Location: In my box. Posts: 4,434 Rep Power: 9	Read it in as a String variable, and use the Int(Val(myString)) to convert it to an integer. __________________ Me :: You :: Them

Jun 14th, 2005, 1:04 AM	#5
tempest Programming Guru Join Date: Oct 2004 Posts: 1,041 Rep Power: 6	GOTO's are the devil. do this... (Toggle Plain Text) On Error Resume Next Dim x as integer Dim xstr as string Dim error as boolean error = true While error xstr = InputBox("Please enter a positive integer: ", "") If int(val(xstr)) <= 0 then MsgBox("You are a moron, how hard is this...? Let's try again!") else error = false x = int(val(xstr)) end if Wend On Error Resume Next Dim x as integer Dim xstr as string Dim error as boolean error = true While error xstr = InputBox("Please enter a positive integer: ", "") If int(val(xstr)) <= 0 then MsgBox("You are a moron, how hard is this...? Let's try again!") else error = false x = int(val(xstr)) end if Wend __________________

Jun 14th, 2005, 3:36 AM	#7
Berto Programming Guru Join Date: Aug 2004 Posts: 1,022 Rep Power: 6	no Just goto's Bill Gates gives lots of money to charity... __________________ "Put your hand on a hot stove for a minute, and it seems like an hour. Sit with a pretty girl for an hour, and it seems like a minute. THAT'S relativity." - Albert Einstein

Jun 14th, 2005, 4:06 PM	#10
big_k105 PFO Founder Join Date: Mar 2004 Location: Fargo, ND Posts: 1,667 Rep Power: 10	I personally use IsNumeric() like rory mentioned it works great for me __________________ BIG K aka Kyle Programming Forums Kyle K Online Please do not PM or email me programming questions. Post them in the forums instead.

Jun 13th, 2005, 10:12 PM	#3
Clotters Programmer Join Date: May 2005 Posts: 60 Rep Power: 4	I'm not far enough into the book I'm using to have understood what the Int() does exactly. This is what I'd guess you mean doing. DIM strnumber AS STRING Int(Val(strnumber)) I don't see how this would affect anything though and I'm not sure what you mean to be put in for the "Val". Is there any other method I could go about doing it or could you explain further?

Jun 14th, 2005, 12:30 AM	#4
Clotters Programmer Join Date: May 2005 Posts: 60 Rep Power: 4	Actually, I think I may have just cracked it. This should work right? Private Sub Command1_Click() On Error GoTo errh: Dim X As Integer sof: X = InputBox(relevant stuff) Exit Sub errh: MsgBox(relevant stuff) GoTo sof: End Sub

Jun 14th, 2005, 1:16 AM	#6
uman Expert Programmer Join Date: Dec 2004 Posts: 794 Rep Power: 4	I thought Bill Gates was the devil.

Jun 14th, 2005, 9:43 AM	#8
Clotters Programmer Join Date: May 2005 Posts: 60 Rep Power: 4	Okay thanks for that help, I'll probably try that method for great ease in code reading. Loops are the one real things that I'm struggling to grasp though, but this one isn't too taxing. The project I'm working on is ambitious, but is now starting to take shape. I'm slightly limitted at the moment as I haven't learned about creating databases yet, and my simulation will be one HUGE databse. Still, I'm getting there and you guys have helped a lot. Thanks.

Jun 14th, 2005, 3:53 PM	#9
Rory Expert Programmer Join Date: Jan 2005 Location: London Posts: 542 Rep Power: 4	Huh? On error goto bleh meh fortran urghh! What's wrong with IsNumeric() ?

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Programming Forums > Application Development > Visual Basic

Got another problem for you :)