入出力モジュール

サンプルソースをVectorからダウンロードして解凍する前に、

　　　　　　　
セキュリティのブロック解除にチェックを入れる

これをしておかないとVisual Basicで編集が思うようにできない。

改造プログラムのデザイン
　　　　　　　　　

コードは

Option Explicit On

Imports System.Runtime.InteropServices

Public Class Form1
Public Const DIGCF_PRESENT = &H2
Public Const DIGCF_DEVICEINTERFACE = &H10

Public Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000
Public Const GENERIC_READ = &H80000000
Public Const GENERIC_WRITE = &H40000000
Public Const FILE_SHARE_READ = &H1
Public Const FILE_SHARE_WRITE = &H2
Public Const OPEN_EXISTING = 3
Public Const INVALID_HANDLE_VALUE = -1

Public Const MyVendorID = &H1352 \'Km2Net
Public Const MyProductID = &H120 \'USB-IO2.0
Public Const MyProductID2 = &H121 \'USB-IO2.0(AKI)

_
Public Structure GUID
Dim Data1 As Integer
Dim Data2 As Short
Dim Data3 As Short
Dim Data4() As Byte
End Structure

_
Public Structure HIDD_ATTRIBUTES
Dim Size As Integer
Dim VendorID As Short
Dim ProductID As Short
Dim VersionNumber As Short
End Structure

_
Public Structure HIDP_CAPS
Dim Usage As Short
Dim UsagePage As Short
Dim InputReportByteLength As Short
Dim OutputReportByteLength As Short
Dim FeatureReportByteLength As Short
Dim Reserved() As Short
Dim NumberLinkCollectionNodes As Short
Dim NumberInputButtonCaps As Short
Dim NumberInputValueCaps As Short
Dim NumberInputDataIndices As Short
Dim NumberOutputButtonCaps As Short
Dim NumberOutputValueCaps As Short
Dim NumberOutputDataIndices As Short
Dim NumberFeatureButtonCaps As Short
Dim NumberFeatureValueCaps As Short
Dim NumberFeatureDataIndices As Short
End Structure

_
Public Structure SECURITY_ATTRIBUTES
Dim nLength As Integer
Dim lpSecurityDescriptor As Integer
Dim bInheritHandle As Integer
End Structure

_
Public Structure SP_DEVICE_INTERFACE_DATA
Dim cbSize As Integer
Dim InterfaceClassGuid As GUID
Dim Flags As Integer
Dim Reserved As Integer
End Structure

_
Public Structure SP_DEVINFO_DATA
Dim cbSize As Integer
Dim ClassGuid As GUID
Dim DevInst As Integer
Dim Reserved As Integer
End Structure

_
Public Structure SP_DEVICE_INTERFACE_DETAIL_DATA
Dim cbSize As Integer
Dim DevicePath As Byte
End Structure

Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer

Public Declare Function CreateFile _
Lib "kernel32" _
Alias "CreateFileA" _
(ByVal lpFileName As String, _
ByVal dwDesiredAccess As Integer, _
ByVal dwShareMode As Integer, _
ByRef lpSecurityAttributes As SECURITY_ATTRIBUTES, _
ByVal dwCreationDisposition As Integer, _
ByVal dwFlagsAndAttributes As Integer, _
ByVal hTemplateFile As Integer) _
As Integer

Public Declare Function FormatMessage _
Lib "kernel32" _
Alias "FormatMessageA" _
(ByVal dwFlags As Integer, _
ByRef lpSource As Integer, _
ByVal dwMessageId As Integer, _
ByVal dwLanguageZId As Integer, _
ByVal lpBuffer As String, _
ByVal nSize As Integer, _
ByVal Arguments As Integer) _
As Integer

Public Declare Function HidD_FreePreparsedData _
Lib "hid.dll" _
(ByRef PreparsedData As Integer) _
As Integer

Public Declare Function HidD_GetAttributes _
Lib "hid.dll" _
(ByVal HidDeviceObject As Integer, _
ByRef Attributes As HIDD_ATTRIBUTES) _
As Integer

