3d : vision panoramique comme dans half-life

Soyez le premier à donner votre avis sur cette source.

Vue 15 196 fois - Téléchargée 1 228 fois

Description

Ce code vous permet de donner plus de réalité a vos jeux 3D :
Dans un univers 3D, il vous permet d'avoir une vision panoramique a l'aide de la souris et de vous déplacer a l'aide des fleches directionelles. Bref, comme dans tous les bons jeux 3d, il vous permet de déplacer vos personnage avec une grande facilité.

Le code conient aussi, par la meme occasion un exemple de création de ciel spherique, ceci pour eviter tous les ciels en forme de pyramide que l'on voit dans les sources...

L'exemple vous permet de vous déplacer dans un monde en 3D ou j'ai mis quelques arbres pour que vous vous rendiez compte de la facilité du déplacement en slalomant autour d'eux

La capture vous montre un screenshot de l'exemple...

Source / Exemple :


Public sub Zip()
  Download(zip)
End sub

Conclusion :


Merci de laisser vos commentaires, ca serait sympa

J'ai corrigé le bug avec la souris, le programme gère maintenant la souris grace à DirectInput, je pense que ca devrait marcher sur toutes les plateformes...

J'ai corrigé le bug de dépassement de capacité au lancement.

Vous pouvez maintenant choisir la sensibilité de la souris

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
20
Date d'inscription
samedi 9 octobre 2004
Statut
Membre
Dernière intervention
20 janvier 2008

La variable R n'est pas initialisé , alors quelle est utilisé dans le calcul de la souris.

Ajouté cette ligne en fin d'initialisation

R = Sqr((PosX - LookX) ^ 2 + (PosY - LookY) ^ 2 + (PosZ - LookZ) ^ 2)

juste avant ces lignes
'Objet DirectInput permettant de recuperer les coordonnées de la souris
Dim mState As DIMOUSESTATE

Et ça plante plus , plus de dépassement de capacité.
Messages postés
20
Date d'inscription
samedi 9 octobre 2004
Statut
Membre
Dernière intervention
20 janvier 2008

10/10 malgré les derniers bugs
Messages postés
20
Date d'inscription
samedi 9 octobre 2004
Statut
Membre
Dernière intervention
20 janvier 2008

le programme fonctionne bien , quand il démarre.

aa = Atn((LookY - PosY) / (LookX - PosX)) + 2 * (Sgn(PosX - LookX) + 1) * Atn(1)
Cette ligne provoque un dépassement de capacité
lorsque (LookX - PosX) = 0 , la division par 0 plante.

Cela arrive systématiquement si la première action est un mouvement de souris.
Et un coup sur 2 si on appuie sur le clavier.
Et un coup sur 2 tout fonctionne bien

Pour le moment je n'ai pas trouvé la raison.
dommage pour le reste c'est impeccable.
Pour une fois que je trouve un 3D qui fonctionne sur VBFrance...
Messages postés
1
Date d'inscription
mardi 4 avril 2006
Statut
Membre
Dernière intervention
9 octobre 2007

génial
Messages postés
162
Date d'inscription
jeudi 30 septembre 2004
Statut
Membre
Dernière intervention
17 novembre 2010

C'est tout simplement génial :
L'animation de l'ovjet qui suit gentiement la caméra que l'on peut controller avec la souris, te graphisme du ciel qui donne une impression de voute celleste, etc..
Donc tout simplement 10/10.
@+ !
Afficher les 39 commentaires

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.