Rechner nach dem Schriftlichen Grundprinzip bringt nullen durcheinander

  • WPF

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von ichduersie.

    Rechner nach dem Schriftlichen Grundprinzip bringt nullen durcheinander

    Hi, ich arbeite an einem Rechner Funktion die es erlaubt extrem hohe Zahlen auszurechnen(Nach dem schriftlichen Prinzip wie man es in der Schule gelernt hatte). Wo man beim PC nur ein Error bekommt, bekommt man bei mir ein Resultat. So weit alles gut. Aber ich hab das Problem das er irgendwie nullen durcheinander wirft. Z.B wenn ich 10+10 rechne bekomme ich nicht 20 sondern 002. Das Problem tritt leider sehr häufig vor und der Code ist somit nicht groß brauchbar. Ich hab mal den Ort markiert(Mit 2 Kommentaren) wo möglicherweise der Fehler könnte sein. Hoffentlich könnt ihr mir helfen.
    LG

    VB.NET-Quellcode

    1. Module Module1
    3. Sub Main()
    5. Console.WriteLine(optplus(Console.ReadLine()))
    6. Main()
    7. End Sub
    9. Function optplus(ByVal num As String)
    10. If num = "clear" Then
    12. Console.Clear()
    13. Console.WriteLine()
    14. Else
    15. Try
    16. Dim numm As Array = Split(num, "+")
    17. Dim result As String = ""
    18. Dim temp As Integer = "0"
    19. Dim temp1 As Integer = "0"
    20. Dim temp2 As Integer = "0"
    21. Dim count As Integer = "0"
    22. Dim ueber As Integer = "0"
    24. For Each var0 As String In numm(0)
    26. For Each var1 As String In numm(1)
    27. If temp2 = count Then
    28. temp1 = var1
    29. End If
    30. temp2 = temp2 + 1
    31. Next
    32. count = count + 1
    33. temp2 = 0
    34. temp = temp1 + var0
    35. temp = temp + ueber
    36. //Mögliche Positions des Fehlers
    37. If temp >= 10 Then
    38. //Hier wird überschlagen, und hier vermute ich den Fehler... Aber finden tue ich den leider nicht ?(
    39. temp1 = Left(temp, 1)
    40. If temp = 10 Then
    41. temp = "0"
    42. Else
    43. temp = Right(temp, 1)
    44. End If
    46. Else
    47. temp1 = 0
    48. temp = Right$(temp, 1)
    49. End If
    50. ueber = temp1
    51. //Ende Fehler Position
    52. result = temp & result
    54. Next
    56. Return ueber & result
    57. Catch ex As Exception
    58. Return "Es wurde kein Ergebniss erzeilt: ERROR"
    59. End Try
    60. End If
    61. End Function
    62. End Module

    gabriel-b schrieb:

    Dim ueber As Integer = "0"
    Vollkommener Schwachsinn. Dass das nicht läuft, ist klar. Schaue dir mal Option Strict an. Das gilt übrigens für alle deiner Variablendeklarationen.

    Und für große Zahlen, nutze am besten die BigInteger.

    LG :)

    Vollzitat entfernt. ~Trade
    Ok, habe ich gemacht. Hab den Code ein wenig "verschönert". Jetzt bekomme ich aber auf Zeile 24 einen Fehler(beim Array). Was muss ich dort anders machen als ich es jetzt habe? Das Problem mit den Nullen bleibt aber immer noch.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Trade“ ()

    Wie wäre es hiermit? msdn.microsoft.com/de-de/library/wak0wfyt.aspx

    Was du da machst ist wieder Mist und sieht danach aus, als hättest du keine Ahnung von der Sprache, da du da leider kein Array erstellt hast.

    Ein Tipp: microsoft-press.de/url.asp?cnt=mspress_vb2010 <- Kostenloses E-Book von Microsoft zur Sprache Visual Basic. Da wird alles behandelt. Von den Grundlagen, die du nicht wirklich zu kennen scheinst, über Datenbanken, WinForms, wirklich alles. Bitte lese dir das durch und lerne daraus. Es sind zwar mehr als 1000 Seiten, aber du musst ja nicht alles behandeln. Wenn dich bspw. Datenbanken nicht interessieren, dann lass die weg. Ist ein riesiger Teil, aber bitte lerne die Grundlagen, bevor du programmierst.

    LG :)

Facebook
Telefonspende