frmmain.frm

USB2I2C USB2SPI USB2ISP资料开发包

            Left            =   1140
            TabIndex        =   14
            Top             =   825
            Width           =   2415
         End
         Begin VB.CommandButton memRead0 
            Caption         =   "Read"
            Height          =   375
            Left            =   3720
            TabIndex        =   13
            Top             =   2370
            Width           =   975
         End
         Begin VB.CommandButton memWrite0 
            Caption         =   "Write"
            Height          =   375
            Left            =   4875
            TabIndex        =   12
            Top             =   2370
            Width           =   975
         End
         Begin VB.Label Label10 
            Caption         =   "数据"
            Height          =   255
            Left            =   300
            TabIndex        =   20
            Top             =   1275
            Width           =   615
         End
         Begin VB.Label Label11 
            Caption         =   "MEM方式写地址0: WR#=0, DS#/RD#=1,AS#/ADDR=0,D0-D7=output"
            Height          =   255
            Left            =   300
            TabIndex        =   19
            Top             =   540
            Width           =   5295
         End
         Begin VB.Label Label12 
            Caption         =   "MEM方式读地址0: WR#=1, DS#/RD#=0,AS#/ADDR=0,D0-D7=input"
            Height          =   180
            Left            =   300
            TabIndex        =   18
            Top             =   255
            Width           =   5415
         End
         Begin VB.Label Label9 
            Caption         =   "长度"
            Height          =   255
            Left            =   300
            TabIndex        =   17
            Top             =   885
            Width           =   495
         End
         Begin VB.Label Label22 
            Caption         =   "(<1000H)"
            Height          =   285
            Left            =   3585
            TabIndex        =   16
            Top             =   870
            Width           =   855
         End
      End
      Begin VB.Frame Frame4 
         Caption         =   "读写地址1，API=USBIO_MemReadAddr1和USBIO_MemWriteAddr1"
         Height          =   2865
         Left            =   -74730
         TabIndex        =   1
         Top             =   3720
         Width           =   6825
         Begin VB.TextBox memLen1 
            BeginProperty DataFormat 
               Type            =   0
               Format          =   "0"
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   2052
               SubFormatType   =   0
            EndProperty
            Height          =   375
            Left            =   1050
            TabIndex        =   5
            Top             =   840
            Width           =   2415
         End
         Begin VB.TextBox memData1 
            Height          =   1025
            Left            =   1050
            MultiLine       =   -1  'True
            ScrollBars      =   2  'Vertical
            TabIndex        =   4
            Top             =   1290
            Width           =   4695
         End
         Begin VB.CommandButton memRead1 
            Caption         =   "Read"
            Height          =   375
            Left            =   3645
            TabIndex        =   3
            Top             =   2385
            Width           =   975
         End
         Begin VB.CommandButton memWrite1 
            Caption         =   "Write"
            Height          =   375
            Left            =   4710
            TabIndex        =   2
            Top             =   2385
            Width           =   975
         End
         Begin VB.Label Label13 
            Caption         =   "长度"
            Height          =   255
            Left            =   330
            TabIndex        =   10
            Top             =   900
            Width           =   495
         End
         Begin VB.Label Label14 
            Caption         =   "数据"
            Height          =   255
            Left            =   330
            TabIndex        =   9
            Top             =   1290
            Width           =   615
         End
         Begin VB.Label Label15 
            Caption         =   "MEM方式写地址1: WR#=0, DS#/RD#=1, AS#/ADDR=1, D0-D7=output"
            Height          =   180
            Left            =   375
            TabIndex        =   8
            Top             =   600
            Width           =   5655
         End
         Begin VB.Label Label16 
            Caption         =   "MEM方式读地址1: WR#=1, DS#/RD#=0, AS#/ADDR=1, D0-D7=input"
            Height          =   180
            Left            =   375
            TabIndex        =   7
            Top             =   315
            Width           =   5535
         End
         Begin VB.Label Label23 
            Caption         =   "(<1000H)"
            Height          =   285
            Left            =   3555
            TabIndex        =   6
            Top             =   855
            Width           =   855
         End
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim hopen As Long


