DECORS & COLLISION 3D (EN MOINS DE 200 LIGNES)

Commentaire de debutant VB le 12/07/2006 17:53:19

J'ai fait l'amélioration :
remplacer dans la boucle le paragraphe de rotation par :
"
        'Turn left or right
        If mKeyb(vbKeyLeft) Or mKeyb(vbKeyRight) Then
            If mKeyb(vbKeyLeft) Then mAngle = mAngle + 0.02
            If mKeyb(vbKeyRight) Then mAngle = mAngle - 0.02
        End If
        
            mfCamera.SetOrientation Nothing, Cos(mAngle), -((1.58 / 240) * (MouseY - 240)), Sin(mAngle), 0, 1, 0
"

et faire un module (ou à la suite) :
"
' J'ai fait ce module grâce à Renfield
Option Explicit

Dim dernierx As Long

Private Type POINT
    x As Long
    y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINT) As Long
Public Property Get MouseX() As Long
Dim lpPoint As POINT
    GetCursorPos lpPoint
    MouseX = lpPoint.x
End Property

Public Property Get MouseY() As Long
Dim lpPoint As POINT
    GetCursorPos lpPoint
    MouseY = lpPoint.y
End Property
"

Rem : J'ai remplacé 0.1 par 0.02 dans les rotations,
c'est plus facile pour se diriger.

salut.

Commentaire de hackademius le 12/07/2006 21:12:37

bien , trés clair , vachement bien pour debuter en 3d avec dx7.

Commentaire de VBGenesis le 13/07/2006 19:26:03

Whao! Super surtout avec l'amelioration de débutant vb (qui n'a pas l'air de l'etre réellement d'ailleur:) ) mais je comprend pas un truc: pourquoi il déclare "dernierx" qui sert a rien? En tout cas j'essaye d'amelioré pour que l'on bouge de droite à gauche à la souris et que l'on fasse un pas de coté avec gauche et droite

Commentaire de akim77 le 14/07/2006 06:36:42

Beau travail de vulgarisation !

Avec la verion 1.1 j'avais une "erreur Automation"
Dans mdlMain.bas j'ai ça :
        'mPrim.Flip Nothing, DDFLIP_NOVSYNC
        mPrim.Flip Nothing, DDFLIP_NOVSYNC Or DDFLIP_WAIT

Bye

Commentaire de EBArtSoft le 14/07/2006 12:10:00 administrateur CS

Essayez comme ceci : mPrim.Flip Nothing, DDFLIP_DONOTWAIT
ou bien encore comme cela : mPrim.Flip Nothing, DDFLIP_WAIT
ou bien encore avec ça :

        If mPrim.isLost Then mPrim.restore
        mPrim.Flip Nothing, DDFLIP_WAIT

@+

Commentaire de VBGenesis le 14/07/2006 12:55:37

Sa ne marche toujour pas! Mais peut-etre que c'est moi qui ne l'ai pas mis à la bonne place. Tu pourrais faire une MAJ stp?

Commentaire de VBGenesis le 14/07/2006 13:22:37

Est-ce que qqun connait un editeur de fichier .X? J'en trouve pas

Commentaire de debutant VB le 02/08/2006 16:21:02

Merci VBGenesis,
Pour le dernierx, je croyais que tu parlais à EBArtSoft.
En effet, ça sert à rien. Je comptais faire l'amélioration aussi pour qu'on puisse se tourner avec la souris (Axe x), par rapport à l'ancienne position, mais j'ai laissé tomber. A propos,
le paragraphe "Public Property Get MouseX() As Long
Dim lpPoint As POINT
    GetCursorPos lpPoint
    MouseX = lpPoint.x
End Property" aussi est inutile.
voilà, et merci aussi akim77, moi aussi j'en cherchais un (bon).