Verfügbare Informationen zu "Lucky Seven"
Qualität des Beitrags: Beteiligte Poster: inachor - just4fun Forum: Advanced-Computer Forenbeschreibung: Computer aus dem Unterforum: Visual Basic Antworten: 4 Forum gestartet am: Samstag 07.10.2006 Sprache: deutsch Link zum Originaltopic: Lucky Seven Letzte Antwort: vor 17 Jahren, 5 Monaten, 24 Tagen, 1 Stunde, 9 Minuten Getaggt durch: Computer
Alle Beiträge und Antworten zu "Lucky Seven"
Re: Lucky Seven
inachor - 26.10.2006, 18:57Lucky Seven
Jetzt bin ich mal dazu gekommen und stell eine Art "Einarmiger Bandit"
ins Forum. Ist schon die übersrbeitet Version mit einem besseren Zufallsgenerator als die erste Version, das Programm giebt etwas aus, sobald in einem der Felder eine 7 erscheint
Code:
Code:
Public Class Form1
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Randomize()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
PictureBox1.Visible = False
Label1.Text = CStr(Int(Rnd() * 10))
Label2.Text = CStr(Int(Rnd() * 10))
Label3.Text = CStr(Int(Rnd() * 10))
If (Label1.Text = "7") Or (Label2.Text = "7") Or (Label3.Text = "7") Then
PictureBox1.Visible = True
Beep()
End If
End Sub
End Class
.exe Download kommt noch, sobald der ftp-Server wieder funktioniert
Re: Lucky Seven
inachor - 26.10.2006, 19:04
wollt ihr auch ein erklärung zum quellcode?
Re: Lucky Seven
just4fun - 26.10.2006, 20:11
ja bitte <- keine ahnung + kein compiler :?
Re: Lucky Seven
inachor - 31.10.2006, 19:40
inachor hat folgendes geschrieben:
Code:
Public Class Form1
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
End Sub
Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
Das sind alles Labels, also in diesem Fall die Felder in denen die Zahlen ausgegeben werden.
inachor hat folgendes geschrieben:
Code:
Randomize()
Ist ein Zufallsgenerator der anhand der Systemuhr generiert
inachor hat folgendes geschrieben:
Code:
PictureBox1.Visible = False
Label1.Text = CStr(Int(Rnd() * 10))
Label2.Text = CStr(Int(Rnd() * 10))
Label3.Text = CStr(Int(Rnd() * 10))
If (Label1.Text = "7") Or (Label2.Text = "7") Or (Label3.Text = "7") Then
PictureBox1.Visible = True
Beep()
End If
Mit Label wird es in das jeweilige Label geschrieben
Rnd() ...... Erstellt eine Zufällige Zahl zwischen 0.0 periodisch und 1.0
Rnd() * 10 ...... Multipliziert die mit Rnd() erstellt Zahl mit 10
Int(Rnd() * 10) ......berechnet den Integer von Rnd() * 10 (Integer .............................ignoriert die Kommastellen
Alle hier nicht erwähnten Befehle habe ich bereits in den letzten VB Programmen erklärt
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum Advanced-Computer
Ähnliche Beiträge wie "Lucky Seven"
Seven vs. Systemlord - Gangst (Sonntag 01.07.2007)
Lucky hat vermutlich wieder einen Pilz - Melli (Montag 24.07.2006)
Lucky kommt mit der ersten Zecke nach Hause - martina (Freitag 12.05.2006)
Happy Birthday Lucky - Jenna (Donnerstag 27.12.2007)
Lucky is wieder da <3 - Lucky (Freitag 16.02.2007)
Lucky - carina (Sonntag 03.12.2006)
Gruppenreisen nach Korea mit tdh - AG Adoptierte (Mittwoch 23.07.2008)
Lucky-Gupi^^ - Glücksfee (Mittwoch 21.02.2007)
Lucky - Lucky (Donnerstag 23.08.2007)
Marvins Lucky 13 Solitaire - shadow (Montag 17.09.2007)