分享
 
 
 

VB.NET实现DirectDraw9 (1) 托管的DDraw

王朝vb·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

关键字: VB.NET DirectX DirectDraw 9 作者:董含君

转载请注明来自: http://blog.csdn.net/a11s

================以下为废话(记日记是好习惯)===============

本来应该继续DirectSound 混音的,但是今天由于时间关系,完不成任务了.

发现国外的一个站点,里面的人比较牛X 直接自己用binaryreader读取wav

自愧不如啊~~~

================End 废话===============================

很多人都认为DirectDraw在DirectX7时代就终结了,到了VB.NET以及托管的DirectX

微软要继承旧的DirectDraw,又要托管.所以DDraw毕竟是有变化的.

现在拾起来.有点不适应.但是基本概念还是不会变化的.

国内高手对此不屑,而且还有人会了3D后敌视2D,我就不发表评论了,倒是让我有了填补国内空白的机会了

首先说大体过程.我的学习笔记比较基础,不是为了体现DDraw的性能,而是理清步骤(微软的例子就麻烦4了)

0 工程添加DirectDraw的引用,代码里面imports Microsoft.DirectX.DirectDraw

1 创建Device 设置合作级别 (只要是DirectX 都要这样)

2 创建描述 (为了创建Surface做准备,跟DirectSound创建Buffer的描述一个道理)

3 利用描述创建主缓冲以及二级缓冲(就是BackSurface)

4 为主缓冲指定一个Clipper

=============加载完成==================

绘制过程比较简单,你可以使用Timer设置时间间隔.但是一般人不会这么作,虽然实现过程简单.

为了体现平滑的动画,往往CPU能用就用,FPS越高越好(其实太高了也没用,但是当动画复杂的时候就有用了)

以下是参考大风给我的计时器.

Dim tfp As Integer = 0 '''fps

Dim mytime As Date = DateTime.Now '''临时用一下

While (run = True) '''如果游戏没有结束

blt() '''主要绘制过程

tfp += 1 '''fps++

If tfp = 200 Then '''200次的时候计算时间

tfp = 0

Dim ts As New TimeSpan

ts = (DateTime.Now.Subtract(mytime))

mytime = DateTime.Now

If ts.TotalSeconds <> 0 Then

Dim qiqi As Double = 200 / (ts.TotalSeconds)

Me.Text = qiqi.ToString("##.##") + "F c"

End If

End If

