?? form1.frm
字號:
18, _
nBytes, _
0)
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, _
0)
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, _
0)
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, _
0)
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, _
0)
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, _
0)
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, _
0)
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, _
0)
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -