Faire tomber de la neige avec entassement sur le sol

Télécharger le projet
Commenter

Description

Ajouter 2 commandes:recommencer et command1
mettre un timer avec un intervalle de 1 millisecondes
mattre un fond noir, le form maximisé et un shape(shape1)tout en bas qui prend toute la largeur et hauteur du form, mais avec le haut du shape en bas
et voilà, c tout

Source / Exemple : 


Dim x(300), y(300), s(300), v(300) As Integer

Private Sub Command1_Click()
End
Unload Me

End Sub

Private Sub Form_Activate()
Randomize
For i = 1 To 300
x(i) = Int(Rnd * Me.Width)
y(i) = Int(Rnd * Me.Height)
s(i) = Rnd * 16
v(i) = Int(1 * 200)
Next
End Sub

Private Sub recommencer_Click()
recommencer.Visible = False
Timer1.Enabled = True
Shape1.Top = Form1.Top + Form1.Height
For i = 1 To 300
x(i) = Int(Rnd * Me.Width)
y(i) = Int(Rnd * Me.Height)
s(i) = Rnd * 16
v(i) = Int(1 * 200)
Next
End Sub

Private Sub Timer1_Timer()
For i = 1 To 300
Circle (x(i), y(i)), s(i)
y(i) = y(i) + v(i)
If y(i) >= Shape1.Top - 10 Then
y(i) = 0
x(i) = Int(Rnd * Me.Width)
End If
Circle (x(i), y(i)), s(i), vbWhite
Next
Shape1.Top = Shape1.Top - 1
If Shape1.Top < Form1.Top Then
Timer1.Enabled = False
recommencer.Visible = True
End If
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (vb6fr.dll)