求助：ifix标签拆点 点击：5262 | 回复：33
发表于：2007-10-15 14:05:00
3楼
第一种方法：
1、定义标签QQ，类型选用AR（模拟量寄存器类型）
2、在画面中随意做一个开关量对象，比如Data Link
3、给对象赋数据源时选择该标签，但格式为
FIX32.nodename.QQ.F_0
F_0表示模拟量QQ的第一位，相对应F_15指第16位
4、切换到运行状态即可显示变化的位了
注意：
1、该方法必须使用AR类型。
2、无法形成历史数据和报警数据。
3、速度极快！省IO点。但不要滥用,会减少很多功能！
4、取位的话,定义成DR类型。
第二种方法： 比如153转换成二进制是10011001 如果你bitvalue(153,1) 153的第一位就是1 第二位就是0，除了0就是1
Public Function BitValue(MyNumber As Long, BitNumber As Long) As Integer
Dim intValue1 As Long
Dim intValue2 As Long
Dim intValue3 As Integer
Dim intValue4 As Long
Dim intValue5 As Long
If (MyNumber > 65535 Or MyNumber < 0) Then
MsgBox "FUNCTION BITVALUE ERROR, OUT OF RANGE1.", vbCritical + vbOKOnly, "ERROR"
Exit Function
End If
If (BitNumber > 16 Or BitNumber <= 0) Then
MsgBox "FUNCTION BITVALUE ERROR, OUT OF RANGE2.", vbCritical + vbOKOnly, "ERROR"
Exit Function
End If
If BitNumber = 1 Then
intValue1 = MyNumber Mod 2
If intValue1 > 0.5 Then
intValue3 = 1
Else
intValue3 = 0
End If
Else
intValue1 = 2 ^ BitNumber
intValue2 = MyNumber Mod intValue1
intValue4 = 2 ^ (BitNumber - 1)
intValue5 = MyNumber Mod intValue4
intValue1 = intValue2 - intValue5
If intValue1 > 0.5 Then
intValue3 = 1
Else
intValue3 = 0
End If
End If
BitValue = intValue3
End Function
或
Public Function bit(DecimalValue As Long, bitN As Integer) As Boolean
Dim result As String
Dim ExtraDigitsNeeded As Integer
DecimalValue = Abs(DecimalValue)
Do
result = CStr(DecimalValue Mod 2) & result
DecimalValue = DecimalValue \ 2
Loop While DecimalValue > 0
'保留16位长度
ExtraDigitsNeeded = 16 - Len(result)
If ExtraDigitsNeeded > 0 Then
result = String(ExtraDigitsNeeded, "0") & result
End If
'取第几bit
result = Mid(result, Abs(bitN - 16), 1)
'返回数据
bit = result
End Function
1、定义标签QQ，类型选用AR（模拟量寄存器类型）
2、在画面中随意做一个开关量对象，比如Data Link
3、给对象赋数据源时选择该标签，但格式为
FIX32.nodename.QQ.F_0
F_0表示模拟量QQ的第一位，相对应F_15指第16位
4、切换到运行状态即可显示变化的位了
注意：
1、该方法必须使用AR类型。
2、无法形成历史数据和报警数据。
3、速度极快！省IO点。但不要滥用,会减少很多功能！
4、取位的话,定义成DR类型。
第二种方法： 比如153转换成二进制是10011001 如果你bitvalue(153,1) 153的第一位就是1 第二位就是0，除了0就是1
Public Function BitValue(MyNumber As Long, BitNumber As Long) As Integer
Dim intValue1 As Long
Dim intValue2 As Long
Dim intValue3 As Integer
Dim intValue4 As Long
Dim intValue5 As Long
If (MyNumber > 65535 Or MyNumber < 0) Then
MsgBox "FUNCTION BITVALUE ERROR, OUT OF RANGE1.", vbCritical + vbOKOnly, "ERROR"
Exit Function
End If
If (BitNumber > 16 Or BitNumber <= 0) Then
MsgBox "FUNCTION BITVALUE ERROR, OUT OF RANGE2.", vbCritical + vbOKOnly, "ERROR"
Exit Function
End If
If BitNumber = 1 Then
intValue1 = MyNumber Mod 2
If intValue1 > 0.5 Then
intValue3 = 1
Else
intValue3 = 0
End If
Else
intValue1 = 2 ^ BitNumber
intValue2 = MyNumber Mod intValue1
intValue4 = 2 ^ (BitNumber - 1)
intValue5 = MyNumber Mod intValue4
intValue1 = intValue2 - intValue5
If intValue1 > 0.5 Then
intValue3 = 1
Else
intValue3 = 0
End If
End If
BitValue = intValue3
End Function
或
Public Function bit(DecimalValue As Long, bitN As Integer) As Boolean
Dim result As String
Dim ExtraDigitsNeeded As Integer
DecimalValue = Abs(DecimalValue)
Do
result = CStr(DecimalValue Mod 2) & result
DecimalValue = DecimalValue \ 2
Loop While DecimalValue > 0
'保留16位长度
ExtraDigitsNeeded = 16 - Len(result)
If ExtraDigitsNeeded > 0 Then
result = String(ExtraDigitsNeeded, "0") & result
End If
'取第几bit
result = Mid(result, Abs(bitN - 16), 1)
'返回数据
bit = result
End Function
发表于：2007-11-14 11:42:00
14楼
昆仑摩勒说得对，你只能够在动态画面节省IO点，不能建立报警点或者历史采集点。
不能节省IO点就不能节省成本。最理想的是把16个DI/DO变成1个Register，这样做，就可以把大量的DI/DO点节省，举例说，你有3200点DI/DO，500点AI/AO，起码你要买3700点的授权，如果能够用我刚才说的办法，你只需要买700点的授权。
如果你真的要节省成本，你有机会可以看看美国Iconics公司的“创世纪32”GENESIS32，就支持这个功能，有一点很好的是你不需要写那些脚本，写脚本根本是一个麻烦的事情，写完还有测试，不一定成功，“创世纪32”里面有一个功能叫BitTest(x,y)，x是你的变量，y是你要读的Bit的位置，十分方便，是标准的功能，没有问题，不需要测试，还有你可以把DI/DO点“写”到Concept里面，我再说一片：你可以把DI/DO点“写”到Concept里面，这个功能同样可以定义在报警点和历史采集点。是满足我刚才提出的全面节省点的要求。
热门招聘
相关主题
- 操作系统-技法分享给工控朋友...
[2285] - 西门子S7-200的断电数据存储...[2921]
- 组态王总是显示“调色板组件错...[3869]
- 用组态王收发短信的最好方法[2452]
- 组态王能生成可执行文件吗？[6853]
- intouch与System Management...[2987]
- Oracle协议适配器错误是什么...[2198]
- 昨晚电脑挂了，去买电脑，发现...[3909]
- SolidWorks 2015 MBD—利用三...[2418]
- 博图怎么使用电脑代替触触摸...[4045]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
