有機(jī)質(zhì)含量試驗(yàn)數(shù)據(jù)處理程序

1、有機(jī)質(zhì)含量試驗(yàn)數(shù)據(jù)處理程序 摘要：有機(jī)質(zhì)含量對(duì)于劃分土的類別具有重要的意義，在結(jié)果的處理中，主要分“ 空白標(biāo)定消耗硫酸亞鐵標(biāo)準(zhǔn)液的量”和“ 滴定土樣消耗硫酸亞鐵標(biāo)準(zhǔn)液的量”兩部分計(jì)算。本文依據(jù)“土工規(guī)范”的計(jì)算方法，著重介紹利用“vb6.0”編寫有機(jī)質(zhì)含量試驗(yàn)數(shù)據(jù)處理程序，力求尋找一種有效提高有機(jī)質(zhì)含量試驗(yàn)結(jié)果計(jì)算效率及準(zhǔn)確性的方法。 關(guān)鍵詞：有機(jī)質(zhì)含量；數(shù)據(jù)處理；程序 中圖分類號(hào)：s153.6+21文獻(xiàn)標(biāo)識(shí)碼：a 1 有機(jī)質(zhì)含量試驗(yàn)數(shù)據(jù)處理程序設(shè)計(jì)流程 圖1有機(jī)質(zhì)含量試驗(yàn)數(shù)據(jù)處理程序設(shè)計(jì)流程 2 有機(jī)質(zhì)含量試驗(yàn)數(shù)據(jù)處理程序設(shè)計(jì)步驟及代碼 2.1 有機(jī)質(zhì)含量試驗(yàn)數(shù)據(jù)處理程序整體布置 打開vb6

2、.0，新建一個(gè)“標(biāo)準(zhǔn)exe”，調(diào)整form1的大小。將form1屬性窗口的“captain”值改為“有機(jī)質(zhì)含量”，邊框左上角顯示“有機(jī)質(zhì)含量”。在form1中插入16個(gè)label，16個(gè)label的屬性窗口的“captain”值分別設(shè)定為“硫酸亞鐵標(biāo)準(zhǔn)液濃度”、“ mol/l”、“ 試驗(yàn)次數(shù)”、“ 1”、“ 2”、“ 土樣質(zhì)量（g)”、“ 滴定前讀數(shù)”、“ 滴定后讀數(shù)”、“ 滴定消耗”、“ 滴定前讀數(shù)”、“ 滴定后讀數(shù)”、“ 滴定消耗”、“ 有機(jī)質(zhì)(%)”、“ 平均有機(jī)質(zhì)(%)”、“ 空白標(biāo)定消耗硫酸亞鐵標(biāo)準(zhǔn)液的量（ml)”、“ 滴定土樣消耗硫酸亞鐵標(biāo)準(zhǔn)液的量（ml)”，16個(gè)label的位置

3、如圖2。 圖2有機(jī)質(zhì)含量試驗(yàn)數(shù)據(jù)處理程序大樣圖 在form1的右上部分插入兩個(gè)commandbutton，第一個(gè)commandbutton的窗口屬性的“captain”值設(shè)定為“計(jì)算”，第二個(gè)commandbutton的窗口屬性的“captain”值設(shè)定為“清空”，在窗口屬性的“font”中可以更改commandbutton字體的樣式及大小。兩個(gè)commandbutton的位置按照?qǐng)D2布置。 圖3有機(jī)質(zhì)含量試驗(yàn)數(shù)據(jù)處理程序textbox位置 在form1中插入18個(gè)文本框（textbox），位置如圖3布置。第一個(gè)文本框至第十七個(gè)文本框的作用是存放基礎(chǔ)數(shù)據(jù)，第十二個(gè)文本框至第十八個(gè)文本框的作用是

4、顯示計(jì)算結(jié)果。用戶在前十二個(gè)文本框中輸入數(shù)據(jù)，經(jīng)過計(jì)算后，程序?qū)⒔Y(jié)果顯示在后面六個(gè)文本框中。 2 有機(jī)質(zhì)含量試驗(yàn)數(shù)據(jù)處理程序代碼 執(zhí)行計(jì)算任務(wù)的代碼存在“計(jì)算”按鈕（即command1）中，編輯時(shí)雙擊“計(jì)算”按鈕并輸入以下代碼： private sub command1_click() 判斷數(shù)據(jù)是否完整 for a = 1 to 11 if me.controls(text & a) = then msgbox 有機(jī)質(zhì)含量試驗(yàn)基礎(chǔ)數(shù)據(jù)不完整！, , 提示 exit sub end if next 計(jì)算標(biāo)定及滴定的消耗量 text12 = text4 - text3 text13 = text6

5、 - text5 text15 = text9 - text8 text16 = text11 - text10 計(jì)算有機(jī)質(zhì)含量 text14 = format(100 * text1 * (text12 - text13) * 0.003 * 1.724 * 1.1 / text2, 0.00) text17 = format(100 * text1 * (text15 - text16) * 0.003 * 1.724 * 1.1 / text7, 0.00) text18 = format(text14 1 + text17 1) / 2, 0.00) end sub 第二個(gè)命令按鈕（即

6、“清空”按鈕）的作用是將所有文本框中的內(nèi)容清空，并將焦點(diǎn)跳轉(zhuǎn)至第一個(gè)單元格，方便用戶進(jìn)行下一個(gè)試驗(yàn)的數(shù)據(jù)處理，其代碼如下： private sub command2_click() for w = 1 to 18 me.controls(text & w).text = next text1.setfocus end sub 3 有機(jī)質(zhì)含量試驗(yàn)數(shù)據(jù)處理程序使用方法 打開擊實(shí)試驗(yàn)數(shù)據(jù)處理程序，依次在前十二個(gè)文本框中輸入對(duì)應(yīng)的基礎(chǔ)數(shù)據(jù)，點(diǎn)擊“計(jì)算”按鈕，程序會(huì)自動(dòng)計(jì)算“計(jì)算標(biāo)定及滴定的消耗量”、“ 有機(jī)質(zhì)含量”及“平均有機(jī)質(zhì)含量”。當(dāng)基礎(chǔ)數(shù)據(jù)不完整時(shí)，程序會(huì)暫停運(yùn)行，并彈出對(duì)話框提示用戶完整輸入數(shù)據(jù)。數(shù)據(jù)補(bǔ)充完整后，重新點(diǎn)擊“計(jì)算”按鈕，程序?qū)⑼瓿捎?jì)算。 4 結(jié)論 通過程序的應(yīng)用，計(jì)算效率有較大的提高，同時(shí)減小了出錯(cuò)的可能性，使得有機(jī)質(zhì)含量試驗(yàn)的數(shù)據(jù)處理工作更加輕松。 參考文獻(xiàn)