• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Lập trình DirectX 9 với VB.NET

Các bài viết hướng dẫn về Visual Basic .NET và C#

Moderators: tungcan5diop, QUANITGROBEST

User avatar
hdn
Thành viên tâm huyết
Thành viên tâm huyết
Posts: 319
Joined: Wed 26/03/2008 7:09 pm
Has thanked: 1 time
Been thanked: 4 times

Lập trình DirectX 9 với VB.NET

Postby hdn » Wed 26/03/2008 10:25 pm

Tên bài viết: Lập trình DirectX 9 với VB.NET
Tác giả: ">tài liệu sưu tầm, hdn dịch lại :D
Cấp độ bài viết: Vừa
Tóm tắt: Sê-ri bài viết hướng dẫn sử dụng VB.NET để lập trình đồ họa với DirectX9


Download toàn bộ mã nguồn của bài viết:
SourceCode.rar
(462.97 KiB) Downloaded 3513 times



Giới thiệu DirectX
DirectX là một bộ các thành phần được thiết kế để giúp lập trình viên có thể phát triển ứng dụng đa phương tiện trên nền Windows như game hay một số ứng dụng khác sử dụng đồ họa 2D, 3D.
Phiên bản DirectX mới nhất hiện giờ là phiên bản 10, nhưng yêu cầu cấu hình rất cao và chỉ được hỗ trợ trên Windows Vista, phiên bản phổ biến hiện tại là DirectX9, với DirectX9, bạn có thể dễ dàng phát triển ứng dụng 2D, 3D một cách nhanh chóng.
Những ngôn ngữ hỗ trợ DirectX9 gồm (trong bộ Visual Studio):
  • Microsoft Visual C#
  • Microsoft Visual Basic.NET
  • Microsoft Visual C++
Bộ thư viện lập trình DirectX được cung cấp bằng các gói DirectX SDK (DirectX Software Development Kit), bạn có thể tải DirectX SDK trên trang của Microsoft.
DirectX 9 bao gồm các thành phần:
DirectX Graphics
  • DirectDraw: Quản lý đồ họa 2D
  • Direct3D: Quản lý đồ họa 3D
Direct Input: Quản lý các đối tượng điều khiển (bàn phím, chuột, joystick,...)
Direct Music: Quản lý âm thanh, nhạc (nhạc nền,...)
Direct Play: Quản lý mạng (để thực hiện các thao tác truyền tải dữ liệu qua mạng, như game online)

DirectX 9 còn gọi là Managed DirectX (MDX) vì nó được xây dựng cho các ngôn ngữ "Managed" (như VB.NET, C#)
Last edited by hdn on Wed 23/04/2008 1:54 pm, edited 4 times in total.


:|

User avatar
hdn
Thành viên tâm huyết
Thành viên tâm huyết
Posts: 319
Joined: Wed 26/03/2008 7:09 pm
Has thanked: 1 time
Been thanked: 4 times

Re: Lập trình DirectX 9 với VB.NET

Postby hdn » Wed 26/03/2008 10:38 pm

Cài đặt
Đầu tiên bạn phải tải bộ DirectX 9 SDK về, phiên bản mới nhất hiện tại là March2008 (mới phát hành vào tháng 3 năm 2008) dung lượng 442.1 MB nhưng không có source mẫu cho VB.NET (vẫn có thể dùng được với VB.NET):
http://www.microsoft.com/downloads/details.aspx?familyid=572BE8A6-263A-4424-A7FE-69CFF1A5B180&displaylang=en
Nếu không, bạn có thể tải bản cũ, có source mẫu kèm cho VB.NET, phát hành tháng 12/2002 (222.4 MB) và phải check Validation để down (hơi mệt 1 tí đối với win ko có bản quyền :)))
http://www.microsoft.com/downloads/details.aspx?FamilyID=124552ff-8363-47fd-8f3b-36c226e04c85&DisplayLang=en
Sau khi download xong, bạn tiến hành cài đặt.
Cài xong, bạn hãy kiểm tra xem VB.NET nhà bạn đã có thể sử dụng DirectX được chưa, bằng cách:
Tạo 1 Windows Application mới, trong cửa sổ Solution Explorer, click phải chuột chọn Add Reference
Image

Tìm xem có thấy một lô những thư viện có : Microsoft.DirectX... không
Image

