锐客网

  1. 首页 > 睿知 > it技术 > >

vb.netd3d的简单介绍

IT技术语言

VB .NET编程是否可以不依赖.NET Framework这是典型对.net构架不理解造成的！
只要是.net编程vb.netd3d ， 一定使用的是.net类库，必须是同运行版本的.net支持方可运行 。而所谓的vb.net只是说编程的语言层使用的是vb语言而已 。该语言在.net构架下被编译成为IL语言(MSIL,严格说来是IL的一个子集） 。而上层的语言只是产生软件时所使用的一个不同语言规则而已 ， 与IL已经没有任何相关性vb.netd3d了 。上层语言无论是C#还是VB，甚至是Java(J#)均只适应编程人员的一个策略，与整个构造没有多大的相关性 。
.net的最终目的就是让不同的语言编程人员能协同工作，那么语言在其中的区别没有多大了 ， 所有的运行核心都是由.net完成的，没有必须依赖于.net 。这是没有任何疑问的 。
vb.net就是.net，只是表示用VB语言人的称呼，用C#的则称其为C#.net，但不管是哪种，它是无法脱离.net的 。
怎么利用VB.NET实现三维绘图数学上不是有斜二测画法，算好坐标即可画出
或者用AnyCAD的.Net图形控件
也可以调用matlab 实现
VB.net可以开发小型3D图形显示软件吗？可以借助DirectX来编程 。免费3D引擎可不好找，一般来说速度比不上硬件加速后的DX，尤其令人头疼的是一般都没有针对VB的文档，LZ有这方面理想的话，自己写一个吧……
我不得不承认在VB上写DirectX的教程相当难找！如果LZ想深入研究三维图形问题，C++一定要学 ， 就算不能用C++编程，起码要能把C++程序翻译成VB程序 。
我自己学会DX编程花了两三个月（很浅） 。编这样一个程序难度是有点大的 。
工具：DirectX9和其针对VB的库(项目-添加引用 。.NET库里DX库一般都有)，VB不知道现在支不支持DX10以上的版本，不过9绝对够用了 。
思路：一切3D图形都是由三角形拼成的 。矩形挖掉一个圆孔可不是一个方便画的图形，我估计至少得有24个三角形 。你需要记录这些点的坐标 ， 或者干脆把它们写在文件里，到时读出来 。
这是我的一个老DX程序的不完全的代码(显示一个黑乎乎的平面)，不一定能编译，可以参考一下 。
Imports Microsoft.DirectX '一定要~
Public Class FormMain
'Direct3D Startup
Dim d3dpp As New Direct3D.PresentParameters 'DX基本参数 ， 例如全屏还是窗口等
Public MyDevice As Direct3D.Device ‘DX基本设备 ， 画图就靠它 。
'Matrices
Dim matWorld, matView, matProj As Matrix '世界位置矩阵，摄像机位置矩阵和透视矩阵 ， 数学要学好啊 。
'mesh
Public MyPlane as Direct3D.Mesh ’我们的物体
Public VBPlane(3) As Direct3D.CustomVertex.PositionNormalTextured '存放顶点位置的数组
#Region "DX Core"
Public Sub InitDeviceObjects()
With d3dpp ‘以下请照抄 。
.Windowed = True ‘不全屏 。
.SwapEffect = Direct3D.SwapEffect.Discard ’双缓冲交换效果 。请百度“双缓冲”
.BackBufferFormat = Direct3D.Format.Unknown
.EnableAutoDepthStencil = True ’让DX自动管理深度缓冲
.AutoDepthStencilFormat = Direct3D.DepthFormat.D16
End With
MyDevice = New Direct3D.Device(0, Direct3D.DeviceType.Hardware, Me.Handle, Direct3D.CreateFlags.HardwareVertexProcessing, d3dpp) '创建DX设备啦！以下两句请照抄 。
MyDevice.SetRenderState(Direct3D.RenderStates.ZEnable, True) ‘Z缓冲
MyDevice.SetRenderState(Direct3D.RenderStates.NormalizeNormals, True)'法线归一化，请看相关数学书籍 。
End Sub
Public Sub RestoreDeviceObjects()
Dim PlaneIB() As Short = {0, 1, 3, 0, 2, 3} ’顶点索引信息 。
Dim AttrTable(1) As Direct3D.AttributeRange ‘顶点分组属性表

推荐阅读


上一篇：如何理解营销与效率，营销效能什么意思

下一篇：区块链专利事件是什么，区块链专利授权排行