easyd12.frm

用VB实现USB功能

            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   2520
         TabIndex        =   11
         Top             =   405
         Width           =   255
      End
      Begin VB.Label Label5 
         Caption         =   "起始地址"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   480
         TabIndex        =   4
         Top             =   2205
         Width           =   735
      End
      Begin VB.Label Label4 
         Caption         =   "接收数据"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   480
         TabIndex        =   3
         Top             =   2685
         Width           =   735
      End
      Begin VB.Label Label3 
         Caption         =   "下载数据"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   480
         TabIndex        =   2
         Top             =   840
         Width           =   735
      End
      Begin VB.Label Label1 
         Caption         =   "起始地址"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   480
         TabIndex        =   1
         Top             =   405
         Width           =   735
      End
   End
End
Attribute VB_Name = "FrmEasyD12"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'            /*
'             *****************************************************************************
'             *
'             *  Copyright(c) 2002, 周立功单片机发展有限公司
'             *                   All rights reserved.
'             *
'             *     文   件: FrmEasyD12
'             *
'             *     摘   要: 本程序主要是通过调用EasyD12.dll动态连接库函数,控制USBU端对 DP-51
'             *              学习板24WC02时行读写控制。
'             *
'             *
'             *     创建日期:  2002年11月01日
'             *
'             ******************************************************************************
'             */



Private Sub Ch1_Click()
        '------------------------------------------------------------
        '说明:  判断是否是输入十六时制数，而设定文本框数据接授长度
        '------------------------------------------------------------
    TDown = ""
    If Ch1.Value = 1 Then
      TDown.MaxLength = 256 * 3
    Else
      TDown.MaxLength = 256
    End If
End Sub

Private Sub ComExit_Click()
  Unload Me                                                      '退出
End Sub
Private Sub ComRead_Click()
        '------------------------------------------------------------
        '说明:  先判断输入的数据是否符合要求，然后传给读函数
        '------------------------------------------------------------
        Dim BgnAdr_L As Integer
        Dim BgnAdr_H As Integer
        Dim nLen  As Integer
        Dim Str As String
        Dim str2 As String   '用于接收返回值
        
  On Error GoTo HaveErr

  
        
      Exit Sub
HaveErr:
        MsgBox "对不起!系统出错,请重新操作。", vbInformation, "提示"
End Sub

Private Sub ComWrite_Click()
        '------------------------------------------------------------
        '说明:  先判断输入的数据是否符合要求，然后传给写函数
        '------------------------------------------------------------
        Dim BgnAdr_L As Integer
        Dim BgnAdr_H As Integer
        Dim Str As String
        Dim str2 As String
        
 On Error GoTo HaveErr

        
 '       If Len(Trim(TDAdd)) = 0 Then
  '          MsgBox "请输入写数据的起始地址！", vbInformation, "提示"
   '         Exit Sub
    ''    End If
      '
'        If Len(Trim(TDown)) = 0 Then
 '           MsgBox "请输入要写入的数据！", vbInformation, "提示"
  '          Exit Sub
 '       End If
 '
 '       BgnAdr_L = HtoD(Trim(TDAdd))
 '       BgnAdr_H = 0
 '
 '
 '        If Ch1.Value = 1 Then
 '          Str = HtoS(TDown)
 '        Else
 '          Str = Trim(TDown)
 '        End If
 '       If (BgnAdr_L + Len(Str)) > TDown.MaxLength Then
 '           MsgBox "下载数据过长，请修改！", vbInformation, "提示"
 '           Exit Sub
 '       End If
        
 '       st = WriteE2PRom(BgnAdr_L, BgnAdr_H, Str)
 '       If st <> 0 Then
 '           MsgBox "写数据有误，请重新操作！", vbInformation, "提示"
 '           Exit Sub
 '       End If
 '         MsgBox "写E2PROM数据成功！", vbInformation, "提示"
          
          
      Exit Sub
HaveErr:
        MsgBox "对不起!系统出错,请重新操作。", vbInformation, "提示"
        
End Sub
Private Sub TDAdd_KeyPress(KeyAscii As Integer)
        '------------------------------------------------------------
        ' 判断输入是否为有效字符符(十六进制数)
        '------------------------------------------------------------

    Select Case KeyAscii
       Case 8
       Case 48 To 57
       Case 65 To 70
       Case 97 To 102
       Case Else
       KeyAscii = 0
     End Select

End Sub
Private Sub TDown_KeyPress(KeyAscii As Integer)
        '------------------------------------------------------------
        ' 判断输入是否为有效字符符(十六进制数),及空格
        '------------------------------------------------------------
 If Ch1.Value = 1 Then
    Select Case KeyAscii
       Case 8
       Case 32              '空格
       Case 48 To 57
       Case 65 To 70
       Case 97 To 102
       Case Else
       KeyAscii = 0
     End Select
  End If
End Sub

Private Sub TIAdd_KeyPress(KeyAscii As Integer)
        '------------------------------------------------------------
        ' 判断输入是否为有效字符符(十六进制数)
        '------------------------------------------------------------
    Select Case KeyAscii
       Case 8
       Case 48 To 57
       Case 65 To 70
       Case 97 To 102
       Case Else
       KeyAscii = 0
     End Select
End Sub

Private Sub TIncept_KeyPress(KeyAscii As Integer)
    KeyAscii = 0
End Sub

Private Sub Tlen_KeyPress(KeyAscii As Integer)
        '------------------------------------------------------------
        ' 判断输入是否为有效字符符(十进制数)
        '------------------------------------------------------------
    Select Case KeyAscii
       Case 8
       Case 48 To 57
       Case Else
       KeyAscii = 0
     End Select
End Sub