DirectX

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von jvbsl.

    DirectX

    hi leute ich komme einfach niocht weiter denn ürgendwie wirft der code den ich hier im forum gesehen habe immer fehler aus ;(

    VB.NET-Quellcode

    1. Imports Microsoft.DirectX.Direct3D.D3DX
    2. Imports Microsoft.DirectX.Direct3D
    3. Imports Microsoft.DirectX
    4. Public Class Form1
    5. Dim mDxDevice As Direct3D.Device
    6. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    7. Me.Invalidate()
    8. End Sub
    9. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    10. Dim PresentParams As New PresentParameters
    12. PresentParams.SwapEffect = SwapEffect.Discard
    13. PresentParams.Windowed = True
    14. mDxDevice = New Direct3D.Device(0, DeviceType.Hardware, Me, CreateFlags.SoftwareVertexProcessing, PresentParams)
    15. End Sub
    16. Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Paint
    17. Dim tSprite As New Sprite(mDxDevice)
    18. Dim tTexture As New Texture(mDxDevice, My.Resources.lol, Usage.SoftwareProcessing, Pool.Managed)
    19. tSprite.Begin(SpriteFlags.None)
    20. 'tSprite.Draw(tTexture, New Vector3(0, 0, 0), New Vector3(100, 100, 0), 16777215) 'Ein Test für den 3-dimensionalen Raum
    21. For i = 0 To 800 / 16
    22. For j = 0 To 600 / 16
    23. tSprite.Draw2D(tTexture, New Point(0, 0), 0, New Point(i * 16, j * 16), Color.Transparent.ToArgb) 'Hat sich als leichter herausgestellt ;)
    24. Next
    25. Next
    26. tSprite.End()
    27. tSprite.Dispose()
    28. tTexture.Dispose()
    29. Me.Invalidate()
    30. End Sub
    31. End Class

    fehler : Eine Ausnahme (erste Chance) des Typs "System.NullReferenceException" ist in Microsoft.DirectX.Direct3D.dll aufgetreten.
    bitte ich beiße mir die zähne aus ;(
    mfg blacknetworkbit
    MFG 0x426c61636b4e6574776f726b426974
    InOffical VB-Paradise IRC-Server
    webchat.freenode.net/
    Channel : ##vbparadise

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

    wie soll ich den den Device
    Instanziert ???
    bei mir kommt immer ein fehler ;(
    habe jetzt folgenden code :

    VB.NET-Quellcode

    1. Imports Microsoft.DirectX.Direct3D.D3DX
    2. Imports Microsoft.DirectX.Direct3D
    3. Imports Microsoft.DirectX
    4. Public Class Form1
    6. Dim device As Direct3D.Device
    7. Dim present As New Direct3D.PresentParameters
    9. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    11. End Sub
    12. Public Sub lol()
    14. With present
    15. .BackBufferCount = 1
    16. .BackBufferFormat = Direct3D.Format.A8R8G8B8
    17. .BackBufferWidth = 680
    18. .BackBufferHeight = 600
    19. .PresentationInterval = Direct3D.PresentInterval.One
    20. .SwapEffect = Direct3D.SwapEffect.Discard
    21. .Windowed = False
    22. End With
    23. device = New Direct3D.Device(1, Direct3D.DeviceType.Hardware, Me.Handle, Direct3D.CreateFlags.SoftwareVertexProcessing, present)
    24. Dim tSprite As New Sprite(device)
    25. Dim tTexture As New Texture(device, My.Resources.lol, Usage.SoftwareProcessing, Pool.Managed)
    26. tSprite.Begin(SpriteFlags.None)
    27. 'tSprite.Draw(tTexture, New Vector3(0, 0, 0), New Vector3(100, 100, 0), 16777215) 'Ein Test für den 3-dimensionalen Raum
    28. For i = 0 To 100
    29. For j = 0 To 100
    30. tSprite.Draw2D(tTexture, New Point(0, 0), 0, New Point(i, j), Color.Transparent.ToArgb) 'Hat sich als leichter herausgestellt ;)
    31. Next
    32. Next
    33. tSprite.End()
    34. tSprite.Dispose()
    35. tTexture.Dispose()
    39. End Sub
    41. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    42. lol()
    43. End Sub
    44. End Class

    folgender fehler : Eine Ausnahme (erste Chance) des Typs "Microsoft.DirectX.Direct3D.InvalidCallException" ist in Microsoft.DirectX.Direct3D.dll aufgetreten.
    MFG 0x426c61636b4e6574776f726b426974
    InOffical VB-Paradise IRC-Server
    webchat.freenode.net/
    Channel : ##vbparadise

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „BlackNetworkBit“ ()

    sorry geht immer nocht nicht es kommt immer noch der selbe fehler
    bei :
    Dim device As New Direct3D.Device(0, Direct3D.DeviceType.Hardware, Me.Handle, Direct3D.CreateFlags.SoftwareVertexProcessing, present)
    folgender fehler : Eine Ausnahme (erste Chance) des Typs "Microsoft.DirectX.Direct3D.InvalidCallException" ist in Microsoft.DirectX.Direct3D.dll aufgetreten.
    MFG 0x426c61636b4e6574776f726b426974
    InOffical VB-Paradise IRC-Server
    webchat.freenode.net/
    Channel : ##vbparadise

    kann mir jemand Device erklären ???
    ich weiß das es gerät heist und die grafikkarte darstellt aber wie verwende ich es ?





    Edit hat sich erledigt danke forum :thumbsup: :thumbsup: :thumbsup:
    mfg blacknetworkbit
    MFG 0x426c61636b4e6574776f726b426974
    InOffical VB-Paradise IRC-Server
    webchat.freenode.net/
    Channel : ##vbparadise

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