Bien commencer :

Dans ce tutoriel, nous allons apprendre à initialiser le Device de DirectX 11

I) Vocabulaire

1) Qu'est ce que le Device ?

Le Device est l'objet qui vous permettra de communiquer avec la carte graphique, c'est à lui que vous donnerez des données et des ordres pour dessiner ce que vous voulez à l'écran.

2) Initialiser ?

Avant de pouvoir utiliser le device il va falloir le créer en lui fournissant diverses informations essentielles à son fonctionnement, c'est ce que j'appelle l'initialisation.

II) Construction des fondations

1) Explication

Nous allons architecturer notre code de manière à correspondre à un debut de moteur 3d, c'est à dire que notre code sera de base séparé en 2: coté moteur et coté utilisateur.

Coté moteur notre code sera partagé dans des classes séparées pour chaque fonctionnalité. Coté utilisateurs toutes les étapes essentielles seront séparées dans des fonctions.

2) En détail: Coté moteur

Commençont par créer un nouvelle classes: Menu Projet/Ajouter une classe... et nommé là: Engine.vb
A l'intérieur nous devons d'abort importer SlimDX:

Imports SlimDX, SlimDX.Direct3D11, SlimDX.DXGI Imports D3D11Device = SlimDX.Direct3D11.Device Imports D3D11Resource = SlimDX.Direct3D11.Resource

Puis que la classe engine contiendra le Device alors elle doit être utilisable pour les autres classes du moteur. Pour ce faire nous allons la définir comme une classe Singleton:

Namespace Tzu3D Public Class Engine #Region "Singleton" Private Shared _Instance As Engine Private Shared ReadOnly mylock As New Object() ''' <summary> ''' Singleton: récupère l'instance unique de cette classe ''' </summary> ''' <returns></returns> ''' <remarks></remarks> Public Shared Function Instance() As Engine SyncLock (mylock) If _Instance Is Nothing Then _Instance = New Engine End If Return _Instance End SyncLock End Function Public Shared Function IsInstanced() As Boolean If _Instance Is Nothing Then Return False Return True End Function #End Region Private Sub New() End Sub End Class End Namespace

De plus, pour éviter tout problème de fuite mémoire nous implémentons l'interface IDisposable:

Namespace Tzu3D Public Class Engine Implements IDisposable 'Singleton Private Sub New() End Sub #Region "IDisposable Support" Private disposedValue As Boolean Protected Overridable Sub Dispose(disposing As Boolean) If Not disposedValue Then If disposing Then ' TODO: tout supprimer ici End If End If disposedValue = True End Sub Public Sub Dispose() Implements IDisposable.Dispose Dispose(True) End Sub #End Region End Class End Namespace

C'est tout pour la partie Moteur.

3) En détail: Coté Utilisateur

Dans notre formulaire nous allons ajouter 4 procedures afin de bien séparer les étapes essentielles au fonctionnement de l'application:

Initialize: initialisation des classes du moteur,
Creating: création des objets 2d/3d,
Rendering: rendu de la scène,
Leaving: destruction des composants

Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Initialize() Creating() Rendering() Leaving() End Sub Private Sub Initialize() End Sub Private Sub Creating() End Sub Private Sub Rendering() End Sub Private Sub Leaving() End Sub End Class

III) Initialisation

Afin d'initialiser le device nous allons déclarer plusieurs variables dans la classe Engine. Tout le nécessaire à la gestion du multi-fenetrage sera également inclue.

Public Class TZEngine '[...] Friend mDev As D3D11Device Friend Structure struct_Window Friend Swap As SwapChain Friend SwapDescription As SwapChainDescription Friend RenderTargetView As RenderTargetView Friend Factory As Factory Friend BackBuffer As Texture2D Friend Control As System.Windows.Forms.Control Friend Viewport As Viewport Friend DepthStencilView As DepthStencilView Friend DepthStencil As Texture2D End Structure Friend mWindows As List(Of struct_Window) Friend mCurrentWindowID As Integer = 0 Friend mDepthStencilState As DepthStencilState Friend mStencilDescription As Texture2DDescription Friend mContext As DeviceContext Friend mViewport_Current As Viewport Friend mViewportFactor As Vector2 Friend mDoRender As Boolean Friend mDepthStencilFormat As DXGI.Format Friend mVSync As Integer = 0 End Class

mDev: Est notre device
mWindows: Est une liste contenant tout le nécessaire à la gestion de differente fenêtre de rendu, dans different Control par exemple.
mContext: Raccourci vers le context immediat du device, servant à envoyer les données et instructions de rendu

Vient maintenant le code d'initialisation:

