Bewegung der Kamera Directx

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von stefan15.

    Bewegung der Kamera Directx

    Hi leute, ich möchte in genau die richtung mit der Kamera gehen in die ich sie rotiere...
    wie kann ich das machen?
    Erst habe ich versuch das mit grad-zahlen zu realisieren, aber ohne erfolg..:/

    DEG*0,02222222222222222=StepX
    2-Stepx=StepY
    :D

    Danke für jeden Tipp!

    Hier noch der Code:

    VB.NET-Quellcode

    1. Imports Microsoft
    2. Imports Microsoft.DirectX
    3. Imports Microsoft.DirectX.Direct3D
    4. Imports Microsoft.DirectX.Direct3D.LightsCollection
    5. Imports Microsoft.DirectX.DirectPlay
    6. Public Class Form
    9. Dim Camerax As Integer
    10. Dim Cameraposx As Integer
    11. Dim Cameraposy As Integer
    12. Dim Cameraposz As Integer
    13. Dim Cameray As Integer
    14. Dim Cameray2 As Integer
    15. Dim Cameraz As Integer
    17. Private player As Mesh
    18. Private player_Textures() As Texture
    19. Private player_Materials() As Material
    21. Private m As Mesh
    22. Private m_Textures() As Texture
    23. Private m_Materials() As Material
    26. Dim Frames As Integer = 0
    27. Public Mouse As DirectInput.Device
    28. Public MouseState As DirectInput.MouseState
    29. Public KeyBoard As DirectInput.Device
    30. Public KeyBoardState As DirectInput.KeyboardState
    31. Public Camera As Camera
    32. Private VertexBuf As VertexBuffer
    33. Public Dev As Device 'Variable für DX Device
    34. Public Parameter As PresentParameters 'Parameter für das DX Device
    35. Sub Loadxfile(ByVal filename As String)
    36. Dim extMat() As ExtendedMaterial = Nothing
    37. m = Mesh.FromFile(filename, MeshFlags.Managed, Dev, extMat)
    38. ReDim m_Materials(extMat.Length - 1)
    39. ReDim m_Textures(extMat.Length - 1)
    40. For x As Integer = 0 To extMat.Length - 1
    41. m_Materials(x) = extMat(x).Material3D
    42. Dim exists As Integer = 1
    43. If exists = 1 Then
    44. m_Textures(x) = TextureLoader.FromFile(Dev, "C:\bild1.bmp")
    45. End If
    46. Next
    47. End Sub
    48. Public Sub initialsieren()
    49. Label2.Text = "Parameter der Engine"
    52. Parameter = New PresentParameters
    53. Parameter.Windowed = True ' Fenstermodus wird genutzt
    54. Parameter.SwapEffect = SwapEffect.Discard ' SwapEffect
    55. Parameter.EnableAutoDepthStencil = True ' Autotiefe
    56. Parameter.AutoDepthStencilFormat = DepthFormat.D16 ' Format der Autotiefe
    57. Label2.Text = "Starten der Device mit den Parametern"
    58. Dev = New Device(0, DeviceType.Hardware, Me.Handle, _
    59. CreateFlags.SoftwareVertexProcessing, Parameter)
    61. Label2.Text = "Camera"
    62. 'Ist noch in Arbeit
    63. Label2.Text = "Tastartur"
    64. KeyBoard = New DirectInput.Device(DirectInput.SystemGuid.Keyboard)
    65. KeyBoard.SetCooperativeLevel(Me, DirectInput.CooperativeLevelFlags.Background Or _
    66. DirectInput.CooperativeLevelFlags.NonExclusive)
    67. KeyBoard.Acquire()
    68. Label2.Text = "Maus"
    69. Mouse = New DirectInput.Device(DirectInput.SystemGuid.Mouse)
    70. Mouse.SetCooperativeLevel(Me, DirectInput.CooperativeLevelFlags.Background Or _
    71. DirectInput.CooperativeLevelFlags.NonExclusive)
    72. Mouse.Acquire()
    73. Label2.Text = "READY and OK"
    75. 'Lights
    76. Dev.RenderState.Lighting = True
    77. Dev.Lights(0).Type = LightType.Directional
    78. Dev.Lights(0).Diffuse = Color.WhiteSmoke
    79. Dev.Lights(0).Direction = New Vector3(0.8F, 0, -5)
    80. Dev.Lights(0).Enabled = True
    81. Cursor.Hide()
    82. End Sub
    83. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
    84. Handles Me.Load
    85. initialsieren()
    87. load_xfiles()
    88. Timer1.Start()
    89. End Sub
    90. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    91. Handles Timer1.Tick
    92. Frames += 1
    93. Label5.Text = Frames
    95. Dev.Clear(ClearFlags.Target Or ClearFlags.ZBuffer, Color.CornflowerBlue, 1, 0)
    97. Dev.RenderState.CullMode = Cull.Clockwise & Cull.CounterClockwise
    98. VertexBuf = New VertexBuffer(GetType(CustomVertex.PositionColored), 3, _
    99. Dev, Usage.None, _
    100. CustomVertex.PositionColored.Format, Pool.Default)
    103. Motion_Mouse()
    104. Motion_Keyboard()
    105. Keyboard_Events()
    106. updating()
    107. Dev.VertexFormat = CustomVertex.PositionColored.Format
    108. Dev.BeginScene()
    109. rendern()
    110. Dev.DrawPrimitives(PrimitiveType.TriangleList, 0, 1)
    111. Dev.EndScene()
    112. Dev.Present()
    114. End Sub
    115. Public Sub updating()
    116. Camera = New Camera(Dev, Me, 1, 50, _
    117. New Vector3(0, 0, 5), _
    118. New Vector3(Val(Camerax) / 80, Val(Cameray) / 80, Val(Cameraz) / 80))
    119. End Sub
    120. Public Sub Motion_Mouse()
    121. 'Maus auslesen mit Direct Input:
    122. MouseState = Mouse.CurrentMouseState
    123. Label10.Text = MouseState.X
    124. Label11.Text = MouseState.Y
    125. Label12.Text = MouseState.Z
    127. 'Neu Rendern der Camera Vektoren
    128. Label11.Text = Label11.Text * -1
    130. Camerax += Val(Label10.Text)
    132. Cameray += Val(Label11.Text)
    134. Cameraz += Val(Label12.Text)
    135. TextBox2.Text = Camerax
    136. TextBox3.Text = Cameray
    137. TextBox4.Text = Cameraz
    138. End Sub
    139. Public Sub Motion_Keyboard()
    140. KeyBoardState = KeyBoard.GetCurrentKeyboardState
    141. If KeyBoardState(DirectInput.Key.Left) Then
    142. Cameraposx += 1
    143. ElseIf KeyBoardState(DirectInput.Key.Right) Then
    145. End If
    146. End Sub
    147. Public Sub load_xfiles()
    148. 'Die Objeckte der Reihe nach laden
    149. For i As Integer = 0 To RichTextBox1.Lines.Count - 1 Step 1
    150. Loadxfile("C:\town.x")
    151. Next
    152. End Sub
    153. Public Sub rendern()
    154. For x As Integer = 0 To m_Materials.Length - 1
    155. Dev.SetTexture(0, m_Textures(x))
    156. Dev.Material = m_Materials(x)
    157. m.DrawSubset(x)
    158. Next
    159. End Sub
    160. Public Sub Keyboard_Events()
    161. If Timer1.Enabled = False Then
    162. Else
    164. If KeyBoardState(DirectInput.Key.Escape) Then
    165. Timer1.Stop()
    166. Cursor.Show()
    167. Timer2.Start()
    168. End If
    169. End If
    170. If KeyBoardState(DirectInput.Key.F1) Then
    171. Timer2.Stop()
    172. Cursor.Hide()
    173. Timer1.Start()
    174. End If
    175. End Sub
    176. Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    177. KeyBoardState = KeyBoard.GetCurrentKeyboardState
    178. Keyboard_Events()
    179. End Sub
    180. End Class

    Also 1. Maximal ein Timer verwenden, dann vor dem Rendern jedes mal Updaten(DirectInput prüfen Matrizen verändern usw...)
    Statt Timer kann man hier auch sehr gut eine While Schleife verwenden, da du außer dem Formular keinerlei Windows-Controls benötigst...
    Für die Kamerabewegung machst du follgendes:
    Du hast eine Kameraposition sowie eine Position, an welche die Kamera schaut(LookAt), die differenz aus diesen beiden bildet einen Richtungsvektor, welchen du bei der Bewegung nach vorne nur noch zur KameraPosition addieren musst(aufpassen, dass der LookAt Vektor sich auch in diese Richtung bewegt, sonst könnte es sein, dass sich die Kamera plötzlich um 180° dreht und du in die andere Richtung guckst und läufst...)

    Außerdem solltest du diesen Richtungsvektor noch normalisieren, dass er bei jeder Differenz immer dieselben Werte addiert(dass du immer gleich schnell läufst), diesen für den Fall, dass er zu klein ist(immer Werte zwischen -1 und 1) einfach mit einem Konstanten Wert multiplizieren...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    danke!
    LookAt habe ich nicht gefunden aber target.
    Wie soll ich das jetzt auf addieren ??

    VB.NET-Quellcode

    1. Camera = New Camera(Dev, Me, 1, 50, _
    2. New Vector3((Camera._pos.X - Camera._target.X), 0, 5), _
    3. New Vector3(Val(Camerax) / 80, Val(Cameray) / 80, Val(Cameraz) / 80))


    edit: muss ich die Werte in einer Variable zwischenspeichern um dann mit ihr zu addieren??

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „stefan15“ ()

    tut mir Leid, aber ich kenne deine Camera Klasse nicht, diese wird aber ziemlich sicher über LookAtLH/RH der Matrix-Klasse arbeiten und eben dort steht LookAt als Bezeichnung für den Parameter, aber ich denke Target wird wohl so ziemlich das gleich sein...
    Also bei einer Bewegung dürfte das so, oder so ähnlich aussehen:

    VB.NET-Quellcode

    1. dim richtungsvektor As Vector3 = Target - CameraPos
    2. richtungsvektor.Normalize()
    3. richtungsvektor.Multiply(speed)
    4. CameraPos += richtungsvektor
    5. 'Am besten Target auch noch vorschieben, da du sonst ab einer bestimmten Stelle einen unschönen Fehler bekommst(keine Fehlermeldung):
    6. Target += richtungsvektor

    Die Subtraktion der Beiden Vektoren bewirkt, dass die Position der Kamera sozusagen als Nullpunkt gilt, sodass Target uns nicht den Richtungsvektor zum ursprünglichen Nullpunkt gibt, sondern zur Kamera als Nullpunkt. Somit haben wir eine Richtung vorgegeben, in welche die Kamera sich anschließend auch bewegt...
    Normalize bewirkt, dass der Abstand zwischen Kamera und dem Zielpunkt egal sind, dadurch werden die Werte alle Normalisiert und sind zwischen -1 und 1.Insgesamt ergibt die Länge des Erhaltenen Vektors eine Länge von 1.

    speed gibt die Geschwindigkeit der Kamera an je größer, deste schneller...
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    okay ich werde es noch mal so versuchen!

    hier noch meine Camera-Klasse

    VB.NET-Quellcode

    1. Imports Microsoft
    2. Imports Microsoft.DirectX
    3. Imports Microsoft.DirectX.Direct3D
    4. Public Class Camera
    5. Public _pos As Vector3
    6. Public _target As Vector3
    7. Public _DestCtrl As Object
    8. Public _NearPlane As Single
    9. Public _FarPlane As Single
    10. Public _dev As Device
    11. Protected up As New Vector3(0, 1, 0)
    12. Public view As Matrix
    13. Public projection As Matrix
    14. Sub New(ByVal dev As Device, ByVal destctrl As Control, ByVal NearPlane As Single, _
    15. ByVal FarPlane As Single, ByVal pos As Vector3, ByVal target As Vector3)
    16. view = Matrix.LookAtRH(pos, target, up)
    17. projection = Matrix.PerspectiveFovRH(Math.PI / 4, _
    18. destctrl.ClientSize.Width / _
    19. destctrl.ClientSize.Height, _
    20. NearPlane, FarPlane)
    21. dev.Transform.View = view
    22. dev.Transform.Projection = projection
    23. _pos = pos
    24. _target = target
    25. _DestCtrl = destctrl
    26. _NearPlane = NearPlane
    27. _FarPlane = FarPlane
    28. _dev = dev
    29. End Sub
    30. Public Property Position() As Vector3
    31. Get
    32. Return _pos
    33. End Get
    34. Set(ByVal value As Vector3)
    35. _pos = value
    36. update()
    37. End Set
    38. End Property
    39. Public Property Target() As Vector3
    40. Get
    41. Return _target
    42. End Get
    43. Set(ByVal value As Vector3)
    44. _target = value
    45. update()
    46. End Set
    47. End Property
    48. Public Sub update()
    49. view = Matrix.LookAtRH(_pos, _target, up)
    50. projection = Matrix.PerspectiveFovRH(Math.PI / 4, _
    51. _DestCtrl.ClientSize.Width / _
    52. _DestCtrl.ClientSize.Height, _
    53. _NearPlane, _FarPlane)
    54. _dev.Transform.View = view
    55. _dev.Transform.Projection = projection
    56. End Sub
    57. End Class

Facebook
Telefonspende