Thường thì sẽ có =)) còn rủi ko có thì bạn phải cài lại DxSDK thôi :))
:|

User avatar
hdn
Thành viên tâm huyết
Thành viên tâm huyết
Posts: 319
Joined: Wed 26/03/2008 7:09 pm
Has thanked: 1 time
Been thanked: 4 times

Re: Lập trình DirectX 9 với VB.NET

Postby hdn » Thu 27/03/2008 12:10 pm

Bắt đầu với DirectDraw
Cơ bản nhất trong các thành phần của DirectX9: DirectDraw
Ta sử dụng DirectDraw (DD) để lập trình 2D.
Bắt đầu, bạn tạo 1 windows application mới, rồi add reference 2 cái thư viện Microsoft.DirectX và Microsoft.DirectX.DirectDraw vào
Image
Image

add xong thì cửa sổ Solution explorer nó sẽ ra thế này
Image

rồi, vào code của file Form1.vb, gõ vô:

  1.  
  2. 'Báo cáo cho chương trình biết là ta sẽ dùng 2 thư viện này
  3. Imports Microsoft.DirectX
  4. Imports Microsoft.DirectX.DirectDraw
  5.  
  6.  


Ta cần thêm một số biến để quản lý cho DD

[vbnet]
Public dddevice As Device = Nothing 'Đối tượng Device cho DD
Public psurface As Surface ' 2 cái surface (bề mặt)
Public ssurface As Surface '
Private clip As Clipper = Nothing
[/vbnet]


Cái Device là để cho DD, 2 cái surface, 1 cái là primary surface và 1 cái là secondary surface. Primary surface là surface nằm trên, cái secondary nằm dưới (giống như 2 miếng giấy chồng lên nhau), những gì ta vẽ lên ssurface sẽ được hiển thị lên psurface để người sử dụng thấy.
Bây giờ vào Project properties, đặt Startup là Sub Main

[vbnet]
Public Shared Sub Main()
Dim GameForm As New form1( ) ' Đối tượng dùng để vẽ sẽ là Form1
Application.Exit( ) ' Tắt
End Sub

[/vbnet]

Tại sub main, chúng ta khởi tạo 1 đối tượng của Form1 tên là GameForm, form này sẽ dùng để hiển thị tất cả những gì ta vẽ (nói chung nó là cửa sổ game :D)
Trong hàm dựng của class form1

[vbnet]
Public Sub New()
MyBase.New() ' Gọi hàm dựng của base class
InitializeComponent()

Me.Show()
'Khởi tạo device
dddevice = Nothing
dddevice = New Device()
dddevice.SetCooperativeLevel(Me, CooperativeLevelFlags.FullscreenExclusive)
Init()
Gameloop()
End Sub

[/vbnet]

Hàm Init để khởi tạo môi trường DirectX và gán môi trường đó vào Form1, hàm Gameloop() là MainLoop (vòng lặp chính - sẽ nói sau) của game.

[vbnet]
Public Sub Init( )
psurface = Nothing
ssurface = Nothing
Dim sdesc As New SurfaceDescription()
clip = New Clipper(dddevice)
clip.Window = Me
sdesc.SurfaceCaps.PrimarySurface = True
sdesc.SurfaceCaps.Flip = True
sdesc.SurfaceCaps.Complex = True
sdesc.BackBufferCount = 1
psurface = New Surface(sdesc, dddevice)
psurface.Clipper = clip
sdesc.Clear()
sdesc.SurfaceCaps.BackBuffer = True
ssurface = psurface.GetAttachedSurface(sdesc.SurfaceCaps)
End Sub

Private Sub Gameloop( )
Do While Me.Created
'--------------Thực hiện lệnh----------------
If Not Me.Focused Then
Application.DoEvents( )
Else
ShowSurface( )
Application.DoEvents( )
End If
'--------------------------------------------
Loop
ending( )
End Sub

[/vbnet]

MainLoop có nhiệm vụ là: thực hiện lặp lại khối lệnh nằm trong khu "Thực hiện lệnh" liên tục cho đến khi nào có điều kiện để kết thúc thì dừng.
Thủ tục ShowSurface để vẽ lại surface

