form1.frm

USB2.0原理与工程开发光盘(第一版和第二版)

              18, _
              nBytes, _
               OverLap)
    If (bResult = True) Then
        MsgBox "                       设备描述符" + _
               Chr(13) & Chr(10) + _
               Chr(13) & Chr(10) + _
               "bLength:          0x" + Hex(ReData(0)) + "          " + "idVendor:            0x" + Hex(ReData(9) * 256 + ReData(8)) + _
               Chr(13) & Chr(10) + _
               "bDecriptorType:   0x" + Hex(ReData(1)) + "           " + "idProduct:           0x" + Hex(ReData(11) * 256 + ReData(10)) + _
               Chr(13) & Chr(10) + _
               "bcdUSB:           0x" + Hex(ReData(3) * 256 + ReData(2)) + "         " + "bcdDevice:           0x" + Hex(ReData(13) * 256 + ReData(12)) + _
               Chr(13) & Chr(10) + _
               "bDeviceClass:     0x" + Hex(ReData(4)) + "           " + "iManufacturer:       0x" + Hex(ReData(14)) + _
               Chr(13) & Chr(10) + _
               "bDeviceSubClass:  0x" + Hex(ReData(5)) + "           " + "iProduct:            0x" + Hex(ReData(15)) + _
               Chr(13) & Chr(10) + _
               "bDevicePortocol:  0x" + Hex(ReData(6)) + "           " + "iSerialNumber:       0x" + Hex(ReData(16)) + _
               Chr(13) & Chr(10) + _
               "bMaxPacketSize0:  0x" + Hex(ReData(7)) + "           " + "bnumConfigurations:  0x" + Hex(ReData(17)), , "USB"
       CloseHandle (HidDevice)
    Else
       MsgBox "    与USB设备通信失败！" + _
              Chr(13) & Chr(10) + _
              "USB数据传输错误，请重新启动硬件！", _
              16, "Device错误"
       CloseHandle (HidDevice)
       Unload Form1
       End
    End If
End If
End Sub

Private Sub Command15_Click()
Form2.Show 1
End Sub

Private Sub Command16_Click()
End
End Sub

Private Sub Command17_Click()
Dim myRequest As VENDOR_REQUEST_IN
Dim bResult As Boolean
Dim ReData(8) As Byte
Dim nBytes As Long
Dim HidDevice As Long
Dim DevicePathName As String
Dim Brightness As String

Brightness = InputBox("   请输入LED2的亮度值:  " + _
                      Chr(13) & Chr(10) + _
                      "     (取值范围为0-255)", "LED2设置", "127")
If (Brightness = "") Then
   Exit Sub
Else
   If (Not IsNumeric(Brightness) Or Val(Brightness) < 0 Or Val(Brightness) > 255) Then
       MsgBox "LED2亮度值的范围为0-255", 16, "LED2错误"
       Exit Sub
   End If
End If

DevicePathName = "\\.\Cyusb-0"
If (OpenDevice(HidDevice, DevicePathName) = True) Then
    myRequest.bRequest = &H7
    myRequest.wValue = Val(Brightness)
    myRequest.wIndex = &H0
    myRequest.wLength = &H8
    myRequest.bData = &H0
    myRequest.direction = &H1
        
    bResult = DeviceIoControl _
              (HidDevice, _
              IOCTL_Cyusb_VENDOR_REQUEST, _
              myRequest, _
              10, _
              ReData(0), _
              8, _
              nBytes, _
              OverLap)
    If (bResult = True) Then
       CloseHandle (HidDevice)
    Else
       MsgBox "    与USB设备通信失败！" + _
              Chr(13) & Chr(10) + _
              "USB数据传输错误，请重新启动硬件！", _
              16, "LED2错误"
       CloseHandle (HidDevice)
       Unload Form1
       End
    End If
End If
End Sub

Private Sub Command18_Click()
Dim myRequest As VENDOR_REQUEST_IN
Dim bResult As Boolean
Dim ReData(8) As Byte
Dim nBytes As Long
Dim HidDevice As Long
Dim DevicePathName As String