Public Declare Function HidD_GetHidGuid _
Lib "hid.dll" _
(ByRef HidGuid As GUID) _
As Integer

Public Declare Function HidD_GetPreparsedData _
Lib "hid.dll" _
(ByVal HidDeviceObject As Integer, _
ByRef PreparsedData As Integer) _
As Integer

Public Declare Function HidP_GetCaps _
Lib "hid.dll" _
(ByVal PreparsedData As Integer, _
ByRef Capabilities As HIDP_CAPS) _
As Integer

Public Declare Function HidP_GetValueCaps _
Lib "hid.dll" _
(ByVal ReportType As Short, _
ByRef ValueCaps As Byte, _
ByRef ValueCapsLength As Short, _
ByVal PreparsedData As Integer) _
As Integer

Public Declare Function lstrcpy _
Lib "kernel32" _
Alias "lstrcpyA" _
(ByVal dest As String, _
ByVal source As Integer) _
As String

Public Declare Function lstrlen _
Lib "kernel32" _
Alias "lstrlenA" _
(ByVal source As Integer) _
As Integer

Public Declare Function ReadFile _
Lib "kernel32" _
(ByVal hFile As Integer, _
ByRef lpBuffer As Byte, _
ByVal nNumberOfBytesToRead As Integer, _
ByRef lpNumberOfBytesRead As Integer, _
ByVal lpOverlapped As Integer) _
As Integer

Public Declare Sub RtlMoveMemory Lib "kernel32" (ByRef Destination As Byte, ByVal Source As IntPtr, ByVal Length As Short)

Public Declare Function SetupDiCreateDeviceInfoList _
Lib "setupapi.dll" _
(ByRef ClassGuid As GUID, _
ByVal hwndParent As Integer) _
As Integer

Public Declare Function SetupDiDestroyDeviceInfoList _
Lib "setupapi.dll" _
(ByVal DeviceInfoSet As Integer) _
As Integer

Public Declare Function SetupDiEnumDeviceInterfaces _
Lib "setupapi.dll" _
(ByVal DeviceInfoSet As Integer, _
ByVal DeviceInfoData As Integer, _
ByRef InterfaceClassGuid As GUID, _
ByVal MemberIndex As Integer, _
ByRef DeviceInterfaceData As SP_DEVICE_INTERFACE_DATA) _
As Integer

Public Declare Function SetupDiGetClassDevs _
Lib "setupapi.dll" _
Alias "SetupDiGetClassDevsA" _
(ByRef ClassGuid As GUID, _
ByVal Enumerator As String, _
ByVal hwndParent As Integer, _
ByVal Flags As Integer) _
As Integer

Public Declare Function SetupDiGetDeviceInterfaceDetail _
Lib "setupapi.dll" _
Alias "SetupDiGetDeviceInterfaceDetailA" _
(ByVal DeviceInfoSet As Integer, _
ByRef DeviceInterfaceData As SP_DEVICE_INTERFACE_DATA, _
ByVal DeviceInterfaceDetailData As Integer, _
ByVal DeviceInterfaceDetailDataSize As Integer, _
ByRef RequiredSize As Integer, _
ByVal DeviceInfoData As Integer) _
As Integer

Public Declare Function WriteFile _
Lib "kernel32" _
(ByVal hFile As Integer, _
ByRef lpBuffer As Byte, _
ByVal nNumberOfBytesToWrite As Integer, _
ByRef lpNumberOfBytesWritten As Integer, _
ByVal lpOverlapped As Integer) _
As Integer

Public Declare Function GetTickCount Lib "kernel32" () As Integer

Public HidDevice As Integer = INVALID_HANDLE_VALUE
Public Capabilities As HIDP_CAPS

Dim byteStInJ1 As Byte
Dim byteStInJ2 As Byte
Dim byteOutJ1 As Byte = 0
Dim byteOutJ2 As Byte = 0
Dim byteInJ1 As Byte = 0
Dim byteInJ2 As Byte = 0