[vbnet]
Public Sub ShowSurface()
ssurface.ColorFill(Color.White) 'Xóa bề mặt vừa vẽ (thực chất là tô màu trắng toàn bộ)
psurface.Flip(ssurface, FlipFlags.Wait) 'lật ssurface lên trên
End Sub

[/vbnet]

Thủ tục Ending được gọi khi kết thúc mainloop, có nhiệm vụ hủy hết tất cả các đối tượng được tạo ở trên

[vbnet]
Public Sub ending()
dddevice.Dispose()
psurface.Dispose()
ssurface.Dispose()
clip.Dispose()
End Sub

[/vbnet]

Bây giờ bạn có thể chạy thử chương trình, nếu muốn tắt chương trình bằng phim ESC (như các game thường thấy), bạn viết code cho sự kiện Key_Down của form

[vbnet]
Private Sub form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Escape Then
ending() 'Khi gặp phím ESC thì gọi thủ tục ending rồi tắt luôn
End
End If
End Sub

[/vbnet]
:|

User avatar
hdn
Thành viên tâm huyết
Thành viên tâm huyết
Posts: 319
Joined: Wed 26/03/2008 7:09 pm
Has thanked: 1 time
Been thanked: 4 times

Re: Lập trình DirectX 9 với VB.NET

Postby hdn » Thu 27/03/2008 1:28 pm

Sự cố với Surface và khắc phục
Ở bài viết trên, ta đã tìm hiểu về surface, có một vấn đề ở đây. Đó là khi bạn minimize cửa sổ game rồi đưa lên lại, có thể nó sẽ đen thui, ko thấy gì nữa x_x , trong phần này, ta sẽ khắc phục vấn đề này.
Trong phần chương trình ở bài trước, ta sẽ thay đổi 1 tí và thêm 1 thủ tục GFocus
Thủ tục Init()

  1. Public Sub New( )
  2.     MyBase.New( )
  3.     InitializeComponent( )
  4.     Me.Show( )
  5.     AddHandler Me.GotFocus, AddressOf GFocus ' Thêm cái này
  6.     dddevice = Nothing
  7.     dddevice = New Device( )
  8.     dddevice.SetCooperativeLevel(Me, CooperativeLevelFlags.FullscreenExclusive)
  9.     Init()
  10.     GameLoop()
  11. End Sub
  12.  


Dòng lệnh vừa thêm vào: AddHandler Me.GotFocus, AddressOf GFocus để điều khiển sự kiện GotFocus của form, khi form mất focus, các surface sẽ mất, sau đó khi form lại nhận focus thì sẽ thực hiện thủ tục GFocus

[vbnet]
Public Sub GFocus(ByVal sender As Object, ByVal e As System.EventArgs)
ending() 'Huỷ cái form cũ
Dim newform As New Form1() 'tạo lại form mới
End Sub

[/vbnet]

Sau khi được nhận focus mới, form cũ sẽ bị huỷ và tạo lại 1 form mới.
Sửa trong ShowSurface() tí

[vbnet]
Public Sub ShowSurface()
Try
ssurface.ColorFill(Color.White)
psurface.Flip(ssurface, FlipFlags.Wait)
Catch e As Exception
Init()
End Try
End Sub

[/vbnet]

Thêm khối try...end try vì khi tạo lại form, hàm init có thể sẽ sinh lỗi.
Rồi, giờ bạn chạy thử xem, thử thu cửa sổ game xuống taskbar rồi gọi nó lên lại xem ;) giờ thì không bị lỗi như trước nữa
:|

User avatar
hdn
Thành viên tâm huyết
Thành viên tâm huyết
Posts: 319
Joined: Wed 26/03/2008 7:09 pm
Has thanked: 1 time
Been thanked: 4 times

Re: Lập trình DirectX 9 với VB.NET

Postby hdn » Thu 27/03/2008 1:39 pm

Load hình vào surface
Bây giờ ta sẽ tìm hiểu cách để vẽ một hình ảnh lên màn hình bằng cách khởi tạo 1 surface, trên surface đó đã được gắng cái hình cần vẽ lên :D
Trong phần khai báo ssurface, psurface, ddevice, bạn thêm vào 1 cái surface nữa tên charsurface

  1.  Dim charsurface As Surface


Thủ tục Init thêm vào đoạn :