Private Sub eepromRdDate_Click()
 Dim mDataAddr As Long
 Dim mLen As Long
 Dim buffer As arrRBuffer
 Dim bu() As Byte
 mLen = HexToBcd(RdDataLen)
 
 If (RdDataAddr.Text = "") Then
   MsgBox "请输入数据单元起始地址！", vbExclamation, "USB2ISP DEMO"
   Exit Sub
 End If
 If (mLen <= 0) Then
   MsgBox "请输入读取长度！", vbExclamation, "USB2ISP DEMO"
   Exit Sub
 End If
 mDataAddr = HexToBcd(RdDataAddr)
 If (mOpen = True) Then
    If (USBIO_ReadEEPROM(mIndex, eepromid, mDataAddr, mLen, buffer)) Then
      Dim buff As String
      Dim i As Long
      For i = 0 To mLen - 1
         buff = buff & Hex2bit(buffer.buf(i)) & " "
      Next i
      RdDataBuf.Text = buff
    Else
      MsgBox "读E2PROM数据失败！", vbExclamation, "USB2ISP DEMO"
    End If
    RdDataLen.Text = Hex(mLen)
 Else
    MsgBox "设备未打开！", vbExclamation, "USB2ISP DEMO"
 End If
End Sub

Private Sub eepromWrDate_Click()
 Dim mData As Byte
 Dim mDataAddr As Long
 Dim mLen As Long
 Dim buffer As arrRBuffer
 
 mLen = HexToBcd(WrDataLen.Text)
  If (WrDataAddr.Text = "") Then
   MsgBox "请输入数据单元起始地址！", vbExclamation, "USB2ISP DEMO"
   Exit Sub
 End If
 If (mLen <= 0 Or WrDataBuf.Text = "") Then
   MsgBox "请输入要写入的数据,长度！", vbExclamation, "USB2ISP DEMO"
   Exit Sub
 End If
  
  If (mLen > (Len(WrDataBuf) \ 2)) Then '在输入长度和数据长度中取小值
    mLen = Len(WrDataBuf) \ 2
  End If
  
  mDataAddr = HexToBcd(WrDataAddr.Text)
  Call mStrtoVal(WrDataBuf.Text, buffer, mLen)  '将输入的十六进制格式字符数据转成数值数据

  If (mOpen = True) Then
     If (USBIO_WriteEEPROM(mIndex, eepromid, mDataAddr, mLen, buffer) = False) Then
        MsgBox "读E2PROM数据失败！", vbExclamation, "USB2ISP DEMO"
     End If
     WrDataLen.Text = Hex(mLen)
  Else
    MsgBox "设备未打开！", vbExclamation, "USB2ISP DEMO"
  End If
End Sub

Private Sub eppRead0_Click()
    Dim mLen As Long
    Dim buffer As arrRBuffer
    
    mLen = HexToBcd(eppLen0.Text)
    If (mLen <= 0) Then
        MsgBox "请输入读取长度", vbExclamation, "USB2ISP DEMO"
        Exit Sub
    End If
    If (mOpen = True) Then
            If (USBIO_EppReadData(mIndex, buffer, mLen)) Then
                Dim buff As String
                Dim i As Long
                buff = ""
                For i = 0 To mLen - 1 Step 1
                    buff = buff & Hex2bit(buffer.buf(i)) & " "
                Next
                eppData0.Text = buff
            Else
                MsgBox "EPP方式读数据失败！ ", vbExclamation, "USB2ISP DEMO"
            End If
            eppLen0.Text = Hex(mLen)
    Else
        MsgBox "设备未打开！", vbExclamation, "USB2ISP DEMO"
    End If
End Sub

