Private Sub tmrSendRecv_Tick(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles tmrSendRecv.Tick
Dim sendData(63) As Byte
Dim recvData(63) As Byte
sendData(0) = &H20 'コマンド :デジタル入出力
sendData(1) = &H1 '出力1:J1
sendData(2) = byteOutJ1 '値
sendData(3) = &H2 '出力2:J2
sendData(4) = byteOutJ2 '値
sendData(63) = &H0 'シーケンス
SendRecv(sendData, recvData) '送受信
byteInJ1 = recvData(1) 'J1入力値
byteInJ2 = recvData(2) 'J2入力値
'ここに改造ーコードを追加
If (byteInJ2 And Byte.Parse("00000001", 2)) = 0 Then 'J2-0が0の場合
byteOutJ1 = byteOutJ1 Xor Byte.Parse("00000001", 2) 'J1-0のビット反転
End If
chgIoColor()
End Sub
|