Zahlenraten

    • VB.NET

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

      Zahlenraten

      Hello,

      angeregt durch diesen Thread habe ich kurz ein Zahlenratespiel zusammengebastelt.
      Vorgegeben ist eine Zahl zwischen 1 und 100, und ihr könnt so oft tippen, bis die Zahl erraten wurde.

      Wenn jemand noch nicht so sattelfest in VB ist, kann er/sie hier vielleicht etwas abschauen. (Und die Profis brauchen schließlich auch was zum Lachen :D )

      Spoiler anzeigen

      VB.NET-Quellcode

      1. Module Module1
      2. Dim zeile As Integer = 1
      3. Dim spalte As Integer = 1
      4. Dim bisherigeVersuche As List(Of Integer)
      6. Sub Main()
      8. 'Minimum und Maximum festlegen
      9. Dim minimum As Integer = 1
      10. Dim maximum As Integer = 100
      12. 'Das Zufallsobjekt und die Zufallszahl definieren
      13. Dim robj As New Random
      14. Dim zufallszahl As Integer
      16. 'Hilfsvariablen
      17. Dim count As Integer
      18. Dim Eingabe As String
      19. Dim zahl As Integer
      20. bisherigeVersuche = New List(Of Integer)
      23. 'Titelscreen "zeichnen"...
      24. Console.Clear()
      25. Console.WriteLine("*******************************************************************************")
      26. Console.WriteLine(" Zahlenraten")
      27. Console.WriteLine("*******************************************************************************")
      28. Console.WriteLine()
      29. Console.WriteLine()
      30. Console.WriteLine()
      31. Console.ForegroundColor = ConsoleColor.White
      32. Console.WriteLine("Ich denke an eine Zahl zwischen {0} und {1}", minimum, maximum)
      33. Console.WriteLine("Kannst du erraten, welche? ['e' für Ende]")
      34. Console.ForegroundColor = ConsoleColor.Gray
      35. Ausgabe("(zwischen zwei Mahlzeiten geschrieben von ...der_Kurt)", enInput.CopyRight)
      37. zufallszahl = robj.Next(minimum, maximum)
      39. 'Eine Schleife für das Spiel
      40. Do
      41. 'Zähler erhöhen
      42. count += 1
      44. 'Das Copyright kann nach ein paar Nummern ruhig verschwinden...
      45. If count > 5 Then Ausgabe("", enInput.CopyRight)
      47. 'Ausgabe der bisher gezogenen Nummern
      48. Ausgabe(getAllNumbers, enInput.Outputallnumbers)
      50. 'Wievielter Versuch... ?
      51. Ausgabe("Versuch Nummer " & count.ToString, enInput.versuch)
      53. 'Eingabeprompt anzeigen
      54. Ausgabe("===>", enInput.Input)
      56. Eingabe = Console.ReadLine()
      58. If IsNumeric(Eingabe) Then
      59. 'ist die Eingabe eine Zahl?
      60. zahl = CInt(Eingabe)
      63. Select Case zahl
      64. Case zufallszahl
      65. 'TREFFER! die Zahl wurde getroffen
      66. '====================
      68. 'die bisherigen Versuche werden gelöscht
      69. bisherigeVersuche.Clear()
      70. 'Zähler zurückstellen
      71. count = 0
      73. 'paarmal Senf dazugeben...;)
      74. Ausgabe("VOLLTREFFER! Die Zahl " & zahl.ToString & " war gesucht", enInput.meldung)
      75. warteauftaste()
      76. Ausgabe("", enInput.outputanswer)
      77. Ausgabe("", enInput.WaitForKey)
      79. 'neue Zufallszahl ermitteln
      80. zufallszahl = robj.Next(minimum, maximum)
      81. Case Is > zufallszahl
      82. Ausgabe("Ich suche eine kleinere Zahl", enInput.outputanswer_tohigh)
      83. bisherigeVersuche.Add(zahl)
      84. Case Is < zufallszahl
      85. Ausgabe("Ich suche eine größere Zahl", enInput.outputanswer_tolow)
      86. bisherigeVersuche.Add(zahl)
      88. End Select
      89. Else
      90. 'ist die Eingabe was anderes als 'ne Zahl?
      91. Ausgabe("Versuchs mal mit 'ner Zahl...", enInput.meldung)
      93. End If
      95. Loop Until Eingabe = "e" Or Eingabe = ""
      97. Ausgabe("", enInput.meldung)
      99. Ausgabe("wir sehen uns wieder...", enInput.WaitForKey)
      101. Console.ReadKey()
      102. End Sub
      104. ''' <summary>
      105. ''' stellt die vorher gespeicherte Cursorposition wieder her
      106. ''' </summary>
      107. ''' <remarks></remarks>
      108. Sub cursorposload()
      109. Console.CursorTop = zeile
      110. Console.CursorLeft = spalte
      111. End Sub
      113. ''' <summary>
      114. ''' Speichert die aktuelle Cursorposition
      115. ''' </summary>
      116. ''' <remarks></remarks>
      117. Sub cursorpossave()
      118. zeile = Console.CursorTop
      119. spalte = Console.CursorLeft
      120. End Sub
      121. Sub Ausgabe(ByVal meaning As String, ByVal nxInput As enInput)
      122. 'Standardfarben wiederherstellen
      123. Console.BackgroundColor = ConsoleColor.Black
      124. Console.ForegroundColor = ConsoleColor.Gray
      125. Select Case nxInput
      127. Case enInput.CopyRight
      128. Console.ForegroundColor = ConsoleColor.Yellow
      129. Console.CursorLeft = 1
      130. Console.CursorTop = 4
      132. Case enInput.Input
      133. Console.CursorLeft = 4
      134. Console.CursorTop = 9
      136. Case enInput.Outputallnumbers
      137. Console.CursorLeft = 2
      138. Console.CursorTop = 21
      140. Case enInput.outputanswer, _
      141. enInput.meldung, _
      142. enInput.outputanswer_tohigh, _
      143. enInput.outputanswer_tolow
      144. Select Case nxInput
      145. Case enInput.meldung
      146. Console.ForegroundColor = ConsoleColor.Red
      147. Case enInput.outputanswer_tohigh
      148. Console.ForegroundColor = ConsoleColor.Magenta
      149. Case enInput.outputanswer_tolow
      150. Console.ForegroundColor = ConsoleColor.DarkRed
      151. End Select
      152. Console.CursorLeft = 1
      153. Console.CursorTop = 13
      156. Case enInput.WaitForKey
      157. Console.CursorLeft = 1
      158. Console.CursorTop = 23
      159. Console.ForegroundColor = ConsoleColor.DarkYellow
      161. Case enInput.versuch
      162. Console.CursorLeft = 2
      163. Console.CursorTop = 19
      165. End Select
      168. 'Cursor wird gespeichert,
      169. 'Rest der Zeile wird gelöscht,
      170. 'der Cursor wieder zurückgestellt...
      172. cursorpossave()
      173. Console.Write(Space(60 - Console.CursorLeft))
      174. cursorposload()
      175. '...und dann die Meldung geschrieben
      176. Console.Write(meaning)
      177. Console.ForegroundColor = ConsoleColor.Gray
      179. End Sub
      181. ''' <summary>
      182. ''' Gibt alle bisher gezogenen Nummern getrennt durch Komma zurück
      183. ''' </summary>
      184. ''' <returns></returns>
      185. ''' <remarks>...ausser es gibt keine</remarks>
      186. Function getAllNumbers() As String
      188. If bisherigeVersuche.Count = 0 Then Return "<bisher noch keine Zahlen>"
      189. Dim gAll As String = ""
      190. For Each element In bisherigeVersuche
      191. gAll &= element.ToString & ", "
      192. Next
      193. 'das letzte ", " wegschneiden...
      194. gAll = gAll.Substring(0, gAll.Length - 2)
      195. Return gAll
      197. End Function
      199. Sub warteauftaste()
      200. '...wer das nicht versteht...
      201. Ausgabe("Bitte eine Taste drücken...", enInput.WaitForKey)
      202. Console.ReadKey()
      203. End Sub
      205. ''' <summary>
      206. ''' Verschiedene Arten der Ausgabe
      207. ''' </summary>
      208. ''' <remarks></remarks>
      209. Public Enum enInput
      210. undefined
      211. CopyRight
      212. WaitForKey
      213. Input
      214. Outputallnumbers
      215. outputanswer
      216. outputanswer_tohigh
      217. outputanswer_tolow
      218. versuch
      219. meldung
      220. End Enum
      221. End Module


      LG, der_Kurt

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

      Vollzitat des direkten Vorposts an dieser Stelle entfernt ~VaporiZed

      Ja ich kann auch "Hi" eingeben und es wird eine Exception geworfen, er wollte denjenigen nur einen Denkanstoß geben.
      Mfg
      Loadsoft

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

      Hi LaPi!

      ...und es ist nicht der einzige Logik-Fehler im Programm...

      Ich habe, wie Load-soft.ch.vu richtig angemerkt hat, eigentlich mehr Zeit damit verbracht, das ganze anschaulich zu gestalten.
      Sprich, das Programmgerüst, die Form und die Kommentare waren mir hier wichtiger, als kleine Programmierfehler.

      Dennoch: Danke fürs testen
      LG, Kurti

      PS: den "HI"-Fehler kann ich bei mir nicht reproduzieren, das Programm führt dann den Else-Zweig ab Zeile 90 aus..

    Facebook
    Telefonspende