Help Needed, DirectX Program

[clockwork]

Need help


Imports Microsoft.DirectX


Public Class Form1
Dim Device As Microsoft.DirectX.Direct3D.Device
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Size = New Size(1440, 900)
Me.Text = "DirectX Initialization Demo"
Me.SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.Opaque, True)

REM set up the presentation parameters
Dim Params As New Direct3D.PresentParameters
Params.Windowed = True
Params.SwapEffect = Direct3D.SwapEffect.Discard
Params.AutoDepthStencilFormat = Direct3D.DepthFormat.D16
Params.AutoDepthStencilFormat = True
Params.BackBufferCount = 1
Params.BackBufferWidth = 1440
Params.BackBufferHeight = 900

REM check video card capabilities
Dim adapterNumber As Integer = Direct3D.Manager.Adapters.Default.Adapter
Dim flags As Direct3D.CreateFlags
flags = Direct3D.CreateFlags.HardwareVertexProcessing
flags += Direct3D.CreateFlags.PureDevice

Dim caps As Direct3D.Caps
caps = Direct3D.Manager.GetDeviceCaps(adapterNumber, _
Direct3D.DeviceType.Hardware)
If caps.DeviceCaps.SupportsHardwareTransformAndLight = False Or _
caps.DeviceCaps.SupportsPureDevice = False Then

MessageBox.Show("Your video card is Obselete", _
"Hardware Problem")
End
End If

REM create the Direct3D device 39 Line

End Sub

Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
Device.Clear(Direct3D.ClearFlags.Target + _
Direct3D.ClearFlags.ZBuffer, Color.Blue, 1.0, 0)
Device.BeginScene()
Device.EndScene()
Device.Present()
Me.Invalidate()
End Sub

End Class

Error is in the bold. Or atleast something about the bold. It doesn't show up on error

"Object Reference not set to an instance of an object BLAH BLAH BLAH

Need help

[~Memzak~]

Is this Visual Basic? If so, MicroFarad is your man.

[microfarad]

You need to create your device object. You said Dim Device as BLAH, but you never set it equal to anything. It's a null reference, or something like that.

The way you initialized your settings it kinda odd... I don't get it...

I used the following for 3D graphics... Some settings here will not apply to your project...
  Sub Initialize()

       'Some basic settings
       Dim PresentParams As New PresentParameters
       'Set PPs
       With PresentParams
           .Windowed = True
           .SwapEffect = SwapEffect.Discard
           .EnableAutoDepthStencil = True
           .AutoDepthStencilFormat = DepthFormat.D16
       End With
       'Make ur device with best settings possible
       Try
           D3Ddevice = New Device(0, DeviceType.Hardware, Panel1, _
               CreateFlags.HardwareVertexProcessing, PresentParams)
           Debug.WriteLine("Hardware, HardwareVertexProcessing")
       Catch
       End Try
       If D3Ddevice Is Nothing Then
           Try
               D3Ddevice = New Device(0, DeviceType.Hardware, Panel1, _
                   CreateFlags.SoftwareVertexProcessing, PresentParams)
               Debug.WriteLine("Hardware, SoftwareVertexProcessing")
           Catch
           End Try
       End If
       If D3Ddevice Is Nothing Then
           Try
               D3Ddevice = New Device(0, DeviceType.Reference, Panel1, _
                   CreateFlags.SoftwareVertexProcessing, PresentParams)
               Debug.WriteLine("Reference, SoftwareVertexProcessing")
           Catch ex As Exception
               'Fail LOL, try putting a CPU in your piece of shit computer
           End Try
       End If
       'Render states
       With D3Ddevice.RenderState
           .Lighting = True
           .ZBufferEnable = True
           .CullMode = Cull.None
           .PointSize = 3
           .FillMode = FillMode.Solid
       End With
   End Sub

[speedyclock]

Was it impossible to fix my code?