Lucky Seven Wir wollen ein wenig spielen :-)) Das geht mit nur sehr wenigen Zeilen Quelltext.
Autor:   Matthias Schnellbacher	Bewertung:     [ Jetzt bewerten ]	Views:  14.351
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 50 Bewertung insgesamt: mittelmäßig Durchschnittliche Bewertung: 2.5 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Wir wollen ein wenig spielen
Das geht mit nur sehr wenigen Zeilen Quelltext.

Was benötigen wir alles?
Eine Form, darauf eine ImageBox (imgMoneten), der ein Geldsymbol-Bild zugeordnet wird, zwei Commandbuttons (cmdNeuesSpiel und cmdExit), drei Labels zur Anzeige der Zahlen (lblZahl1, lblZahl2, lblZahl3) und den unten aufgeführten Quelltext

Option Explicit
 
Private Sub Form_Load()
  ' Da durch "Rnd" immer die gleichen Zahlen vergeben werden, 
  ' sollte im FormLoad-Ereignis "Randomize" aufgerufen werden, 
  ' damit wir immer eine neu Zufallszahlenfolge erhalten.
  Randomize -Timer
End Sub

Private Sub cmdNeuesSpiel_Click()
  ' Anzeige des Bildes ausschalten
  imgMoneten.Visible = False
 
  ' Zufallszahlen für die Labels erstellen und zuweisen
  lblZahl1.Caption = Int(Rnd * 10)
  lblZahl2.Caption = Int(Rnd * 10)
  lblZahl3.Caption = Int(Rnd * 10)
 
  ' Prüfung, ob in einem Label die Zahl 7 vorkommt
  If (lblZahl1.Caption = 7) Or _
    (lblZahl2.Caption = 7) Or _
    (lblZahl3.Caption = 7) Then
 
    ' Wenn ein Label mit der 7 gefüllt ist, Bild anzeigen
    imgMoneten.Visible = True
 
    ' Beepton erzeugen ;-)
    Beep
  End If  
End Sub

Private Sub cmdExit_Click()
  ' Programm beenden
  Unload Me
End Sub