Faire tomber de la neige avec entassement sur le sol

Soyez le premier à donner votre avis sur cette source.

Vue 14 127 fois - Téléchargée 782 fois

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
16
Date d'inscription
dimanche 17 avril 2005
Statut
Membre
Dernière intervention
21 mars 2007

lu, méme si c vré ke c pas parfé les remarke pouris c pas la peine alors moi jte done mon avi : rajout un truk ki change la resolution de l'écran mmé une image ki monte ki fase un peu neige un truk pas plat koi pi ralenti la chute des flocon sa sera pas mal en ecran de veille sa pourai etre cool aller a +
Messages postés
39
Date d'inscription
lundi 25 février 2002
Statut
Membre
Dernière intervention
16 avril 2005

J'adore ton pseudo ! Dis-voir, t'es aussi emmerdant que le fichier ? :-)
waaaahahaha c'est moche!! Humpf et si ton écran n'est pas en 800x600? Wahahaha et ben c'est encore plus moche!!!!

Je faisait des programmes mieux que ça en QBasic et ça ressemblait à quelque chose en mode 13h...
il est en bas de l'écran, tu dois attendre quelques secondes
Il est où l'entassement de la neige?
Afficher les 6 commentaires

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.