DirectX9 Kamera Problem

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von jonichecker.

    DirectX9 Kamera Problem

    So liebe Forenmitglieder

    könnt ihr mir bei folgendem Code helfen

    VB.NET-Quellcode

    1. Imports Microsoft.DirectXImports Microsoft.DirectX.Direct3D
    4. Public Class Form1 Public bmp As Texture Private device As Microsoft.DirectX.Direct3D.Device Public Sub Initialize() Dim present As PresentParameters = New PresentParameters present.Windowed = True 'we?ll draw on a window present.SwapEffect = SwapEffect.Discard 'discuss later device = New Microsoft.DirectX.Direct3D.Device(0, DeviceType.Hardware, Me, CreateFlags.HardwareVertexProcessing, present) device.RenderState.CullMode = Cull.Clockwise & Cull.CounterClockwise End Sub
    6. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.Opaque, True) 'Do not draw form?s background\ Me.Height = 600 Me.Width = 800 Me.Text = "HI!!"
    7. Initialize()
    8. End Sub
    9. Public yhigh As Integer = 31 Public richtung As Boolean = True
    12. Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    14. If richtung = True Then yhigh = yhigh + 1 Else yhigh = yhigh - 1
    15. End If
    17. If yhigh > 300 Then richtung = False End If
    18. If yhigh < 1 Then richtung = True End If
    23. Dim vertices1 As CustomVertex.TransformedColored() = New CustomVertex.TransformedColored(0 To 3) {} 'create an array of vertices vertices1(0).Position = New Vector4(150, 100, 0, 1) vertices1(0).Color = Color.Red.ToArgb 'encode color in Argb vertices1(1).Position = New Vector4(Me.Width / 2 + 100, 100, 0, 1) vertices1(1).Color = Color.Green.ToArgb vertices1(2).Position = New Vector4(250, 300, 50, 1) vertices1(2).Color = Color.Yellow.ToArgb
    24. Dim vertices2 As CustomVertex.TransformedColored() = New CustomVertex.TransformedColored(0 To 3) {} 'create an array of vertices vertices2(0).Position = New Vector4(Me.Width / 2 + 100, 100, 0, 1) vertices2(0).Color = Color.Green.ToArgb 'encode color in Argb vertices2(1).Position = New Vector4(Me.Width / 2 + 200, yhigh, 0, 1) vertices2(1).Color = Color.Red.ToArgb vertices2(2).Position = New Vector4(250, 300, 0, 1) vertices2(2).Color = Color.Yellow.ToArgb
    25. Dim vertices3 As CustomVertex.TransformedColored() = New CustomVertex.TransformedColored(0 To 3) {} 'create an array of vertices vertices3(0).Position = New Vector4(150, 100, 0, 1) vertices3(0).Color = Color.Green.ToArgb 'encode color in Argb vertices3(1).Position = New Vector4(Me.Width / 2 + 200, yhigh, 0, 1) vertices3(1).Color = Color.Red.ToArgb vertices3(2).Position = New Vector4(Me.Width / 2 + 100, 100, 0, 1) vertices3(2).Color = Color.Yellow.ToArgb device.Clear(ClearFlags.Target, Color.SteelBlue, 1.0, 0)
    26. Dim vertices4 As CustomVertex.TransformedTextured() = New CustomVertex.TransformedTextured(0 To 3) {} 'create an array of vertices vertices4(0).Position = New Vector4(399, 100, 0, 1)
    27. vertices4(1).Position = New Vector4(Me.Width / 2 + 300, yhigh, 0, 1)
    28. vertices4(2).Position = New Vector4(Me.Width / 2 + 300, 100, 0, 1)
    29. device.Clear(ClearFlags.Target, Color.SteelBlue, 1.0, 0)
    30. device.BeginScene() 'all drawings after this line camera() device.VertexFormat = CustomVertex.TransformedColored.Format device.SetTexture(0, bmp)
    31. device.DrawUserPrimitives(PrimitiveType.TriangleList, 1, vertices3) device.DrawUserPrimitives(PrimitiveType.TriangleList, 1, vertices4) device.DrawUserPrimitives(PrimitiveType.TriangleList, 1, vertices2)
    32. device.EndScene() 'all drawings before this line
    33. device.Present() Me.Invalidate() 'redraw
    34. End Sub
    35. 'kamera Public view As Matrix Public projection As Matrix
    36. Public Sub camera() Dim posi As New Vector3(400, 1, 1) Dim target As New Vector3(250, 300, 50) Dim up As New Vector3(0, 1, 0) view = Matrix.LookAtRH(posi, target, up) projection = Matrix.PerspectiveFovRH(Math.PI / 4, 1024, 768, 400) device.Transform.View = view device.Transform.Projection = projection
    37. End Sub
    42. 'End Class






    Ich komm mit der kamera net Klar
    kann mir jmd helfen und erklären was ich falsch mach?
    Tut mir leid dass es die formatierung so verzogen hier noch das projekt als datei
    Dateien

    • WorkingDX.zip

      (21,31 kB, 136 mal heruntergeladen, zuletzt: )

    du hast doch eine...
    du kannst eine Position festlegen, wo du hinguckst und eine wo du stehst(deine posi und target Variablen)...
    diese einfach global Deklarieren, sodass du diese von überall verändern kannst(Properties sind immer schön, auch die Möglichkeit einer Klasse wäre hier geboten...)

    die camera Methode rufst du dann jedes mal beim ändern dieser Variablen auf...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Dim posi As New Vector3(400, 1, 1) ' Da ist die Position der Kamera...
    Dim target As New Vector3(250, 300, 50)' dahin guckt die Kamera
    Dim up As New Vector3(0, 1, 0)
    view = Matrix.LookAtRH(posi, target, up)device.Transform.View = view

    du hast somit alles was du brauchst...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    So dass hier hab ich der initialisieren Code führt es aus
    aber es passiert nix!

    VB.NET-Quellcode

    1. Public Sub Kamera()
    2. Dim posi As New Vector3(400, 300, 3000) ' Da ist die Position der Kamera...
    3. Dim target As New Vector3(500, 300, 300) ' dahin guckt die Kamera
    4. Dim up As New Vector3(0, 1, 0)
    5. view = Matrix.LookAtRH(posi, target, up)
    6. device.Transform.View = view
    7. End Sub

    Hi,

    erstmal reicht die View-Matrix nicht aus. Du brauchst zusätzlich noch die Projektionsmatrix (erreichbar über device.Transform.Projection) - diese beschreibt das Sichtfeld deiner Kamera (angegeben in Radians), das Seitenverhältnis und die Near- und die FarPlaneDistance (über diese gibst du an, welche Distanz Vertices zur Kamera minimal bzw. maximal haben müssen, um dargestellt zu werden). Diese Matrix erstellst du übrigens über Matrix.PersepctiveFovLH (die View-Matrix sollte m.E. ebenfalls eine Matrix.LookAtLH sein, da DirectX ein Linkssystem verwendet). Zum zweiten machen wohl deine Vertices ebenfalls Probleme. Das Format CustomVertex.TransformColored gibt nämlich an, dass die Positionen der Vertices bereits in Bildschirmkoordinaten angegeben sind, also bereits durch die Matrizen transformiert sind. Eine erneute Transformation könnte zu seltsamen Ergebnissen führen...

    MfG

    bei deiner Sub camera(iim ersten Code) siehst du bereits eine Projektionsmatrix...die vertices bleiben wie sie sind...du musst einfach die camera Methode auch mal aufrufen...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Gut hab die Lösung, hier der fertige Code

    hier der Code

    VB.NET-Quellcode

    1. Imports Microsoft.DirectX
    2. Imports Microsoft.DirectX.Direct3D
    6. Public Class Form1
    8. Public bmp As Texture
    9. Public Shared device As Microsoft.DirectX.Direct3D.Device
    10. Public Sub Initialize()
    11. Dim present As PresentParameters = New PresentParameters
    12. present.Windowed = True 'we?ll draw on a window
    13. present.SwapEffect = SwapEffect.Discard 'discuss later
    14. device = New Microsoft.DirectX.Direct3D.Device(0, DeviceType.Hardware, Me, CreateFlags.HardwareVertexProcessing, present)
    15. device.RenderState.CullMode = Cull.Clockwise & Cull.CounterClockwise
    16. device.RenderState.Lighting = False
    18. End Sub

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    2. Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.Opaque, True) 'Do not draw form?s background\
    3. Me.Height = 600
    4. Me.Width = 800
    5. Me.Text = "HI!!"
    7. Initialize()
    8. Kamera()
    9. End Sub
    11. Public yhigh As Integer = 31
    12. Public richtung As Boolean = True
    16. Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
    19. If richtung = True Then
    20. yhigh = yhigh + 1
    21. Else
    22. yhigh = yhigh - 1
    24. End If
    27. If yhigh > 300 Then
    28. richtung = False
    29. End If
    31. If yhigh < 1 Then
    32. richtung = True
    33. End If
    36. Dim vertices1 As CustomVertex.PositionColored() = New CustomVertex.PositionColored(0 To 2) {} 'create an array of vertices
    37. vertices1(0).Position = New Vector3(150, 100, 50)
    38. vertices1(0).Color = Color.Red.ToArgb 'encode color in Argb
    39. vertices1(1).Position = New Vector3(Me.Width / 2 + 100, 100, 0)
    40. vertices1(1).Color = Color.Green.ToArgb
    41. vertices1(2).Position = New Vector3(250, 300, 50)
    42. vertices1(2).Color = Color.Yellow.ToArgb
    45. device.Clear(ClearFlags.Target, Color.Aqua, 1.0, 0)
    47. device.BeginScene() 'all drawings after this line
    49. device.VertexFormat = CustomVertex.PositionColored.Format
    54. device.DrawUserPrimitives(PrimitiveType.TriangleList, 1, vertices1)
    57. device.EndScene() 'all drawings before this line
    59. device.Present()
    60. Me.Invalidate() 'redraw
    62. End Sub

    VB.NET-Quellcode

    1. 'kamera
    2. Public Shared view As Matrix
    5. Public Sub Kamera()
    6. Dim posi As New Vector3(1000, 10, 10) ' Da ist die Position der Kamera...
    7. Dim target As New Vector3(250, 300, 50) ' dahin guckt die Kamera
    8. Dim up As New Vector3(0, -1, 0)
    9. Dim projection As Matrix = Matrix.PerspectiveFovRH(Math.PI / 4,Me.ClientSize.Width /me.ClientSize.Height, 1, 8000)
    12. view = Matrix.LookAtRH(posi, target, up)
    13. device.Transform.View = view
    14. device.Transform.Projection = projection
    15. End Sub
    21. '
    22. End Class

Facebook
Telefonspende