TT.Sleep(20) '''硬性规定休息一下,当然可以去掉发挥MAX速度

End While

需要知道,里面的变量都是临时定义的,如果你对速度很在意,这样做是不可取的,但是为了理解方便,所以才这么作,进行优化的时候就要拿出来了.

有了计数器,用它建立了游戏循环.循环自己管理主要的blt()过程,blt也很简单

Sub blt()

If PS Is Nothing Then Exit Sub

Dim r1 As Rectangle

Dim r2 As Rectangle

r2.Height = desc2.Height

r2.Width = desc2.Width

r1.Height = P.Size.Height

r1.X = 0

r1.Y = 0

r1.Width = P.Size.Width

PS.Draw(r1, BS, r2, DrawFlags.Wait)

End Sub

就是设置好矩形区域然后绘制,这里不再是DDraw7的RECT了,里面多少有些变化.

调用游戏循环很简单,直接main2就可以,但是不可取,这样做会让你的程序”卡死”,导致程序没有响应

需要新开一个线程处理这件事情

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

run = Not run

If TT Is Nothing Then

TT = New Threading.Thread(AddressOf main2)

TT.Start()

End If

End Sub

ok,具体需要注意的就这么多,以下为全部源代码

======================================

Imports Microsoft.DirectX.DirectDraw

Imports Microsoft.DirectX

Imports System.Drawing

Public Class Form1

Inherits System.Windows.Forms.Form

Dim Dev As Device

Dim PS As Surface

Dim BS As Surface

Dim desc As SurfaceDescription

Dim desc2 As SurfaceDescription

Dim Clip As Clipper

Dim T As New Date

Dim run As Boolean

Dim TT As Threading.Thread

Const fn = "d:\nerv.bmp"

#Region " Windows 窗体设计器生成的代码 "

Public Sub New()

MyBase.New()

'该调用是 Windows 窗体设计器所必需的。

InitializeComponent()

'在 InitializeComponent() 调用之后添加任何初始化

End Sub

'窗体重写 dispose 以清理组件列表。

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose()

End If

End If

MyBase.Dispose(disposing)

End Sub

'Windows 窗体设计器所必需的

Private components As System.ComponentModel.IContainer

'注意: 以下过程是 Windows 窗体设计器所必需的

'可以使用 Windows 窗体设计器修改此过程。

'不要使用代码编辑器修改它。

Friend WithEvents P As System.Windows.Forms.PictureBox

Friend WithEvents Label1 As System.Windows.Forms.Label

Friend WithEvents Label2 As System.Windows.Forms.Label

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

Me.P = New System.Windows.Forms.PictureBox

Me.Label1 = New System.Windows.Forms.Label

Me.Label2 = New System.Windows.Forms.Label

Me.SuspendLayout()

'

'P

'

Me.P.Location = New System.Drawing.Point(40, 48)

Me.P.Name = "P"

Me.P.Size = New System.Drawing.Size(640, 480)

Me.P.TabIndex = 0

Me.P.TabStop = False

'

'Label1

'

Me.Label1.Location = New System.Drawing.Point(16, 16)

Me.Label1.Name = "Label1"

Me.Label1.Size = New System.Drawing.Size(72, 24)

Me.Label1.TabIndex = 1

Me.Label1.Text = "init"

'

'Label2

'

Me.Label2.Location = New System.Drawing.Point(112, 16)

Me.Label2.Name = "Label2"

Me.Label2.Size = New System.Drawing.Size(80, 16)

Me.Label2.TabIndex = 2

Me.Label2.Text = "draw"

'

'Form1

'

Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)

Me.ClientSize = New System.Drawing.Size(728, 541)

Me.Controls.Add(Me.Label2)

Me.Controls.Add(Me.Label1)

Me.Controls.Add(Me.P)

Me.Name = "Form1"

Me.Text = "Form1"

Me.ResumeLayout(False)

End Sub

#End Region

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

initDD()

End Sub

Sub initDD()

Dev = New Device(CreateFlags.Default)

Dev.SetCooperativeLevel(Me, CooperativeLevelFlags.Normal)

Dim caps As New SurfaceCaps

Dim caps2 As New SurfaceCaps

caps.PrimarySurface = True

caps.VideoMemory = True

caps2.OffScreenPlain = True

desc = New SurfaceDescription(caps)

desc2 = New SurfaceDescription(caps2)

desc2.EmptyFaceColor = RGB(0, 0, 255)

Clip = New Clipper(Dev)

Clip.Window = P

BS = New Surface(fn, desc2, Dev)

PS = New Surface(desc, Dev)

PS.Clipper = Clip

Me.Text = "loaded"

End Sub

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

run = Not run

If TT Is Nothing Then

TT = New Threading.Thread(AddressOf main2)

TT.Start()

End If

End Sub

Sub blt()

If PS Is Nothing Then Exit Sub

Dim r1 As Rectangle

Dim r2 As Rectangle

r2.Height = desc2.Height

r2.Width = desc2.Width

r1.Height = P.Size.Height

r1.X = 0

r1.Y = 0

r1.Width = P.Size.Width

PS.Draw(r1, BS, r2, DrawFlags.Wait)

End Sub

Sub main2()

Dim tfp As Integer = 0 '''fps

Dim mytime As Date = DateTime.Now '''临时用一下

While (run = True) '''如果游戏没有结束

blt() '''主要绘制过程

tfp += 1 '''fps++

If tfp = 200 Then '''200次的时候计算时间

tfp = 0

Dim ts As New TimeSpan

ts = (DateTime.Now.Subtract(mytime))

mytime = DateTime.Now

If ts.TotalSeconds <> 0 Then

Dim qiqi As Double = 200 / (ts.TotalSeconds)

Me.Text = qiqi.ToString("##.##") + "F c"

End If

End If

TT.Sleep(20) '''硬性规定休息一下,当然可以去掉发挥MAX速度

End While

End Sub

Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

End

End Sub

End Class

====================================================

需要注意的是,这里进行绘制的时候,图片的位置是相对屏幕左上角的,只要你改变响应的rect就可

因为获得坐标牵扯到其他地方,不宜于降低本文难度,所以没加.

下一步的DirectDraw 全屏幕的动画 以及出现角色绘制

DirectSound混音好像很麻烦.....

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有