张凤 岳群峰 林惠明 张旭
摘 要：针对无机功能材料化学实验数据处理中的可逆性判定问题，以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
