【正文】 2, 1) Else Call USB20C_Output(2, 1) Call USB20C_Output(2, 3) End If Call cmdUpColor(False) Call TxtShape1Enabled(True) Exit Sub Else .Caption = 輸入 If blDown = False And blUp Then Call USB20C_Output(2, 0) Else Call USB20C_Output(2, 2) End If blUp = False Call cmdUpColor(True) Call TxtShape1Enabled(False) End If End With End SubSub TxtShape1Enabled(ebl As Boolean) = eblEnd SubSub TxtShape2Enabled(ebl As Boolean) = eblEnd SubSub cmdUpColor(blColor As Boolean) Dim i As Integer For i = 1 To 8 If blColor Then Shape1(i).FillColor = amp。HFF00amp。 39。RGB(255, 0, 0) Else Shape1(i).FillColor = RGB(0, 0, 0) End If Next i End SubPrivate Sub cmdDown_Click() With cmdDown If .Caption = 輸入 Then blDown = True .Caption = 輸出 Call cmdDownColor(False) If blUp = True Then Call USB20C_Output(2, 3) Else Call USB20C_Output(2, 2) End If Call TxtShape2Enabled(True) Exit Sub Else .Caption = 輸入 Call cmdDownColor(True) If blUp = False And blDown Then Call USB20C_Output(2, 0) Else Call USB20C_Output(2, 0) Call USB20C_Output(2, 1) End If Call TxtShape2Enabled(False) blDown = False End If End With End SubSub cmdDownColor(blColor As Boolean) Dim i As Integer For i = 1 To 8 If blColor Then Shape2(i).FillColor = amp。HFF00amp。 39。 RGB(255, 0, 0) Else Shape2(i).FillColor = RGB(0, 0, 0) End If Next i End SubPrivate Sub Command1_Click() Dim i As Integer = amp。H7 gApibl = USB20C_Output(2, 1) ArrData(0) = amp。HB ArrData(1) = 0 ArrData(2) = amp。HF ArrData(3) = amp。H4 ArrData(4) = amp。HB ArrData(5) = 1 gApibl = USB20C_MultInput(6, ArrData(0)) 39。Num≤60 If gApibl Then Call AddMessageList(USB20C_MultInput, gApibl, 調(diào)用成功) Else Call AddMessageList(USB20C_MultInput, gApibl, 調(diào)用失敗) End If For i = 0 To 5 A1= amp。 Round((ArrData(i) * ) / 4095, 5) amp。 V Next i Dim strErrTxt As String strErrTxt = (USB20C_GetLastError) MsgBox (strErrTxt) End SubPrivate Sub Command2_Click() Dim sByte As Byte sByte = amp。H0 gApibl = USB20C_Output(2, 1) End SubPrivate Sub Command3_Click() 1 End SubPrivate Sub Form_Load() Call InitialControl Call (Me, sBar) Call AddcboIc2Type Call Scan_UsbDriver Call cmdUpColor(True) Call cmdDownColor(True) End SubPrivate Sub Form_Resize() On Error Resume Next Call (Me, sBar) = 150 = With Lvw .Width = 50 .Top = .Height + 20 = .Left = + + 100 39。 .Height = .Top + 700 = + End With End SubSub AddMessageList(Optional ByVal strCallType As String, Optional ByVal gValue As String, Optional ByVal strShuoMing As String) On Error Resume Next Dim ip As Integer Dim iCheck As Integer With Lvw ip = . For iCheck = 1 To ip .ListItems(iCheck).Checked = False Next iCheck Set lvwItem = .(, , strCallType, , 1) (1) = gValue (2) = strShuoMing If ip 0 Then .ListItems(ip + 1).Checked = True .SetFocus .ListItems(ip + 1).EnsureVisible End If End With End SubSub AddcboIc2Type() With cboI2cType .AddItem I2C24c01 .AddItem I2C24c02 .AddItem I2C24c04 .AddItem I2C24c16 .AddItem I2C24c32 .AddItem I2C24c64 .AddItem I2C24c128 .AddItem I2C24c256 .ListIndex = 0 End With End SubSub Scan_UsbDriver() USB20C_Done gApiLong = USB20C_EnumDeviceCount With cboDriver .Clear If gApiLong 0 Then For i = 1 To gApiLong .AddItem i Next i .ListIndex = 0 driverIndex = .ListIndex Call AddMessageList(USB20C_EnumDeviceCount, gApiLong, 已連接 amp。 gApiLong amp。 個設(shè)備) Else Call AddMessageList(USB20C_EnumDeviceCount, gApiLong, 當(dāng)前系統(tǒng)未連接任何模塊) MsgBox 系統(tǒng)未連接到任何設(shè)備。, vbQuestion, TiShi Exit Sub End If End With gApiLong = USB20C_Init(driverIndex, i2cType)