|
|
基于VB及台达触摸屏的监控系统在纺机中的应用 |
|
|
Txt_type.Text = rs.Fields("machine_type").Value '获取车的类型（是精梳机还是条并联）
rs.Close
str_type = Mac_Num '
Set CONN = Nothing
DBStr = ""
'发送数据（根据所选车号发送数据）
If MSComm1.PortOpen = True And stakeout_flag And Combo_MacNum.ListIndex >= 0 Then
str_output = str_type + "030064001D"
MSComm1.Output = ":" + str_output + LRC(str_output) + Chr$(13) + Chr$(10)
'接收数据
inputstring = MSComm1.Input
'将接收到的数据分别赋值并显示
Txt_100.Text = change(inputstring, 8, 12) '甲班当日产量
Txt_102.Text = change(inputstring, 16, 20) '甲班累计产量
Txt_104.Text = change(inputstring, 24, 28) '乙班当日产量
Txt_106.Text = change(inputstring, 32, 36) '乙班累计产量
Txt_108.Text = change(inputstring, 40, 44) '丙班当日产量
Txt_110.Text = change(inputstring, 48, 52) '丙班累计产量
Txt_112.Text = change(inputstring, 56, 60) '丁班当日产量
Txt_114.Text = change(inputstring, 64, 68) '丁班累计产量
Txt_116.Text = change(inputstring, 72, 76) '各班当日合计产量
Txt_118.Text = change(inputstring, 80, 84) '各班累计合计产量
If Txt_type.Text = "条并联" Then
Txt_view1.Text = change(inputstring, 104, 108) '条并联绕卷速度
Txt_view2.Text = change(inputstring, 112, 116) '条并联当前长度
Else
Txt_view1.Text = change(inputstring, 88, 92) '精梳机钳次
Txt_view2.Text = change(inputstring, 96, 100) '精梳机条速
End If
str_state = Mid(inputstring, 120, 4) '接收运行状态的返回值，并判断运行状态
If str_state = "0001" Then
Cmd_128.Caption = "运行中"
End If
If str_state = "0000" Then
Cmd_128.Caption = "停止"
End If
End If
End Sub
change(inputstr, start1 As Integer, start2 As Integer)用于转换采集到的数据，其功能是将采集到的产量数据转换为十进制。其代码如下： |
|
|
|
| |
|
|
|
|
