basti2010 Geschrieben 15. Juni 2009 Geschrieben 15. Juni 2009 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 Zitieren
TDM Geschrieben 16. Juni 2009 Geschrieben 16. Juni 2009 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: For i As Integer = 0 To 5 MeineZahl = InputBox("Gebe deine Zahl ein: ") If (ZufallsZahl = MeineZahl) Then Exit For Else MsgBox("...") End If Next Zitieren
basti2010 Geschrieben 17. Juni 2009 Autor Geschrieben 17. Juni 2009 Vielen Dank Jetzt habe ich noch nen Problem und zwar habe ich ja bei der Eingabe mit einer Inputbox gearbeitet. Dort befinden sich ja zwei Buttons "OK" und "Abbrechen" wie bekomme ich jetzt hin das er beim drücken von "Abbrechen" die Inputbox schließt ohne das eine Fehlermeldung kommt. Zitieren
Empfohlene Beiträge
Dein Kommentar
Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.