Dim btnStInJ1() As System.Windows.Forms.Button
Dim btnStInJ2() As System.Windows.Forms.Button
Dim btnIoJ1() As System.Windows.Forms.Button
Dim btnIoJ2() As System.Windows.Forms.Button

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
btnStInJ1 = New System.Windows.Forms.Button() {btnStInJ10, btnStInJ11, btnStInJ12, btnStInJ13, btnStInJ14, btnStInJ15, btnStInJ16, btnStInJ17}
btnStInJ2 = New System.Windows.Forms.Button() {btnStInJ20, btnStInJ21, btnStInJ22, btnStInJ23}
btnIoJ1 = New System.Windows.Forms.Button() {btnIoJ10, btnIoJ11, btnIoJ12, btnIoJ13, btnIoJ14, btnIoJ15, btnIoJ16, btnIoJ17}
btnIoJ2 = New System.Windows.Forms.Button() {btnIoJ20, btnIoJ21, btnIoJ22, btnIoJ23}

For i = 0 To 7
AddHandler DirectCast(btnStInJ1(i), Button).Click, AddressOf btnStIn_Click
AddHandler DirectCast(btnIoJ1(i), Button).Click, AddressOf btnIO_Click
Next
For i = 0 To 3
AddHandler DirectCast(btnStInJ2(i), Button).Click, AddressOf btnStIn_Click
AddHandler DirectCast(btnIoJ2(i), Button).Click, AddressOf btnIO_Click
Next

pnlStting.ForeColor = Color.Silver
pnlRunning.ForeColor = Color.Silver
btnSetting.Enabled = False
btnSendRecv.Enabled = False
btnStop.Enabled = False
End Sub

\' Private Sub btnKm2Net_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKm2Net.Click
\' System.Diagnostics.Process.Start("http://km2net.com")
\' End Sub

Private Sub btnConnect_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnConnect.Click
If openDevice() = True Then
Dim sendData(63) As Byte
Dim recvData(63) As Byte

btnConnect.Enabled = False
btnSendRecv.Enabled = True
btnSetting.Enabled = True

sendData(0) = &HF8 \'コマンド ：システム設定用フラッシュロム読込み
sendData(63) = &H0 \'シーケンス

SendRecv(sendData, recvData) \'送受信
\'プルアップ無効　Bit0 ON
If (recvData(2) And &H1) Then
chkPullUpStop.Checked = True
Else
chkPullUpStop.Checked = False
End If

byteStInJ1 = recvData(5) \'入力ピン設定 ビットONが入力ピン
byteStInJ2 = recvData(6) \'入力ピン設定 ビットONが入力ピン

byteInJ1 = &HFF
byteInJ2 = &HF
byteOutJ1 = &HFF
byteOutJ2 = &HF
pnlStting.Enabled = True
pnlRunning.Enabled = True
pnlStting.ForeColor = Color.Black
chgStInColor()
chgIoColor()
Else
MsgBox("デバイスが見つかりません。")
End If
End Sub

Private Sub btnStIn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If btnConnect.Enabled = True Then
Return
End If

Dim strBtnName As String = DirectCast(sender, Button).Name
If strBtnName.Substring(strBtnName.Length - 2, 1) = "1" Then
byteStInJ1 = byteStInJ1 Xor (2 ^ Integer.Parse(strBtnName.Substring(strBtnName.Length - 1, 1)))
Else
byteStInJ2 = byteStInJ2 Xor (2 ^ Integer.Parse(strBtnName.Substring(strBtnName.Length - 1, 1)))
End If
chgStInColor()
chgIoColor()
End Sub

Private Sub btnSetting_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSetting.Click
Dim sendData(63) As Byte
Dim recvData(63) As Byte

sendData(0) = &HF9 \'コマンド ：システム設定用フラッシュロム書き込み
sendData(1) = 0 \'未使用
\'プルアップ無効
If chkPullUpStop.Checked = True Then
sendData(2) = &H1 \'プルアップ　1:無効　0:有効
Else
sendData(2) = &H0
End If
sendData(3) = 0 \'未使用
sendData(4) = 0 \'未使用
sendData(5) = byteStInJ1 \'入力ピン設定 ビットONが入力ピン
sendData(6) = byteStInJ2 \'入力ピン設定 ビットONが入力ピン
\'シーケンス
sendData(63) = &H0 \'シーケンス

