各位老师请教下，vb采集温度器上的数据？

aaa一辈子4 2013-05-31 数据采集器浏览 427 次

用的是modbus协议：RS-485串口，“9600.n.81”，功能码03读参数，功能码10写参数值。我这有个模拟采集温度的程序，请帮忙看下怎么改才能跟温控表实际采集，我这没有添加MSComm通讯控件... 用的是modbus协议：
RS-485串口，
“9600.n.81”，
功能码 03 读参数，
功能码 10 写参数值。
我这有个模拟采集温度的程序，请帮忙看下怎么改才能跟温控表实际采集，我这没有添加MSComm通讯控件：
Public flag As Boolean '报警标志位
Public saveflag As Boolean '数据保存标志位

Private Sub cancelsave_Click()
saveflag = False '取消保存
End Sub
Private Sub cancelwarn_Click()
flag = False '取消报警，并隐藏相关显示控件。
Label3.Visible = False
Label4.Visible = False
cancelwarn.Enabled = False
End Sub
Private Sub Form_Load()
stopgetting.Enabled = False '初始状态，非采集状态下“停止采集”不可用
cancelwarn.Enabled = False '初始状态，非采集状态下“取消报警”不可用
Label2.Caption = ""
End Sub
Private Sub gettting_Click()
Timer1.Enabled = True '启动定时器1，定时读取数据。
Timer1.Interval = 1000 '采集时间间隔。
stopgetting.Enabled = True
End Sub
Private Sub help_Click()
Dim res
res = MsgBox("本系统在开始采集数据后才能进行数据保存，///掉。"，， "帮助")
End Sub
Private Sub savedata_Click()
saveflag = True '置位数据保存标志位，保存数据。
End Sub
Private Sub setwarnning_Click()
Form2.Show '显示设置窗口。
End Sub
Private Sub stopgetting_Click()
Timer1.Enabled = False '停止采集
End Sub
Private Sub Timer1_Timer()
Dim t As Double '温度
Dim a As Integer
Dim res
Dim str As String
str = App.Path + "\数据.txt" '文件保存路径，保存在程序相对路径内。
t = 50 + Rnd * 20 '这里生成50-70之间的随机数，模拟采集到的温度。
a = 100 * t
t = a / 100 '保留两位小数
Label2.Caption = t
Label3.Caption = Form2.a
If flag Then '判断是否超过设定温度
If t > Form2.a Then
res = MsgBox("超过设定温度!"， vbExclamation， "报警") '超过设定温度弹窗显示报警
flag = False '将报警标志位置0，停止报警。用户需再次启动报警功能。
End If
End If
If saveflag Then '保存数据
Open str For Append As #405 '在文件尾端写入数据
Print #405， t
Close #405
End If

End Sub

写评论

精彩问答

mm13981nk47 发布日期：2013-06-01

我做过VB与温控器的通迅，给你的程序看看，用Mscomm控件，你的程序为什么不用，不用又怎么可以接收数据?
Public Sub ReadTempr(Addr As Byte) '读取温度值
Dim SendDat(7) As Byte
Dim Crc_Dat As Long
SendDat(0) = Addr '温控器地址，在温控器上可以设置
SendDat(1) = 3 '功能码3表示读寄存器
SendDat(2) = 71 '7100温度寄存器地址
SendDat(3) = 0
SendDat(4) = 0 '0002读两个寄存器
SendDat(5) = 2
Crc_Dat = Crc_Check(SendDat， 6) Mod 65536
SendDat(6) = Crc_Dat Mod 256 'CRC校验码
SendDat(7) = Crc_Dat \ 256
Form7.MSComm.Output = SendDat
Form7.MSComm.InBufferCount = 0
End Sub
Public Function Crc_Check(Dat() As Byte， LenDat As Integer) As Long
Dim Crc As Long
Dim count As Integer
Dim Num As Integer
Crc = &HFFFF&
For Num = 0 To LenDat - 1
Crc = Crc Xor Dat(Num)
For count = 0 To 7
If (Crc Mod 2) > 0 Then
Crc = Crc \ 2
Crc = Crc Xor &HA001&
Else
Crc = Crc \ 2
End If
Next count
Next Num
Crc_Check = Crc
End Function
Private Sub MSComm_OnComm() '串口接收事件
Dim Num As Integer
Dim Rdata(9) As Byte
Dim Crc As Long
Dim Crc_H As Byte， Crc_L As Byte
Dim strReceive As String

