Dim jssj As String
Dim sj As String = args(0)
vars("sj" & vars("jsln")) = vars("sj" & vars("jsln")) & "-" & sj
vars("sj" & vars("jsln")) = vars("sj" & vars("jsln")).Trim("-")
jssj = vars("sj" & vars("jsln"))
If vars("kln") = 1 Then
If jssj > "" Then
If jssj.Contains("-") Then
Dim V() As String = jssj.split("-")
If V.Length = 9 Then
Dim dll As String = Functions.Execute("GET","地址","拉力","值")
Dim dnj As String = Functions.Execute("GET","地址","扭矩","值")
Dim dzs As String = Functions.Execute("GET","地址","转速","值")
If jssj.StartsWith(dnj & "-3-4-") Then
Dim s,str As String
Dim v1 As Integer
s = DecToBin(V(3)).PadLeft(8,"0") & DecToBin(V(4)).PadLeft(8,"0") & DecToBin(V(5)).PadLeft(8,"0") & DecToBin(V(6)).PadLeft(8,"0")
Dim bmlx As String = Functions.Execute("GET","编码类型","扭矩","值")
v1 = Functions.Execute("SN",s,bmlx)
Dim bl As Double = Functions.Execute("GET","分辨率","扭矩","值")
Dim vv As Double = v1 * bl
If math.Abs(vv) < Functions.Execute("GET","极限值","扭矩","值") Then
If forms("主窗口").opened Then
Forms("主窗口").Controls("nj").text = vv
End If
End If
ElseIf jssj.StartsWith(dll & "-3-4-") Then
Dim s,str As String
Dim v1 As Integer
s = DecToBin(V(3)).PadLeft(8,"0") & DecToBin(V(4)).PadLeft(8,"0") & DecToBin(V(5)).PadLeft(8,"0") & DecToBin(V(6)).PadLeft(8,"0")
Dim bmlx As String = Functions.Execute("GET","编码类型","拉力","值")
v1 = Functions.Execute("SN",s,bmlx)
Dim bl As Double = Functions.Execute("GET","分辨率","拉力","值")
Dim vv As Double = v1 * bl
If math.Abs(vv) < Functions.Execute("GET","极限值","拉力","值") Then
If forms("主窗口").opened Then
Forms("主窗口").Controls("ll").text = vv
End If
End If
ElseIf jssj.StartsWith(dzs & "-3-4-") Then
Dim s,str As String
Dim v1 As Integer
s = DecToBin(V(3)).PadLeft(8,"0") & DecToBin(V(4)).PadLeft(8,"0")
v1 = BinToDec(s)
Dim bl As Double = Functions.Execute("GET","分辨率","转速","值")
Dim vv As Double = v1 * bl
If math.Abs(vv) < Functions.Execute("GET","极限值","转速","值") Then
If forms("主窗口").opened Then
Forms("主窗口").Controls("zs").text = vv
End If
End If
End If
End If
End If
End If
End If