SendRecv(sendData, recvData) \'送受信

MessageBox.Show("入力設定しました。" & vbCrLf & "USB-IO2.0を抜差してください")
closeDevice()

tmrSendRecv.Enabled = False
pnlStting.ForeColor = Color.Silver
pnlRunning.ForeColor = Color.Silver
btnSetting.Enabled = False
btnSendRecv.Enabled = False
btnStop.Enabled = False
btnConnect.Enabled = True

End Sub

Private Sub btnIO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If btnConnect.Enabled = True Then
Return
End If

Dim strBtnName As String = DirectCast(sender, Button).Name
If strBtnName.Substring(strBtnName.Length - 2, 1) = "1" Then
byteOutJ1 = byteOutJ1 Xor (2 ^ Integer.Parse(strBtnName.Substring(strBtnName.Length - 1, 1)))
Else
byteOutJ2 = byteOutJ2 Xor (2 ^ Integer.Parse(strBtnName.Substring(strBtnName.Length - 1, 1)))
End If
chgIoColor()
End Sub

Private Sub btnSendRecv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSendRecv.Click
pnlStting.Enabled = False
btnSetting.Enabled = False
btnSendRecv.Enabled = False
tmrSendRecv.Enabled = True
btnStop.Enabled = True
pnlStting.ForeColor = Color.Black
pnlRunning.ForeColor = Color.Yellow
End Sub

Private Sub tmrSendRecv_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles tmrSendRecv.Disposed

End Sub

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 \'出力１：Ｊ１
sendData(2) = byteOutJ1 \'値
sendData(3) = &H2 \'出力２：Ｊ２
sendData(4) = byteOutJ2 \'値
sendData(63) = &H0 \'シーケンス

SendRecv(sendData, recvData) \'送受信

byteInJ1 = recvData(1) \'Ｊ１入力値
byteInJ2 = recvData(2) \'Ｊ２入力値

\'---------------------------------------------------------------------------
\'ここに改造ーコードを追加
\'If (byteInJ2 And Byte.Parse("00000001", 2)) = 0 Then \'J2-0が0の場合
\'byteOutJ1 = byteOutJ1 Xor Byte.Parse("00000001", 2) \'J1-0のビット反転
\'End If
\'------------------------------------------------------------------------------
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

Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
btnSendRecv.Enabled = True
tmrSendRecv.Enabled = False
btnStop.Enabled = False
pnlRunning.ForeColor = Color.Silver
End Sub

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
closeDevice()
End Sub

Private Sub chgStInColor()
Dim i As Integer
For i = 0 To 7
If byteStInJ1 And 2 ^ i Then
btnStInJ1(i).FlatStyle = FlatStyle.Standard
btnIoJ1(i).BackColor = Color.ForestGreen
Else
btnStInJ1(i).FlatStyle = FlatStyle.System
btnIoJ1(i).BackColor = Color.Red
End If
Next
lblStInJ1.Text = "0" & Hex$(byteStInJ1)
lblStInJ1.Text = "&&h" & lblStInJ1.Text.Substring(lblStInJ1.Text.Length - 2, 2)
For i = 0 To 3
If byteStInJ2 And 2 ^ i Then
btnStInJ2(i).FlatStyle = FlatStyle.Standard
btnIoJ2(i).BackColor = Color.ForestGreen
Else
btnStInJ2(i).FlatStyle = FlatStyle.System
btnIoJ2(i).BackColor = Color.Red
End If
Next
lblStInJ2.Text = "0" & Hex$(byteStInJ2)
lblStInJ2.Text = "&&h" & lblStInJ2.Text.Substring(lblStInJ2.Text.Length - 2, 2)
End Sub

