• 목록
  • 아래로
  • 위로
  • 0
  • 임꺽
  • 조회 수 2077

'****************************************************************************************************
'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
 

공유

facebooktwitterpinterestbandkakao story
퍼머링크

댓글 0

권한이 없습니다.