برنامه نویسی Direct3D در ویژوال بیسیک (قسمت دوم)

[TAHA]

برنامه نویسی Direct3D در ویژوال بیسیک (قسمت دوم)
1. شمارش تعداد آداپتورهای گرافیکی یک سیستم
فرض کنید متغیر nAdapters متغیری از نوع Long باشد. همچنین شی D3DADAPTER_IDENTIFIER8 یک ساختار است که اطلاعات مربوط به آداپتور را نگه می دارد. در اینصورت روتین EnumerateAdapters بصورت زیر خواهد بود:
کد:

 Dim AdapterInfo As D3DADAPTER_IDENTIFIER8

Private Sub EnumerateAdapters
   Dim i As Integer
	
   nAdapters = D3D.GetAdapterCount

برای بدست آوردن جزئیات آداپتورها بصورت زیر عمل می کنیم:
کد:

 For i = 0 To nAdapters - 1
      D3D.GetAdapterIdentifier i, 0, AdapterInfo

نام آداپتور بصورت لیستی از کدهای اسکی است که بایستی آنها را درون یک String قرار دهیم:
کد:

 Name = ""

      For J = 0 To 511
         Name = Name & Chr$(AdapterInfo.Description(J))
      Next J

      Name = Replace(sTemp, Chr$(0), " ")
   Next i
End Sub

بنابراین در متغیر Name نام آداپتور قرار خواهد گرفت.


2. مشخص کردن نوع Rendering
فرض کنید شی D3DCAPS8 توانایی Rendering آداپتور را نشان دهد. در اینصورت روتین EnumerateDevices بصورت زیر خواهد بود:
کد:

 Private Sub EnumerateDevices()
On Local Error Resume Next
Dim Caps As D3DCAPS8
Dim deviceindex As Long

deviceindex = 0 'For Example

D3D.GetDeviceCaps deviceindex, D3DDEVTYPE_HAL, Caps
    If Err.Number = D3DERR_NOTAVAILABLE Then
        MsgBox("Reference Rasterizer (REF)")

اگر آداپتور امکان رندر سخت افزاری نداشته باشد در اینصورت:
کد:

 Else
        MsgBox("Hardware Acceleration (HAL) + Reference Rasterizer (REF)")
    End If
End Sub

3. شمارش تعداد Mode نمایشی آداپتور
فرض کنید در صورت REF بودن امکان رندر، متغیر r=2 و در غیراینصورت r=1 باشد . همچنین شی D3DDISPLAYMODE اطلاعات مدهای نمایشی را در خود داشته باشد و متغیر nModes از نوع Long باشد. در اینصورت روتین EnumerateDispModes بصورت زیر خواهد بود:
کد:

 Private Sub EnumerateDispModes(r As Long)
   Dim i As Integer
   Dim mode_tmp As D3DDISPLAYMODE
   Dim deviceindex As Long

   deviceindex=0 'For Example

   nModes = D3D.GetAdapterModeCount(deviceindex)

   For i = 0 to nModes - 1
      D3D.EnumAdapterModes(deviceindex, i, mode_tmp)

ابتدا Modeها را به دو گروه ۱۶ بیتی و ۳۲ بیتی تقسیم می کنیم:
کد:

If mode_tmp.Format = D3DFMT_R8G8B8 Or mode_tmp.Format = D3DFMT_X8R8G8B8 Or mode_tmp.Format = D3DFMT_A8R8G8B8 Then

حال چک می کنیم که Device قابل پذیرش و معتبر است یا نه:
کد:

  If D3D.CheckDeviceType(deviceindex, r, mode_tmp.Format, mode_tmp.Format,
Flase) >= 0 Then
            MsgBox(mode_tmp.Width & "X" & mode_tmp.Height & "32 Bit [FMT:" &
mode_tmp.Format & "]"
         End If
      Else
         If D3D.CheckDeviceType(deviceindex, r, mode_tmp.Format, mode_tmp.Format,
Flase) >=0 Then
            MsgBox(mode_tmp.Width & "X" & mode_tmp.Height & "16 Bit [FMT:" &
mode_tmp.Format & "]"
         End If
      End If
   Next i
End Sub

4. مشخص کردن توانایی های آداپتور گرافیکی
فرض کنید در صورت REF بودن امکان رندر، متغیر r=2 و در غیراینصورت r=1 باشد:
کد:

 Private Sub EnumerateHardware(r as long)
   Dim caps As D3DCAPS8
   Dim deviceindex As Long

   deviceindex=0 'For Example
   D3D.Getdevicecaps deviceindex, r, caps

   If Caps.MaxActiveLights = -1 Then
      MsgBox "Maximum Active Lights: Unlimited" 
   Else
      MsgBox "Maximum Active Lights: " & Caps.MaxActiveLights
   End If

   MsgBox "Maximum Point Vertex size: " & Caps.MaxPointSize
   MsgBox "Maximum Texture Size: " & Caps.MaxTextureWidth & "X" & Caps.MaxTextureHeight
   MsgBox "Maximum Primatives in one call: " & Caps.MaxPrimitiveCount

   If Caps.TextureCaps And D3DPTEXTURECAPS_SQUAREONLY Then
      MsgBox "Textures must always be square" 
   End If

   If Caps.TextureCaps And D3DPTEXTURECAPS_CUBEMAP Then
      MsgBox "Device Supports Cube Mapping" 
   End If

   If Caps.TextureCaps And D3DPTEXTURECAPS_VOLUMEMAP Then
      MsgBox "Device Supports Volume Mapping" 
   End If

   If Caps.DevCaps And D3DDEVCAPS_PUREDEVICE Then
      MsgBox "Device supports the Pure Device Option" 
   End If

   If Caps.DevCaps And D3DDEVCAPS_HWTRANSFORMANDLIGHT Then
      MsgBox "Device supports hardware transform and lighting" 
   End If

   If Caps.DevCaps And D3DDEVCAPS_HWRASTERIZATION Then
      MsgBox "Device can use Hardware Rasterization" 
   End If

   If Caps.Caps2 And D3DCAPS2_CANCALIBRATEGAMMA Then
      MsgBox "Device can Calibrate Gamma" 
   End If

   If Caps.Caps2 And D3DCAPS2_CANRENDERWINDOWED Then
      MsgBox "Device can Render in Windowed Mode" 
   End If

   If Caps.Caps2 And D3DCAPS2_FULLSCREENGAMMA Then
      MsgBox "Device can calibrate gamma in fullscreen mode" 
   End If

   If Caps.RasterCaps And D3DPRASTERCAPS_FOGRANGE Then
      MsgBox "Device supports range based fog calculations" 
   End If

   If Caps.RasterCaps And D3DPRASTERCAPS_ANISOTROPY Then
      MsgBox "Device supports Anisotropic Filtering" 
   End If

   If Caps.RasterCaps And D3DPRASTERCAPS_ZBUFFERLESSHSR Then
      MsgBox "Device does not require a Z-Buffer/Depth Buffer" 
   End If
End Sub