ReReceive:
Num = 0
If MSComm.CommEvent = comEvReceive Or MSComm.InBufferCount > 0 Then

MSComm.RThreshold = 0 '关闭串口接收中断
Timer1.Enabled = False
Timer1.Interval = 10 '规定在10ms内接收完所有数据
Timer1.Enabled = True

Do While Timer1.Enabled = True

If MSComm.InBufferCount > 0 Then
Rdata(Num) = AscB(MSComm.Input)
Num = Num + 1
If Num = 9 Then Exit Do
End If
DoEvents
Loop
If Num = 9 Then '接收到温度数据
If Rdata(0) = 201 Or Rdata(0) = 202 Then
Crc = Crc_Check(Rdata， 7) Mod 65536
Crc_H = Crc \ 256
Crc_L = Crc Mod 256
If Crc_L = Rdata(7) And Crc_H = Rdata(8) Then '接收成功

Form3.XTemPV(Rdata(0) - 201).Text = Format(((Rdata(3) * 256 + Rdata(4)) / 10)， "##0.0")
Form3.XTemPV(Rdata(0) - 201).ToolTipText = "Z近更新时间：" & Now
Form3.XTemSV(Rdata(0) - 201).Text = Format(((Rdata(5) * 256 + Rdata(6)) / 10)， "##0.0")
Form3.XTemSV(Rdata(0) - 201).ToolTipText = "Z近更新时间：" & Now
End If
End If
End If

End If

If MSComm.InBufferCount > 0 Then GoTo ReReceive '如果此时接收缓冲区中仍有数据，就返回去再次开始接收

MSComm.RThreshold = 1
End Sub
Private Sub Timer1_Timer() '通迅超时检测
Timer1.Enabled = False
End Sub

13 0 回复 0条评论

全部评论

Nqfxcr 发布日期：2013-06-01

不明白你这是什么意思!你只是保存了数据了，你想要做什么?

6 0 回复 0条评论

您可能感兴趣的主题

热点应用丨耦合热冷台附件实现上转换发光材料温度传感的研究

前言许多发光材料的发光特性随温度、压力或化学物质的存在而变化。这种特性在发光传感器的开发中得到了长期的应用。
松下冰箱不制冷，说要换化霜控制器和温度器 2017-08-22

松下冰箱不制冷，检测员说要换化霜控制器和温度器，费用加起来600元，价格如何?... 松下冰箱不制冷，
新品推荐：德国INTERHERENCE公司超精准可调节温度控

众所周知，在细胞生物学与分子生物学研究中，绝大多数的生物化学反应与温度密切相关，如D
测定玻璃化转变温度的常用方法-低场核磁共振法

测定玻璃化转变温度的常用方法-低场核磁共振法什么是玻璃化转变温度？玻璃化转变温度是指由高弹态转变为玻璃态或玻
乳液相转变温度检测-低场核磁法

乳液相转变温度检测-低场核磁法乳液相转变温度(玻璃化转变温度)是乳液产品的典型参数。玻璃化转变温度对于乳液产
MW级风力发电叶片水温机温度控制系统

在MW级大型风电叶片制造过程中，叶片模具温度对产品质量有着至关重要的影响，如果温度控制出现异常，极易导致风电
ATM机的温度器控制器一般是由什么和什么? 2018-05-14

ATM机的温度器控制器一般是由温度传感器和加热模块、散热风扇组成
s7-200plc和modbus通讯请教 2018-06-20

s7-200plc和modbus通讯请教请问是师傅们我的程序错在什么地方，我想用plcmodbus控制变频
臭氧的产生与温度有多大的关系？ 2017-09-27 23:25:13

臭氧发生器从开始工作后，温度在不断的上升，在多少度的时候Z适合臭氧的产生，我听说臭氧的产生在温度升到一定的
有没有带温度曲线输出的测温仪 2013-08-30

大家好： Z近我遇到了一点麻烦。现在我要测试注塑出胶后在某点的瞬间温度，并要保存温度曲线。现