NEIGE

Commentaire de MadM@tt le 18/02/2007 02:02:33

Waow !
C'est beau !!

Mais ça mange du cpu oula héhé !

ça serait mieux si on était pas obligé de réduire toutes les fenetres et que la neige s'accumule au dessus des fenetres.

En tout cas les flocons rendent bien, et ça s'entasse de façon assez réaliste je suis surpris ça rend vraiment bien.

Commentaire de draluorg le 18/02/2007 15:17:07

Salut,

En effet le rendu est pas mal du tout mais la source en elle meme c'est un peu la cata

Commence par mettre un petit Option Explicit en debut de chaque form ou module

Declare toutes tes variables de facons explicit avec des noms explicit egalement. (gain de performance et de lisibilite)

Egalement pour tes fonctions, elles retournent toutes des variant!

Autre gros point l'indentation! c'est completement illisible de cette facon.

Voici un exemple avec une de tes sub:

Private Sub Incruste(flag)

    Dim ny As Long
    Dim u  As Long
    Dim F As Long
    
    ny = Y(t)
    wtrans.DrawWidth = 1
    Select Case flag
        Case 1
            If Int(Rnd * 10) <> 1 Then Exit Sub
            coul nx, ny
            If c1 <> c2 Then
                For v = nx - 15 To nx + 15 Step 15
                    u = ny
                    F = 0
                    Do
                        coul v, u
                        If c1 = c2 And c3 <> &HFFFFFF Then
                            wtrans.PSet (v, u), &HFFFFFF
                            Y(t) = 0
                            X(t) = Rnd * lx
                            F = 1
                        End If
                        u = u - 15
                    Loop Until u < (ny - 100) Or F = 1
                Next
            End If
        Case 2
            If Int(Rnd * 5) <> 1 Then Exit Sub
            For u = ly To ly - 300 Step -15
                For v = nx - 15 To nx + 15 Step 15
                    If wtrans.Point(v, u) <> &HFFFFFF Then
                        wtrans.DrawWidth = 1 + Int(Rnd * 3)
                        wtrans.PSet (v, u), &HFFFFFF
                        Exit Sub
                    End If
                Next v
            Next u
        End Select
        
End Sub

++

Commentaire de ratala le 20/02/2007 21:49:38

C'est sympa le rendu :)
Pour indenter tu prend vb friend il le fait pour toi.
++

Commentaire de jack73 le 28/02/2007 08:39:39

RAtala , c'est quoi au juste vb friend ?

Commentaire de yahaa le 11/05/2007 15:40:33

J'ai pas pris le temps de comprendre comment marche le code mais je pense que l'accélérer un peu ne devrait pas être trop dur.
- Déjà tu peu gagner beaucoup en utilisant les API getpixel et setpixel à la place de Point et pSet mais je ne pense pas que ce soit encore la solution optimale.
- Tu peux peut-être aussi revoir un peu ton code car en mode débuggage j'ai été assez surpris. De passer pas mal de fois dans la boucle du Timer sans que rien ne soit fait. ( Il existe certainement un autre système que ce :
if int(rnd * 15)<>1 then exit sub
pour que seul 1/15 des objet ne soit affecter ( tire plutôt au sort les objets directement)
Une fonction qui fait un ".Point" sur les trois Form est aussi à éviter. Si tu a besoin de stoker des données, crée un tableau ! ( même en remplaçant Point par getpixel c'est long. )
- L'utilisation du Timer est aussi à proscrire, même si dans un premier temps elle est très pratique. Tu peux penser à une boucle Do Loop ( avec un DoEvents au milieu ) et pourquoi dans ce cas gérer un "temps réel" à l'aide de l'API GetTickCount (ou une autre).

Tu peux aussi penser à gérer les chose d'une manière tout à fait différente. S'il doit d'agir d'un écran de veille alors ce n'est pas la peine que l'utilisateur puisse continuer à travailler.
Tu pourrais faire une capture d'écran, l'afficher, et travailler dessus. Tu n'aurai alors plus à gérer la transparence.