überlauffehler durch msgbox ersetzen

  • Sonstige

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von Blauarschbube666.

    überlauffehler durch msgbox ersetzen

    hallo!
    ich habe das problem, dass in meinem gauss-algorithmus ein überlauffehler auftritt, den ich allerdings durch eine msgbox einen schritt davor unterbinden und anschließend die ganze prozedur beenden möchte.
    das kriege ich absolut nicht hin

    ich gebe mal die variablenbereiche und die besagte stelle ein.

    Visual Basic-Quellcode

    1. Sub gaussalgo(n%, A() As Double, x() As Double)
    2. Dim max As Double, s As Double, skal() As Double
    3. Dim z%, k%, y%, kmax%, zmax%, merk() As Integer
    4. ReDim merk(n), skal(n)
    6. [...]
    8. For k = 1 To n - 1
    9. max = skal(k) * Abs(A(k, k))
    10. kmax = k
    11. zmax = k
    12. For z = k To n
    13. For y = k To n
    14. If skal(z) * Abs(A(z, y)) > max Then
    15. zmax = z
    16. kmax = y
    17. max = skal(z) * Abs(A(z, y))
    18. End If
    19. Next
    20. Next
    21. If zmax <> k Then
    22. For z = k To n + 1
    23. s = A(k, z)
    24. A(k, z) = A(zmax, z)
    25. A(zmax, z) = s
    26. Next
    27. s = skal(k)
    28. skal(k) = skal(zmax)
    29. skal(zmax) = s
    30. End If
    31. If kmax <> k Then
    32. For y = 1 To n
    33. s = A(y, k)
    34. A(y, k) = A(y, kmax)
    35. A(y, kmax) = s
    36. Next
    37. z = merk(k)
    38. merk(k) = merk(kmax)
    39. merk(kmax) = z
    40. End If
    43. For y = k + 1 To n
    45. s = A(y, k) / A(k, k) ' überlaufstelle
    46. A(y, k) = 0#
    47. For z = k + 1 To n + 1
    48. A(y, z) = A(y, z) - s * A(k, z)
    51. Next
    52. Next
    53. Next


    keine ahnung, ob das ausreicht, um mir weiterzuhelfen, falls nicht, setze ich noch mehr rein.
    ich dachte mir irgendwie so, dass ich einfach eine if-then-bedingung einbaue, so ungefähr "wenn dieses array den wertebereich übersteigt, dann:
    msgbox "[...]" und end, ansonsten: weiter fortfahren.

    ist leider leichter gesagt als getan. kann mir jemand behilflich sein?
    danke

    Edit by Manschula: Thema verschoben

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Blauarschbube666“ ()

    RodFromGermany schrieb:

    Poste bitte mal die genaue Fehlermeldung.
    Laufzeitfehler '6':
    Überlauf

    gelbe markierung an besagter stelle

    Bahaoth schrieb:

    kann es sein das A(k,k)
    an der Stelle = 0 wird?
    könnte sein; kommt den bei division durch null auch laufzeitfehler 6?

    ich hatte das problem schon, wenn ich andere variable eingelesen habe und da habe ich dann unter das letzte next runtergesetzt:

    Visual Basic-Quellcode

    1. If A(n, n) = 0 Then
    3. MsgBox "Dieses Gleichungssystem ist nicht oder nicht eindeutig lösbar."
    5. End
    6. else
    8. [weiterer subverlauf]


    und das hat dann auch funktioniert. allerdings kommt bei einer anderen besonderer variablensituation (nämlich lineare abhängigkeit) genau dasselbe vor (siehe ersten post) und meine if-then-else-sache funktioniert nicht mehr.

    kann es sein, dass s zu einer zahl wird, die den wertebereich der variablen sprengt?

    ich könnte zu beginn natürlich den bereich erweitern, möchte es aber so machen, dass bei austreten aus dem wertebereich eine msgbox kommt.
    oder will ich etwas unmögliches?^^ hab davon keine ahnung

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Blauarschbube666“ ()

    Blauarschbube666 schrieb:

    s = A(y, k) / A(k, k) ' überlaufstelle
    Deutet darauf hin, dass das Ergebnis die kleinstmögliche Double-Zahl (4,94065645841246544E-324) unterschreitet.

    Abfangen kannst du in VBA mit einem "On Error"-Statement.
    Variante1 :

    Visual Basic-Quellcode

    1. For ...
    2. On Error Resume Next
    3. s = A(y, k) / A(k, k)
    4. If Err.Number <> 0 Then
    5. MsgBox Err.Description
    6. Exit Sub
    7. End If
    8. On Error Goto 0
    9. Next

    Variante 2:

    Visual Basic-Quellcode

    1. Private Function TryDivision (ByVal Dividend as Double, Divisor as Double, Optional ByRef Result as Double) as Long
    2. On Error Resume Next
    3. Result = Dividend / Divisor
    4. TryDivision = Err.Number
    5. End Function
    7. ...
    8. 'HauptProgramm:
    9. ...
    10. For ...
    11. If TryDivision (A(y,k), A(k,k), s) <> 0 Then
    12. MsgBox "Fehler"
    13. Exit Sub
    14. End If
    15. Next
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    picoflop schrieb:

    Blauarschbube666 schrieb:

    dass mein threadtitel falsch ist oder dass ich hier komplett im falschen bereich bin?

    Dein PREFIX (VB 2010) WAR falsch und du WARST im falschen Unterforum. So was kommt vor. Dafür hat ein Mod dich verschoben und den Prefix angepasst ;)
    verdammt, sorry leute :S
    danke an den mod^^

    petaod schrieb:

    Blauarschbube666 schrieb:

    s = A(y, k) / A(k, k) ' überlaufstelle
    Deutet darauf hin, dass das Ergebnis die kleinstmögliche Double-Zahl (4,94065645841246544E-324) unterschreitet.

    Abfangen kannst du in VBA mit einem "On Error"-Statement.
    Variante1 :

    Visual Basic-Quellcode

    1. For ...
    2. On Error Resume Next
    3. s = A(y, k) / A(k, k)
    4. If Err.Number <> 0 Then
    5. MsgBox Err.Description
    6. Exit Sub
    7. End If
    8. On Error Goto 0
    9. Next

    Variante 2:

    Visual Basic-Quellcode

    1. Private Function TryDivision (ByVal Dividend as Double, Divisor as Double, Optional ByRef Result as Double) as Long
    2. On Error Resume Next
    3. Result = Dividend / Divisor
    4. TryDivision = Err.Number
    5. End Function
    7. ...
    8. 'HauptProgramm:
    9. ...
    10. For ...
    11. If TryDivision (A(y,k), A(k,k), s) <> 0 Then
    12. MsgBox "Fehler"
    13. Exit Sub
    14. End If
    15. Next
    zum teufel, ja!
    danke dir :D
    dank an alle hier^^