Private Sub eppRead1_Click()
    Dim mLen As Long
    Dim buffer As arrRBuffer
    
    mLen = HexToBcd(eppLen1.Text)
    If (mLen <= 0) Then
        MsgBox "请输入读取数据的长度", vbExclamation, "USB2ISP DEMO"
        Exit Sub
    End If
     If (mOpen = True) Then
        If (USBIO_EppReadAddr(mIndex, buffer, mLen)) Then
            Dim buff As String
            Dim i, j As Long
            j = 0
            For i = 0 To mLen - 1
                buff = buff & Hex2bit(buffer.buf(i)) + " "
            Next
            eppData1.Text = buff
        Else
            MsgBox "EPP读数据块1失败！ ", vbExclamation, "USB2ISP DEMO"
        End If
        eppLen1.Text = Hex(mLen)
    Else
        MsgBox "设备未打开！", vbExclamation, "USB2ISP DEMO"
    End If
End Sub

Private Sub eppromtype_Click(Index As Integer)
Select Case Index
      Case 0
         eepromid = ID_24C01
      Case 1
         eepromid = ID_24C02
      Case 2
         eepromid = ID_24C04
      Case 3
         eepromid = ID_24C08
      Case 4
         eepromid = ID_24C16
      Case 5
         eepromid = ID_24C32
      Case 6
         eepromid = ID_24C64
      Case 7
         eepromid = ID_24C128
      Case 8
         eepromid = ID_24C256
      Case 9
         eepromid = ID_24C512
      Case 10
         eepromid = ID_24C1024
      Case 11
         eepromid = ID_24C2048
      Case 12
         eepromid = ID_24C4096
  End Select
End Sub

Private Sub eppWrite0_Click()
    Dim mLen As Long
    Dim buffer As arrRBuffer
    
    mLen = HexToBcd(eppLen0.Text)
    If (mLen <= 0 Or Len(eppData0.Text) = 0) Then
        MsgBox "请输入要写的数据,长度！", vbExclamation, "USB2ISP DEMO"
        Exit Sub
    End If
    If (mLen > Len(eppData0.Text) \ 2) Then
        mLen = Len(eppData0.Text) \ 2
    End If
    Call mStrtoVal(eppData0.Text, buffer, mLen)  '将输入的十六进制格式字符数据转成数值数据
    
    If (mOpen = True) Then
        If (USBIO_EppWriteData(mIndex, buffer, mLen) = False) Then
            MsgBox "EPP写数据块0失败！", vbExclamation, "USB2ISP DEMO"
        End If
        eppLen0.Text = Hex(mLen)
    Else
        MsgBox "设备未打开！", vbExclamation, "USB2ISP DEMO"
    End If
End Sub

Private Sub eppWrite1_Click()
    Dim mLen As Long
    Dim buffer As arrRBuffer
    
    mLen = HexToBcd(eppLen1.Text)
    
    If (mLen <= 0 Or Len(eppData1.Text) = 0) Then
        MsgBox "请输入写数据和长度！", vbExclamation, "USB2ISP DEMO"
        Exit Sub
    End If
    
    If (mLen > Len(eppData1.Text) \ 2) Then
        mLen = Len(eppData1.Text) \ 2
    End If
    
    Call mStrtoVal(eppData1.Text, buffer, mLen)  '将输入的十六进制格式字符数据转成数值数据
   If (mOpen = True) Then
        If (USBIO_EppWriteAddr(mIndex, buffer, mLen) = False) Then
            MsgBox "EPP写数据块1失败！", vbExclamation, "USB2ISP DEMO"
        End If
       eppLen1.Text = Hex(mLen)
    Else
        MsgBox "设备未打开！", vbExclamation, "USB2ISP DEMO"
    End If
End Sub

Private Sub evtbtrefresh_Click()
Dim mBuf(0) As Byte
Dim mLen As Long

If mOpen = True Then
mLen = 1
If (memadd0(0).Value = True) Then
    If (USBIO_MemReadAddr0(mIndex, mBuf(0), mLen) = False) Then
       MsgBox "MEM地址方式读拔码开关状态失败！ ", vbExclamation, "USB2ISP DEMO"
       Exit Sub
    End If
ElseIf (memadd1(1).Value = True) Then
    If (USBIO_MemReadAddr1(mIndex, mBuf(0), mLen) = False) Then