Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 657 fois - Téléchargée 68 fois
' 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
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.