DE LA BELLE NEIGE !
mémère
-
25 mars 2001 à 10:20
jonathan8335 Messages postés 1 Date d'inscription dimanche 2 mars 2003 Statut Membre Dernière intervention 5 avril 2003 - 5 avril 2003 à 23:26
jonathan8335 Messages postés 1 Date d'inscription dimanche 2 mars 2003 Statut Membre Dernière intervention 5 avril 2003 - 5 avril 2003 à 23:26
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/793-de-la-belle-neige
https://codes-sources.commentcamarche.net/source/793-de-la-belle-neige
5 avril 2003 à 23:26
Excuse-moi si je n'ai pas été clair .....
6 déc. 2001 à 13:16
punaise vous pourriez mettr un zip avec un exempl ki fonctionne :-(
Parce ke franchement kan sa foire et ke l'on ne trouve pas son erreur ces tres chiant
merci et @ +
30 mars 2001 à 16:37
Pour qu'elle s'accumulle dans le bas:
1- Ajouter un PictureBox (p) et modifier ses propriétés
p.Align =2 (Align Bottom)
p.borderStyle =0 (None)
p.Appearance=0 (Flat)
p.Bakcolor=Blanc
2- Variable Global :
Dim Epesse as Variant
3- Dans Form_Load():
Epesse=0
p.Height = Epesse
'On peut reinitialiser Epesse et p.Height=0 avec un bouton
'ou lorsque p.Height=Form.Height...
4- Ajouter de ligne dans Le Timer1_Timer()
p.Height = Epesse
Epesse = Epesse + 0.03 (0.03 ou plus ou moins selon votre gout)
Private Sub Timer1_Timer()
Do While Not (DoEvents = 0)
Me.Cls
For i = 1 To 200
'Vitesse à laquelle la neige tombe
Vitesse(i) = Int((50 * Rnd) + 1)
'Déplacement de la neige de gauche à droite
Mouvement(i) = Int((-5 * Rnd) + 5)
'Patente kié dure a comprendre
NeigeX(i) = NeigeX(i) + Mouvement(i)
NeigeY(i) = NeigeY(i) + Vitesse(i)
'Si la neige dépasse le fond
If NeigeY(i) > Me.ScaleHeight Then
NeigeY(i) = 0
NeigeX(i) = Int(((Me.ScaleWidth) * Rnd) + 1)
p.Height = Epesse 'Ajouter cette ligne
End If
'Si la neige dépasse les côtés
If NeigeX(i) > Me.ScaleWidth Then
NeigeY(i) = 0
NeigeX(i) = Int(((Me.ScaleWidth) * Rnd) + 1)
End If
Circle (NeigeX(i), NeigeY(i)), 2, RGB(255, 255, 255)
Next i
Epesse = Epesse + 0.03 'Varier le 0.03 seulon la vitesse de création de la bande de neige
Me.Refresh
Loop
End Sub
26 mars 2001 à 16:42
Yep, cé beau! Suis juste déçu ke qqu'1 ait trouvé avt moi!!! ;-) Pô grave, par contre j'essaierai de voir pr ke la neige s'accumule au fond sans kiter!.. Ki m'offre des nuits blanches avec pizza & Badoit à gogo??? ;-))
25 mars 2001 à 10:20