als ich in vbarchiv einen Webcast von Dirk Primbs angeschaut habe. Habe ich mir gedacht sowas mach ich auch und hab einfach alles genau so wie er es gemacht hat nachgetippt und dann hat er eine .vb Datei geöffnet wo ein Simpler würfel in einem Array gespeicher war. Das konnte ich nicht abtippen:
| Code: |
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
37
38
39 |
Imports Microsoft.DirectX
Imports Microsoft.DirectX.Direct3D
Public Class Form1
Dim _dev As Device
Dim _pP As PresentParameters
Sub InitializeGraphics()
_pP = New PresentParameters
_pP.Windowed = True
_pP.SwapEffect = SwapEffect.Discard
_pP.EnableAutoDepthStencil = True
_pP.AutoDepthStencilFormat = DepthFormat.D16
_dev = New Device(0, DeviceType.Hardware, fiel.Handle, CreateFlags.SoftwareVertexProcessing, _pP)
End Sub
Private Sub run_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles run.Click
InitializeGraphics()
Timer1.Enabled = True
End Sub
Sub render()
_dev.Clear(ClearFlags.Target Or ClearFlags.ZBuffer, Color.Aquamarine, 1, 0)
_dev.Transform.Projection = Matrix.PerspectiveFovLH(Math.PI / 4, 1, 1, 10)
_dev.Transform.View = Matrix.LookAtLH(New Vector3(0, 0, 5), New Vector3(), New Vector3(0, 1, 0))
_dev.BeginScene()
_dev.EndScene()
_dev.Present()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
render()
End Sub
End Class | |
nun muss noch zwischen _dev.BeginScene() _dev.EndScene() was rein eben der würfel und noch ein paar informationen. Die Camera wurde schon definiert. Aber wie ? und was ich hab keine ahnung mit DirectX9 mir is es egal ob ihr es mit Meshes oder mit Primitiven macht... ich will nur mal ein für Visual Basic 2005 Express musterprojekt haben weil alles was ich finde ist für VB6
mfg
HyP3r