Private Sub chgIoColor()
Dim i As Integer
Dim s As String
For i = 0 To 7
If ((byteStInJ1 And (2 ^ i)) And (byteInJ1 And (2 ^ i))) _
Or ((Not (byteStInJ1 And (2 ^ i))) And (byteOutJ1 And (2 ^ i))) Then
btnIoJ1(i).FlatStyle = FlatStyle.Standard
Else
btnIoJ1(i).FlatStyle = FlatStyle.System
End If
Next
s = "0" & Hex$(byteInJ1)
lblIoJ1.Text = "I:&&h" & s.Substring(s.Length - 2, 2)
s = "0" & Hex$(byteOutJ1)
lblIoJ1.Text = lblIoJ1.Text & " O:&&h" & s.Substring(s.Length - 2, 2)
For i = 0 To 3
If ((byteStInJ2 And (2 ^ i)) And (byteInJ2 And (2 ^ i))) _
Or ((Not (byteStInJ2 And (2 ^ i))) And (byteOutJ2 And (2 ^ i))) Then
btnIoJ2(i).FlatStyle = FlatStyle.Standard
Else
btnIoJ2(i).FlatStyle = FlatStyle.System
End If
Next
s = "0" & Hex$(byteInJ2)
lblIoJ2.Text = "I:&&h" & s.Substring(s.Length - 2, 2)
s = "0" & Hex$(byteOutJ2)
lblIoJ2.Text = lblIoJ2.Text & " O:&&h" & s.Substring(s.Length - 2, 2)
End Sub

Private Function openDevice() As Boolean
Dim HidGuid As GUID
Dim DeviceInfoSet As Integer
Dim MyDeviceInterfaceData As SP_DEVICE_INTERFACE_DATA
Dim MemberIndex As Integer
Dim MyDeviceInfoData As SP_DEVINFO_DATA
Dim Needed As Integer
Dim DetailData As Integer
Dim MyDeviceInterfaceDetailData As SP_DEVICE_INTERFACE_DETAIL_DATA
Dim DetailDataBuffer() As Byte
Dim gch As GCHandle
Dim address As Integer
Dim DevicePathName As String
Dim sa As SECURITY_ATTRIBUTES
Dim DeviceAttributes As HIDD_ATTRIBUTES
Dim PreparsedData As Long

Dim ipt As IntPtr
Dim Result As Integer

openDevice = False

Result = HidD_GetHidGuid(HidGuid)
DeviceInfoSet = SetupDiGetClassDevs _
(HidGuid, vbNullString, 0, (DIGCF_PRESENT Or DIGCF_DEVICEINTERFACE))

MemberIndex = 0

Do
MyDeviceInterfaceData.cbSize = Marshal.SizeOf(MyDeviceInterfaceData)
Result = SetupDiEnumDeviceInterfaces _
(DeviceInfoSet, 0, HidGuid, MemberIndex, MyDeviceInterfaceData)

If Result <> 0 Then
MyDeviceInfoData.cbSize = Marshal.SizeOf(MyDeviceInfoData)
Result = SetupDiGetDeviceInterfaceDetail _
(DeviceInfoSet, MyDeviceInterfaceData, 0, 0, Needed, 0)

DetailData = Needed
MyDeviceInterfaceDetailData.cbSize = Marshal.SizeOf(MyDeviceInterfaceDetailData)
ReDim DetailDataBuffer(Needed)
ipt = Marshal.AllocHGlobal(Marshal.SizeOf(MyDeviceInterfaceDetailData))
Marshal.StructureToPtr(MyDeviceInterfaceDetailData, ipt, False)
Call RtlMoveMemory(DetailDataBuffer(0), ipt, 4)

gch = GCHandle.Alloc(DetailDataBuffer, GCHandleType.Pinned)
address = gch.AddrOfPinnedObject().ToInt32()

Result = SetupDiGetDeviceInterfaceDetail _
(DeviceInfoSet, MyDeviceInterfaceData, address, DetailData, Needed, 0)

gch.Free()

DevicePathName = System.Text.Encoding.GetEncoding("Shift-JIS").GetString(DetailDataBuffer)
DevicePathName = DevicePathName.Substring(4)

sa.nLength = 12
sa.lpSecurityDescriptor = 0
sa.bInheritHandle = 0

