Découvrez la programmation 3D en VBA/VB6 avec OpenGL 1.1 [Article]

[Arkham46]

Bonjour à tous!

Je vous invite à une découverte de la programmation 3D avec OpenGL 1.1.

Faîtes vos premiers pas dans la programmation 3D avec votre langage VBA ou VB6 préféré.

Voici un aperçu de ce que vous pouvez obtenir en suivant ce tutoriel :




Vous pouvez ajoutez vos commentaires sur cet articles à la suite de ce message.

[Tofalu]

Comme on dit souvent :


Une fonctionnalité tellement inutile ... et donc totalement indispensable

Beau boulot

Après ça on va encore dire, qu'Access est limité

[Philippe JOCHMANS]

Bonjour

Que dire de plus à part

Philippe

[Arkham46]

Bonjour à tous,

Cet article de découverte de la programmation 3D avec OpenGL 1.1 a été mis à jour.
En plus du langage VBA, il est désormais applicable à Visual Basic 6 (VB6).

Pensez-vous intégrer OpenGL dans vos applications VB6 ou VBA?
Cet article vous a-t-il été utile?

pour vos commentaires.

A suivre dans le prochain tutoriel : l'utilisation des extensions.
Vertex Buffer Objects, Texture 3D, Shaders, ...
A bientôt.

[toss.net]

Bonjour,
Oui super ! J'ai un projet de changement de dessin en opengl (utilisé qu'en 2d) et ce tuto tombe bien... nous avons encore bcp de logiciels sous VB6 et donc ce tuto et pour nous toujours d'actu !

[lulu29]

Bonjour,

Tout d'abord bravo pour ce tuto qui m'a permis de découvrir la 3D opengl sous VB6.
J'aurais juste une question :
Sous VB6, quelle méthode utiliser pour faire la même chose dans un contrôle PictureBox d'un formulaire déjà existant ?
J'ai besoin d'un picturebox opengl que je pourrai contrôler avec des boutons par exemple.
Merci d'avance.

[Arkham46]

Bjr,

Envoyé par lulu29

Sous VB6, quelle méthode utiliser pour faire la même chose dans un contrôle PictureBox d'un formulaire déjà existant ?
J'ai besoin d'un picturebox opengl que je pourrai contrôler avec des boutons par exemple.

Vous pouvez ajoutez cette fonction InitOpenGLPicture au module clOpengGLFormVB6 :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
'---------------------------------------------------------------------------------------
' Initialise OpenGL pour la PictureBox pPicture
'---------------------------------------------------------------------------------------
Public Function InitOpenGLPicture(pPicture As PictureBox) As Boolean
' Handle de la fenêtre
gHwnd = pPicture.hWnd
' Contexte d'affichage gdi32
gHdc = pPicture.hdc
' Initialise opengl
InitOpenGLPicture = PrivInitOpenGL
End Function

Et appelez cette fonction en donnant la pictureBox en paramètre :

Code :

1
2
 
oGl.InitOpenGLPicture Me.Picture1

(à la place de oGl.InitOpenGL Me)

[lulu29]

Bonjour,
Grâce à vos conseils ma petite appli est en bonne voie mais je cale sur "gludisk".
J'ai créé un cône avec glucylinder et je voudrais fermer sa base par un disque.
Quand je veux créer une quadrique rien ne s'affiche, voici le code :

Code :

1
2
3
4
5
6
7
8
9
10
' Disque
glPushMatrix
Dim lQuad4 As Long
glColor3VB vbRed
glTranslated x0 - 200, y0, z0
glRotated 45, 0, 1, 0
lQuad4 = gluNewQuadric
gluDisk lQuad4, 30, 0, 10, 10
gluDeleteQuadric lQuad4
glPopMatrix

Je ne vois pas pourquoi cela ne marche pas ?
Merci d'avance.

[Arkham46]

Envoyé par lulu29

Bonjour,
Grâce à vos conseils ma petite appli est en bonne voie mais je cale sur "gludisk".
J'ai créé un cône avec glucylinder et je voudrais fermer sa base par un disque.
Quand je veux créer une quadrique rien ne s'affiche, voici le code :

bjr,

peut-être un problème d'orientation qui rend la face invisible (si culling activé)?

Tester avec avant le gluDisk :

Code :

gluQuadricOrientation lQuad4, GLU_INSIDE

(ou GLU_OUTSIDE, je ne sais plus trop dans quel sens ça se passe)

Sinon pour un problème purement openGL il y a le forum OpenGL sur lequel tu auras sans doute plus de réponses (avec des gens plus expérimentés que moi )

[crogiez]

bravo
on peut donc refaire "2001 Odyssée de l'espace"
rebravo