188宝金博页面版

ＶＢ．ＮＥＴ三维程序设计 目前流行的各种大型网络游戏，以及各种高端的图形图像应用设计，大部分都使用了 3D 技术。流行的三维设计编程接口（ API）有两大类，一类是 OpenGL ，主要用于 Java 编程；另一类是 DirectX ，主要用于 Windows环境下的各类三维软件编程。 DirectX 其实是一个组件套件， 是由微软公司开发的应用程序编程接口， 包含有 Direct Graphics 、Direct Input 、Direct Play（针对游戏 / 网络） 、Direct Sound（针对 3D声音功能）、Direct Show等多个组件，它提供了一整套的多媒体接口方案。而今已发展成为对整个多媒体系统的各个方面都有决定性影响的接口。 DirectX 是 1995 年诞生的， 1996 年在 DirectX 中加入了 Direct3D ，用于访问 3D硬件加速的高级图形功能， 通过提供通用的 COM （Component Object Model ，组件对象模型）编程接口使硬件和设计分离，随后很快发展到DirectX8.0 ，并从 DirectX9.0 开始支持托管代码。 自 2002 年.NET 和 C#诞生以后， DirectX 的应用也迅速得到提升，很多优秀的性能也逐步加入到托管 DirectX 中。由于 DirectX 的使用非常普遍，所以目前所有的显卡无一例外的都支持 DirectX 编程接口，给各类三维应用设计带来了很大方便。 注意， 本章的所有例子全部是在安装 DirectX9.0c SDK December 2005 后调试通过的。 要调试本章的所有例子，必须先安装 VS2005，然后再安装 DirectX9.0 SDK December 2005 （几百 MB），如果仅仅为了直接运行已经编译后的 .exe文件，而不进行调试，也可以只安装 DirectX9.0c （几十 MB）。例子中调试使用的具体版本为： Microsoft.DirectX.dll 版本 1.0.2902.0 Microsoft.DirectX.Direct3D.dll 版本 1.0.2902.0 Microsoft.DirectX.Direct3DX.dll 版本 1.0.2908.0 使用 DirectX 编写程序，首先必须在资源管理器中添加对它的引用。步骤为： 【项目】 ? 【添加引用】 ，然后在弹出窗口的 .NET 选项中选择上面列出的版本，单击【确定】 。选择时要仔细观察引用的是哪个版本，不要选错。一定要注意，本章的例子必须在引用上面列出的版本下才能正常调试，在低版本下或者高版本下，由于 SDK提供的属性及方法不一定相同，所以不保证能正常运行。 由于三维设计涉及面很广，而且包含很多复杂的模型计算以及数学处理等方面的内容，因此这里不准备在短短一章中把 Direct3D 的内容全部介绍，而是只关心简单的、最基本的三维设计思路，并通过介绍 DirectX 提供的Primitive 和 Mesh对象的基本用法，为复杂的三维设计入门起到一个抛砖引玉的作用。 1 简单的 3D设计入门 与一般 Windows 应用程序不同，为了提高显示速率和展现真实的三维效果，三维设计有一个特定的基本编程模式。为了让读者首先有一个感性认识，这一节先不介绍 DirectX 提供的各种功能，而是通过一个简单例子介绍利用DirectX 编程接口进行三维设计的一般方法，然后再介绍涉及到的相关概念和技术。 【例 1】使用 DirectX 设计一个能够旋转的三角形，并将本机显卡和显示器的相关参数显示出来。 (1) 新建一个名为 SimpleDirect3DExample 的 Windows应用程序，使用默认的窗体名称。 (2) 在【项目】 ? 【添加引用】 ? 在【.net 】选项下同时选中 Microsoft.DirectX 、 Microsoft.DirectX.Direct3D和 Microsoft.DirectX.Direct3DX ，注意选择的版本要和本章开头列出的版本一致，单击【确定】 。 (3) 在命名空间的上方，添加引用代码： Imports Microsoft.DirectX Imports Microsoft.DirectX.Direct3D (4) 在构造函数上方添加字段声明： Dim device As Device 'Device 指显卡适配器，一个显卡至少有一个适配器 Dim VertexBuffer As VertexBuffer Dim d3dfont As Microsoft.DirectX.Direct3D.Font Dim adapterInformationString As String Dim showAdapterString As Boolean = True Dim angle As Single = 0.0F Dim incrementAngle As Single = 0.1F