[vbnet]
sdesc.Clear()
sdesc.SurfaceCaps.OffScreenPlain = True
charsurface = New Surface("gametitle.bmp", sdesc, dddevice)
[/vbnet]

[vbnet]
Public Sub Init( )
psurface = Nothing
ssurface = Nothing
Dim sdesc As New SurfaceDescription()
clip = New Clipper(dddevice)
clip.Window = Me
sdesc.SurfaceCaps.PrimarySurface = True
sdesc.SurfaceCaps.Flip = True
sdesc.SurfaceCaps.Complex = True
sdesc.BackBufferCount = 1
psurface = New Surface(sdesc, dddevice)
psurface.Clipper = clip
sdesc.Clear()
sdesc.SurfaceCaps.BackBuffer = True
ssurface = psurface.GetAttachedSurface(sdesc.SurfaceCaps)
sdesc.Clear()
sdesc.SurfaceCaps.OffScreenPlain = True
charsurface = New Surface("gametitle.bmp", sdesc, dddevice) 'Load file gametitle.bmp vào charsurface
End Sub
[/vbnet]

Đoạn code thêm vào có nhiệm vụ, xoá sdesc đi, lấy file gametitle.bmp từ trên đĩa cứng "dán" vào charsurface và đưa charsurface lên sdesc.
(sdesc là đối tượng quản lý các surface)
Trong thủ tục ShowSurface(), ta sẽ vẽ những thứ ta cần tại đây

[vbnet]
Public Sub ShowSurface()
Try
ssurface.ColorFill(Color.White)
ssurface.DrawFast(150, 150, charsurface, DrawFastFlags.DoNotWait) 'vẽ charsurface ra
ssurface.ForeColor = Color.Black
ssurface.DrawText(540, 565, "CaulacboVB", False) 'In lên màn hình dòng chữ CaulacboVB ở toạ độ (540,565), chữ màu đen
psurface.Flip(ssurface, FlipFlags.Wait)
Catch ex As SurfaceLostException
Init()
End Try
End Sub
[/vbnet]
:|

User avatar
hdn
Thành viên tâm huyết
Thành viên tâm huyết
Posts: 319
Joined: Wed 26/03/2008 7:09 pm
Has thanked: 1 time
Been thanked: 4 times

Re: Lập trình DirectX 9 với VB.NET

Postby hdn » Thu 27/03/2008 2:05 pm

Diễn hoạt (Animation)
Cái chữ animation là làm cho hình ảnh chuyển động, nôm na là thế, dịch ra tiếng việt nên chọn chữ diễn hoạt cho nó gọn, nhưng chữ đó hơi "xấu" :D
Trong bài trên, ta đã biết cách vẽ một hình ảnh ra màn hình, trong bài này, ta sẽ vẽ một hình ảnh chuyển động lên màn hình.
Ở đoạn load hình trong thủ tục Init, bạn sửa lại tên file là: character.bmp
Image
image8.gif (bạn phải dùng paint hoặc photoshop lưu file này lại thành character.bmp - DirectDraw dùng file BMP)

File character.bmp này, bạn thấy nó có nhiều hình giống nhau mô tả việc di chuyển của 1 thằng cha có râu :)), ta sẽ load hình này và vẽ từng khúc (frame) của nó, mỗi khúc có kích thước là 141x250 (file này tương đương 4 khúc của hoạt động)
Image
Mỗi khúc vẽ ra sẽ như thế này

Thay đổi vị trí vẽ liên tục trong 1 khoảng thời gian ngắng thì sẽ có cảm giác là thằng này đang bước đi thật (cái này thì ai cũng biết, kĩ thuật hoạt hình cơ bản)
Để xác định được 4 khúc của hình, ta dùng đối tượng Rectangle

  1. Private frames(4) As Rectangle
  2. Private charsurface As Surface
  3. Private frm4act As Integer = 0
  4.  
  5.  


Viết thủ tục createFrame để xác định vùng nào cần vẽ của frame nào

[vbnet]
Public Sub createframes()
Dim x As Integer
For x = 0 To 3
frames(x) = New Rectangle(141 * x, 0, 141, 250)
Next
End Sub
[/vbnet]

