[Console]Taschenrechner

[B]
[COLOR="Blue"]Module Module1
    Sub Main()
        Console.WriteLine("Exit [0]" + vbNewLine + "")
        Console.WriteLine("+ [1]")[/COLOR] [COLOR="YellowGreen"]' Das Menü das einfach nur aus Text besteht[/COLOR]
        [COLOR="Blue"]Console.WriteLine("- [2]")[/COLOR] [COLOR="YellowGreen"]' Console.Writeline schreibt Text in eine neue Zeile[/COLOR]
        [COLOR="Blue"]Console.WriteLine("* [3]")[/COLOR] [COLOR="YellowGreen"]' Der Text muss zwischen zwei () und zwei "" stehen. Also so Console.Writeline("Text").[/COLOR]
        [COLOR="Blue"]Console.WriteLine("/ [4]" + vbNewLine + "")[/COLOR] [COLOR="YellowGreen"] 'Zwischen den zwei Anfürungszeichen darf man fast alle Zeichen verwenden
        'allerdings dürfen darin keine "" enthalten sein. Es gibt Asc Codes die die Sonderzeichen etc. ersetzen
        'gebe bei google einfach ACII Tabelle ein. Hier mal ein Beispiel Console.Writeline ("" +Asc(Nummer)+ "Text" +Asc(Nummer)+ "")
        'Zudem Kann die Console auch nicht alle Zeichen anzeigen.[/COLOR]


        [COLOR="Blue"]Dim menuselect As String = Console.ReadLine[/COLOR] [COLOR="YellowGreen"]' Liest welchen Menüpunkt man wählen will[/COLOR]


        [COLOR="Blue"]If menuselect = "1" Then[/COLOR] [COLOR="YellowGreen"]' Wenn dort die Zahl steht wird der Menüpunkt ausgeführt[/COLOR]


            [COLOR="Blue"]Console.WriteLine("" + vbNewLine + "Zahl1:")[/COLOR] [COLOR="YellowGreen"]'Diese "+vbnewline+" sorgt für einen Zeilenumbruch[/COLOR]
           [COLOR="Blue"] Dim zahl1 As Double = Console.ReadLine[/COLOR] [COLOR="YellowGreen"]'eine Variable mit dem Namen zahl1.Die Variable ist ein double.[/COLOR]
            [COLOR="Blue"]Console.WriteLine("" + vbNewLine + "Zahl2:")[/COLOR]
            [COLOR="Blue"]Dim zahl2 As Double = Console.ReadLine[/COLOR] [COLOR="YellowGreen"]' =Console.Readline bedeute das der Inhalt der Variable das ist was er in dieser Zeile ließt.[/COLOR]
           [COLOR="Blue"] Console.WriteLine("" + vbNewLine + "Ergebnis:")
            Console.WriteLine(zahl1 + zahl2)[/COLOR] [COLOR="YellowGreen"]' Rechnet die Variablen zahl1 und zahl2 zusammen[/COLOR]


            [COLOR="Blue"]Console.ReadKey()[/COLOR] [COLOR="YellowGreen"]' Sorgt dafür das die Console nach dem zusammenrechnen offen bleibt, damit man das Ergebinis auch lesen kann.[/COLOR]
            [COLOR="Blue"]Console.Clear()[/COLOR] [COLOR="YellowGreen"]' Nachdem man einmal Enter gedrückt hat wird die Console geleert[/COLOR]
           [COLOR="Blue"] Main() [/COLOR]        [COLOR="YellowGreen"] ' und die sub Main () wird wiederholt, also beginnt der rechenvorgang wieder von vorne.
[/COLOR]


            [COLOR="YellowGreen"] 'Hier mal ein paar Variablen Typen


            ' Typen          Wertebereich


            ' Byte              0...255
            ' SByte          -128...127
            ' Short          -215...215
            ' Integer        -231...231
            ' Long           -263...263
            ' Boolean        True or False
            ' Date           1/1/1 12:0:0 - 31/12/9999 23:59:59
            ' Object         universell 
            ' String         ca. 231 Unicode-Zeichen


            ' Single, Double, Decimal umfassen einen seh großen bereich an zahlen die man aber eigentlich nur braucht
            ' wenn das ergebnis bis nach der xten Kommastelle genau seien soll. Decimal ist das höchste was es in vb gibt.
            '---------------------------------------------------------------------------------------------------------------------[/COLOR]
        [COLOR="Blue"]ElseIf menuselect = "2" Then


            Console.WriteLine("" + vbNewLine + "Zahl1:")
            Dim zahl1 As Double = Console.ReadLine
            Console.WriteLine("" + vbNewLine + "Zahl2:")
            Dim zahl2 As Double = Console.ReadLine
            Console.WriteLine("" + vbNewLine + "Ergebnis:")
            Console.WriteLine(zahl1 - zahl2)


            Console.ReadKey()
            Console.Clear()
            Main()


        ElseIf menuselect = "3" Then


            Console.WriteLine("" + vbNewLine + "Zahl1:")
            Dim zahl1 As Double = Console.ReadLine
            Console.WriteLine("" + vbNewLine + "Zahl2:")
            Dim zahl2 As Double = Console.ReadLine
            Console.WriteLine("" + vbNewLine + "Ergebnis:")
            Console.WriteLine(zahl1 * zahl2)


            Console.ReadKey()
            Console.Clear()
            Main()


        ElseIf menuselect = "4" Then


            Console.WriteLine("" + vbNewLine + "Zahl1:")
            Dim zahl1 As Double = Console.ReadLine
            Console.WriteLine("" + vbNewLine + "Zahl2:")
            Dim zahl2 As Double = Console.ReadLine
            Console.WriteLine("" + vbNewLine + "Ergebnis:")


            If zahl2 = 0 Or zahl1 = 0 Then[/COLOR] [COLOR="YellowGreen"]' Wenn die erste oder die zweite Zahl 0 ist passiert das...[/COLOR]
                [COLOR="Blue"]MsgBox("Durch null kann man nicht teilen!!!")[/COLOR] [COLOR="YellowGreen"]' eine einfache Msgbox[/COLOR]


                [COLOR="Blue"]Console.Clear()[/COLOR] [COLOR="YellowGreen"]'Kennen wir ja schon^^[/COLOR]
                [COLOR="Blue"]Main()
            Else [/COLOR][COLOR="YellowGreen"]' Sollten die erste und die zweite Zahl nicht 0 sein wird das Ergebnis angezeigt...[/COLOR]
                [COLOR="Blue"]Console.WriteLine(zahl1 / zahl2)[/COLOR]


                [COLOR="Blue"]Console.ReadKey()
                Console.Clear()
                Main()
            End If
            '-----------------------------------------------------------------
        ElseIf menuselect = "0" Then[/COLOR]
            [COLOR="YellowGreen"]' Then man den Punkt exit auswählt und eine 0 eingibt passiert nichts mehr und die
            ' Console wird geschloßen[/COLOR]
[COLOR="Blue"]
        Else
            MsgBox("Üngültige Zahl!")[/COLOR] [COLOR="YellowGreen"]' sollte(am Anfang) bei der auswahl der Rechenart eine ungültige Zahl
            'eingegeben werden wird eine kleine MsgBox geöffnet und die Sub Main neugestartet.[/COLOR]


          [COLOR="Blue"]  Console.Clear()
            main()
        End If


    End Sub[/COLOR]
   [COLOR="Red"] 'Made by Temo[/COLOR]
[COLOR="Blue"]End Module[/COLOR]