实现森林计测程序设计ppt课件教学教程

1、Visual Basic 6.0实现森林计测程序设计 VB的特点可视化的设计平台面向对象的设计方法事件驱动的编程机制结构化的设计语言充分利用WINDOWS资源开放的数据库与网络支持 VB的特点传统的编程方法使用的是面向过程、按顺序进行的机制，其缺点是程序员始终要关心什么时候发生什么事情。 VB采用的是面向对象、事件驱动编程机制，程序员只需编写响应用户动作的程序，如移动鼠标、单击事件，编写代码相对较少。采用控件不涉及到必要的细节. VB可视化编程的基本概念 1 对象对象的属性对象的事件事件的方法2 VB的控件内部控件ActiveX可插入的对象VB可视化编程的步骤新建一个工程建立界面添加对象设置属

2、性编写代码运行工程修改工程保存工程工程的编译应用程序HIPO图数据文件的组织用于计算的应用软件的目的是进行数据处理，不论数据多少，数据文件必须与应用程序分开，其目的是便于保存和修改数据，并且使程序更加具有通用性。文件的类型很多，用做数据处理的数据文件，起组织形式取决于与计算方法编程所采用的源语言对数据文件组织形式的要求。数据文件的组织形式Visual Basic中文企业版有多种的数据输入方法，但为了使程序有一个通用的数据输入格式，采用了数与数之间用“，”隔开组织文件。 0.461，0.384，0.381，-0.423 0.449，0.402，2.906，0.249 0.263， 0.145 0

3、.127，3.104 0.163，0.362，-0.069，0.178在数据文件编辑好后，要检查带小数点的数据中误键入的“，”。数据文件和结果数据的显示 数据文件和计算结果的显示有很多种方法。MSFlexGrid是VB6.0中的一种用于表格数据显示的ActiveX控件 。采用MSFlexGrid控件，用它来显示数据文件很方便.数据文件和结果数据的显示 主窗体的界面主窗体代码(main.frm)Private Sub c11_Click() appear.Show appear.Caption = 统计资料的特征数的计算End SubPrivate Sub c12_Click() appear.

4、Show appear.Caption = 距离系数End SubPrivate Sub c21_Click() appear2.Show appear2.Caption = 一元线性回归计算End SubPrivate Sub c22_Click() appear2.Show appear2.Caption = 一元材积表计算End SubPrivate Sub c31_Click() appear3.ShowEnd SubPrivate Sub c32_Click() appear31.ShowEnd SubPrivate Sub mainquit_Click() MsgBox 谢谢使用

5、, 0, quit! Unload MeEnd Sub子程序主模块界面(appear*.frm)窗体代码 Private Sub Command1_Click() appear_show.Show 显示输入文件的内容End SubPrivate Sub Dir1_Change() File1.Path = Dir1.Path 选定文件夹 dir2 = Dir1.PathEnd SubPrivate Sub Drive1_Change() Dir1.Path = Drive1.Drive 选定了驱动器End SubPrivate Sub File1_Click() clickname = Fil

6、e1.FileName 选定了文件 Text3.Text = clicknameEnd Sub显示结果的窗体模块 窗体代码 Private Sub main_Click()MSFlexGrid1.Row = 3MSFlexGrid1.Text = 材积计算方程MSFlexGrid1.TextMatrix(0, 1) = Format$(a, #0.0000)MSFlexGrid1.TextMatrix(1, 1) = Format$(b, #0.0000)MSFlexGrid1.TextMatrix(2, 1) = Format$(c, #0.0000)MSFlexGrid1.TextMatr

7、ix(3, 1) = Str$(Format$(a, 0.0000) & D & & Str$(Format$(b, 0.0000)MSFlexGrid2.ColWidth(0) = 600MSFlexGrid2.ColWidth(2) = 600MSFlexGrid2.TextMatrix(0, 0) = 径阶MSFlexGrid2.TextMatrix(0, 1) = 材积窗体代码(续)MSFlexGrid2.TextMatrix(0, 2) = 径阶MSFlexGrid2.TextMatrix(0, 3) = 材积For i = 1 To 24 MSFlexGrid2.TextMatri

8、x(i, 0) = i + 3 MSFlexGrid2.TextMatrix(i, 1) = Format$(a * (i + 3) b, #0.0000)Next iFor i = 1 To 24 MSFlexGrid2.TextMatrix(i, 2) = i + 28 MSFlexGrid2.TextMatrix(i, 3) = Format$(a * (i + 28) b, #0.0000)Next iEnd Sub过程 过程可使程序分成离散的逻辑单元，每个逻辑单元容易调试。一个程序中的过程，往往不必修改或只需稍作改动，便可以为另一个程序作用。在VB中，根据过程是否返回值，分为子程序过程（SUB过程）和函数过程（Function过程）两种。过程中调用的计算程序模块 Sub caijihuigui() 一元材积表a = 0: b = 0: c = 0: o = 0: p = 0: q = 0: r = 0: s = o: t = 0: x = 0: y = 0: u = 0: v = 0For i = 1 To npo = o + Log(z(i, 1)p = p + Log(z(i, 2)q = q + Log(z(i, 1) 2r = r + Log(z(i, 2) 2s = s + Log(z(i, 1) * Log(z(i, 2)Next ix = o / n