HidDevice = CreateFile(DevicePathName, GENERIC_READ Or GENERIC_WRITE, (FILE_SHARE_READ Or FILE_SHARE_WRITE), _
sa, OPEN_EXISTING, 0, 0)

If HidDevice <> INVALID_HANDLE_VALUE Then
DeviceAttributes.Size = Marshal.SizeOf(DeviceAttributes)
Result = HidD_GetAttributes(HidDevice, DeviceAttributes)

If (DeviceAttributes.VendorID = MyVendorID) _
And (DeviceAttributes.ProductID = MyProductID Or DeviceAttributes.ProductID = MyProductID2) Then

HidD_GetPreparsedData(HidDevice, PreparsedData)
HidP_GetCaps(PreparsedData, Capabilities)

openDevice = True
Exit Do
Else
Result = CloseHandle(HidDevice)
End If

End If
Else
Exit Do
End If
MemberIndex = MemberIndex + 1
Loop

End Function

Private Sub closeDevice()
If HidDevice <> INVALID_HANDLE_VALUE Then
CloseHandle(HidDevice)
End If
End Sub

Private Sub SendRecv(ByVal sendData() As Byte, ByRef recvData() As Byte)
Dim i As Integer
Dim s As String
Dim NumberOfBytesWritten As Integer
Dim NumberOfBytesRead As Integer

Dim wrtData(Capabilities.OutputReportByteLength - 1) As Byte
Dim readData(Capabilities.InputReportByteLength - 1) As Byte

On Error GoTo errJump

wrtData(0) = &H0
For i = 0 To 63
wrtData(i + 1) = sendData(i)
Next
WriteFile(HidDevice, wrtData(0), Capabilities.OutputReportByteLength, NumberOfBytesWritten, 0)

Do
ReadFile(HidDevice, readData(0), Capabilities.InputReportByteLength, NumberOfBytesRead, 0)
If wrtData(64) = readData(64) Then
Exit Do
End If
Loop

For i = 0 To 63
recvData(i) = readData(i + 1)
Next

\'-------------------------------------------------------------------------
\'byteOutJ1 = ("0000")
\'ここにこれを入れるとハードの入力ボタンは正しく反応するが、ループの表示が正しくならない
\'----------------------------------------------------------------------
Exit Sub
byteOutJ1 = ("0000")
errJump:
MsgBox(Err.Description)
End Sub

Private Sub btnIoJ11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIoJ11.Click

End Sub

Private Sub btnIoJ13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIoJ13.Click

End Sub

Private Sub btnIoJ10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIoJ10.Click

End Sub

Private Sub btnIoJ12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIoJ12.Click

End Sub
\'----------------------------------------------------------------------------------
\' J1-0 ON
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
byteOutJ1 = byteOutJ1 Xor Byte.Parse("00000001", 2) \'J1-0のビット反転
End Sub
\'---------------------------------------------------------------------------------------
\' J1-1 ON
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
byteOutJ1 = byteOutJ1 Xor Byte.Parse(&H2, 2) \'J1-1のビット反転

End Sub
\'-----------------------------------------------------------------------------------------
\' J1-2 ON
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
byteOutJ1 = byteOutJ1 Xor Byte.Parse(&H4, 2) \'J1-2のビット反転
End Sub
\'-------------------------------------------------------------------------------------------
\' J1-3 ON
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
byteOutJ1 = byteOutJ1 Xor Byte.Parse(&H8, 2) \'J1-3のビット反転
End Sub
\'-----------------------------------------------------------------------------------------------
\' J1-0～7 OFF
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
byteOutJ1 = byteOutJ1 Xor Byte.Parse(&HFF, 2) \' J1-0～7 OFF
End Sub
\'--------------------------------------------------------------------------------------------------
\' J1-0～3 OFF
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
byteOutJ1 = byteOutJ1 Xor Byte.Parse(&HF, 2) \' J1-0～3 OFF
End Sub
\'---------------------------------------------------------------------------------------------------
\'ループその1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Timer1.Enabled = True
\' TextBox1.Text = TimeString
TextBox1.Text = Second(Now)

