vb.net3d源码 vb net

求vb.net的源代码，最好说明其解决问题，越多越好，满意加50分。

下面这段代码，是我用来计算每个月存500元进银行，连续30年，最后连本带利能有多少钱。这里面涉及复利计算。界面中右边的文本框用来输出每一次计算的结果。

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

      Dim nianxian As Integer '年限变量

      Dim dingcun As Integer '定存变量

      Dim fuli_big As Long '大复利

      Dim fuli_small As Long '小复利

      Dim i As Integer '循环变量

      Dim DATAstring As String '数据字符串

      nianxian = Val(年限_TextBox.Text)

      dingcun = Val(定存_TextBox.Text)

      DATAstring = ""

      For i = 1 To nianxian

          fuli_small = dingcun * (1 + 0.1875)

          dingcun = fuli_small

          fuli_big = fuli_big + fuli_small

          DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_big) + Chr(13) + Chr(10)

          'DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_small) + Chr(13) + Chr(10)

      Next

      'fuli_big = fuli_small

      TextBox1.Text = DATAstring

      结果_TextBox.Text = Str(fuli_big) + "元"

  End Sub

相关问答

Q1: 请问为什么我公司的vb.net源码到了我的电脑上运行就会显示好多未声明啊？

用API 函数GetVolumeInformation得到的不是硬盘的序列号！！！

BOOL GetVolumeInformation(

LPCTSTR lpRootPathName,

LPTSTR lpVolumeNameBuffer,

DWORD nVolumeNameSize,

LPDWORD lpVolumeSerialNumber,

LPDWORD lpMaximumComponentLength,

LPDWORD lpFileSystemFlags,

LPTSTR lpFileSystemNameBuffer,

DWORD nFileSystemNameSize

);

看看英文啊：VolumeSerialNumber!得到的只是卷区序列号！

硬盘的序列号应该是

Drive Model Number________________: WDC WD400EB-00CPF0

Drive Serial Number_______________: WD-WCAATF083586

Drive Controller Revision Number__: 06.04G06

Controller Buffer Size on Drive___: 2097152 bytes

Drive Type________________________: Fixed

Drive Size________________________: 40020664320 bytes

中：

Drive Serial Number_______________: WD-WCAATF083586 这才是硬盘Serial Number！！！！

这个号是不会因为你格式化硬盘而改动，也不是网上流传的修改工具能改的，（其实网上流传的修改工具的也不过是卷区号而已！）

建议用 DiskID.dll或DiskID32.dll来获取

用diskid.dll和disk32.dll获得硬盘序列号

1.调用diskid.dll实现：

Option Explicit

Private Declare Function IsWinNT Lib "DiskID.DLL" () As Long

Private Declare Function ReadPhysicalDrive9X Lib "DiskID.DLL" (driveID As Long, buffer As Long, bufLen As Long) As Long

Private Declare Function ReadPhysicalDriveInNT Lib "DiskID.DLL" (driveID As Long, buffer As Long, bufLen As Long) As Long

Private Type DRIVER_INFO_OK

ModalNumber(39) As Byte

SerialNumber(19) As Byte

ControlNum(7) As Byte

DriveType As Long

Cylinders As Long

Heads As Long

Sectors As Long

End Type

Private Sub Command1_Click()

Dim x As DRIVER_INFO_OK

Dim i As Long

If IsWinNT = 1 Then

i = ReadPhysicalDriveInNT(ByVal 0, ByVal VarPtr(x), ByVal 256)

Else

i = ReadPhysicalDrive9X(ByVal 0, ByVal VarPtr(x), ByVal 256)

End If

Dim s As String

s = StrConv(x.ModalNumber, vbUnicode)

s = Left(s, InStr(1, s, Chr(0)) - 1)

MsgBox "硬件厂商代码为：" + s

s = StrConv(x.SerialNumber, vbUnicode)

s = Left(s, InStr(1, s, Chr(0)) - 1)

MsgBox "硬盘序列号为：" + s

End Sub

2.调用diskid32.dll实现：

Option Explicit

Private Declare Function DiskID32 Lib "DiskID32.DLL" (ByRef DiskModel As Byte, ByRef DiskID As Byte) As Long

Private Sub Command1_Click()

Dim DiskModel(31) As Byte, DiskID(31) As Byte, i As Integer, Model As String, ID As String

If DiskID32(DiskModel(0), DiskID(0)) 1 Then

MsgBox "get diskid32 err"

Exit Sub

End If

For i = 0 To 31

