电化学实验数据处理中可逆性判定的程序设计

来源:用户上传      作者:

　　摘   要：针对无机功能材料化学实验数据处理中的可逆性判定问题，以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 　　xlSheet.Cells（b + 1， d + 1） = part '将分割的值赋值给指定单元格
　　' xlSheet.Cells（b + 1， 1） = arrlTemp（b）‘将读取的行赋值给指定单元格
　　d = d + 1
　　Next
　　c = c + 1
　　（3）提取数据中的峰值到文本框并绘制图表。
　　' Dim f As String
　　' f = xlSheet.Cells（4， d + 1）.Value
　　' TextBox92.Text = f
　　數据导入时，将EXCEL中的数值逐个赋值到CHART控件中，对比此点与前后数据的大小，保留大的数据放入到对应的Epa、Epc及Ipa、Ipc文本框中。数据导入后进行Ipa/Ipc及Epa-Ep的计算和图表绘制，并以此判断电化学反应过程的可逆性。当Ipa/Ipc的值处于0.9～1.1之间并且Epa-Epc的值处于0.55～0.65之间时此循环为可逆循环，否则就是非可逆循环，此判断过程的代码如下：
　　If Val（TextBox8.Text） <= 1.1 And Val（TextBox8.Text） > 0.9 And Val（TextBox7.Text） <= 0.65 And Val（TextBox7.Text） > 0.55 Then
　　TextBox9.Text = "可逆"
　　MsgBox（"此循环为可逆循环！"）
　　Else
　　TextBox9.Text = "非可逆"
　　MsgBox（"此循环为非可逆循环！"）
　　End If
　　3  结语
　　该软件具有使用简捷、绿色免安装等特点，在实际应用中运行稳定，能迅速、准确处理试验数据，可有效提高化学电分析处理效率和准确性。
　　参考文献
　　[1] 刘万民，肖鑫，黄先威，等.浅议《电化学原理》课程知识的对比教学[J].科技展望，2015（25）：197.
　　[2] 王春霞.新工科背景下Visual Basic程序设计教学改革与探索[J].大学教育，2019（1）：93-95.
　　[3] 严新巧.电化学工作站伏安测试技术研究与实现[D].电子科技大学，2014.
转载注明来源:https://www.xzbu.com/1/view-14797688.htm