Public Sub Init(ByVal Handle As IntPtr) Init_Device(Handle, True) End Sub Public Sub Init(ByVal Handle As IntPtr, Width As Integer, Height As Integer) Init_Device(Handle, False, Width, Height) End Sub Private Sub Init_Device(ByVal Handle As IntPtr, ByVal Windowed As Boolean, Optional ByVal Width As Integer = 1024, Optional ByVal Height As Integer = 768, Optional ByVal SyncroV As Boolean = False) mWindows = New List(Of struct_Window) 'On créé le device avec les feature de DirectX11 Dim feature(0) As FeatureLevel feature(0) = FeatureLevel.Level_11_0 mDev = New D3D11Device(DriverType.Hardware, DeviceCreationFlags.None, feature) 'Recherche du meilleur format pour le DepthStencil supporté par la carte graphique If Format_Supported(Format.D16_UNorm, FormatSupport.DepthStencil) Then mDepthStencilFormat = Format.D16_UNorm End If If Format_Supported(Format.D24_UNorm_S8_UInt, FormatSupport.DepthStencil) Then mDepthStencilFormat = Format.D24_UNorm_S8_UInt End If If Format_Supported(Format.D32_Float, FormatSupport.DepthStencil) Then mDepthStencilFormat = Format.D32_Float End If 'Ne devrait jamais arrivé mais avertie en cas problème If mDepthStencilFormat = Nothing Then MsgBox("format stencil vide: anormal!") Exit Sub End If 'création d'une fenetre de rendu à partir du Handle d'un controle (form, picturebox, etc..) Create_New_Window(Handle, Windowed, Width, Height) 'On conserve dans un coin le viewport actuel, cela servira plus tard à different calcul mViewport_Current = New Viewport(0, 0, Width, Height) Try 'on fait apparaitre le control actuel afin que l'initisation se passe sans problème mWindows(0).Control.FindForm.Show() mWindows(0).Control.FindForm.Focus() 'Création du DepthStencil Dim DepthStencilDesc As DepthStencilStateDescription With DepthStencilDesc .IsDepthEnabled = True .DepthWriteMask = DepthWriteMask.All .DepthComparison = Comparison.LessEqual .IsStencilEnabled = True .StencilReadMask = &HFF .StencilWriteMask = &HFF Dim stencilOPDesc As DepthStencilOperationDescription stencilOPDesc.FailOperation = StencilOperation.Keep stencilOPDesc.DepthFailOperation = StencilOperation.Increment stencilOPDesc.PassOperation = StencilOperation.Keep stencilOPDesc.Comparison = Comparison.Always .FrontFace = stencilOPDesc stencilOPDesc.FailOperation = StencilOperation.Keep stencilOPDesc.DepthFailOperation = StencilOperation.Decrement stencilOPDesc.PassOperation = StencilOperation.Keep stencilOPDesc.Comparison = Comparison.Always .BackFace = stencilOPDesc End With mDepthStencilState = DepthStencilState.FromDescription(mDev, DepthStencilDesc) 'Notre raccourci vers le context immediat mContext = mDev.ImmediateContext mContext.OutputMerger.DepthStencilState = mDepthStencilState 'En cas d'erreur, affichons là Catch ex As SlimDXException MsgBox(ex.Message) End Try 'ici le device est créé avec succes, il ne reste plus qu'a initialiser vos variable interne au moteur Init_Engine() End Sub Private Function Format_Supported(myFormat As Format, myUsage As FormatSupport) As Boolean Return (mDev.CheckFormatSupport(myFormat) And myUsage) = myUsage End Function 'Function de création de fenetre de rendu à partir d'un Handle ainsi que la résolution si c'est un rendu en plein écran Public Function Create_New_Window(Handle As IntPtr, Windowed As Boolean, Width As Integer, Height As Integer) As Integer Dim myWindow As struct_Window myWindow.Control = CType(System.Windows.Forms.Control.FromHandle(Handle), System.Windows.Forms.Control) If Windowed Then Width = myWindow.Control.ClientSize.Width Height = myWindow.Control.ClientSize.Height End If myWindow.SwapDescription = New SwapChainDescription With myWindow.SwapDescription .BufferCount = 1 .Usage = Usage.RenderTargetOutput .OutputHandle = Handle .IsWindowed = Windowed .ModeDescription = New ModeDescription(Width, Height, New Rational(60, 1), Format.R8G8B8A8_UNorm) .SampleDescription = New SampleDescription(1, 0) .Flags = SwapChainFlags.AllowModeSwitch .SwapEffect = SwapEffect.Discard End With myWindow.Factory = New Factory() myWindow.Swap = New SwapChain(myWindow.Factory, mDev, myWindow.SwapDescription) myWindow.BackBuffer = D3D11Resource.FromSwapChain(Of Texture2D)(myWindow.Swap, 0) myWindow.RenderTargetView = New RenderTargetView(mDev, myWindow.BackBuffer) myWindow.Factory.SetWindowAssociation(Handle, WindowAssociationFlags.IgnoreAltEnter) myWindow.Viewport = New Viewport(0, 0, Width, Height) With mStencilDescription .ArraySize = 1 .BindFlags = BindFlags.DepthStencil .CpuAccessFlags = CpuAccessFlags.None .Format = mDepthStencilFormat .Height = Height .Width = Width .MipLevels = 1 .OptionFlags = ResourceOptionFlags.None .SampleDescription = New SampleDescription(1, 0) .Usage = ResourceUsage.Default End With myWindow.DepthStencil = New Texture2D(mDev, mStencilDescription) myWindow.DepthStencilView = New DepthStencilView(mDev, myWindow.DepthStencil) mWindows.Add(myWindow) Return mWindows.Count - 1 End Function Private Sub Init_Engine() mDoRender = True End Sub

C'est tout pour la partie initialisation, il ne manque plus que quelques fonctions permettant la création de la boucle de rendu.

(en cours de rédaction)