unit1.dfm

很不错的ADSL串口测试程序

object FrmADSLmain: TFrmADSLmain
  Left = 193
  Top = 106
  BorderStyle = bsSingle
  Caption = 'ADSL'#19979#31227#26426#25151#30417#25511#22120#27979#35797#36719#20214'V1.0'
  ClientHeight = 437
  ClientWidth = 751
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object SBStartTask: TSpeedButton
    Left = 416
    Top = 40
    Width = 65
    Height = 25
    Caption = #24320#22987#37319#38598
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SBStartTaskClick
  end
  object SBStopTask: TSpeedButton
    Left = 512
    Top = 40
    Width = 65
    Height = 25
    Caption = #20572#27490#37319#38598
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SBStopTaskClick
  end
  object SBPortSet: TSpeedButton
    Left = 616
    Top = 40
    Width = 65
    Height = 25
    Caption = #31471#21475#37197#32622
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SBPortSetClick
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 751
    Height = 29
    Caption = 'ToolBar1'
    Color = cl3DLight
    EdgeOuter = esRaised
    ParentColor = False
    TabOrder = 0
  end
  object EditTCP: TEdit
    Left = 248
    Top = 8
    Width = 137
    Height = 21
    Enabled = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    ParentFont = False
    TabOrder = 1
    Text = '10.90.60.252:961'
    OnChange = EditTCPChange
  end
  object StaticText1: TStaticText
    Left = 176
    Top = 8
    Width = 74
    Height = 17
    Caption = #36828#31243'IP'#22320#22336#65306
    TabOrder = 2
  end
  object StaticText2: TStaticText
    Left = 408
    Top = 8
    Width = 118
    Height = 17
    Caption = #35774#22791#22320#22336'('#21313#20845#36827#21046')'#65306
    TabOrder = 3
  end
  object CBAddress: TComboBox
    Left = 528
    Top = 8
    Width = 81
    Height = 21
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 4
    Text = '01'
    OnChange = CBAddressChange
    Items.Strings = (
      '01'
      '02'
      '03'
      '04'
      '05'
      '06'
      '07'
      '08'
      '09'
      '0A')
  end
  object CB_Save: TCheckBox
    Left = 632
    Top = 8
    Width = 113
    Height = 17
    Caption = #36890#20449#35760#24405#23384#20648
    TabOrder = 5
    OnClick = CB_SaveClick
  end
  object Memo1: TMemo
    Left = 0
    Top = 32
    Width = 185
    Height = 377
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    Lines.Strings = (
      '')
    TabOrder = 6
  end
  object StaticText3: TStaticText
    Left = 192
    Top = 40
    Width = 107
    Height = 17
    Caption = #37319#38598#26102#38047#36873#25321'(ms)'#65306
    TabOrder = 7
  end
  object ComboBoxTimer: TComboBox
    Left = 304
    Top = 40
    Width = 73
    Height = 21
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    ItemHeight = 13
    ItemIndex = 2
    TabOrder = 8
    Text = '400'
    OnChange = ComboBoxTimerChange
    Items.Strings = (
      '100'
      '200'
      '400'
      '600'
      '800'
      '1000'
      '1200'
      '1400'
      '1600'
      '1800'
      '2000'
      '')
  end
  object PageControl1: TPageControl
    Left = 192
    Top = 72
    Width = 553
    Height = 337
    ActivePage = TabSheetXH
    TabIndex = 0
    TabOrder = 9
    object TabSheetXH: TTabSheet
      Caption = #37319#38598#25968#25454#26597#35810
      object GroupBox1: TGroupBox
        Left = 0
        Top = 8
        Width = 545
        Height = 193
        Caption = '48 V '#30452#27969#30005#21387'(V)'
        Color = clBtnFace
        ParentColor = False
        TabOrder = 0
        object Label2: TLabel
          Left = 32
          Top = 88
          Width = 105
          Height = 17
          AutoSize = False
          Caption = #35774#32622#30005#21387#31995#25968#65306
        end
        object Label3: TLabel
          Left = 328
          Top = 88
          Width = 97
          Height = 17
          AutoSize = False
          Caption = #24403#21069#30005#21387#31995#25968#65306
        end
        object LB48VShow: TLabel
          Left = 432
          Top = 88
          Width = 40
          Height = 24
          Caption = '0000'
          Color = clSkyBlue
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -20
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object LMDLEDLab48V: TLMDLEDLabel
          Left = 184
          Top = 23
          Width = 105
          Height = 42
          HelpType = htKeyword
          Align = alCustom
          AutoSize = True
          Bevel.StyleOuter = bvRaised
          Bevel.BorderWidth = 1
          Bevel.EdgeStyle = etRaised
          Bevel.Mode = bmCustom
          LED.Horzsize = 10
          LED.Vertsize = 12
          Caption = '00.00'
        end
        object Label1: TLabel
          Left = 32
          Top = 136
          Width = 97
          Height = 17
          AutoSize = False
          Caption = #30446#26631#30005#21387#20540'(V)'#65306
        end
        object SpeedButton1: TSpeedButton
          Left = 312
          Top = 136
          Width = 73
          Height = 25
          Caption = #33258#21160#35843#35797
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          OnClick = SpeedButton1Click
        end
        object SpeedButton2: TSpeedButton
          Left = 408
          Top = 136
          Width = 89
          Height = 25
          Caption = #32467#26463#33258#21160#35843#35797
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          OnClick = SpeedButton2Click
        end
        object Edit48VPSet: TEdit
          Tag = 2
          Left = 144
          Top = 88
          Width = 121
          Height = 21
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 0
          Text = '10000'
        end
        object UpDown2: TUpDown
          Left = 265
          Top = 88
          Width = 17
          Height = 21
          Associate = Edit48VPSet
          Enabled = False
          Min = 0
          Max = 32767
          Position = 10000
          TabOrder = 1
          Thousands = False
          Wrap = False
          OnClick = UpDown2Click
        end
        object Edit1: TEdit
          Left = 144
          Top = 136
          Width = 121
          Height = 21
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 2
          Text = '48.00'
        end
      end
      object GroupBox2: TGroupBox
        Left = 0
        Top = 216
        Width = 545
        Height = 89
        Caption = '220 V '#20132#27969#30005#21387
        TabOrder = 1
        object Shape220VXH: TShape
          Left = 192
          Top = 32
          Width = 57
          Height = 33
          Brush.Color = clSilver
          Shape = stCircle
        end
        object Label220VXH: TLabel
          Left = 272
          Top = 40
          Width = 57
          Height = 25
          AutoSize = False
          Caption = #26080#30005
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
      end
    end
    object TabSheetSET: TTabSheet
      Caption = #22320#22336#21442#25968#35774#32622
      ImageIndex = 1
      object GroupBox4: TGroupBox
        Left = 0
        Top = 64
        Width = 545
        Height = 97
        Caption = #22320#22336#21442#25968#35774#32622
        TabOrder = 0
        object SBAddrSET: TSpeedButton
          Tag = 6
          Left = 272
          Top = 40
          Width = 57
          Height = 22
          Caption = #35774#32622
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          OnClick = SBAddrSETClick
        end
        object StaticText5: TStaticText
          Left = 24
          Top = 48
          Width = 118
          Height = 17
          Caption = #35774#22791#22320#22336'('#21313#20845#36827#21046')'#65306
          TabOrder = 0
        end
        object CBoxAdrSET: TComboBox
          Tag = 6
          Left = 160
          Top = 40
          Width = 81
          Height = 21
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          ItemHeight = 13
          ItemIndex = 0
          TabOrder = 1
          Text = '01'
          Items.Strings = (
            '01'
            '02'
            '03'
            '04'
            '05'
            '06'
            '07'
            '08'
            '09'
            '0A')
        end
      end
    end
    object TabSheetMSET: TTabSheet
      Caption = #30331#38470#21629#20196#35774#32622
      ImageIndex = 2
      object GroupBox5: TGroupBox
        Left = 0
        Top = 64
        Width = 545
        Height = 97
        Caption = '48 V '#30452#27969#30005#21387#31995#25968#35774#32622#30331#38470
        TabOrder = 0
        object Label9: TLabel
          Left = 40
          Top = 49
          Width = 73
          Height = 13
          AutoSize = False
          Caption = #22235#20301'BCD'#30721
        end
        object Edit48VOrder: TEdit
          Tag = 4
          Left = 120
          Top = 48
          Width = 121
          Height = 21
          ImeName = #32043#20809#25340#38899#36755#20837#27861
          TabOrder = 0
          Text = '0000'
        end
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 415
    Width = 751
    Height = 22
    Panels = <
      item
        Text = ' V 1.0 '#29256#26412
        Width = 100
      end
      item
        Width = 300
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object StaticText4: TStaticText
    Left = 8
    Top = 8
    Width = 64
    Height = 17
    Caption = #36830#25509#26041#24335#65306
    TabOrder = 11
  end
  object ComboBoxCOM: TComboBox
    Left = 72
    Top = 8
    Width = 81
    Height = 21
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    ItemHeight = 13
    ItemIndex = 0
    TabOrder = 12
    Text = #20018#21475
    OnChange = ComboBoxCOMChange
    Items.Strings = (
      #20018#21475
      'TCP')
  end
  object YbCommDevice1: TYbCommDevice
    PortNo = 1
    Baud = br19200
    ByteSize = 8
    InBufSize = 8192
    OutBufSize = 8192
    HwInSize = 1200
    HwOutSize = 1200
    QueueSize = 16
    PackageSize = 4096
    OnCommNotify = YbCommDevice1CommNotify
    Left = 48
    Top = 168
  end
  object ClientSocket1: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    Left = 48
    Top = 128
  end
  object MainMenu1: TMainMenu
    Left = 48
    Top = 208
    object P1: TMenuItem
      Caption = #31471#21475#31649#29702'(&P)'
      object N1: TMenuItem
        Caption = #31471#21475#37197#32622'(&P)'
        OnClick = N1Click
      end
      object TCP1: TMenuItem
        Caption = #36828#31243'TCP'#36830#25509'(&T)'
      end
      object E1: TMenuItem
        Caption = #20851#38381'(&E)'
        OnClick = E1Click
      end
    end
    object R1: TMenuItem
      Caption = #25509#25910#25968#25454'(&R)'
      object N2: TMenuItem
        Caption = #28165#38500#26174#31034'(&C)'
        OnClick = N2Click
      end
    end
    object N3: TMenuItem
      Caption = #21457#36865#25968#25454'(&T)'
      object N4: TMenuItem
        Caption = #24320#22987#37319#38598'(&S)'
        OnClick = N4Click
      end
      object P2: TMenuItem
        Caption = #20572#27490#37319#38598'(&P)'
        OnClick = P2Click
      end
      object L1: TMenuItem
        Caption = #26174#31034#26085#24535'(&L)'
        OnClick = L1Click
      end
    end
    object H1: TMenuItem
      Caption = #24110#21161'(&H)'
      object N5: TMenuItem
        Caption = #29256#26412'(&V)'
        OnClick = N5Click
      end
    end
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 48
    Top = 88
  end
end