Re-re-re-re neige

Commenter

Contenu du snippet

La neige étant aussi à la mode que les ptits cons, je vous offre cette magnifique neige en deux couleurs, elle est au moins aussi belle sur mon 486 que sur vos machines alors allez y! Lachez vous, transformez là en 3D, faites là virevolter dans votre chambre! VIVE LA NEIGE! ET VIVE LES CONS!

Ahhhh oui au fait il faut mettre un controle PictureBox et un Timer mais ça vous le saviez déja..non?

Source / Exemple : 


' UnCopyright Mémère'2001
' Spéciale dédicace aux blaireaux qui disent du mal des p'tits vieux
' Découvrez qu'il neige aussi dans les maisons de retraite

Dim Neige(1, 1000)
Dim LeBas(1024)
Dim WindOffset As Integer

Private Sub Form_Load()
 Me.Caption = "Uncopyrighted Mémère'2001"
 Picture1.AutoRedraw = True
 Timer1.Interval = 100
 Picture1.BackColor = RGB(0, 0, 0)
 Call Init
End Sub

Sub Init()
 WindOffset = 0
 For i = 0 To 1024: LeBas(i) = -1: Next i
 For i = 0 To 100
  Neige(0, i) = Int(Rnd * Me.Width)
  Neige(1, i) = Int(Rnd * Me.Height)
 Next i
End Sub

Private Sub Form_Resize()
 Picture1.Width = Me.Width
 Picture1.Height = Me.Height
 Picture1.Cls
 Call Init
End Sub

Private Sub Timer1_Timer()
 WindOffset = WindOffset + 1
 For i = 0 To 100
  Picture1.PSet (Neige(0, i), Neige(1, i)), RGB(0, 0, 0)
  Neige(1, i) = Neige(1, i) + Int(Rnd * 80) + 40
  If Neige(0, i) > 0 And Neige(0, i) < 1024 * 15 Then
   LaPos = Int(Neige(0, i) / 15)
   If Neige(1, i) >= Me.Height - 450 - (LeBas(LaPos) * 15) Then
    LeBas(LaPos) = LeBas(LaPos) + 1
    Picture1.Circle (Neige(0, i), Me.Height - 450 - (LeBas(LaPos) * 15)), 20, RGB(255, 255, 255)
    Neige(1, i) = 0
   End If
  End If
  Neige(0, i) = Neige(0, i) + Cos(WindOffset * 2 * 3.14 / 180) * 10
  Picture1.PSet (Neige(0, i), Neige(1, i)), RGB(255, 255, 255)
 Next i
End Sub

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 (cs_Mémère)