đối tượng Rectangle có tham số khởi tạo là (x, y, width, height), mỗi frame ta sẽ vẽ ra có kích thước 141x250 tương đương width=141, height=250, vị trí x=141*x để mỗi frame, chương trình sẽ lấy vị trí khớp cho nó, y=0 là vì, nếu ta lấy giá trị y khác 0, vùng được vẽ ra (viền đỏ) sẽ bị cắt hình.
Image
y=0

Image
y khác 0

Giờ ta sẽ vẽ nó ra, sửa thủ tục ShowSurface thành thế này:

[vbnet]
Public Sub ShowSurface()
Try
ssurface.ColorFill(Color.Red)
ssurface.DrawFast(100, 300, charsurface, frames(frm4act), DrawFastFlags.DoNotWait)
Catch ex As SurfaceLostException
Init()
End Try
psurface.Flip(ssurface, FlipFlags.Wait)
End Sub
[/vbnet]

Vẽ charsurface ra với kích thước của frames(frm4act), vị trí 100:300
frm4act là 1 cái biến thôi, nó cho biết frame hiện tại là frame nào, bây giờ nếu chạy thì ta sẽ chưa thấy nó chuyển động, mục đích của ta là khi nhấn phím mũi tên, thằng râu này nó mới hoạt động, bằng cách tăng giảm giá trị của frm4act.

[vbnet]
Private Sub form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Right Then
frm4act = frm4act + 1
if frm4act > 3 then 'Nếu frm4act vượt quá 3 thì
frm4act = 0 ' cho nó quay về 0
End If
ShowSurface( )
End if
If e.KeyCode = Keys.Escape Then
ending()
End
End If
End Sub
[/vbnet]

Giờ test nào, khi nhấn phím mũi tên sang phải, bạn sẽ thấy thằng râu chạy (chỉ hoạt hình thôi), nhưng nó chạy mà ko lết tới trước đc tí nào cả :)), nếu muốn nó chạy tới, bạn thêm 1 biến x4act để lưu toạ độ x cho nó.

[vbnet]Private x4act As Integer = 100[/vbnet]

lệnh vẽ ở thủ tục Showsurface cũng thay đổi như thế này

[vbnet]ssurface.DrawFast(x4act, 300, charsurface, frames(frm4act), DrawFastFlags.DoNotWait)[/vbnet]

vẽ thằng râu ra với toạ độ x4act:300
sự kiện keyDown sửa lại

[vbnet]
Private Sub form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Right Then
frm4act = frm4act + 1
x4act += 5 ' cho thằng râu chạy tới (thay đổi toạ độ x của nó)
if frm4act > 3 then
frm4act = 0
End If
End If
ShowSurface( )
End if
If e.KeyCode = Keys.Escape Then
ending()
End
End If
End Sub
[/vbnet]

Giờ chạy thử xem, thằng râu đã chạy được rồi đấy :D
Nhưng vẫn còn cái nền màu xám khó chịu, ở bài sau, ta sẽ tìm hiểu cách bỏ cái nền đó.
:|

vbthathay
Posts: 2
Joined: Wed 09/04/2008 9:37 am

Re: Lập trình DirectX 9 với VB.NET

Postby vbthathay » Tue 22/04/2008 1:14 pm

tiếp phần sau đi anh ơi
hay đấy !

hieutq
Posts: 2
Joined: Fri 18/04/2008 10:40 am

Re: Lập trình DirectX 9 với VB.NET

Postby hieutq » Tue 22/04/2008 5:19 pm

Mới vào nghề nên đọc hơi khó hỉu tí nhưng thây hay đây.
Tiếp bài kế tiếp đi U
Nếu được up cái Code cho mọi người được kô U

User avatar
hdn
Thành viên tâm huyết
Thành viên tâm huyết
Posts: 319
Joined: Wed 26/03/2008 7:09 pm
Has thanked: 1 time
Been thanked: 4 times

Re: Lập trình DirectX 9 với VB.NET

Postby hdn » Wed 23/04/2008 11:58 am

mình vẫn đang dịch tiếp :D dạo này gần thi học kì nên hơi bận
Ok, đã có code, up ở ngay trên đầu bài
Last edited by hdn on Wed 23/04/2008 1:55 pm, edited 1 time in total.
:|

User avatar
THE LAST LEAF
VIP
VIP
Posts: 60
Joined: Tue 24/05/2005 9:32 am
Location:
Contact:

Re: Lập trình DirectX 9 với VB.NET

