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 Schalt-
cmdFertig.Visible = False fläche "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("d:\visual60\graphics\icons\misc\face02.ico")
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("d:\visual60\graphics\icons\misc\face01.ico")
If AnzahlVersuche > 10 Then Bei mehr als zehn Versuchen wird das Programm beendet.
imgIcon.Picture = LoadPicture("d:\visual60\graphics\icons\misc\face04.ico")
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("d:\visual60\graphics\icons\misc\face01.ico")
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("d:\visual60\graphics\icons\misc\face04.ico")
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("d:\visual60\graphics\icons\misc\face05.ico")
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("d:\visual60\graphics\icons\misc\face02.ico")
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("d:\visual60\graphics\icons\misc\face02.ico")
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("d:\visual60\graphics\icons\misc\face02.ico")
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!

Nach oben Sitemap
Impressum & Kontakt