2017年1月にＵＳＢ接続デジタル入出力モジュール　ＵＳＢ−ＩＯ２．０（ＡＫＩ）
を入手、Visual Basic2010で編集できるまでの中間報告です。

サンプルソースを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)

   <StructLayout(LayoutKind.Sequential, Pack:=1, CharSet:=CharSet.Ansi)> _
   Public Structure GUID
       Dim Data1 As Integer
       Dim Data2 As Short
       Dim Data3 As Short
       <MarshalAs(UnmanagedType.ByValArray, SizeConst:=8)> Dim Data4() As Byte
   End Structure

   <StructLayout(LayoutKind.Sequential, pack:=1)> _
   Public Structure HIDD_ATTRIBUTES
       Dim Size As Integer
       Dim VendorID As Short
       Dim ProductID As Short
       Dim VersionNumber As Short
   End Structure

   <StructLayout(LayoutKind.Sequential, pack:=1)> _
   Public Structure HIDP_CAPS
       Dim Usage As Short
       Dim UsagePage As Short
       Dim InputReportByteLength As Short
       Dim OutputReportByteLength As Short
       Dim FeatureReportByteLength As Short
       <MarshalAs(UnmanagedType.ByValArray, SizeConst:=16)> 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

   <StructLayout(LayoutKind.Sequential, pack:=1)> _
   Public Structure SECURITY_ATTRIBUTES
       Dim nLength As Integer
       Dim lpSecurityDescriptor As Integer
       Dim bInheritHandle As Integer
   End Structure

   <StructLayout(LayoutKind.Sequential, Pack:=1, CharSet:=CharSet.Ansi)> _
   Public Structure SP_DEVICE_INTERFACE_DATA
       Dim cbSize As Integer
       Dim InterfaceClassGuid As GUID
       Dim Flags As Integer
       Dim Reserved As Integer
   End Structure

   <StructLayout(LayoutKind.Sequential, Pack:=1, CharSet:=CharSet.Ansi)> _
   Public Structure SP_DEVINFO_DATA
       Dim cbSize As Integer
       Dim ClassGuid As GUID
       Dim DevInst As Integer
       Dim Reserved As Integer
   End Structure

   <StructLayout(LayoutKind.Sequential, pack:=1)> _
   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