only integer

[Maarten]

hi all,

how can i retrieve the type if a value inserted in an inputbox.

what i want to do is make shure people only insert an integer type, if they
don't they get an error message.
Private Sub Button2_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button2.Click

inti = InputBox("Value ", "Read frequenty")

End Sub

what should i add to this code that when the variable inti is'nt a number,
they get a massagbox "only numbers" .

kind regards Maarten

[Herfried K. Wagner [MVP]]

"Maarten" <gu******@hotma il.com> schrieb:

how can i retrieve the type if a value inserted in an inputbox.

what i want to do is make shure people only insert an integer type, if
they don't they get an error message.
Private Sub Button2_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button2.Click

inti = InputBox("Value ", "Read frequenty")

\\\
inti = ...
Try
i = CInt(inti)
Catch
MsgBox("The number entered was not an integer.")
End Try
///

..NET 2.0 will have a 'Int32.TryParse ' method.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Maarten]

hi,
thanks for the reply, but...

i tried yourre code, but it won't give the messagebox if i enter a non
integer

kind regards
"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:eb******** ******@TK2MSFTN GP14.phx.gbl...

"Maarten" <gu******@hotma il.com> schrieb:

how can i retrieve the type if a value inserted in an inputbox.

what i want to do is make shure people only insert an integer type, if
they don't they get an error message.
Private Sub Button2_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button2.Click

inti = InputBox("Value ", "Read frequenty")

\\\
inti = ...
Try
i = CInt(inti)
Catch
MsgBox("The number entered was not an integer.")
End Try
///

.NET 2.0 will have a 'Int32.TryParse ' method.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Chris, Master of All Things Insignificant]

I should, what value did you enter? Post your new code?

Chris

"Maarten" <gu******@hotma il.com> wrote in message
news:41******** *************** @news.skynet.be ...

hi,
thanks for the reply, but...

i tried yourre code, but it won't give the messagebox if i enter a non
integer

kind regards
"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:eb******** ******@TK2MSFTN GP14.phx.gbl...

"Maarten" <gu******@hotma il.com> schrieb:

how can i retrieve the type if a value inserted in an inputbox.

what i want to do is make shure people only insert an integer type, if
they don't they get an error message.
Private Sub Button2_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button2.Click

inti = InputBox("Value ", "Read frequenty")

\\\
inti = ...
Try
i = CInt(inti)
Catch
MsgBox("The number entered was not an integer.")
End Try
///

.NET 2.0 will have a 'Int32.TryParse ' method.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[shane_stewart]

You could use the following function. It is only good for checking for
non-negative numbers.
if bNumbersOnly = True, the routine will return a -1 if the string is
not all numbers.
if bNumbersOnly = False, the routine will return the integer value of
all of the numbers in a string and ignore all other characters. $1,234
would return 1234. "There are 12 entries" would return 12. "Found 1 in
2000" would return 12000. So be careful out there! :)

'---------- Get the numbers from a string ----------
Public Function AtoI(ByVal s As String, ByVal bNumbersOnly As
Boolean) As Integer
Dim nLen As Integer ' Length of the
string
Dim i As Integer ' Loop counter
Dim nDigit As Integer ' Each digit
Dim nTot As Integer

nTot = 0 ' Starting value
nLen = s.Length ' Number of
characters
For i = 0 To nLen - 1 ' Check all
characters
nDigit = Asc(s.Substring (i, 1)) - 48 ' Get the current
digit
If nDigit >= 0 And nDigit <= 9 Then
nTot = nTot * 10 + nDigit ' Calculate digit
Else
If bNumbersOnly Then ' Only allow
numerics
nTot = -1 ' Flag as an error
Exit For ' Force routine to
end
End If
End If
Next i
Return (nTot) ' Return Value
End Function

[shane_stewart]

Sorry about the indentations. Apparently postings knock out leading
tabs in the code.

[Maarten]

this is the code,

Dim i As Integer

Dim Tmrsp as long

Tmrsp = InputBox("Value ", "Read frequenty")

Try

i = CInt(inti)

MsgBox(Tmrsp)

Catch

MsgBox("The number entered was not an integer.")

End Try

End Sub
what does the catch statement do?

thanks Maarten

"Chris, Master of All Things Insignificant" <chris@No_Spam_ Please.com> wrote
in message news:uw******** ******@tk2msftn gp13.phx.gbl...