DevicePathName = "\\.\Cyusb-0"
If (OpenDevice(HidDevice, DevicePathName) = True) Then
    myRequest.bRequest = &H5
    myRequest.wValue = &H1
    myRequest.wIndex = &HFF
    myRequest.wLength = &H8
    myRequest.bData = &H0
    myRequest.direction = &H1
        
    bResult = DeviceIoControl _
              (HidDevice, _
              IOCTL_Cyusb_VENDOR_REQUEST, _
              myRequest, _
              10, _
              ReData(0), _
              8, _
              nBytes, _
              OverLap)
    If (bResult = True) Then
       Command18.Enabled = False
       Command19.Enabled = True
       Command17.Enabled = False
       CloseHandle (HidDevice)
    Else
       MsgBox "    与USB设备通信失败！" + _
              Chr(13) & Chr(10) + _
              "USB数据传输错误，请重新启动硬件！", _
              16, "LED2错误"
       CloseHandle (HidDevice)
       Unload Form1
       End
    End If
End If
End Sub

Private Sub Command19_Click()
Dim myRequest As VENDOR_REQUEST_IN
Dim bResult As Boolean
Dim ReData(8) As Byte
Dim nBytes As Long
Dim HidDevice As Long
Dim DevicePathName As String

DevicePathName = "\\.\Cyusb-0"
If (OpenDevice(HidDevice, DevicePathName) = True) Then
    myRequest.bRequest = &H5
    myRequest.wValue = &H1
    myRequest.wIndex = &HFD
    myRequest.wLength = &H8
    myRequest.bData = &H0
    myRequest.direction = &H1
        
    bResult = DeviceIoControl _
              (HidDevice, _
              IOCTL_Cyusb_VENDOR_REQUEST, _
              myRequest, _
              10, _
              ReData(0), _
              8, _
              nBytes, _
              OverLap)
    If (bResult = True) Then
        Command18.Enabled = True
        Command19.Enabled = False
        Command17.Enabled = True
        CloseHandle (HidDevice)
    Else
        MsgBox "    与USB设备通信失败！" + _
               Chr(13) & Chr(10) + _
               "USB数据传输错误，请重新启动硬件！", _
               16, "LED2错误"
        CloseHandle (HidDevice)
        Unload Form1
        End
    End If
End If
End Sub

Private Sub Command2_Click()
Form1.Width = 1960
Command1.Visible = True
Command2.Visible = False
End Sub

Private Sub Command3_Click()
Dim myRequest As VENDOR_REQUEST_IN
Dim bResult As Boolean
Dim ReData(8) As Byte
Dim nBytes As Long
Dim HidDevice As Long
Dim DevicePathName As String

DevicePathName = "\\.\Cyusb-0"
If (OpenDevice(HidDevice, DevicePathName) = True) Then
    myRequest.bRequest = &H8
    myRequest.wValue = &H0
    myRequest.wIndex = &H0
    myRequest.wLength = &H8
    myRequest.bData = &H0
    myRequest.direction = &H1
        
    bResult = DeviceIoControl _
              (HidDevice, _
              IOCTL_Cyusb_VENDOR_REQUEST, _
              myRequest, _
              10, _
              ReData(0), _
              8, _
              nBytes, _
              OverLap)
    If (bResult = True) Then
        THightemper = ReData(2) / 2
        MsgBox "THIGH =" + Str(ReData(2) / 2) + "℃", 0, "DS1620"
        CloseHandle (HidDevice)
    Else
        MsgBox "    与USB设备通信失败！" + _
               Chr(13) & Chr(10) + _
               "USB数据传输错误，请重新启动硬件！", _
               16, "THigh错误"
        CloseHandle (HidDevice)
        Unload Form1
        End
    End If
End If
End Sub

Private Sub Command4_Click()
Dim myRequest As VENDOR_REQUEST_IN
Dim bResult As Boolean
Dim ReData(8) As Byte
Dim nBytes As Long
Dim HidDevice As Long
Dim DevicePathName As String
Dim RomAddress As String

RomAddress = InputBox("   请输入CY7C63001 ROM的偏移地址值:  " + _
                      Chr(13) & Chr(10) + _
                      "         (取值范围为0-79)", "CY7C63001设置", "0")
If (RomAddress = "") Then
   Exit Sub
Else
   If (Not IsNumeric(RomAddress) Or Val(RomAddress) < 0 Or Val(RomAddress) > 79) Then
       MsgBox "CY7C63001 ROM地址的范围为0-79", 16, "ROM错误"
       Exit Sub
   End If
