农业类实现森林计测程序设计精选课件PPT
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
MSFlexGrid2.TextMatrix(i, 2) = i + 28 MSFlexGrid2.TextMatrix(i, 3) = Format$(a * (i + 28) ^ b, "####0.0000") Next i End Sub
数据文件的组织形式
Visual Basic中文企业版有多种的数据输入方法， 但为了使程序有一个通用的数据输入格式，采 用了数与数之间用“，”隔开组织文件。 0.461，0.384，0.381，-0.423 0.449，0.402，2.906，0.249 0.263， 0.145 0.127，3.104 0.163，0.362，-0.069，0.178
任形 意面 封积 闭计 多算
标 准 木 法
边程
序
数据文件的组织
用于计算的应用软件的目的是进行数据 处理，不论数据多少，数据文件必须与 应用程序分开，其目的是便于保存和修 改数据，并且使程序更加具有通用性。
文件的类型很多，用做数据处理的数据 文件，起组织形式取决于与计算方法编 程所采用的源语言对数据文件组织形式 的要求。
在数据文件编辑好后，要检查带小数点的数据 中误键入的“，”。
数据文件和结果数据的显示
数据文件和计算结果的显示有很多 种方法。 MSFlexGrid是VB6.0中的一种用于表格数 据显示的ActiveX控件 。 采用MSFlexGrid控件，用它来显示数据 文件很方便.
数据文件和结果数据的显示
新建一个工程 建立界面 添加对象 设置属性 编写代码 运行工程 修改工程 保存工程 工程的编译
应用程序HIPO图
包装窗体
包装窗体菜单
退出程序使用
使用程序
统的 计特 资征 料数
P数 维据 统统 计计
量
欧距 几离 里系 德数
一 元 回 归
一
一
元
元
线
材
形
积
回
表
归
基林 本计 的测 森程
序
Visual Basic 6.0
实现森林计测程序设计
VB的特点
可视化的设计平台 面向对象的设计方法 事件驱动的编程机制 结构化的设计语言 充分利用WINDOWS资源 开放的数据库与网络支持
VB的特点
传统的编程方法使用的是面向过程、 按顺序进行的机制，其缺点是程序员 始终要关心什么时候发生什么事情。
MsgBox " 谢谢使用 ", 0, "quit!" Unload Me End Sub
子程序主模块界面(appear*.frm)
窗体代码
Private Sub Command1_Click() appear_show.Show '显示输入文件的内容
End
SubPrivate Sub Dir1_Change() = Dir1.Path '选定文件夹 dir2 = Dir1.Path
VB采用的是面向对象、事件驱动编程 机制，程序员只需编写响应用户动作 的程序，如移动鼠标、单击事件，编 写代码相对较少。采用控件不涉及到 必要的细节.
VB可视化编程的基本概念
1 对象
对象的属性 对象的事件 事件的方法
2 VB的控件
内部控件 ActiveX 可插入的对象
VB可视化编程的步骤
主窗体的界面
主窗体代码(main.frm)
Private Sub c11_Click() appear.Show appear.Caption = "统计资料的特 征数的计算"
End Sub Private Sub c12_Click()
appear.Show appear.Caption = "距离系数" End Sub Private Sub c21_Click() appear2.Show appear2.Caption = "一元线性回归 计算" End Sub
Private Sub c22_Click() appear2.Show appear2.Caption = "一元材积表计算"
End Sub Private Sub c31_Click()
appear3.Show End Sub Private Sub c32_Click()
appear31.Show End Sub Private Sub mainquit_Click()
Private Sub main_Click() MSFlexGrid1.Row = 3 MSFlexGrid1.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.TextMatrix(3, 1) = Str$(Format$(a, "0.0000")) & "D" & "^" &
Str$(Format$(b, "0.0000")) MSFlexGrid2.ColWidth(0) = 600 MSFlexGrid2.ColWidth(2) = 600 MSFlexGrid2.TextMatrix(0, 0) = "径阶" MSFlexGrid2.TextMatrix(0, 1) = "材积"
窗体代码(续)
MSFlexGrid2.TextMatrix(0, 2) = "径阶" MSFlexGrid2.TextMatrix(0, 3) = "材积" For i = 1 To 24
MSFlexGrid2.TextMatrix(i, 0) = i + 3 MSFlexGrid2.TextMatrix(i, 1) = Format$(a * (i + 3) ^ b, "####0.0000") Next i For i = 1 To 24
End Sub
Private Sub Drive1_Change() Dir1.Path = Drive1.Drive '选定了驱动器
End Sub
Private Sub () clickname = '选定了文件 Text3.Text = clickname
End Sub
Βιβλιοθήκη Baidu
显示结果的窗体模块
窗体代码
数据文件的组织形式
Visual Basic中文企业版有多种的数据输入方法， 但为了使程序有一个通用的数据输入格式，采 用了数与数之间用“，”隔开组织文件。 0.461，0.384，0.381，-0.423 0.449，0.402，2.906，0.249 0.263， 0.145 0.127，3.104 0.163，0.362，-0.069，0.178
任形 意面 封积 闭计 多算
标 准 木 法
边程
序
数据文件的组织
用于计算的应用软件的目的是进行数据 处理，不论数据多少，数据文件必须与 应用程序分开，其目的是便于保存和修 改数据，并且使程序更加具有通用性。
文件的类型很多，用做数据处理的数据 文件，起组织形式取决于与计算方法编 程所采用的源语言对数据文件组织形式 的要求。
在数据文件编辑好后，要检查带小数点的数据 中误键入的“，”。
数据文件和结果数据的显示
数据文件和计算结果的显示有很多 种方法。 MSFlexGrid是VB6.0中的一种用于表格数 据显示的ActiveX控件 。 采用MSFlexGrid控件，用它来显示数据 文件很方便.
数据文件和结果数据的显示
新建一个工程 建立界面 添加对象 设置属性 编写代码 运行工程 修改工程 保存工程 工程的编译
应用程序HIPO图
包装窗体
包装窗体菜单
退出程序使用
使用程序
统的 计特 资征 料数
P数 维据 统统 计计
量
欧距 几离 里系 德数
一 元 回 归
一
一
元
元
线
材
形
积
回
表
归
基林 本计 的测 森程
序
Visual Basic 6.0
实现森林计测程序设计
VB的特点
可视化的设计平台 面向对象的设计方法 事件驱动的编程机制 结构化的设计语言 充分利用WINDOWS资源 开放的数据库与网络支持
VB的特点
传统的编程方法使用的是面向过程、 按顺序进行的机制，其缺点是程序员 始终要关心什么时候发生什么事情。
MsgBox " 谢谢使用 ", 0, "quit!" Unload Me End Sub
子程序主模块界面(appear*.frm)
窗体代码
Private Sub Command1_Click() appear_show.Show '显示输入文件的内容
End
SubPrivate Sub Dir1_Change() = Dir1.Path '选定文件夹 dir2 = Dir1.Path
VB采用的是面向对象、事件驱动编程 机制，程序员只需编写响应用户动作 的程序，如移动鼠标、单击事件，编 写代码相对较少。采用控件不涉及到 必要的细节.
VB可视化编程的基本概念
1 对象
对象的属性 对象的事件 事件的方法
2 VB的控件
内部控件 ActiveX 可插入的对象
VB可视化编程的步骤
主窗体的界面
主窗体代码(main.frm)
Private Sub c11_Click() appear.Show appear.Caption = "统计资料的特 征数的计算"
End Sub Private Sub c12_Click()
appear.Show appear.Caption = "距离系数" End Sub Private Sub c21_Click() appear2.Show appear2.Caption = "一元线性回归 计算" End Sub
Private Sub c22_Click() appear2.Show appear2.Caption = "一元材积表计算"
End Sub Private Sub c31_Click()
appear3.Show End Sub Private Sub c32_Click()
appear31.Show End Sub Private Sub mainquit_Click()
Private Sub main_Click() MSFlexGrid1.Row = 3 MSFlexGrid1.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.TextMatrix(3, 1) = Str$(Format$(a, "0.0000")) & "D" & "^" &
Str$(Format$(b, "0.0000")) MSFlexGrid2.ColWidth(0) = 600 MSFlexGrid2.ColWidth(2) = 600 MSFlexGrid2.TextMatrix(0, 0) = "径阶" MSFlexGrid2.TextMatrix(0, 1) = "材积"
窗体代码(续)
MSFlexGrid2.TextMatrix(0, 2) = "径阶" MSFlexGrid2.TextMatrix(0, 3) = "材积" For i = 1 To 24
MSFlexGrid2.TextMatrix(i, 0) = i + 3 MSFlexGrid2.TextMatrix(i, 1) = Format$(a * (i + 3) ^ b, "####0.0000") Next i For i = 1 To 24
End Sub
Private Sub Drive1_Change() Dir1.Path = Drive1.Drive '选定了驱动器
End Sub
Private Sub () clickname = '选定了文件 Text3.Text = clickname
End Sub
Βιβλιοθήκη Baidu
显示结果的窗体模块
窗体代码