Zum Inhalt springen

Hilfe zum Zähler (Schleife)


basti2010

Empfohlene Beiträge

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

Link zu diesem Kommentar
Auf anderen Seiten teilen

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

Link zu diesem Kommentar
Auf anderen Seiten teilen

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.

Link zu diesem Kommentar
Auf anderen Seiten teilen

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.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...