计算机在材料科学与工程中的应用实验设计与指导 教学课件 作者 叶卫平波长筛选和吸收率计算程序.docVIP

波长筛选和吸收率计算程序 下为波长选取与吸收率计算的VB主程序。 波长筛选程序： Private Sub Command6_click() List1.Clear Text1= Text2= Text3= Dim I As Integer,TempLine As String CommonDialog1.Filter=TXT格式|*.txt|XLS格式|*.xls|所有格式|*.* CommonDialog1.ShowOpen Open CommonDialog1.FileName For Input As #1 I=-2 Do While Not EOF(1) I=I+1 If I=-1 Then Line Input #1, TempLine Else Input #1, WaveLength(I), RValue(I) End If Loop Close #1 For I=305-300+1 To 350-300+1 Step 5 List1.AddItem CStr(WaveLength(I)) vbTab CStr(RValue(I)) Next I For I=360-300+1 To 550-300+1 Step 10 List1.AddItem CStr(WaveLength(I)) vbTab CStr(RValue(I)) Next I For I=570-300+1 To 710-300+1 Step 20 List1.AddItem CStr(WaveLength(I)) vbTab CStr(RValue(I)) Next I For I=718-300+1 To 718-300+1 List1.AddItem CStr(WaveLength(I)) vbTab CStr(RValue(I)) Next I ……………………………………………… For I = 2198 - 300 + 1 To 2270 - 300 + 1 Step 72 List1.AddItem CStr(WaveLength(I)) vbTab CStr(RValue(I)) Next I For I = 2360 - 300 + 1 To 2450 - 300 + 1 Step 90 List1.AddItem CStr(WaveLength(I)) vbTab CStr(RValue(I)) Next I For I = 2494 - 300 + 1 To 2494 - 300 + 1 List1.AddItem CStr(WaveLength(I)) vbTab CStr(RValue(I)) Next I End Sub 程序中I的取值及步长根据GB/T17683.1-1999确定；该段程序可从2000多个数据中快速找出符合国家标准的105个数据，不仅可以用于UV3600测出的数据，还可以用于其它厂商仪器，如Lamda750等测出的仪器，为吸收率的计算提供了极大方便。 吸收率计算程序： Private Sub Command1_Click() Dim A, j j = Split(List1.List(1), vbTab) A = 0.017 * (1 - j(1) / 100) j = Split(List1.List(2), vbTab) A = A + 0.078 * (1 - j(1) / 100) j = Split(List1.List(3), vbTab) A = A + 0.2055 * (1 - j(1) / 100) j = Split(List1.List(4), vbTab) A = A + 0.356 * (1 - j(1) / 100) ……………………………… j = Split(List1.List(104), vbTab) A = A + 0.8712 * (1 - j(1) / 100) Text1.Text = Format(A / 768.332, ####0.000) End Sub 以上各式中的常系数通过GB/T17683.1-1999表一中数据计算得到。本实验数据计算所得的吸收率值为0.908。 按您的要求加了一点东西，您看还要改写什么地方。 LG-04-1是写实验过程中用的数据文件，吸收率、发射率分别为0.908/0.225，最后部分也有提及 LG-03-1也是溶胶-凝胶制备，数据为0.911/0.254 G44是多弧离子镀的数据，为0.89/0.3