End Sub
\'----------------------------------------------------------------------------------------------------------
\'Timer1 Enabled True
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

Timer1.Enabled = True

End Sub
\'---------------------------------------------------------------------------------------------
\'制御用Timer

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

End Sub
\'--------------------------------------------------------------------------------------
\'ループ
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Static led As Integer

led = led + 1

If led = 1 Then

\' byteOutJ1 = byteOutJ1 Xor Byte.Parse("00000001", 2) \'J1-0のビット反転
byteOutJ1 = ("0001")
TextBox2.Text = led
End If
If led = 2 Then

byteOutJ1 = ("0000")
byteOutJ1 = byteOutJ1 Xor Byte.Parse(&H2, 2) \'J1-1のビット反転

\' byteOutJ1 = ("0010")
TextBox2.Text = led
End If
If led = 3 Then

\' byteOutJ1 = byteOutJ1 Xor Byte.Parse(&H2, 2) \'J1-1のビット反転
\'byteOutJ1 = byteOutJ1 Xor Byte.Parse(&H4, 2) \'J1-2のビット反転
byteOutJ1 = ("0000")
byteOutJ1 = ("0100")
TextBox2.Text = led
End If
If led = 4 Then

\'byteOutJ1 = byteOutJ1 Xor Byte.Parse(&H4, 2) \'J1-2のビット反転
\'byteOutJ1 = byteOutJ1 Xor Byte.Parse(&H8, 2) \'J1-3のビット反転
byteOutJ1 = ("0000")

byteOutJ1 = byteOutJ1 Xor Byte.Parse(&H8, 2) \'J1-3のビット反転
TextBox2.Text = led
End If

If led = 4 Then led = 0

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Timer4.Enabled = False
Timer3.Enabled = True

End Sub

Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
Static led As Integer

led = led + 1

If led = 1 Then

\' byteOutJ1 = byteOutJ1 Xor Byte.Parse("00000001", 2) \'J1-0のビット反転
byteOutJ1 = ("0001")
TextBox3.Text = led
End If
If led = 2 Then

byteOutJ1 = ("0000")
byteOutJ1 = byteOutJ1 Xor Byte.Parse(&H2, 2) \'J1-1のビット反転

\' byteOutJ1 = ("0010")
TextBox3.Text = led
End If
If led = 3 Then

\' byteOutJ1 = byteOutJ1 Xor Byte.Parse(&H2, 2) \'J1-1のビット反転
\'byteOutJ1 = byteOutJ1 Xor Byte.Parse(&H4, 2) \'J1-2のビット反転
byteOutJ1 = ("0000")
byteOutJ1 = ("0100")
TextBox3.Text = led
End If
If led = 4 Then

\'byteOutJ1 = byteOutJ1 Xor Byte.Parse(&H4, 2) \'J1-2のビット反転
\'byteOutJ1 = byteOutJ1 Xor Byte.Parse(&H8, 2) \'J1-3のビット反転
byteOutJ1 = ("0000")

byteOutJ1 = byteOutJ1 Xor Byte.Parse(&H8, 2) \'J1-3のビット反転
TextBox3.Text = led
End If

If led = 4 Then led = 0

End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Timer4.Enabled = True
Timer3.Enabled = False
End Sub

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

End Sub

Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

End Sub

Private Sub btnIoJ20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIoJ20.Click

End Sub

Private Sub Button10_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button10.MouseDown
byteOutJ1 = ("0001")
End Sub

Private Sub Button10_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button10.MouseUp
byteOutJ1 = ("0000")
End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

End Sub

Private Sub btnIoJ21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIoJ21.Click

End Sub

Private Sub btnIoJ20_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnIoJ20.MouseDown
byteOutJ1 = ("0001")

End Sub

Private Sub btnIoJ20_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btnIoJ20.MouseUp
byteOutJ1 = ("0000")

End Sub

Private Sub btnStInJ20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStInJ20.Click

End Sub

Private Sub lblIoJ1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblIoJ1.Click

End Sub
End Class

Visual Basicで動いているときの動画