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

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.