Lerne X in Y Minuten

Module Modul1

Sub Main()
  ' Ein kurzer Blick auf Visual Basic-Konsolenanwendungen
  ' bevor wir tiefer in das Thema eintauchen.
  ' Das Hochkomma leitet eine Kommentarzeile ein.
  ' Um dieses Tutorial innerhalb des Visual Basic Compilers zu erkunden,
  ' habe ich ein Navigationssystem erstellt.
  ' Dieses System wird im weiteren Verlauf des Tutorials erklärt;
  ' Sie werden nach und nach verstehen, was das alles bedeutet.
  Console.Title = ("Lerne X in Y Minuten")
  Console.WriteLine ("NAVIGATION") 'Anzeige
  Console.WriteLine ("")
  Console.ForegroundColor = ConsoleColor.Green
  Console.WriteLine ("1. Ausgabe von 'Hallo, Welt'")
  Console.WriteLine ("2. Eingabe 'Hallo, Welt'")
  Console.WriteLine ("3. ganze Zahlen berechnen")
  Console.WriteLine ("4. Berechne Dezimalzahlen")
  Console.WriteLine ("5. ein funktionaler Taschenrechner")
  Console.WriteLine ("6. 'Do While'-Schleifen verwenden")
  Console.WriteLine ("7. Verwendung von 'For While'-Schleifen")
  Console.WriteLine ("8. Bedingte Anweisungen")
  Console.WriteLine ("9. Ein Getränk auswählen")
  Console.WriteLine ("50. Über")
  Console.WriteLine ("Wählen Sie eine Zahl aus der obigen Liste")
  Dim selection As String = Console.Readline()
  Select Case auswahl
    Case "1" 'Ausgabe "Hallo, Welt"
      Console.Clear() 'Löscht die Konsole und öffnet die private Subroutine
      AusgabeHalloWelt() 'Öffnet die genannte private Subroutine
    Case "2" 'Eingabe "hallo, Welt"
      Console.Clear()
      EingabeHalloWelt()
    Case "3" 'Berechne ganze Zahlen
      Console.Clear()
      BerechneGanzeZahlen()
    Case "4" 'Dezimalzahlen berechnen
      Console.Clear()
      BerechneDezimalZahlen()
    Case "5" 'Ein funktionaler Taschenrechner
      Console.Clear()
      Taschenrechner()
    Case "6" 'Verwendung von "Do While"-Schleifen
      Console.Clear()
      WhileSchleife()
    Case "7" 'Verwendung von "For While"-Schleifen
      Console.Clear()
      ForSchleife()
    Case "8" 'Bedingte Anweisungen
      Console.Clear()
      BedingteAnweisung()
    Case "9" 'If/Else-Anweisung
      Console.Clear()
      IfElseAnweisung() 'Ein Getränk auswählen
    Case "50" '"Über" Infobox
      Console.Clear()
      Console.Title = ("Lernen Sie X in Y Minuten :: Über")
      MsgBox ("Tutorial geschrieben von Brian Martin (@BrianMartinn)")
      Console.Clear()
      Main()
      Console.ReadLine()

  End Select
End Sub

'Eins - Ich habe Zahlen verwendet, um mich durch das obige Navigationssystem zu
'führen auf das ich später zurückkomme, um es zu implementieren.

'wir verwenden private Unterprogramme, um verschiedene Abschnitte des Programms
'zu trennen.
Private Sub AusgabeHalloWelt()
  'Titel der Konsolenanwendung
  Console.Title = "Ausgabe 'Hallo, Welt' | Lerne X in Y Minuten"
  'Verwenden Sie Console.Write("") oder Console.WriteLine(""), um die Ausgabe
  'anzuzeigen, gefolgt von Console.Read(), oder Console.Readline()
  'Console.ReadLine() zeigt die Ausgabe auf der Konsole an.
  Console.WriteLine ("Hallo, Welt")
  Console.ReadLine()
End Sub

'Zwei
Private Sub EingabeHalloWelt()
  Console.Title = "Hallo, Welt, ich bin.. | Lerne X in Y Minuten"
  'Variablen
  'Vom Benutzer eingegebene Daten müssen gespeichert werden.
  'Variablen beginnen ebenfalls mit Dim und enden mit As VariableType.

  'In diesem Lernprogramm wollen wir Ihren Namen wissen und das Programm
  'auf ihn antworten.
  Dim nutzername As String
  ' Wir verwenden "String", weil es sich um eine textbasierte Variable handelt.
  Console.WriteLine ("Hallo, wie ist Ihr Name?") 'Frage nach dem Benutzernamen.
  nutzername = Console.ReadLine() 'Benutzernamen speichern.
  Console.WriteLine ("Hallo, " + nutzername) 'Ausgabe ist Hallo, Name
  Console.ReadLine() 'Die obige Ausgabe anzeigen.
  'Der obige Code stellt Ihnen eine Frage und zeigt die Antwort an.
  'Neben anderen Variablentypen gibt es Integer, den wir für ganze Zahlen
  'verwenden werden.
End Sub

'Drei
Private Sub BerechneGanzeZahlen()
  Console.Title = "Berechne ganze Zahlen | Lerne X in Y Minuten"
  Console.Write ("Erste Zahl: ") 'Schreiben Sie eine ganze Zahl, 1, 2, 104, usw
  Dim a As Integer = Console.ReadLine()
  Console.Write ("Zweite Zahl: ") 'Schreiben Sie eine weitere ganze Zahl.
  Dim b As Integer = Console.ReadLine()
  Dim c As Integer = a + b
  Console.WriteLine (c)
  Console.ReadLine()
  'Dies ist ein einfacher Taschenrechner
End Sub

'Vier
Private Sub BerechneDezimalZahlen()
  Console.Title = "Berechne mit dem Typ Double | Lerne X in Y Minuten"
  'Natürlich würden wir gerne Dezimalzahlen addieren.
  'Also könnten wir von Integer auf Double umstellen.

  'Schreiben Sie eine Bruchzahl, 1.2, 2.4, 50.1, 104.9 usw
  Console.Write ("Erste Zahl: ")
  Dim a As Double = Console.Readline()
  Console.Write ("Zweite Zahl: ") 'Schreiben Sie die zweite Zahl.
  Dim b As Double = Console.Readline()
  Dim c As Double = a + b
  Console.WriteLine (c)
  Console.ReadLine()
  'Dieses Programm kann 1.1 und 2.2 addieren
End Sub

'Fünf
Private Sub Taschenrechner()
  Console.Title = "Der Funktionsrechner | Lerne X in Y Minuten"
  'Wenn Sie aber wollen, dass der Rechner subtrahiert, dividiert,
  'multipliziert und addiert.
  'Kopieren Sie den obigen Text und fügen Sie ihn ein.
  Console.Write ("Erste Zahl: ")
  Dim a As Double = Console.Readline()
  Console.Write ("Zweite Zahl: ")
  Dim b As Integer = Console.Readline()
  Dim c As Integer = a + b
  Dim d As Integer = a * b
  Dim e As Integer = a - b
  Dim f As Integer = a / b

  'Mit den folgenden Zeilen können wir  die Werte a und b
  'subtrahieren, multiplizieren und dividieren
  Console.Write (a.ToString() + " + " + b.ToString())
  'Wir wollen den Ergebnissen einen linken Rand von 3 Leerzeichen geben.
  Console.WriteLine (" = " + c.ToString.PadLeft(3))
  Console.Write (a.ToString() + " * " + b.ToString())
  Console.WriteLine (" = " + d.ToString.PadLeft(3))
  Console.Write (a.ToString() + " - " + b.ToString())
  Console.WriteLine (" = " + e.ToString.PadLeft(3))
  Console.Write (a.ToString() + " / " + b.ToString())
  Console.WriteLine (" = " + f.ToString.PadLeft(3))
  Console.ReadLine()

End Sub

