電化學實驗數據處理中可逆性判定的程序設計

張鳳 岳群峰 林惠明 張旭

摘 ? 要：針對無機功能材料化學實驗數據處理中的可逆性判定問題，以Visual Basic.net作為開發工具，利用VB語言編寫的電極反應可逆性判定的程序;利用程序設計的窗體，僅導入實驗數據，經過程序的后臺運行就可輸出實驗結果和圖表。

關鍵詞：電化學 ?可逆性判定 ?Visual Basic

中圖分類號：O642 ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?文獻標識碼：A ? ? ? ? ? ? ? ? ? ? ? 文章編號：1674-098X（2019）02（b）-0077-02

電化學循環伏安測試中，可逆性判定涉及多組數據處理，需花費大量的時間[1]。微軟的VB能夠以Windows平臺為目標，快速創建簡單的應用程序[2]。利用已成熟的VB軟件開發前臺應用程序，將復雜數據的處理交給EXCEL，最后將處理結果以WORD文本形式輸出，使用者可以利用WORD自帶的編輯功能對輸出的結果進行編輯打印[3]。

1 ?電化學可逆性判據

電化學的可逆性是指在工作電極和溶液中的氧化還原種之間發生電子轉移的速率。判斷電極反應的可逆性程度的判據：（1）Ipa/Ipc≈1;（2）Epa-Epc=55～65mV（25℃條件下），其中，Ipa和Ipc為氧化和還原的峰電流，Epa和Epc為氧化和還原的峰電位。

2 ?VB程序設計編程步驟

2.1 數據輸入

選用TXT文本作為數據源，利用TabControl控件輸入多組數據的，以節省軟件界面空間。使用OpenFileDialog控件實現對數據文件的選擇，并將文件路徑顯示到TextBox中：

DKWJ = New OpenFileDialog（）

DKWJ.InitialDirectory = "C：＼Users＼Administrator＼Desktop"

DKWJ.Filter = "文本文件|*.txt|所有文件|*.*" '//設置文件類型

DKWJ.FilterIndex = 1

DKWJ.Title = "選擇數據源文件" '//設置標題

DKWJ.FileName = ""

DKWJ.AutoUpgradeEnabled = True '//隨系統升級而升級外觀

DKWJ.RestoreDirectory = True '還原當前目錄

If （DKWJ.ShowDialog（） = DialogResult.OK） Then '//如果點的是確定就得到文件路徑

DKWJ.FileName = DKWJ.FileName '//得到文件路徑

Dim sr As New System.IO.StreamReader（DKWJ.FileName， System.Text.Encoding.GetEncoding（"gb2312"））

Dim lujing As String

lujing = System.IO.Path.GetDirectoryName（DKWJ.FileName） + "＼" + System.IO.Path.GetFileName（DKWJ.FileName）

TextBox1.Text = lujing

2.2 數據分析

（1）創建excel的代碼。

Dim xlApp As Microsoft.Office.Interop.Excel.Application

Dim xlBook As Microsoft.Office.Interop.Excel.Workbook

Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet

xlApp = CreateObject（"Excel.Application"） '創建一個excel副本

xlBook = xlApp.Workbooks.Add '打開已存在的EXCEL工件簿文件

xlSheet = xlBook.Worksheets（"Sheet1"） '設置活動工作表

xlSheet.Activate（）

（2）EXCEL創建完畢后，導入實驗數據。

Do While Not sr.EndOfStream

Dim a， b As Integer

Dim c As Integer = 1

a = arrlTemp.Count

For b = 0 To a

TextBox2.Text = b

Dim parts As String（） = arrlTemp（b）.Split（New Char（） {" "c}） '分割單句文本

Dim part As String

xlSheet.Cells（b + 1， 1） = c ?'將分割的值賦值給指定單元格

Dim d As Long = 1

For Each part In parts