[求助]钢铁工业中用于测量温度数据采集器中标定程序

Private Sub a2ks_Click()
A2qd = Val(Text4.Text)'输入起点实际值
A2qddy = Val(Label4(1).Caption)'起点物理值
End Sub

Private Sub a2js_Click()
X1 = Val(Text5.Text) - A2qd'终点实际值
X2 = Val(Label4(1).Caption) - A2qddy'输入终点值时的物理值
k(1) = Format(X1 / X2, "0.0000")
b(1) = Format(A2qd - A2qddy * k(1), "0.0000")
SaveSetting "sjcj", "zhuji", "2#b", Str(b(1))'我的程序是写注册表保存标定值
SaveSetting "sjcj", "zhuji", "2#k", Str(k(1))
End Sub

然后取当前物理值乘以K再加B得出实际温度
如果你的模块不支持电流输入,可能你需要在你的模块上并连一个电阻得到电压值
具体可以和我联系QQ101934221

www.samsuncn.com