Ratezahl und Zufallsgenerator

Programmierung Ratezahl und Zufallsgenerator, Visible (True / False), Rnd
Private AnzahlVersuche As Integer, Ratezahl As Integer, Divisor As Integer
Private MinZahl As Single, Private MaxZahl As Single
Private Sub cmdFertig_Click()
cmdNiedriger.Visible = True
cmdHöher.Visible = True
cmdRichtig.Visible = True
lblTitel.Visible = False Verschiedene Buttons sollen nach Klick auf die Schaltfläche
cmdFertig.Visible = False "Fertig" jeweils sichtbar werden oder verschwinden.
lblRateZahl.Visible = True
AnzahlVersuche = 0 Gestartet wird mit "Null" Versuchen.
AnzahlVersuche = AnzahlVersuche + 1
Randomize MaxZahl = Int((Obergrenze - Untergrenze + 1) * Rnd +
MinZahl = Int((256 - 4) * Rnd + 4) Untergrenze)
MaxZahl = Int((1024 - 256) * Rnd + 256)
lblTitel.Caption = "Denken Sie sich eine Zahl zwischen " & MinZahl & " und " & MaxZahl & " aus!"
Ratezahl = MaxZahl \ 2 + MinZahl \ 2
Divisor = MaxZahl \ 2 + MinZahl \ 2
lblRateZahl.Caption = "Ist die Ratezahl " & Ratezahl & "?"
imgIcon.Picture = LoadPicture("Pfad zu einer Bilddatei")
imgIcon.Enabled = False
End Sub
Private Sub cmdHöher_Click()
AnzahlVersuche = AnzahlVersuche + 1 War die vom Computer geratene Zahl zu klein, wird sie
Ratezahl = Ratezahl + Divisor um den Wert der Variablen "Divisor" erhöht.
Divisor = Divisor \ 2 Der Divisor \ arbeitet nur mit ganzen Zahlen!
lblRateZahl.Caption = "Ist es vielleicht die " & Ratezahl & "?"
imgIcon.Picture = LoadPicture("Pfad zu einer Bilddatei")
If AnzahlVersuche > 10 Then Bei mehr als zehn Versuchen wird das Programm beendet.
imgIcon.Picture = LoadPicture("Pfad zu einer Bilddatei")
lblRateZahl.Caption = "Leider sind maximal nur zehn Versuche erlaubt!"
cmdNiedriger.Visible = False Verschiedene Buttons werden wieder unsichtbar gemacht.
cmdHöher.Visible = False
cmdRichtig.Visible = False
cmdFertig.Enabled = True
imgIcon.Enabled = True Das "Traurig"-Icon wird angezeigt - bei Doppelklick
End If auf dieses Icon beginnt das Programm von vorn.
End Sub
Private Sub cmdNiedriger_Click()
AnzahlVersuche = AnzahlVersuche + 1 War die vom Computer geratene Zahl zu groß, wird sie
Ratezahl = Ratezahl - Divisor hier um den Wert der Variablen "Divisor" verkleinert.
Divisor = Divisor \ 2
lblRateZahl.Caption = "Oder ist es die Zahl " & Ratezahl & "?"
imgIcon.Picture = LoadPicture("Pfad zu einer Bilddatei")
If AnzahlVersuche > 10 Then Bei mehr als zehn Versuchen wird das Programm beendet.
lblRateZahl.Caption = "Leider sind maximal nur zehn Versuche erlaubt!"
imgIcon.Picture = LoadPicture("Pfad zu einer Bilddatei")
cmdNiedriger.Visible = False Verschiedene Buttons werden wieder unsichtbar gemacht.
cmdHöher.Visible = False
cmdRichtig.Visible = False
cmdFertig.Enabled = True
imgIcon.Enabled = True Das "Traurig"-Icon wird angezeigt - bei Doppelklick auf
End If dieses Icon beginnt das Programm von vorn.
End Sub
Private Sub cmdRichtig_Click()
imgIcon.Picture = LoadPicture("Pfad zu einer Bilddatei")
If AnzahlVersuche = 1 Then Die Zahl wurde bereits im ersten Versuch erraten.
MsgBox "Bravo, die Zahl " & Ratezahl & " wurde im 1. Versuch erraten!", _
Title:="Bravo, die Zahl wurde im " & AnzahlVersuche & ". Versuch erraten!", Buttons:=vbExclamation
Else Oder:
MsgBox "Ihre Zahl wurde in " & AnzahlVersuche & " _ Die Zahl wurde in den Versuchen zwei bis zehn erraten.
Versuchen erraten!", Title:="Die Zahl " & Ratezahl & " _
wurde im " & AnzahlVersuche & ". Versuch erraten!", _
Buttons:=vbExclamation
End If
cmdNiedriger.Visible = False
cmdHöher.Visible = False
cmdRichtig.Visible = False
lblTitel.Visible = True
lblRateZahl.Caption = ""
imgIcon.Picture = LoadPicture("Pfad zu einer Bilddatei")
cmdFertig.Visible = True
cmdFertig.SetFocus Das Spiel kann von vorn beginnen.
End Sub
Private Sub Form_Load()
cmdNiedriger.Visible = False
cmdHöher.Visible = False
cmdRichtig.Visible = False
lblTitel.Visible = True
lblRateZahl.Visible = True
lblRateZahl.Caption = ""
cmdFertig.Enabled = True
imgIcon.Picture = LoadPicture("Pfad zu einer Bilddatei")
Randomize
MinZahl = Int((256 - 4) * Rnd + 4)
MaxZahl = Int((1024 - 256) * Rnd + 256)
lblTitel.Caption = "Denken Sie sich eine Zahl zwischen " & MinZahl & " und " & MaxZahl & " aus!"
End Sub
Private Sub imgIcon_DblClick() Bei Doppelklick auf das "Traurig"-Icon beginnt das
lblRateZahl.Visible = False Programm von vorn.
cmdFertig.Visible = True
lblTitel.Visible = True
imgIcon.Picture = LoadPicture("Pfad zu einer Bilddatei")
End Sub
Private Sub cmdFertig_KeyPress(KeyAscii As Integer) Das Programm wird nach Drücken der Esc-Taste beendet.
If KeyAscii = 27 Then Unload Me
End Sub

Mehr Tipps: Zinsrechner I, mit Monatszahlung in ListBox

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nutzen Sie unsere Suchfunktion:

Nach oben Sitemap
Impressum Datenschutz

Hinweis: Diese Webseite kann Werbeanzeigen und Werbeeinblendungen oder eingebundene Links von Diensten und Inhalten Dritter enthalten. Beachten Sie dazu unsere Datenschutzerklärung.