Exemple directx 3drm

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 221 fois - Téléchargée 69 fois

Commenter

Contenu du snippet

DIRECT 3D AVEC VISUAL BASIC

Nous allons nous intéresser a DirectX et plus particuliérement à Direct3D.

Il faut savoir que Direct3D comporte 2 modes différents :

- Le mode imédiat (IM) : c'est le mode le plus compliqué. Il permet d'interagire avec le hardware.

- Le mode rentenu (RM) : celui là est trés simple ! Il convient plus a des développements d'application et non de jeux.

Pour le moment, nous allons nous concentrer sur le Retained Mode. Nous allons crée une application qui chargera un fichier X et permetra de ce déplacer dans ce "monde".

Premiérement nous allons crée un projet standart, avec un Form (Form1) un Picture Box (Picture 1), et 2 labels (label1.caption = 0; label2.caption = 0). ATTENTION : Pensez à rajouter Direct X dans les références !

La premiére étape obligatoire est de déclarer tous les objets (et oui...)

Source / Exemple :

Option Explicit

' On init tout !
' Les touches
Dim upss As Boolean
Dim downss As Boolean
Dim leftss As Boolean
Dim rightss As Boolean

' DirectX
Dim dxxx As New DirectX7
Dim dd As DirectDraw7
Dim ddClipper As DirectDrawClipper
Dim rm As Direct3DRM3
Dim meshToX As Direct3DRMMeshBuilder3
Dim rmDevice As Direct3DRMDevice3
Dim rmViewport As Direct3DRMViewport2
Dim mainFrame As Direct3DRMFrame3
Dim lightFrames As Direct3DRMFrame3
Dim cameraFrames As Direct3DRMFrame3
Dim objectFrames As Direct3DRMFrame3
Dim widthss As Long
Dim heightss As Long
Dim CaRunOuPas As Boolean
Dim prs As Single

Private Sub Form_Load()
MsgBox "Example DirectXRM (c) Thibault Durand" , vbInformation, "Auteur"
MsgBox "Appuyez sur les fléches directionelles pour faire bouger la boule", vbInformation, "Infos"
Show 

' Crée l'objet DirectDraw
Set dd = dxxx.DirectDrawCreate("")

' Le clipper est la zone d'affichage, ici il est égale à picture1
Set ddClipper = dd.CreateClipper(0)
ddClipper.SetHWnd Picture1.hWnd

' On sauve les dimensions de picture1
widthss = Picture1.ScaleWidth
heightss = Picture1.ScaleHeight

' On crée l'objet 3DRM
Set rm = dxxx.Direct3DRMCreate()

' Et maintenant le Device
Set rmDevice = rm.CreateDeviceFromClipper(ddClipper, "", widthss, heightss)

' On choisi la qualité (ici, le mode GOURAUD gourmand, mais le meilleur)
rmDevice.SetQuality D3DRMRENDER_GOURAUD

' On crée les frames (parce que sinon c'est pas pratique)
Set mainFrame = rm.CreateFrame(Nothing)
Set cameraFrames = rm.CreateFrame(mainFrame)
Set lightFrames = rm.CreateFrame(mainFrame)
Set objectFrames = rm.CreateFrame(mainFrame)

' Place la frame caméra et crée le ViewPort
cameraFrames.SetPosition Nothing, 0, 0, -10
Set rmViewport = rm.CreateViewport(rmDevice, cameraFrames, 0, 0, widthss, heightss)

' Que la lumiére soit... On crée la lumiére et on l'ajoute a la frame 'lightFrames'
Set lightss = rm.CreateLight(D3DRMLIGHT_DIRECTIONAL, &HFFFF80)
lightFrames.AddLight lightss

' On crée un mesh a partir du fichier x "Obj1.x" dans le répertoire de l'application (vous pouvez crée des fichiers de ce type avec 3DSMAX)
Set meshToX = rm.CreateMeshBuilder()
meshToX.LoadFromFile "\obj1.x", 0, D3DRMLOAD_FROMFILE, Nothing, Nothing

CaRunOuPas = True
Do While CaRunOuPas = True

' Mouvement de la caméra...

' Si la touche gauche est appuyé, mouvement vers la gauche de la caméra(voir gestion des touches plus loin....)
If leftss = True Then
Label1.Caption = Label1.Caption + 1
cameraFrames.SetPosition Nothing, Label1.Caption / 30, 0, label2.Caption / 30
End If

' Pareille pour la touche droit
If rightss = True Then
Label1.Caption = Label1.Caption - 1
cameraFrames.SetPosition Nothing, Label.Caption / 30, 0, label2.Caption / 30
End If

