PROGRAMMATION DIRECTX8 TUTORIAL 5 : CHARGEMENT, AFFICHAGE, ANIMATION D'OBJETS PRE-CREES

Commentaire de Xav88 le 08/12/2003 17:21:52

Salut
Moi j'ai un petit problème :
Quand j'execute le prog j'ai une erreur
«Argument ou appel de procédure incorrect» dans le module «géométrie» sur la ligne :

Set Pmesh = Pd3dx.LoadMeshFromX(Ppath & "mesh.x", D3DXMESH_MANAGED, PDevice, Nothing, Pbuffer, nbmaterial)

Si quelqu'un peut m'aider......

Xav

Commentaire de Xav88 le 08/12/2003 19:19:21

C'est encore moi

J'oubliais de préciser que j'ai bien changé le chemin d'accès Ppath !!!

Xav

Commentaire de LaPatoshe le 09/12/2003 23:25:48

On dirait que la mise à jour de mon code ou du moins des explications du fonctionnement a permis de réparer cette page.
Donc, pour résumer, je pense avoir trouvé la solution au problème. Il faut changer le format du Backbuffer dans le module initialisation. Enlevez D3DFMT_R5G6B5, et essayez les formats D3DFMT_A8R8G8B8, ou D3DFMT_R8G8B8, ou D3DFMT_X8R8G8B8. Normalement cela devrait marcher.
A plus, et merci de laisser vos commentaires

Commentaire de Guidelor le 10/12/2003 12:15:07

ça veut pas marcher chez moi...
J'ai eu beau changer le format , la résolution , mon nombre de bits , ...
mais toujours l' eternelle "Automation error" ou "Argument ou appel de procédure incorrect"...

Commentaire de Xav88 le 10/12/2003 13:47:35

Génial !!!!!!!!
J'ai mis "D3DFMT_X8R8G8B8" en Backbuffer dans le module initialistation et ça marche !!!

Merci

Xav.

Commentaire de Pascalitou le 17/12/2003 21:02:10

Message

Trés bon travail et trés bien explique le code source

Bref félicitations un amateur de programmation DIRECT X

A plus

Commentaire de rumik le 15/02/2004 18:43:09

merci pour ce pt programme bien instructif

Commentaire de AbeLeMudokon le 05/04/2004 22:12:58

Excellente source, ca mérite 9/10
J'aurai quand meme une petite remarque à faire à propos du module d'animation : essaye ton code avec la rotation d'une centaine de mesh à chaque frame, et tu verras que le programme va ralentir tres sérieusement.
donc voici la solution miracle (qui est d'ailleurs un peu plus courte) :
1) créer un type Objet3D dans le module principal :
Type ModeleObjet3D
    Mesh As D3DXMesh
    NomFichierMesh As String
    Position As D3DVECTOR
    Rotation As D3DVECTOR
    Buffer As D3DXBuffer
    Texture() As Direct3DTexture8
    Material() As D3DMATERIAL8
    NombreMaterial As Long
End Type
(je pense que les noms des variables sont assez explicites pour que je n'aie pas à détailler)
2) pour le chargement, on fait comme d'habitude, mais sans les 2 dernieres lignes (GetNumVertices...)

3) dans le module d'affichage créer une sub :
Sub Objet3D_Afficher(Objet As ModeleObjet3D)
Dim MatriceWorld As D3DMATRIX
Dim MatriceTemporaire As D3DMATRIX
Dim n As Byte
'Calculer les transformations de l'objet
D3DXMatrixIdentity MatriceWorld
D3DXMatrixRotationY MatriceTemporaire, Objet.Rotation.y
D3DXMatrixMultiply MatriceWorld, MatriceWorld, MatriceTemporaire
D3DXMatrixTranslation MatriceTemporaire, 0, 0, 10
D3DXMatrixMultiply MatriceWorld, MatriceWorld, MatriceTemporaire
DX.Device.SetTransform D3DTS_WORLD, MatriceWorld
'Afficher l'objet
For n = 0 To Objet.NombreMaterial - 1
    DX.Device.SetMaterial Objet.Material(n)
    DX.Device.SetTexture 0, Objet.Texture(n)
    Objet.Mesh.DrawSubset n
Next n
End Sub
(ici il par économie de place je n'ai mis que la rotation en y, il faudrait faire de meme avec les axes x et y)

4) dans la sub Prendu, entre le BeginScene et le EndScene :
Objet3D_Afficher Voiture  'où Voiture est un objet ModeleObjet3D
5) Pour faire une rotation de l'objet on rajoute dans la boucle principale :
Voiture.Rotation.y = Voiture.Rotation.y + 0.1

voila A+

Commentaire de Xav88 le 01/05/2004 15:07:42

Salut AbeLeMudokon,
Je voudrais bien essayer ta technique mais je n'arrive pas a la mettre en place comme tu l'explique ( Je n'ai jamais utiliser les Type...End Type)
Si tu pouvais m'envoyer le tuto avec tes modification ce serait très sympa...

Voici mon mail : xavroi2003@hotmail.com

Merci d'avance

Xav

Commentaire de Xav88 le 27/08/2004 20:21:29

Bonjour à tous,
J'ai utilisé la technique de AbeLeMudokon (même si je n'est pas idée de laquelle est la meilleure ...) et je me trouve face a un comportement étrange en effet sur le Tutorial modifié comme il l'a expliquer j'ai changé :


1) ///////////////////
'Variables globales
Global Objet(1) As ModeleObjet


2) ///////////////////
Sub Main()

'Définir le répertoire par défaut
ChDir App.Path

'Initialiser DirectX
DirectX_Initialiser

'Charger le mesh
Mesh.NomFichier = "Mesh.x"
Objet3D_Charger Mesh

'Initialiser les différents objets
Objet(1).Position = CreerD3DVECTOR(-3, 0, 20)
'Objet(2).Position = CreerD3DVECTOR(100, 100, 100)
'Objet(3).Position = CreerD3DVECTOR(100, 100, 100)
Objet(1).Rotation.y = 3.14597 / 2 'Permet de voir le mesh de profil.
'Initialiser l'éclairage
CreerLumiereDirectionnelle CreerD3DCOLORVALUE(1, 1, 1, 1), CreerD3DVECTOR(0, 0, 1), 0

'Début de la boucle principale
Do
    
    'Traitement des évenements Windows
    DoEvents

    'Effectuer les rotations des objets
    Objet(1).Rotation = CreerD3DVECTOR(Objet(1).Rotation.x + 0.1, Objet(1).Rotation.y, Objet(1).Rotation.z)
'    Objet(2).Rotation = CreerD3DVECTOR(Objet(2).Rotation.x, Objet(2).Rotation.y, Objet(2).Rotation.z + 0.01)
'    Objet(3).Rotation = CreerD3DVECTOR(Objet(3).Rotation.x + 0.1, Objet(3).Rotation.y, Objet(3).Rotation.z)
    
    'Rendu de la scène
    DirectX_Rendu
    
Loop

End Sub

3) ///////////////////
'Afficher les objets
For n = 1 To 1
    Objet3D_Afficher Mesh, Objet(n).Position, Objet(n).Rotation
Next n

Ceci fais comme si mon mesh (en l'occurence un avion) faisait des loopings sur place. Et le probleme est que :

Lorsque l'avion est parllèle au sol il fait une certaine longueur (~15 cm chez moi) et lorsqu'il est vertical, il est comme conpacté (ce qui fait que ca longueur est de ~13 cm chez moi)

Au secour, Je n'y comprend rien !!!!

Xav88