If Chr(DiskModel(i)) Chr(0) Then

Model = Model Chr(DiskModel(i))

End If

If Chr(DiskID(i)) Chr(0) Then

ID = ID Chr(DiskID(i))

End If

Next

MsgBox "硬件产生代码为：" + Model

MsgBox "硬盘序列号为：" + ID

End Sub

说明：diskid.dll可从下载

diskid32.dll可从下载

Q2: vb.net中如何利用api函数获取网页源代码？？？

Dim MyClient As WebClient = New WebClient

Dim MyReader As New System.IO.StreamReader(MyClient.OpenRead(url), System.Text.Encoding.Default) '定义新的文件流并读取网页文件数据，url表示需要打开的网页地址

Dim longTxt As String = MyReader.ReadToEnd 'longtxt存储了网页的源码

MyReader.Close()

Q3: VB.NET获取需要登录后的源码

很简单的。这个最基本的了。

就是从数据库表中 找出一个记录，名称和密码都和你输入的一样的记录，就表示登陆成功。

简单的思路：（密码也没有加密等）

dim dt As New DataTable

dim cmd As New SqlCommand

With cmd

.CommandText = "Select * From Users Where UserName=@UserName and UserPwd=@UserPwd"

.Parameters.Add(New SqlClient.SqlParameter("@UserName", "=你输入的用户名TextBox1.Text"))

.Parameters.Add(New SqlClient.SqlParameter("@strColorNo", "=你输入的密码TextBox2.Text"))

End With

dt =SqlHelper.GetDatatable(cmd)

if dt.rows.count0 then

msgbox "ok"

else

msgbox "error"

end if

Q4: 如何用vb.net获得网页的源代码

Dim url As String=" 网址"

Dim httpReq As System.Net.HttpWebRequest

Dim httpResp As System.Net.HttpWebResponse

Dim httpURL As New System.Uri(url)

httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)

httpReq.Method = "GET"

httpResp = CType(httpReq.GetResponse(), HttpWebResponse)

httpReq.KeepAlive = False ' 获取或设置一个值，该值指示是否与

Internet资源建立持久连接。

Dim reader As StreamReader = _

New StreamReader(httpResp.GetResponseStream,

System.Text.Encoding.GetEncoding(-0))

Dim respHTML As String = reader.ReadToEnd() 'respHTML就是网页源代码

Q5: 我想用VB和3DSMAX一起做一个简单的3D小游戏，请问怎么做？

其实做3D游戏大部分都是代码，3Dmax只是做模型的。用程序贴上材质。+759812246。这里推荐下truevision3d 3D引擎。有很多中文教程 贴上最简单的源码：忘了说，用vb6.0

Private TV As TVEngine '声明TV3D引擎对象

Private Scene As TVScene '声明场景TVScene对象

Private Mesh As TVMesh '声明网格TVMesh对象

Private InputE As TVInputEngine '声明输入（键盘、鼠标）对象

Private Sub Form_Load()

Set TV = New TVEngine '定义TV对象为TVEngine类的一个实例

TV.Init3DWindowedMode Form1.hWnd '调用TV3D的一个函数Init3DWindowedMode，初始化3D窗口。参数是当前窗口的句柄

Set InputE = New TVInputEngine '定义InputE对象为TVInputEngine类的一个实例

Set Scene = New TVScene '定义Scene对象为TVScene的一个实例

Set Mesh = Scene.CreateMeshBuilder '定义Mesh对象为TVMesh的一个实例，用Scene的CreateMeshBuilder方法生成

Scene.SetSceneBackGround 1, 0, 0 '设置背景颜色

Mesh.CreateTeapot '建立茶壶模型

Mesh.SetPosition 0, 0, 10 'Z越小，图像越大

Form1.Show

Do '开始进入游戏循环

DoEvents '用DoEvents函数，让Windows空出来作别的事

TV.Clear '清除缓冲区的内容

Mesh.Render '渲染Mesh（3D物件）

TV.RenderToScreen '把缓冲区的内容渲染到屏幕上

Loop Until InputE.IsKeyPressed(TV_KEY_ESCAPE) '直到用户按下了Esc，游戏终止运行

Set Mesh=Nothing

Set Scene=Nothing

Set InputE = Nothing '释放InputE对象所占用的内存空间

Set TV = Nothing '释放TV对象所占用的内存空间

End '程序结束

End Sub

vb.net3d源码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb net、vb.net3d源码的信息别忘了在本站进行查找喔。