' Pareille pour la touche Haut
If upss = True Then
label2.Caption = labe2.Caption + 1
cameraFrames.SetPosition Nothing, Label1.Caption / 30, 0, label2.Caption / 30
End If

' Pareille pour la touche Bas
If downss = True Then
label2.Caption = label2.Caption - 1
cameraFrames.SetPosition Nothing, Label1.Caption / 30, 0, label2.Caption / 30
End If

' Ont rend la scéne et on rafraichit
rmViewport.Clear D3DRMCLEAR_ALL
rmViewport.Render mainFrame
rmDevice.Update

' Le fameux DoEvents pour que ca plante pas (ou moins)
DoEvents

Loop

End Sub

Private Sub Picture1_Paint()
rmDevice.HandlePaint Picture1.hDC
End Sub

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
' Gestion des touches

Select Case KeyCode

Case Is = vbKeyUp
upss = True
downss = False
leftss = False
rightss = False

Case Is = vbKeyDown

upss = False
downss = True
leftss = False
rightss = False

Case Is = vbKeyLeft

upss = False
downss = False
leftss = True
rightss = False

Case Is = vbKeyRight

upss = False
downss = False
leftss = False
rightss = True
End Sub

Conclusion :

Enfin ! J'éspere que ceux cette source vous auras bien aider car l'apprentissage par l'exemple est à mon avis le meilleur dans l'informatique. Ce code est trés basique ! Il aurait falus crée un fonction pour décgarger tout les objets avant de quitter et pleins d'autre encore. Mais je voulais réduire ce code à l'éssentiel. Si vous avez des questions, écrivez moi à :
nbtstat@voila.fr

A voir également

Ajouter un commentaire

Commentaires

Signaler

vbguigui

Messages postés: 77
Date d'inscription: vendredi 21 novembre 2003
Statut: Membre
Dernière intervention: 7 mars 2007

28 déc. 2004 à 18:33

Comment t'a pu faire quelque chose qui ne fonctionne pas ????

Faut etre fort quand meme.

Signaler

testtestiop

Messages postés: 16
Date d'inscription: mercredi 26 novembre 2003
Statut: Membre
Dernière intervention: 14 mars 2008

26 avril 2004 à 19:45

bon alors moi j'ai trouvé la solution enfin chez moi ca marche de temps en temps

en gros faut faire tout ce qui a ete dit dans les commentaires plus haut

+

- mettre un end select a la fin du fichier (encore un oubli)
- mettre les valeur de picture1.height .width .scalewidth et .scaleheight a la meme valeur et en multiple de 2 (chez moi ca marche comme ca)

et la normalement ca passe :)

Signaler

bilaloch

Messages postés: 556
Date d'inscription: lundi 6 octobre 2003
Statut: Membre
Dernière intervention: 31 octobre 2019

2 févr. 2004 à 20:58

C'est vrai...un zip sera la bienvenue

Signaler

cs_azerty25

Messages postés: 1115
Date d'inscription: jeudi 19 décembre 2002
Statut: Membre
Dernière intervention: 6 mai 2007

10 nov. 2003 à 22:21

Je ne comprend pas qu'on balance une source avec des erreurs de configuration de variables, et qu'en plus on ne répond pas aux commentaires, plus le fait qu'on ne met pas le zip, qui est nécessaire vu que le code nécessite un fichier spécial (le fichier *.X)
C'est une attitude que je ne comprend vraiment pas et que je trouve intollérable sur un tel site

Signaler

vins85

Messages postés: 3
Date d'inscription: vendredi 4 juillet 2003
Statut: Membre
Dernière intervention: 28 juillet 2003

23 sept. 2003 à 11:14

bon! j'ai copié ton code..... c'est cool de vouloir mettre tes talents au profit de débutants (comme moi), mais encore faudrait-il que ton code fonctionne........

1/ j'ai créé une picturebox
2/ 3 labels de nom label - label1 - label2
3/ j'ai mis directx7 dans les réferences
j'ai ajouté la ligne de code "Dim lightss As Direct3DRMLight" dans Option Explicit

je te rappelle que je ne suis qu'un amateur... et j'ai deja réussi a corriger ton prog.... maintenant..... ca me dit "Erreur d'automation", et ca pour plusieurs sources directx........ la, je seche...KE FAIRE....????
merci davance
vins

Afficher les 20 commentaires

S'inscrire maintenant

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.

Source / Exemple :

Conclusion :

A voir également

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !