voila ce qu'il faut absoluement savoir utiliser si vous voulez utiliser le moteur graphique DirectX 8 sur VB.
ici c'est un plan en 3 dimensions avec un cube au centre, on utilise la camera pour se déplacer dans l'espace.
Le code source est une utilisation de ce moteur, sous forme de plusieurs fonction assemblé
Source / Exemple :
Public d As Single, e As Single, f As Single
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 38 Then d = d - 0.1
If KeyCode = 40 Then d = d + 0.1
If KeyCode = 37 Then e = e - 0.1
If KeyCode = 39 Then e = e + 0.1
If KeyCode = 33 Then f = f + 0.1
If KeyCode = 34 Then f = f - 0.1
MatrIces d, e, f
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 54 Then
angle = angle + 2
If angle >= 360 Then angle = angle - 360
End If
If KeyAscii = 52 Then
angle = angle - 2
If angle <= 0 Then angle = angle + 360
End If
End Sub
Private Sub Form_Load()
If Not Init3D() Then End
' Lancement du rendu :
d = 5
e = 0
f = 0
MatrIces d, e, f
bActif = True
Rendu
End Sub
Private Sub Form_Unload(Cancel As Integer)
bActif = False
End Sub
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.