[Konsolenanwendung] Praktisch dynamische Abfragen

    • VB.NET

      [Konsolenanwendung] Praktisch dynamische Abfragen

      Hallo comm,

      Ich hatte einmal folgendes vor: Ich wollte ein kleines Quiz erstellen. Das ist eigentlich nicht schwierig, aber wirklich saumäßig viel zu schreiben. Daher dachte Ich mir, wie praktisch es wäre, wenn Ich einfach nur Frage und Auswahlmöglichkeit an eine Funktion übergeben müsste, die diese Antworten dann automatisch auswertet. Dabei war mir auch wichtig, dass Ich beliebig viele Fragen übergeben und alle Aktionen die je nach gewählter Option ausgeführt werden, selbst festlegen kann, um das ganze dynamisch zu gestalten. Ich hab das mal ausprobiert und siehe da, es klappt hervorragend :) Da Ich euch das nicht vorenthalten will, heir also das HowTo.

      VB.NET-Quellcode

      1. Module Module1
      4. Sub Main()
      5. Starte()
      6. Console.Clear()
      7. Console.WriteLine("Programmende ...")
      8. Console.ReadLine()
      9. End Sub
      11. Sub Starte()
      12. 'Das hier ist nun der eigentliche Aufruf:
      13. '
      14. 'Gehen wir das mal durch:
      15. '
      16. 'Parameter #1 ist ein String. Hier wird eingegeben, was der Benutzer mehr oder weniger
      17. '"zu tun hat". Zum Beispiel: "Eählen Sie eine Option" oder "Wählen Sie die richtige Antwort" oder
      18. 'dergleichen
      19. '
      20. 'Parameter #2 ist ein Array. Der wichtigste Teil von allen!
      21. 'Hier können beliebig viele Werte eingetragen werden. Sie stellen die einzelnen
      22. 'Auswahlmöglichkeiten dar. Wie zu sehen ist, ist das ein 2-dimensionales Array.
      23. 'In der ersten Dimension werden wie eben gesagt die Auswahlmöglichkeiten eingetragen, also
      24. 'eben eine kurze Beschreibung, was passiert, wenn er diese Option wählt.
      25. 'Und in der 2. Dimension wird's dann richtig spannend. Das sind die Zahlen,
      26. 'die das Programm intern auswertet. Da wir hier im folgenden 3 Auswahlmöglichkeiten haben, können
      27. 'hierfür auch nur 3 Zahlen angegeben werden. Diese werden dann unten über Select case abgefragt.
      28. 'Eigentlich ist es egal was hier für Zahlen stehen, je nachdem, welche Aktion dafür festgelegt
      29. 'ist, wird diese ausgeführt.
      30. 'Dabei ist jedoch die Reihenfolge der Zahlen nicht egal, hier in diesem Fall
      31. 'ist Aktion 8 auszuführen, wenn die erste Option gewählt wird, Aktion 1 bei der zweiten und Aktion 13 bei der dritten.
      32. 'Das ist jetzt wirklich ein wenig schwer zu erklären, das beste wird sein, Ihr testet es ;)
      33. Aufgabe("Was ist zu tun?", {{"Option1", "Option2", "Option3"}, {8, 1, 3}}, False, 1)
      37. 'Praxisbeispiel einfache Antwort
      38. Aufgabe("Gibt es unter Linux den Befehl ""rm""?", {{"Nein, nur unter Windows", "Ja", "Weiß nicht"}, {8, 1, 3}}, False, 1)
      40. 'Praxisbeispiel mehrfachantwort
      41. Aufgabe("Welches davon ist eine Schulnote?", {{"Sehr gut", "gut", "Mies", "Mangelhaft", "Genial"}, {21, 18, 112, 97, 4}}, False, 2)
      42. End Sub
      44. Sub Aufgabe(ByVal ToDo As String, ByVal Aufgaben(,) As String, Optional ByVal MultiAns As Boolean = False, Optional ByVal Nummer As Integer = 0)
      45. 'Erstmal Konsole leeren
      46. Console.Clear()
      48. 'Optional, zeigt lediglich an, ob eine oder mehrere Antworten/Aktionen wählbar sind
      49. 'Kann weggelassen werden, zur Ausgabe aber beim testen praktisch
      50. If MultiAns = False Then
      51. Console.WriteLine("[Aufgabe " & Nummer & " - EINE_ANTWORT]")
      52. Else
      53. Console.WriteLine("[Aufgabe " & Nummer & " - MEHRERE_ANTWORTEN]")
      54. End If
      56. 'Die gestellte Aufgabe ausgeben, oder was auch immer der Benutzer hier zu tun hat
      57. Console.WriteLine(ToDo)
      58. Console.WriteLine()
      60. 'Optionen aus dem Aufgabenarray über die Konsole ausgeben ...
      61. Dim ia As Integer = 0
      62. For Each item As String In Aufgaben
      63. If item.Length = 1 Then Exit For
      64. Console.Write("[" & ia + 1 & "]" & vbTab)
      65. Console.Write(item & vbNewLine)
      66. ia += 1
      67. Next
      69. '...und die Benutzereingaben empfangen
      70. Console.WriteLine()
      71. Console.Write("Wählen Sie Ihre Option> ") 'Eingaberompt
      72. Dim Eingabe As String = Console.ReadLine()
      73. 'Fall Leerzeichen enthalten sind, kommen die raus, damit die Eingaben schön über Komma in's
      74. 'Array eingelesen werden können
      75. Eingabe = Eingabe.Replace(" ", "")
      77. 'Falls es mehrere Optionen waren, in Array einlesen. Bei mehreren Optionen mit Komma trennen
      78. Dim MehrfachEingabe() As String = Eingabe.Split(",")
      80. 'Welche Aktion soll ausgeführt werden?
      81. For Each SOption As String In MehrfachEingabe
      82. If CInt(SOption) > Aufgaben.Length / 2 Then
      83. Console.ForegroundColor = ConsoleColor.Red
      84. Console.WriteLine("Fehlerhafte Eingabe, es standen nicht genügend Optionen zur Verfügung:")
      85. Else
      86. Console.ForegroundColor = ConsoleColor.Green
      87. End If
      89. Select Case SOption
      90. Case 1
      91. Console.WriteLine("Sie haben 1 eingegeben")
      92. Case 2
      93. Console.WriteLine("Sie haben 2 eingegeben")
      94. Case 3
      95. Console.WriteLine("Sie haben 3 eingegeben")
      96. Case Else
      97. Console.WriteLine("Unbekannte Option: " & SOption)
      98. End Select
      99. Next
      101. 'Schließlich das Ende der Abfrage
      102. Console.WriteLine(vbNewLine & vbNewLine & "Drücke Enter um [was auch immer]...")
      103. Console.ReadLine()
      104. 'Aktion...
      105. End Sub
      111. 'Um die Praxisbeispiele von oben direkt zu testen, einfach diese Sub entsprechend wie die obere Anpassen und hineinkopieren
      112. Sub Praxisbeispiel()
      113. 'Praxisbeispiel einfache Antwort
      114. 'Aufgabe("Gibt es unter Linux den Befehl ""rm""?", {{"Nein, nur unter Windows", "Ja", "Weiß nicht"}, {8, 1, 3}}, False, 1)
      115. 'Praxisbeispiel mehrfachantwort
      116. 'Aufgabe("Welches davon ist eine Schulnote?", {{"Sehr gut", "gut", "Mies", "Mangelhaft", "Genial"}, {21, 18, 112, 97, 4}}, False, 2)
      118. For Each SOption As String In "x"
      119. Select Case SOption
      120. Case 1
      121. Console.WriteLine("Richtig")
      122. Case 8
      123. Console.WriteLine("Nein, nicht mal unter Windows")
      124. Case 13
      125. Console.WriteLine("Das ist schlecht ...")
      126. Case 21, 18, 97
      127. Console.WriteLine("Richtig, die gibt es")
      128. Case 112, 5
      129. Console.WriteLine("Die gibt es nicht..")
      130. End Select
      131. Next
      132. End Sub
      134. End Module



      Ihr könnt hier nun noch einige Funktionen mehr einbauen, wie beispielsweise, die Fragen oder dergleichen aus einer Textdatei lesen, um den Nutzer sozusagen sein eigenes Quiz machen zu lassen. Was Ihr damit macht, ist mir egal, es steht jedem frei, den Code wie er lustig ist zu verändern, verbessern oder zu erweitern :)

      PS: Ich werde noch einige Beispielprogramme nachtragen(incl. SourceCode), wenn Ihr möchtet. Wenn nicht ... werde Ich es trotzdem tun xD



      link_275 :thumbup:
      Hello World

    Facebook
    Telefonspende