Habe hier mal eben Schnell ein Programm geschrieben , das auch soweit läuft.
Brauche jetzt noch eine Zähler Schliefe die das ganze 6mal durchläuft.
Die Schleife soll 6 mal nach der Zahl fragen und dann abrechen.
Und ja ich weiß das mit dem goto und Unsauber
Poste hier mal meinen Code !
Public Class Form1
'Dim Zahl As Double
'Dim MeineWahl As Double
Dim ZufallsZahl As Double
Dim MeineZahl As Double
Dim HoechsteZahl As Double
Dim zaehler As Double
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'Beenden Button
End
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Info Button
AboutBox1.Show()
Me.Hide()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'Start Button
HoechsteZahl = InputBox("Bitte geben Sie hier die höchst: ") 'Eingabe HöchsteZahl
ZufallsZahl = Int(Rnd() * HoechsteZahl + 1) ' Zufallszahl zwischen 1 und X
Eingabe:
MeineZahl = InputBox("Gebe deine Zahl ein: ") 'Eingabe MeineZahl
If ZufallsZahl = MeineZahl Then
GoTo Ende ' Springt zum Punkt Ende vor
Else
MsgBox("Verloren nochmal bitte, deine falsche Zahl war die " & MeineZahl)
GoTo Eingabe ' Springt zum Punkt Eingabe zurück
End If
Ende:
MsgBox("Gewonnen DeineZahl war die: " & MeineZahl)
'MsgBox("Die Zufalls Zahl ist: " & ZufallsZahl & vbCr & "Die Höchste Zahl ist: " & HoechsteZahl) '& vbCr & "Meine Zahl ist: " & MeineZahl)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class