Postby THE LAST LEAF » Wed 23/04/2008 12:07 pm

Bài viết rất hay! Cố gắng phát huy tiếp nhé chú Huy dốt net :D

User avatar
hdn
Thành viên tâm huyết
Thành viên tâm huyết
Posts: 319
Joined: Wed 26/03/2008 7:09 pm
Has thanked: 1 time
Been thanked: 4 times

Re: Lập trình DirectX 9 với VB.NET

Postby hdn » Wed 23/04/2008 1:44 pm

ặc, em đã đổi tên rồi đấy nhá :D


Trong suốt
Ở những bài trước, ta đã biết cách load và vẽ một hình từ file lên màn hình, hoạt hình, tuy nhiên những hình ảnh vẫn bị dính cái nền xám, bài này ta sẽ tìm cách xử chúng :D
Nguyên tắc để bỏ cái màu nền xám kia đi là ta đặt thuộc tính ColorKey cho nó, khi ta vẽ một ảnh lên màn hình, với thuộc tính ColorKey để chỉ định màu của cái nền, thì khi vẽ ra, máy sẽ xử lý bỏ cái nền đó đi.
Giờ ta sẽ khai báo một biến làm ColorKey

Code: Select all

  1. Private ck As ColorKey

Thủ tục Init bây giờ sửa lại:

Code: Select all

  1.  
  2.  Public Sub Init( )
  3.  
  4. psurface = Nothing
  5. ssurface = Nothing
  6. Dim sdesc As New SurfaceDescription()
  7. clip = New Clipper(dddevice)
  8. clip.Window = targetform
  9. sdesc.SurfaceCaps.PrimarySurface = True
  10. sdesc.SurfaceCaps.Flip = True
  11. sdesc.SurfaceCaps.Complex = True
  12. sdesc.BackBufferCount = 1
  13. psurface = New Surface(sdesc, dddevice)
  14. psurface.Clipper = clip
  15. sdesc.Clear()
  16. sdesc.SurfaceCaps.BackBuffer = True
  17. ssurface = psurface.GetAttachedSurface(sdesc.SurfaceCaps)
  18. sdesc.Clear()
  19. sdesc.SurfaceCaps.OffScreenPlain = True
  20. ck.ColorSpaceHighValue = RGB(153, 153, 153)
  21. ck.ColorSpaceLowValue = RGB(153, 153, 153)
  22. charsurface = New Surface("character.bmp", sdesc, dddevice) 'initialize new surface
  23. charsurface.SetColorKey(ColorKeyFlags.SourceDraw, ck) 'set the color key for the surface
  24.  
  25. End Sub
  26.  

không có gì đặc biệt, chỉ có khúc này:

Code: Select all

  1.  
  2. ck.ColorSpaceHighValue = RGB(153, 153, 153)
  3. ck.ColorSpaceLowValue = RGB(153, 153, 153)
  4.  

ColorSpaceHighValue và ColorSpaceLowValue, 2 giá trị này nếu khác nhau thì ảnh sẽ mờ mờ trong trong kiểu như gương, đây là khoảng trong suốt mà ta có thể tùy biến, ở đây ta muốn làm mất luôn cái nền màu xám, vì thế nên ta cho 2 giá trị giống nhau, đều là (153, 153, 153) (đây là mã màu của màu xám trong hệ RGB)
Sau đó ta gán thuộc tính ColorKey của Surface với ck.

Code: Select all

  1. charsurface.SetColorKey(ColorKeyFlags.SourceDraw, ck)

Bây giờ, ColorKey đã được gán vào cho surface, nhưng vẽ ra thì vẫn chưa thấy mất cái nền, đó là vì ở dòng lệnh vẽ hình, ta vẫn chưa cho nó biết là ta vẽ cái hình ra theo colorKey, bạn hãy sửa thủ tục ShowSurface() thành thế này:

Code: Select all

  1.  
  2.  Public Sub ShowSurface()
  3. Try
  4. ssurface.ColorFill(Color.Red)
  5.  
  6. ssurface.DrawFast(x4act, 100, charsurface, frames(frm4act), DrawFastFlags.SourceColorKey) 'Vẽ ra, giờ có thêm tham số DrawFastFlags.SourceColorKey tức là vẽ có xài ColorKey
  7.  
  8. Catch ex As SurfaceLostException
  9. Init()
  10. End Try
  11.  
  12. psurface.Flip(ssurface, FlipFlags.Wait)
  13. End Sub
  14.  

