pascal_spare
Newbie
- Oct 12, 2022
- 2
- 0
I programmed small program that can pick even or odd numbers from a sequence of numbers the user decide, but when I wrote an error handling in next code the program failed to deal with the overflow problem when I entered a so big number in the sequence:
My complete code is in: https://www.mediafire.com/file/gunhm09oimvm9sl/untitled02.7z/file
Code:
Private Sub generatecmd_Click()
On Error GoTo ErrHandler
Let StartNumber = Val(fromtxt.Text)
Let EndNumber = Val(totxt.Text)
showtxt.Text = ""
If StartNumber <= EndNumber Then Let s = Val(steptxt.Text) Else Let s = -1 * Val(steptxt.Text)
If steptxt = "" Then
If StartNumber <= EndNumber Then Let s = 1 Else Let s = -1
End If
For i = StartNumber To EndNumber Step s
If EvenOpt.Value = True Then
If Not (i Mod 2 = 0) Then GoTo pass
ElseIf OddOpt.Value = True Then
If i Mod 2 = 0 Then GoTo pass
End If
If NegativeOpt.Value = True Then
If i >= 0 Then GoTo pass
ElseIf PositiveOpt.Value = True Then
If i < 0 Then GoTo pass
End If
showtxt.Text = showtxt.Text & i & vbNewLine
pass:
Next i
Exit Sub
ErrHandler:
MsgBox (Err.Description)
End SubMy complete code is in: https://www.mediafire.com/file/gunhm09oimvm9sl/untitled02.7z/file