Sub Main()
Dim S00,s0,s1 As Integer
While 1
'8비트씩 2개 스텝번호 보내온것 읽기 (**|**) ------------------
S00=GetTagVal ("S00_01")
SetTagVal "스텝확인00", S00
'0번째 스텝번호 : 상위 8비트 제거하고 하위8비트만 읽기(--|**)
s1 = 255 And S00
SetTagVal "STEP00", s1
'1번째 스텝번호 : 상위 8비트만 읽기(**|--)
s2 = S00 / 255
SetTagVal "STEP01", s2
'8비트씩 2개 스텝번호 보내온것 읽기 (**|**) ------------------
S00=GetTagVal ("S02_03")
SetTagVal "스텝확인02", S00
'0번째 스텝번호 : 상위 8비트 제거하고 하위8비트만 읽기(--|**)
s1 = 255 And S00
SetTagVal "STEP02", s1
'1번째 스텝번호 : 상위 8비트만 읽기(**|--)
s2 = S00 / 255
SetTagVal "STEP03", s2
Sleep (50)
WEnd
End Sub