'Sechs
Private Sub WhileSchleife()
  'Gleich zur vorherigen privaten Subroutine.
  'Diesmal fragen wir den Benutzer, ob er fortfahren möchte (ja oder nein?).
  'Wir verwenden die Do While-Schleife, weil wir nicht wissen, ob der Benutzer
  'das Programm mehr als einmal verwenden möchte.
  Console.Title = "Do While-Schleifen verwenden | X in Y Minuten lernen"
  Dim antwort As String 'Wir verwenden "String", weil die Antwort ein Text ist
  Do 'Wir beginnen das Programm mit
    Console.Write ("Erste Zahl: ")
    Dim a As Double = Console.Readline()
    Console.Write ("Zweite Zahl: ")
    Dim b As Integer = Console.Readline()
    Dim c As Integer = a + b
    Dim d As Integer = a * b
    Dim e As Integer = a - b
    Dim f As Integer = a / b

    Console.Write (a.ToString() + " + " + b.ToString())
    Console.WriteLine (" = " + c.ToString.PadLeft(3))
    Console.Write (a.ToString() + " * " + b.ToString())
    Console.WriteLine (" = " + d.ToString.PadLeft(3))
    Console.Write (a.ToString() + " - " + b.ToString())
    Console.WriteLine (" = " + e.ToString.PadLeft(3))
    Console.Write (a.ToString() + " / " + b.ToString())
    Console.WriteLine (" = " + f.ToString.PadLeft(3))
    Console.ReadLine()
    'Fragen Sie den Benutzer, ob er fortfahren möchte. Unglücklicherweise
    'werden Groß- und Kleinschreibung unterschieden.
    Console.Write ("Möchten Sie fortfahren? (j / n)")
    'Das Programm nimmt die Variable, zeigt sie an und beginnt von vorne.
    antwort = Console.Readline()
    'Der Befehl, der diese Variable zum Laufen bringt, ist in diesem Fall "j"
  Loop While antwort = "j"

End Sub

'Sieben
Private Sub ForSchleife()
  'Manchmal muss das Programm nur einmal ausgeführt werden.
  'In diesem Programm werden wir von 10 loszählen.

  Console.Title = "Mit "For"-Schleifen | X in Y Minuten lernen"
  'Deklarieren Sie die Variable und ab welcher Zahl in Schritt -1 gezählt
  'werden soll, Schritt -2, Schritt -3, usw.
  For i As Integer = 10 To 0 Schritt -1
    Console.WriteLine (i.ToString) 'Zählerwert anzeigen
  Next i 'Berechne den neuen Wert
  Console.WriteLine ("Start") 'Starten wir das Programm, baby!!!!
  Console.ReadLine() 'BANG!!!! - Vielleicht war ich zu aufgeregt :)
End Sub

'Acht
Private Sub BedingteAnweisung()
  Console.Title = "Bedingte Anweisungen | X in Y Minuten lernen"
  Dim username As String = Console.Readline()
  'Aufforderung zur Eingabe des Benutzernamens.
  Console.WriteLine ("Hallo, wie ist Ihr Name?")
  username = Console.ReadLine() 'Benutzernamen speichern.
  If username = "Adam" Then
    Console.WriteLine ("Hallo, Adam")
    Console.WriteLine ("Danke, dass Sie diese nützliche Website erstellt haben")
    Console.ReadLine()
  Else
    Console.WriteLine ("Hallo, " + Benutzername)
    Console.WriteLine ("Haben Sie www.learnxinyminutes.com besucht?")
    Console.ReadLine() 'Beendet und zeigt die obige Anweisung an.
  End If
End Sub

  'Neun
Private Sub IfElseAnweisung()
    Console.Title = "If / Else-Anweisung | X in Y Minuten lernen"
    'Manchmal ist es wichtig, mehr als zwei Alternativen in Betracht zu ziehen.
    'Manchmal sind einige von ihnen besser.
    'In diesem Fall brauchen wir mehr als eine "if"-Anweisung.
    'Eine "if"-Anweisung ist für Verkaufsautomaten geeignet.
    'Der Benutzer gibt einen Code ein (A1, A2, A3), aus dem er wählen kann.
    'Alle Auswahlmöglichkeiten können in einer einzigen "if"-Anweisung
    'kombiniert werden.

    Dim auswahl As String = Console.ReadLine 'Der Wert der Auswahl
    Console.WriteLine ("A1. für 7Up")
    Console.WriteLine ("A2. für Fanta")
    Console.WriteLine ("A3. für Dr. Pepper")
    Console.WriteLine ("A4. für Coca-Cola")
    Console.ReadLine()
  If auswahl = "A1" Dann
    Console.WriteLine ("7up")
    Console.ReadLine()
  ElseIf auswahl = "A2" Then
    Console.WriteLine ("fanta")
    Console.ReadLine()
  ElseIf auswahl = "A3" Then
    Console.WriteLine ("Dr. Pfeffer")
    Console.ReadLine()
  ElseIf auswahl = "A4" Then
    Console.WriteLine ("Coca-Cola")
    Console.ReadLine()
  Else
    Console.WriteLine ("Ein Produkt auswählen")
    Console.ReadLine()
  End If

End Sub

End Module