I should, what value did you enter? Post your new code?

Chris

"Maarten" <gu******@hotma il.com> wrote in message
news:41******** *************** @news.skynet.be ...

hi,
thanks for the reply, but...

i tried yourre code, but it won't give the messagebox if i enter a non
integer

kind regards
"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:eb******** ******@TK2MSFTN GP14.phx.gbl...

"Maarten" <gu******@hotma il.com> schrieb:
how can i retrieve the type if a value inserted in an inputbox.

what i want to do is make shure people only insert an integer type, if
they don't they get an error message.
Private Sub Button2_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button2.Click

inti = InputBox("Value ", "Read frequenty")

\\\
inti = ...
Try
i = CInt(inti)
Catch
MsgBox("The number entered was not an integer.")
End Try
///

.NET 2.0 will have a 'Int32.TryParse ' method.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Maarten]

thanks for the code, but i have a problem with the function

i've never workes with functions, and i don't know how to send the text
trough the function, and then retreave it.

sry for this beginners question, but i'm realy intrested to know how it
works and how to make them.

kind regards Maarten
<sh***********@ yahoo.com> wrote in message
news:11******** *************@z 14g2000cwz.goog legroups.com...

Sorry about the indentations. Apparently postings knock out leading
tabs in the code.

[Greg Burns]

You could try using regex for this kind of test.

Dim s as string = InputBox("Value ", "Read frequenty<sic>" )

Dim rNumber As New System.Text.Reg ularExpressions .Regex("^\d*$")
If rNumber.IsMatch (s) Then
msgbox("ok")
Else
msgbox("not a whole number")
End If

HTH,
Greg

"Maarten" <gu******@hotma il.com> wrote in message
news:41******** **************@ news.skynet.be. ..

hi all,

how can i retrieve the type if a value inserted in an inputbox.

what i want to do is make shure people only insert an integer type, if
they don't they get an error message.
Private Sub Button2_Click(B yVal sender As System.Object, ByVal e As
System.EventArg s) Handles Button2.Click

inti = InputBox("Value ", "Read frequenty")

End Sub

what should i add to this code that when the variable inti is'nt a
number, they get a massagbox "only numbers" .

kind regards Maarten

[Chris, Master of All Things Insignificant]

Well you are trying to Cint(inti) but you never set it to a value. Try
this:
Dim i As Integer

Dim Tmrsp as long

Tmrsp = InputBox("Value ", "Read frequenty")

Try

i = CInt(Tmrsp)

MsgBox(Tmrsp)

Catch

MsgBox("The number entered was not an integer.")

End Try

End Sub
The try...catch handles an exception. An exception will be thrown by the
Cint() funciton if it can not convert the Tmrsp variable to a integer. Read
up in the help file on it.

Chris


"Maarten" <gu******@hotma il.com> wrote in message
news:41******** *************** @news.skynet.be ...

this is the code,

Dim i As Integer

Dim Tmrsp as long

Tmrsp = InputBox("Value ", "Read frequenty")

Try

i = CInt(inti)

MsgBox(Tmrsp)

Catch

MsgBox("The number entered was not an integer.")

End Try

End Sub
what does the catch statement do?

thanks Maarten

"Chris, Master of All Things Insignificant" <chris@No_Spam_ Please.com>
wrote in message news:uw******** ******@tk2msftn gp13.phx.gbl...

I should, what value did you enter? Post your new code?

Chris

"Maarten" <gu******@hotma il.com> wrote in message
news:41******** *************** @news.skynet.be ...

hi,
thanks for the reply, but...

i tried yourre code, but it won't give the messagebox if i enter a non
integer

kind regards
"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:eb******** ******@TK2MSFTN GP14.phx.gbl...
"Maarten" <gu******@hotma il.com> schrieb:
> how can i retrieve the type if a value inserted in an inputbox.
>
> what i want to do is make shure people only insert an integer type, if
> they don't they get an error message.
>
>
> Private Sub Button2_Click(B yVal sender As System.Object, ByVal e As
> System.EventArg s) Handles Button2.Click
>
> inti = InputBox("Value ", "Read frequenty")

\\\
inti = ...
Try
i = CInt(inti)
Catch
MsgBox("The number entered was not an integer.")
End Try
///

.NET 2.0 will have a 'Int32.TryParse ' method.

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>