End If

DevicePathName = "\\.\Cyusb-0"
If (OpenDevice(HidDevice, DevicePathName) = True) Then
    myRequest.bRequest = &H1
    myRequest.wValue = Val(RomAddress)
    myRequest.wIndex = &H0
    myRequest.wLength = &H8
    myRequest.bData = &H0
    myRequest.direction = &H1
        
    bResult = DeviceIoControl _
              (HidDevice, _
              IOCTL_Cyusb_VENDOR_REQUEST, _
              myRequest, _
              10, _
              ReData(0), _
              8, _
              nBytes, _
              OverLap)
    If (bResult = True) Then
        MsgBox "ROM偏移地址" + RomAddress + "处的值为:0x" + Hex(ReData(1)), 0, "CY7C63001"
        CloseHandle (HidDevice)
    Else
        MsgBox "    与USB设备通信失败！" + _
               Chr(13) & Chr(10) + _
               "USB数据传输错误，请重新启动硬件！", _
               16, "ROM错误"
        CloseHandle (HidDevice)
        Unload Form1
        End
    End If
End If
End Sub

Private Sub Command5_Click()
Dim myRequest As VENDOR_REQUEST_IN
Dim bResult As Boolean
Dim ReData(8) As Byte
Dim nBytes As Long
Dim HidDevice As Long
Dim DevicePathName As String

DevicePathName = "\\.\Cyusb-0"
If (OpenDevice(HidDevice, DevicePathName) = True) Then
    myRequest.bRequest = &HA
    myRequest.wValue = &H0
    myRequest.wIndex = &H0
    myRequest.wLength = &H8
    myRequest.bData = &H0
    myRequest.direction = &H1
        
    bResult = DeviceIoControl _
              (HidDevice, _
              IOCTL_Cyusb_VENDOR_REQUEST, _
              myRequest, _
              10, _
              ReData(0), _
              8, _
              nBytes, _
              OverLap)
    If (bResult = True) Then
        TLowtemper = ReData(2) / 2
        MsgBox "TLOW =" + Str(ReData(2) / 2) + "℃", 0, "DS1620"
        CloseHandle (HidDevice)
    Else
        MsgBox "    与USB设备通信失败！" + _
               Chr(13) & Chr(10) + _
               "USB数据传输错误，请重新启动硬件！", _
               16, "TLow错误"
        CloseHandle (HidDevice)
        Unload Form1
        End
    End If
End If
End Sub

Private Sub Command6_Click()
Dim myRequest As VENDOR_REQUEST_IN
Dim bResult As Boolean
Dim ReData(8) As Byte
Dim nBytes As Long
Dim HidDevice As Long
Dim DevicePathName As String
Dim LowTemper As String

LowTemper = InputBox("   请输入DS1620的TLOW值(℃):  " + _
                     Chr(13) & Chr(10) + _
                     "     (取值范围为0-70)", "DS1620设置", "20")
If (LowTemper = "") Then
   Exit Sub
Else
   If (Not IsNumeric(LowTemper) Or Val(LowTemper) < 0 Or Val(LowTemper) > 70) Then
       MsgBox "TLOW的取值范围为0℃-70℃", 16, "TLow错误"
       Exit Sub
   End If
End If

DevicePathName = "\\.\Cyusb-0"
If (OpenDevice(HidDevice, DevicePathName) = True) Then
    myRequest.bRequest = &HB
    myRequest.wValue = Val(LowTemper) * 2
    myRequest.wIndex = &H0
    myRequest.wLength = &H8
    myRequest.bData = &H0
    myRequest.direction = &H1
        
    bResult = DeviceIoControl _
              (HidDevice, _
              IOCTL_Cyusb_VENDOR_REQUEST, _
              myRequest, _
              10, _
              ReData(0), _
              8, _
              nBytes, _
              OverLap)
    If (bResult = True) Then
        TLowtemper = ReData(2) / 2
        MsgBox "TLOW =" + Str(ReData(2) / 2) + "℃", 0, "设置成功"
        CloseHandle (HidDevice)
    Else
        MsgBox "    与USB设备通信失败！" + _
               Chr(13) & Chr(10) + _
               "USB数据传输错误，请重新启动硬件！", _
               16, "TLow错误"
        CloseHandle (HidDevice)
        Unload Form1