- 0
- 임꺽
- 조회 수 1973
'****************************************************************************************************
'CIMON의 비트를 워드로 바꿔 PLC에 쓴다.
'Notice : 최소 200미리이상에서 정상동작
'****************************************************************************************************
Sub do_Bit2Word()
'Delay time
UDelay = 200
While 1
'1-1.Calculated word value initialize
Output_WordValue = 0
'1-2.Boolean Number making
For i = 0 To 15
'tag name decare ← User Setting(√)
UTAG$ = "WORD2BIT.CIMON.DIGITAL_OUT.B" + Format(I,"0#")
'CiMON Bit value reading
CiMON_BitStatus = GetTagVal (UTAG$)
'Accumulate CiMON bit value to Word value
If CiMON_BitStatus = 1 Then Output_WordValue = Output_WordValue + (2 ^ i)
Next
'1-3.Writing to PLC as word value
'PLC D tag decare ← User Setting(√)
Dtag = "WORD2BIT.PLC.ANALOG.출력01"
SetTagVal Dtag,Output_WordValue
'Delay
Sleep (UDelay)
WEnd
End Sub
공유
댓글 0
권한이 없습니다.
