Ce screen saver utilse uniquement des object lines pour formé des solides
qui tournent dans les trois axes ,se déplacent et changent de taille.
Ce code n'utilise que quelques fonctions trigonomtrique faciles.
Je suis étonné du manque de fluidité , le paramètre vitesse est lu dans la registie.
Si tu exécute le programme a partir de VB tu dois initialiser
le Timer1 ('Timer1 =10 -->Timer1 =10) voir ci-desous ***
Si tu copie le fichier Volume.scr dans Windowssytheme
Comme les autres écrant de veille je pence que tu changeras
d'avis
Merçi pour tes commentaire.
Merçi de me repondre si ta de meilleurs résultas Mestrez.Ch@skynet.be
1 mai 2003 à 10:10
Si tu exécute le programme a partir de VB tu dois initialiser
le Timer1 ('Timer1 =10 -->Timer1 =10) voir ci-desous ***
Si tu copie le fichier Volume.scr dans Windowssytheme
Comme les autres écrant de veille je pence que tu changeras
d'avis
Merçi pour tes commentaire.
Merçi de me repondre si ta de meilleurs résultas Mestrez.Ch@skynet.be
A+
Private Sub Form_Load() 'Form2
Dim j As Integer
Cpt_volume = 0
Mouse_move = 0
Timer1.Enabled = False
Timer1.Interval = 501 - CInt(GetSetting(App.EXEName, "confVolume", "vitesse", "20"))
Nombre_Volume_show = CInt(GetSetting(App.EXEName, "confVolume", "NombreVolume", "3"))
*********************
* 'Timer1.Interval = 10 *
*********************
For j = Index_ligne To Index_ligne + 29
Line1(j).Visible = False
Next j
12 avril 2003 à 21:48
12 avril 2003 à 21:44
6/10
12 avril 2003 à 17:12
12 avril 2003 à 16:47
Sinon, dommage (encore) que ce soit si saccadé...
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.