Vague en direct3d

Soyez le premier à donner votre avis sur cette source.

Vue 6 596 fois - Téléchargée 625 fois

Description

Un plan qui fait des vague!
ça fait nul comme ça mais faut le voir!
c'est un super effet qui peut servir de screen-saver et en plus,
C'est tout du direct3D!
bon, il faut quand meme la librairie DirectX pour visual basic 7 ou superieur...

Source / Exemple :


'#################
'## Dans le Zip ##
'#################

Conclusion :


Si vous aimez ce code ou meme si vous l'aimez pas, laissez vos commentaires!

Codes Sources

A voir également

Ajouter un commentaire Commentaires
shadowmosses
Messages postés
14
Date d'inscription
lundi 2 juin 2008
Statut
Membre
Dernière intervention
16 décembre 2009

20 sept. 2008 à 16:57
Jolie !
Tres jolie !
TFlorian
Messages postés
194
Date d'inscription
dimanche 3 mars 2002
Statut
Membre
Dernière intervention
19 décembre 2005
3
10 nov. 2007 à 12:20
Vraiment superbe !

perso j'ai rajouter des sliders pour changer les paramètres DETAIL AMPLITUDE FREQUENCY SIZE

j'aime bien avec les valeurs :

DETAIL = 0.3
AMPLITUDE = 1
FREQUENCY = 1
SIZE = 2

par contre ça prend tout le CPU :-(

Suffit de mettre une boucle tempo ...
dans RenderIt avant le doEvents on met Sleep (10)
et à la première ligne de la form :
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Ça permet d'endormie la feuille, ça ralenti dont l'exécution du programme ... mais ça laisse le temps d'admirer l'image qui vient d'être faite (surtout en SIZE =1)

Bonne prog a tous ;-)
TFlorian.
Guidelor
Messages postés
236
Date d'inscription
jeudi 31 octobre 2002
Statut
Membre
Dernière intervention
18 août 2006

21 déc. 2002 à 23:27
T'es né avec un ordi et un CD VB6, ou quoi ?
cs_Ordiman
Messages postés
40
Date d'inscription
mercredi 5 juin 2002
Statut
Membre
Dernière intervention
28 avril 2004

16 oct. 2002 à 14:19
juste un mot : ENORME !!!!! En S.Save ca doit etre génial
Bravo ! :-)
j'ai essayer de faire un screen saver.... ça a réusi a l'exption que en voulant compilé y'a des erreures qui sont aparu avec :

Function Dr(r As Single) As D3DCOLORVALUE
MakeD3DCOLORVALUE.r = r
End Function
Function Dg(g) As D3DCOLORVALUE
MakeD3DCOLORVALUE.g = g
End Function
Function Db(b) As D3DCOLORVALUE
MakeD3DCOLORVALUE.b = b
End Function

donc j'ai mis en comentaire.... sauf que..... je sais pas si ça change le prog... :l dison que je suis po mal débutant en vb.... en t k ça marche la... sauf que y'a un sautement a l'image quand la couleur change... et ça m'enpche de faire un fondu avec les couleur :( si qqn c comment règlé ce bug.... qu'il le dise...
si non c troppp cool....
Afficher les 24 commentaires

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.