Xong! giờ bạn chạy thử xem nào.
:|

User avatar
hdn
Thành viên tâm huyết
Thành viên tâm huyết
Posts: 319
Joined: Wed 26/03/2008 7:09 pm
Has thanked: 1 time
Been thanked: 4 times

Re: Lập trình DirectX 9 với VB.NET

Postby hdn » Wed 23/04/2008 5:18 pm

Hình nền
Trong phần này, ta sẽ vẽ một hình nền (background) nằm ở phía sau "thằng râu" ở các bài trên, khi "thằng râu" bước đi thì cái hình nền cũng sẽ trượt theo, tạo cảm giác là nó đang bước đi thật (giống kiểu của game mario - gọi là platform game)
Đầu tiên, ta cần khởi tạo thêm:

Code: Select all

  1.  
  2. Private backrect As Rectangle
  3. Private backsurface As Surface = Nothing
  4.  
  5. Private xaxis as Integer
  6.  

giống như khi vẽ "thằng râu", bạn sẽ có một rectangle làm giới hạn cho khung nhìn, một surface để đưa hình làm nền vào và một biến xaxis để lưu vị trí của nền.
Sau đó ta viết thủ tục Background() để khởi tạo background

Code: Select all

  1.  
  2. Private Sub Background()
  3. Dim sdesc As New SurfaceDescription()
  4. sdesc.SurfaceCaps.OffScreenPlain = True
  5. backsurface = New Surface("background.bmp", sdesc, dddevice)
  6. backrect.Size = New Size(800, 600)
  7. End Sub
  8.  

và gọi thủ tục Background() ở cuối thủ tục Init()
Trong đoạn code trên, ta khởi tạo một surface để chứa hình nền, hình sẽ được load từ file background.bmp (có trong cùng thư mục chứa mã nguồn, hoặc bạn có thể download ở đây)
Background.rar
File background.bmp
(135.2 KiB) Downloaded 728 times

và khởi tạo một rectangle có kích thước 800x600 (kích thước màn hình game), khi vẽ ta sẽ chỉ vẽ một khung chừng đó thôi.
[Còn tiếp...]
:|

gatoi_it
Thành viên trung thành
Thành viên trung thành
Posts: 207
Joined: Wed 26/03/2008 6:10 pm
Location: Quê cha đất tổ
Been thanked: 4 times
Contact:

Re: Lập trình DirectX 9 với VB.NET

Postby gatoi_it » Sat 24/05/2008 5:24 pm

Anh cho em hỏi mấy câu sau:
1. Khi khai báo clip:

Code: Select all

  1. Private clip As Clipper = Nothing

rồi sử dụng trong:

Code: Select all

  1. clip = New Clipper(dddevice)
  2. clip.Window = Me
  3. 'some code
  4. psurface.Clipper = clip
  5.  

Có tác dụng gì?
2. Dòng lệnh:

Code: Select all

  1. sdesc.SurfaceCaps.PrimarySurface = True
  2. sdesc.SurfaceCaps.Flip = True
  3. sdesc.SurfaceCaps.Complex = True


Code: Select all

  1. sdesc.SurfaceCaps.BackBuffer = True
  2. ssurface = psurface.GetAttachedSurface(sdesc.SurfaceCaps)

Có công dụng gì?
3. Cái DrawFastFlags.DoNotWait để làm gì? Vẽ không cần đợi à?
4. Làm thế nào để vẽ trong chế độ Window?
Cảm ơn! :)
XFARM.CC

User avatar
hdn
Thành viên tâm huyết
Thành viên tâm huyết
Posts: 319
Joined: Wed 26/03/2008 7:09 pm
Has thanked: 1 time
Been thanked: 4 times

Re: Lập trình DirectX 9 với VB.NET

Postby hdn » Sat 24/05/2008 5:48 pm

