Bonjour
Je suis en train de faire un jeu 2D en VB.NET mais j'ai un problème...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
'le code suivant doit afficher une image de vaisseau ainci qu'un cercle autour de celui-ci indiquant son équipe mais lorsque j'utilise l'objet "graphics" g , avec g.rotatetransphorm(n degrés)l'image se décalle(elle ne se met pas au bon endroit)
'Je crois savoir d'où vient le probleme(mais je ne sais pas comment le résoudre)mais je vais mettre tout le code au cas ou
'cette fonction est aussi sensée déplacer le vaisseau en fonction de sa direction et de sa vitesse mais cette fonctionalité es fonctionnelle
Dim var1 As unit = Unité.Item(encour)
        Dim ancX As Integer = var1.CooX
        Dim AncY As Integer = var1.CooY
        Dim Pi = 3.1415926536
        var1.CooX = Math.Round(Math.Sin(2 * Pi * (var1.Direction Mod 360) / 360) * var1.vitesse) + ancX
        var1.CooY = Math.Round(Math.Cos(2 * Pi * (var1.Direction Mod 360) / 360) * var1.vitesse) + AncY
        g.RotateTransform(var1.Direction)
        Select Case var1.type
            Case "Cargo"
                g.DrawImage(My.Resources.CargoV, var1.CooX + 12, var1.CooY + 12)
            Case "CargoR"
                g.DrawImage(My.Resources.CargoR, var1.CooX + 12, var1.CooY + 12)
            Case "Bombardier"
                g.DrawImage(My.Resources.Bombardier, var1.CooX + 12, var1.CooY + 12)
            Case "Bombardier2"
                g.DrawImage(My.Resources.Bombardier2, var1.CooX + 12, var1.CooY + 12)
            Case "Chasseur"
                g.DrawImage(My.Resources.chasseur, var1.CooX + 12, var1.CooY + 12)
 
 
        End Select
        Select Case var1.équipe
            Case "Rébélion"
                g.DrawEllipse(Pens.Blue, var1.CooX, var1.CooY, 75, 75)
                If var1.Nom = "Joueur" Then g.DrawEllipse(Pens.Green, var1.CooX, var1.CooY, 75, 75)
            Case "Neutre"
                g.DrawEllipse(Pens.Gray, var1.CooX, var1.CooY, 75, 75)
            Case "Asservents"
                g.DrawEllipse(Pens.Red, var1.CooX, var1.CooY, 75, 75)
        End Select
        Unité.Item(encour) = var1
        g.ResetTransform()
Je crois que le bug vient de la:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
 
g.RotateTransform(var1.Direction)
si c'est bien que je n'utilise pas la bonne chose (g.RotateTransform)merci de m'indiquer une autre solution