實(shí)現(xiàn)森林計(jì)測程序設(shè)計(jì)ppt課件教學(xué)教程

1、Visual Basic 6.0實(shí)現(xiàn)森林計(jì)測程序設(shè)計(jì) VB的特點(diǎn)可視化的設(shè)計(jì)平臺(tái)面向?qū)ο蟮脑O(shè)計(jì)方法事件驅(qū)動(dòng)的編程機(jī)制結(jié)構(gòu)化的設(shè)計(jì)語言充分利用WINDOWS資源開放的數(shù)據(jù)庫與網(wǎng)絡(luò)支持 VB的特點(diǎn)傳統(tǒng)的編程方法使用的是面向過程、按順序進(jìn)行的機(jī)制，其缺點(diǎn)是程序員始終要關(guān)心什么時(shí)候發(fā)生什么事情。 VB采用的是面向?qū)ο?、事件?qū)動(dòng)編程機(jī)制，程序員只需編寫響應(yīng)用戶動(dòng)作的程序，如移動(dòng)鼠標(biāo)、單擊事件，編寫代碼相對較少。采用控件不涉及到必要的細(xì)節(jié). VB可視化編程的基本概念 1 對象對象的屬性對象的事件事件的方法2 VB的控件內(nèi)部控件ActiveX可插入的對象VB可視化編程的步驟新建一個(gè)工程建立界面添加對象設(shè)置屬

2、性編寫代碼運(yùn)行工程修改工程保存工程工程的編譯應(yīng)用程序HIPO圖數(shù)據(jù)文件的組織用于計(jì)算的應(yīng)用軟件的目的是進(jìn)行數(shù)據(jù)處理，不論數(shù)據(jù)多少，數(shù)據(jù)文件必須與應(yīng)用程序分開，其目的是便于保存和修改數(shù)據(jù)，并且使程序更加具有通用性。文件的類型很多，用做數(shù)據(jù)處理的數(shù)據(jù)文件，起組織形式取決于與計(jì)算方法編程所采用的源語言對數(shù)據(jù)文件組織形式的要求。數(shù)據(jù)文件的組織形式Visual Basic中文企業(yè)版有多種的數(shù)據(jù)輸入方法，但為了使程序有一個(gè)通用的數(shù)據(jù)輸入格式，采用了數(shù)與數(shù)之間用“，”隔開組織文件。 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在數(shù)據(jù)文件編輯好后，要檢查帶小數(shù)點(diǎn)的數(shù)據(jù)中誤鍵入的“，”。數(shù)據(jù)文件和結(jié)果數(shù)據(jù)的顯示 數(shù)據(jù)文件和計(jì)算結(jié)果的顯示有很多種方法。MSFlexGrid是VB6.0中的一種用于表格數(shù)據(jù)顯示的ActiveX控件 。采用MSFlexGrid控件，用它來顯示數(shù)據(jù)文件很方便.數(shù)據(jù)文件和結(jié)果數(shù)據(jù)的顯示 主窗體的界面主窗體代碼(main.frm)Private Sub c11_Click() appear.Show appear.Caption = 統(tǒng)計(jì)資料的特征數(shù)的計(jì)算End SubPrivate Sub c12_Click() appear.

4、Show appear.Caption = 距離系數(shù)End SubPrivate Sub c21_Click() appear2.Show appear2.Caption = 一元線性回歸計(jì)算End SubPrivate Sub c22_Click() appear2.Show appear2.Caption = 一元材積表計(jì)算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 顯示輸入文件的內(nèi)容End SubPrivate Sub Dir1_Change() File1.Path = Dir1.Path 選定文件夾 dir2 = Dir1.PathEnd SubPrivate Sub Drive1_Change() Dir1.Path = Drive1.Drive 選定了驅(qū)動(dòng)器End SubPrivate Sub File1_Click() clickname = Fil

6、e1.FileName 選定了文件 Text3.Text = clicknameEnd Sub顯示結(jié)果的窗體模塊 窗體代碼 Private Sub main_Click()MSFlexGrid1.Row = 3MSFlexGrid1.Text = 材積計(jì)算方程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) = 材積窗體代碼(續(xù))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過程 過程可使程序分成離散的邏輯單元，每個(gè)邏輯單元容易調(diào)試。一個(gè)程序中的過程，往往不必修改或只需稍作改動(dòng)，便可以為另一個(gè)程序作用。在VB中，根據(jù)過程是否返回值，分為子程序過程（SUB過程）和函數(shù)過程（Function過程）兩種。過程中調(diào)用的計(jì)算程序模塊 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