Discussion :

[Invité]

Bonjour,

J'ai ouvert une discussion il y a pas longtemps à propos de l'OpenGL sur Excel en version 64 bit : [XL-2013] [64 bit] Excel VBA & OpenGL ayant un rapport avec cette article Découvrez OpenGL 1.1 en VB6/VBA

J'aurai aimé connaitre la différence entre le 32 bit et le 64 bit au niveau du code à appliquer pour faire fonctionner le clavier et la souris (et un joystic ou une manette).

En l'état, le code fourni par Arkham46 ne fonctionne pas sur Excel 64 bit.

Merci.

[LittleWhite]

Bonjour,

Lorsque vous dites il ne fonctionne pas, quels sont les symptômes ? Le script tourne correctement et seul les événements clavier/souris ne sont pas reconnus ?

[Invité]

Bonjour,

Merci, j'ai retesté en pensant que ça aller beuguer, mais non, je ne sais pas ce qu'il c'est passé, mais ça a bizarrement marché du 1er coup
Pourtant, j'avais essayé au moins une 20aine de fois, et que des échec.

Maintenant, j'ai rajouté une touche echap :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Const GLUT_KEY_ESC = &H1B& 'Touche 27

, mais je n'arrive pas à lui attribuer la fermeture de la fenêtre Freeglut.

1 / Comment pourrai-je faire pour attribuer une valeur, n'importe laquelle, y compris une valeur ON OFF provenant d'un bouton à 2 états ou de tout autres valeurs ?

2 / Egalement, les appels aux fonctions commençant par " glu " tel que gluperspective par exemple échoue.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Erreur de compilation:
 
Sub ou Fonction non définie

Ça me faisait la même chose au début lorsque je n'avais pas modifié les appels d'API pour qu'ils soient compatible 64 bit, mais là, je ne vois pas.

J'ai:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Declare PtrSafe Sub gluPerspective Lib "glu32" (ByVal fovy As Double, ByVal aspect As Double, ByVal zNear As Double, ByVal zFar As Double)

[Invité]

Bonjour,

Je n'avais pas répondu depuis, mais le problème est résolu. C'était tout bête, dans les déclarations, il fallait simplement remplacer Private Declare PtrSafe par Public Declare PtrSafe pour que les fonctions soient visible dans tous les modules.

Cela dis, je vais reprendre un peu l'OpenGL/VBA ses temps-ci, alors d'autres problèmes surviendrons peut être, sait-on jamais.