[Mezzeric]

hello to everyone! anyway here's my prob:

my professor want us to create a program in vb with factorial computation (which i already know the formula!).
my problem is when i input a bigger number there's an "error runtime-6 overflow". how can i fix these? TY in advance.

here's my code so far.

Public t
Dim i As Currency
Dim z As Integer
Dim m As Integer
Dim fact As Integer
Private Sub Command1_Click()
t = 10
fact = 1
For i = 1 To Text3 Step 1
List1.AddItem i
fact = fact * i
Text2 = fact
Next
List1.AddItem i
End Sub

Private Sub Form_Load()
Timer1.Enabled = True
t = 10
End Sub

Private Sub Text1_Change()
Text1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Countdown.Text = t
If t = 0 Then
Text3.Enabled = False
Timer1.Enabled = False
End If
t = t - 1
End Sub

[Philip Munce]

Hi Mezzeric,

My initial suspicion is that the data type of "fact" is causing the problem. I have had similar problems in the past with VB6 or VBA not handling larger numbers. I got around it by declaring the variable as a type Long. The reason for this is that Integer stores values in the range of (-32,768) - (+ 32,767) and Longs store values in the range of (- 2,147,483,468) - (+ 2,147,483,468).

try:

Dim fact As Long

and see if it fixes the problem.

Hope this helps.

Phil

This post has been edited by Philip Munce: 18 October 2009 - 04:48 AM

[Mezzeric]

Philip Munce, on 18 Oct, 2009 - 03:46 AM, said:

Hi Mezzeric,

My initial suspicion is that the data type of "fact" is causing the problem. I have had similar problems in the past with VB6 or VBA not handling larger numbers. I got around it by declaring the variable as a type Long. The reason for this is that Integer stores values in the range of (-32,768) - (+ 32,767) and Longs store values in the range of (- 2,147,483,468) - (+ 2,147,483,468).

try:

Dim fact As Long

and see if it fixes the problem.

Hope this helps.

Phil

Thanks Mr. Phil for the help. Still there's a
Runtime Error-6 - Overflow

and when i click the "DEBUG" it highlights:

fact = fact * i

but the good thing is i can now view the correct answer of the inputted number not the default 5040 .

[vb5prgrmr]

If not long then look in help for data type summary. Perhaps double or currency will do...



Good Luck

[Mezzeric]

vb5prgrmr, on 18 Oct, 2009 - 05:30 AM, said:

If not long then look in help for data type summary. Perhaps double or currency will do...



Good Luck

Wooha.. double did the job Thankies.

but now my last problem is the answer: if i input 55 there's a letter(e.g 1.425324E43) on the answer BOX.

[ravmonster]

Mezzeric, on 18 Oct, 2009 - 05:48 AM, said:

vb5prgrmr, on 18 Oct, 2009 - 05:30 AM, said:

If not long then look in help for data type summary. Perhaps double or currency will do...



Good Luck

Wooha.. double did the job Thankies.

but now my last problem is the answer: if i input 55 there's a letter(e.g 1.425324E43) on the answer BOX.

Bos galing nila no...

[Mezzeric]

@ravmonster LOL i'm still a newbie, so yeah!