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.

Commentaire de manonlelou le 22/12/2007 13:07:04

comment faire svp ?????????????

Commentaire de MadM@tt le 09/12/2009 16:51:29

hahaha moi je sais comment le faire marcher ^^
Atterrissez les bonhommes, vous êtes sur un site de développement, pas de téléchargement de logiciels. Laissez tombez en gros.

Commentaire de MadM@tt le 09/12/2009 17:19:17

Bien alors pour faire tourner cette source il va te falloir l'IDE VB6, qui ne se vend plus depuis plus de 10 ans.
Bon courage, même si tu arrive à trouver VB6, pour faire tourner ce code si tu ne connais rien au développement.
Je ne veux pas être méchant, c'est juste qu'il faut des prérequis, comme dans chaque domaine. Tu ne va pas t'administrer les vaccins en piquer toi même si tu n'y connais rien à la médecine, et tu ne va pas pester contre un plombier qui fait un plan pour ses collègues si tu n'arrive pas à le lire..

Commentaire de PCPT le 09/12/2009 21:01:08 administrateur CS

mahatch (et manonlelou) => lorsque vous avez créer vos comptes vous êtes tombés sur une page explicative du site, disant entre autres que c'est un site de développeurs, pas un telecharger.com-like
le partage est donc "du code" pour un public qui cherche "du code"
voici déjà pourquoi il n'est pas mentionné sur chaque page "attention il vous faut le logiciel... que vous utilisez normalement déjà" :)

// on va rarement chercher une voiture (code) chez un concessionnaire (site dédié) quand on est pas automobiliste (plombier)


après comme sur tous les sites, il y a une faq
menu accueil > questions et réponses > autres questions

Q : Comment accéder au contenu d'une source que j'ai téléchargé sur VbFrance.com
http://www.vbfrance.com/doc/faq.aspx#vb_src


donc à force de lire ce genre de questions on peut comprendre qu'un certain sang froid s'évapore...


ps MadM@tt : -> 10 ans ? allons quand même pas ! ^^ il n'aurait été vendu que 12 mois...
sortie en 1998
fin des ventes "neuf" en fin 2005 (de mémoire)
fin du support en 2008

++