4. Vẽ trong chế độ window? chẳng phải là đang vẽ lên form đấy sao?
1. Clipper có tác dụng giữ lại sprite khi nó ra khỏi phạm vi màn hình, DirectX7 không hỗ trợ chức năng này nên khi chỉ 1 phần của sprite ra khỏi phạm vi màn hình nó sẽ biến mất, clip có tác dụng giữ nó lại.
2. sdesc (SurfaceDecription) tạm hiểu là đối tượng định nghĩa/định hình cho surface, ở dòng lệnh trên, ta "nói" cho chương trình biết:
sdesc.SurfaceCaps.PrimarySurface = True => kích hoạt primary surface
sdesc.SurfaceCaps.Flip = True => kích hoạt tính năng flip (khả năng lật qua lật lại giữa các surface)
sdesc.SurfaceCaps.Complex = True => định nghĩa kiểu "surface phức tạp", các surface con có thể gắng vào surface ban đầu nhờ kiểu này
sdesc.SurfaceCaps.BackBuffer = True => bộ đệm cho surface, giúp cho việc vẽ/flip ổn định hơn
ssurface = psurface.GetAttachedSurface(sdesc.SurfaceCaps) => ssurface là surface con của psurface
3. Thực ra đây là một tham số khi vẽ bằng DirectDraw, ít có tài liệu nói rõ về vấn đề này (hoặc có thể là mình tìm ko ra :D), theo thực nghiệm bạn sẽ hiểu hơn về các thông số này, chất lượng hình ảnh tùy thuộc vào các thông số này.
:|

User avatar
1045007
Thành viên danh dự
Thành viên danh dự
Posts: 551
Joined: Mon 09/06/2008 3:35 pm
Location: TP Cần Thơ
Has thanked: 2 times
Been thanked: 64 times
Contact:

Re: Lập trình DirectX 9 với VB.NET

Postby 1045007 » Sun 27/07/2008 4:32 pm

Thế OpenGL hdn có biết không? nếu biết post lên cho anh em xem luôn đi :D Hõm rày tim thằng DirectX này muốn mệt ai dè trong 4r có hết. :)) :)) :))
Xếp hình cổ điển for Android-https://play.google.com
♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀♂♀

giongto35
Thành viên danh dự
Thành viên danh dự
Posts: 194
Joined: Thu 19/04/2007 10:17 am
Location: Đà Nẵng City
Been thanked: 1 time
Contact:

Re: Lập trình DirectX 9 với VB.NET

Postby giongto35 » Sun 27/07/2008 5:30 pm

anh ấy biết hết á , nhưng cái nào cũng 1 tí thui :)) . OGL xài vật vả lắm , dễ thì dễ nhưng hỗ trợ ko bằng dx đâu , load model phải mất chục dòng code :D
________________________________________________________________________________________________
. . . . . . . . . . . . .. .

User avatar
hdn
Thành viên tâm huyết
Thành viên tâm huyết
Posts: 319
Joined: Wed 26/03/2008 7:09 pm
Has thanked: 1 time
Been thanked: 4 times

Re: Lập trình DirectX 9 với VB.NET

Postby hdn » Sun 27/07/2008 7:30 pm

quả thực thì cái món gì mỗ cũng nhai qua 1 tí cho biết, openGL cũng biết, cũng có down 1 mớ tut về, đợi up lên nhé (nhưng mà dùng với VB6), với .NET thì có thể tham quan: ExoEngine
:|

User avatar
Fr0z3n
Thành viên năng nổ
Thành viên năng nổ
Posts: 51
Joined: Wed 30/04/2008 7:15 am
Contact:

Re: Lập trình DirectX 9 với VB.NET

Postby Fr0z3n » Mon 28/07/2008 2:30 am

anh có tut về DirectInput ko anh :| tut cho em coi :D

User avatar
hdn
Thành viên tâm huyết
Thành viên tâm huyết
Posts: 319
Joined: Wed 26/03/2008 7:09 pm
Has thanked: 1 time
Been thanked: 4 times

Re: Lập trình DirectX 9 với VB.NET

Postby hdn » Mon 28/07/2008 11:27 am

:|

kien_it
Posts: 4
Joined: Wed 24/12/2008 4:03 pm

Re: Lập trình DirectX 9 với VB.NET

Postby kien_it » Tue 05/05/2009 9:25 am

Anh ơi post bài tiếp đi anh hay quá trời anh à =D>


Return to “[.NET] Bài viết hướng dẫn”

Who is online

Users browsing this forum: No registered users and 1 guest