Argumente übergeben, Sub Main (byval...as...)

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von FuFu^^.

    Argumente übergeben, Sub Main (byval...as...)

    VB.NET-Quellcode

    1. Imports System.Console
    3. Module Module1
    5. Sub Main(ByVal Argumente() As String)
    7. Dim opt1, opt2, Ergebnis As Single
    9. ArgumenteCheck(Argumente)
    11. Ergebnis = Rechnen(Argumente)
    12. opt1 = Argumente(0)
    13. opt2 = Argumente(2)
    15. Writeline("Ergebnis: {0} {1} {2} = {3}", opt1, Argumente(1), opt2, Ergebnis)
    16. End Sub
    18. Sub ArgumenteCheck(ByVal Argumente() As String)
    19. If Argumente.Length > 3 Then
    20. WriteLine("Fehler: Zuviele Argumente!")
    21. End
    22. End If
    24. If Argumente.Length < 3 Then
    25. WriteLine("Fehler: Zuwenig Argumente!")
    26. End
    27. End If
    29. 'Fehlermeldung ob falscher Operator
    30. If Not Argumente(1) = "*" Then
    31. If Not Argumente(1) = "-" Then
    32. If Not Argumente(1) = "+" Then
    33. If Not Argumente(1) = "/" Then
    34. WriteLine("Fehler: {0} ist kein passender Operator!", Argumente(1))
    35. End
    36. End If
    37. End If
    38. End If
    39. End If
    40. End Sub
    42. Private Function Rechnen(ByVal Argumente() As String) As Single
    43. Dim Ergebnis, opt1, opt2 As Single
    44. opt1 = Argumente(0)
    45. opt2 = Argumente(2)
    47. If Argumente(1) = "*" Then
    48. Ergebnis = opt1 * opt2
    49. End If
    51. If Argumente(1) = "/" Then
    52. Ergebnis = opt1 / opt2
    53. End If
    55. If Argumente(1) = "-" Then
    56. Ergebnis = opt1 - opt2
    57. End If
    59. If Argumente(1) = "+" Then
    60. Ergebnis = opt1 + opt2
    61. End If
    63. Return Ergebnis
    64. End Function
    66. End Module



    Liebe Leute,

    ich habe hier folgendes Programm. Könntet ihr mir sagen, was ich falsch gemacht habe? WIe kann ich das Ergebnis übergeben? Er sagt immer, dass es ein Fehler ist, weil keine Argumente übergeben wurden.

    Danke im voraus

    Was gibt denn Dein Programm bei folgender Ergänzung aus:

    VB.NET-Quellcode

    1. Sub Main(ByVal Argumente() As String)
    2. For Each arg In Argumente
    3. Console.WriteLine(arg)
    4. Next
    5. Console.ReadKey()
    6. ' ...
    7. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    beim Debuggen die Argumente mitgeben wäre sinnvoll ;) Allerdings dann in der Form "6 + 7" (ohne " !) sonst erkennt dein Programm (wie es jetzt ist) die Zeichen als einen einzelnen Parameter.

    Vernünftiges Casten wäre übrigens auch hilfreich, wenn du mit Werten aus Strings rechnen willst.

    Google-Suche: "debugging arguments visual studio"

    stackoverflow schrieb:

    Try this:

    Right click your project in Solution Explorer and select Properties from the menu
    Go to Configuration Properties -> Debugging
    Set the Command Arguments in the property list.


    und bzgl. Casten
    msdn.microsoft.com/en-us/libra…tem.convert.tosingle.aspx


    hast du versucht dir selbst zu helfen, bevor du deinen letzten Post verfasst hast?

    Lernresistent?

    RodFromGermany schrieb:

    Was gibt denn Dein Programm bei folgender Ergänzung aus:

    VB.NET-Quellcode

    1. Sub Main(ByVal Argumente() As String)
    2. For Each arg In Argumente
    3. Console.WriteLine(arg)
    4. Next
    5. Console.ReadKey()
    6. ' ...
    7. End Sub
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!