So liebe Forenmitglieder
könnt ihr mir bei folgendem Code helfen
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
könnt ihr mir bei folgendem Code helfen
VB.NET-Quellcode
- Imports Microsoft.DirectXImports Microsoft.DirectX.Direct3D
- 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
- 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!!"
- Initialize()
- End Sub
- Public yhigh As Integer = 31 Public richtung As Boolean = True
- Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
- If richtung = True Then yhigh = yhigh + 1 Else yhigh = yhigh - 1
- End If
- If yhigh > 300 Then richtung = False End If
- If yhigh < 1 Then richtung = True End If
- 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
- 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
- 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)
- 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)
- vertices4(1).Position = New Vector4(Me.Width / 2 + 300, yhigh, 0, 1)
- vertices4(2).Position = New Vector4(Me.Width / 2 + 300, 100, 0, 1)
- device.Clear(ClearFlags.Target, Color.SteelBlue, 1.0, 0)
- device.BeginScene() 'all drawings after this line camera() device.VertexFormat = CustomVertex.TransformedColored.Format device.SetTexture(0, bmp)
- device.DrawUserPrimitives(PrimitiveType.TriangleList, 1, vertices3) device.DrawUserPrimitives(PrimitiveType.TriangleList, 1, vertices4) device.DrawUserPrimitives(PrimitiveType.TriangleList, 1, vertices2)
- device.EndScene() 'all drawings before this line
- device.Present() Me.Invalidate() 'redraw
- End Sub
- 'kamera Public view As Matrix Public projection As Matrix
- 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
- End Sub
- '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