usbrw.dfm

EasyD12_PC动态连接库和例子

object Form1: TForm1
  Left = 275
  Top = 203
  Width = 514
  Height = 268
  Caption = 'USB--I2C测试程序(For C++ Builder 5.0)'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object BtnExit: TButton
    Left = 432
    Top = 208
    Width = 57
    Height = 25
    Caption = '退出'
    TabOrder = 0
    OnClick = BtnExitClick
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 489
    Height = 185
    Caption = '24WC系列串行E2PROM读写测试'
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 32
      Width = 48
      Height = 12
      Caption = '选择型号'
    end
    object Label2: TLabel
      Left = 16
      Top = 70
      Width = 48
      Height = 12
      Caption = '起始地址'
    end
    object Label3: TLabel
      Left = 208
      Top = 70
      Width = 48
      Height = 12
      Caption = '数据长度'
    end
    object Label4: TLabel
      Left = 16
      Top = 98
      Width = 48
      Height = 12
      Caption = '下传数据'
    end
    object Label5: TLabel
      Left = 16
      Top = 125
      Width = 48
      Height = 12
      Caption = '起始地址'
    end
    object Label6: TLabel
      Left = 208
      Top = 125
      Width = 48
      Height = 12
      Caption = '数据长度'
    end
    object Label7: TLabel
      Left = 16
      Top = 154
      Width = 48
      Height = 12
      Caption = '接收数据'
    end
    object BtnSend: TButton
      Left = 424
      Top = 96
      Width = 49
      Height = 25
      Caption = '下传'
      TabOrder = 0
      OnClick = BtnSendClick
    end
    object BtnRcv: TButton
      Left = 424
      Top = 144
      Width = 49
      Height = 25
      Caption = '接收'
      TabOrder = 1
      OnClick = BtnRcvClick
    end
    object cbSelectChip: TComboBox
      Left = 72
      Top = 28
      Width = 169
      Height = 20
      ItemHeight = 12
      TabOrder = 2
      Text = '24WC01'
      OnChange = cbSelectChipChange
      Items.Strings = (
        '24WC01'
        '24WC02'
        '24WC08'
        '24WC16'
        '24WC32'
        '24WC64')
    end
    object edSendAdr: TEdit
      Left = 72
      Top = 66
      Width = 129
      Height = 20
      TabOrder = 3
      OnKeyPress = edSendAdrKeyPress
    end
    object edSendLen: TEdit
      Left = 264
      Top = 66
      Width = 137
      Height = 20
      TabOrder = 4
      OnKeyPress = edSendLenKeyPress
    end
    object edSendData: TEdit
      Left = 72
      Top = 94
      Width = 329
      Height = 20
      TabOrder = 5
    end
    object edRcvAdr: TEdit
      Left = 72
      Top = 122
      Width = 129
      Height = 20
      TabOrder = 6
      OnKeyPress = edRcvAdrKeyPress
    end
    object edRcvLen: TEdit
      Left = 264
      Top = 122
      Width = 137
      Height = 20
      TabOrder = 7
      OnKeyPress = edRcvLenKeyPress
    end
    object edRcvData: TEdit
      Left = 72
      Top = 150
      Width = 329
      Height = 20
      TabOrder = 8
    end
  end
end