hi,
es gibt zwar jede Menge dieser Programme. allerdings hab ich keines gefunden in dem die Eingaben gespeichert werden.
Nun soll das Programm die Eingabe von bis zu 5 Zahlen erwarten. Nach jeder Eingabe sollen
die bisher geratenen Zahlen sowie die Angabe, ob die gesuchte Zahl größer oder kleiner ist,
angezeigt werden. Wird die Zahl erraten oder sind die 5 Versuche vorbei, soll eine Abfrage
kommen, ob man noch einmal spielen oder das Programm beenden möchte.
Beispiel:
Bitte geben Sie eine Zahl zwischen 1 und 20 ein: 15
Die gesuchte Zahl ist kleiner!
Bisherige Zahlen: 9 15
ohne der Ausgabe - der bereits eingegeben Zahlen also wenn man den Befehl zahlen.Add(Int32.Parse(Zahl)) weglässt funktioniert das Programm.
aber wie bekomme ich das mit der Ausgabe der bereits eingegeben Zahlen hin.
zahlen.Add(Int32.Parse(Readline())) hab ich auch schon probiert. bringt mir auch keine andere Lösung.
Bitte um Hilfe.
es gibt zwar jede Menge dieser Programme. allerdings hab ich keines gefunden in dem die Eingaben gespeichert werden.
Nun soll das Programm die Eingabe von bis zu 5 Zahlen erwarten. Nach jeder Eingabe sollen
die bisher geratenen Zahlen sowie die Angabe, ob die gesuchte Zahl größer oder kleiner ist,
angezeigt werden. Wird die Zahl erraten oder sind die 5 Versuche vorbei, soll eine Abfrage
kommen, ob man noch einmal spielen oder das Programm beenden möchte.
Beispiel:
Bitte geben Sie eine Zahl zwischen 1 und 20 ein: 15
Die gesuchte Zahl ist kleiner!
Bisherige Zahlen: 9 15
VB.NET-Quellcode
- Imports System.Console
- Module Module1
- Dim Zufallszahl As Integer
- Dim zahlen As New ArrayList
- Dim count As Int32 = 0
- Dim Zahl As Integer
- Dim Antwort As String
- Sub Main()
- Randomize(Timer)
- Zufallszahl = 1 + Int(Rnd(1) * 20)
- WriteLine("Bitte geben Sie die gesuchte Zahl ein")
- Zahl = ReadLine()
- For z = 1 To 5
- Try
- zahlen.Add(Int32.Parse(Zahl))
- Catch ex As FormatException
- If Not IsNumeric(zahlen) Then WriteLine("Bitte geben Sie eine gültige Zahl ein")
- WriteLine()
- End Try
- Select Case Zahl
- Case Is < Zufallszahl
- WriteLine("Gesuchté Zahl ist größer")
- WriteLine(z)
- Case Is > Zufallszahl
- WriteLine("Gesuchte Zahl ist kleiner")
- Case Else
- WriteLine("Richtig geraten")
- ReadLine()
- WriteLine("Neues Spiel? ...... ja oder nein?")
- Antwort = ReadLine()
- Select Case Antwort
- Case "ja"
- WriteLine()
- WriteLine()
- Main()
- Case "nein"
- Exit Sub
- Case Else
- WriteLine("Nur Eingabe ja und nein zulässig")
- End Select
- End Select
- Exit Sub
- ' Antwort = ReadLine()
- 'Select Case Antwort
- ' Case "ja"
- 'Main()
- ' Case "nein"
- 'Exit Sub
- ' Case Else
- 'WriteLine("Nur Eingabe ja und nein zulässig")
- 'End Select
- WriteLine()
- Next
- End Sub
- Function Prüfe(ByVal Zahleingaben As Integer) As Boolean
- End Function
- End Module
ohne der Ausgabe - der bereits eingegeben Zahlen also wenn man den Befehl zahlen.Add(Int32.Parse(Zahl)) weglässt funktioniert das Programm.
aber wie bekomme ich das mit der Ausgabe der bereits eingegeben Zahlen hin.
zahlen.Add(Int32.Parse(Readline())) hab ich auch schon probiert. bringt mir auch keine andere Lösung.
Bitte um Hilfe.