| 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 | |
| |
zurück