sport.dfm

合成实验的上位机程序

    Height = 32
    Caption = #25163#21160#21457#36865
    Flat = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton3Click
  end
  object SpeedButton4: TSpeedButton
    Left = 371
    Top = 275
    Width = 148
    Height = 32
    Caption = #20851#38381#31383#20307
    Flat = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton4Click
  end
  object ClsSpdBtn: TSpeedButton
    Left = 506
    Top = 10
    Width = 24
    Height = 22
    Flat = True
    Glyph.Data = {
      66010000424D6601000000000000760000002800000014000000140000000100
      040000000000F000000000000000000000001000000004000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      8888888800008888888888888888888800008888888888888888888800008888
      8888888888888888000088888808888888088888000088888000888880008888
      0000888888000888000888880000888888800080008888880000888888880000
      0888888800008888888880008888888800008888888800000888888800008888
      8880008000888888000088888800088800088888000088888000888880008888
      0000888880088888880088880000888888888888888888880000888888888888
      8888888800008888888888888888888800008888888888888888888800008888
      88888888888888880000}
    OnClick = ClsSpdBtnClick
  end
  object ComboBox1: TComboBox
    Left = 133
    Top = 42
    Width = 67
    Height = 24
    BevelInner = bvNone
    BevelKind = bkFlat
    Style = csDropDownList
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 16
    ItemIndex = 0
    ParentFont = False
    TabOrder = 0
    Text = 'COM1'
    OnChange = ComboBox1Change
    Items.Strings = (
      'COM1'
      'COM2'
      'COM3'
      'COM4')
  end
  object ComboBox2: TComboBox
    Left = 133
    Top = 66
    Width = 67
    Height = 24
    BevelInner = bvNone
    BevelKind = bkFlat
    Style = csDropDownList
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 16
    ItemIndex = 6
    ParentFont = False
    TabOrder = 1
    Text = '19200'
    OnChange = ComboBox2Change
    Items.Strings = (
      '300'
      '600'
      '1200'
      '2400'
      '4800'
      '9600'
      '19200'
      '38400'
      '43000'
      '56000'
      '57600'
      '115200')
  end
  object ComboBox3: TComboBox
    Left = 133
    Top = 90
    Width = 67
    Height = 24
    BevelInner = bvNone
    BevelKind = bkFlat
    Style = csDropDownList
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 16
    ItemIndex = 0
    ParentFont = False
    TabOrder = 2
    Text = 'None'
    OnChange = ComboBox3Change
    Items.Strings = (
      'None'
      'Odd'
      'Even'
      'Mark'
      'Space')
  end
  object ComboBox4: TComboBox
    Left = 133
    Top = 114
    Width = 67
    Height = 24
    BevelInner = bvNone
    BevelKind = bkFlat
    Style = csDropDownList
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 16
    ItemIndex = 3
    ParentFont = False
    TabOrder = 3
    Text = '8'
    OnChange = ComboBox4Change
    Items.Strings = (
      '5'
      '6'
      '7'
      '8')
  end
  object ComboBox5: TComboBox
    Left = 133
    Top = 138
    Width = 67
    Height = 24
    BevelInner = bvNone
    BevelKind = bkFlat
    Style = csDropDownList
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 16
    ItemIndex = 0
    ParentFont = False
    TabOrder = 4
    Text = '1'
    OnChange = ComboBox5Change
    Items.Strings = (
      '1'
      '1.5'
      '2')
  end
  object ComboBox6: TComboBox
    Left = 133
    Top = 186
    Width = 67
    Height = 24
    BevelInner = bvNone
    BevelKind = bkFlat
    Style = csDropDownList
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 16
    ItemIndex = 0
    ParentFont = False
    TabOrder = 5
    Text = #39640#21387
    OnChange = ComboBox6Change
    Items.Strings = (
      #39640#21387
      #24310#24359)
  end
  object ComboBox7: TComboBox
    Left = 133
    Top = 210
    Width = 67
    Height = 24
    BevelInner = bvNone
    BevelKind = bkFlat
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 16
    ItemIndex = 9
    ParentFont = False
    TabOrder = 6
    Text = '100'
    OnChange = ComboBox7Change
    OnKeyPress = ComboBox7KeyPress
    Items.Strings = (
      '10'
      '20'
      '30'
      '40'
      '50'
      '60'
      '70'
      '80'
      '90'
      '100'
      '200'
      '300'
      '400'
      '500'
      '600'
      '700'
      '800'
      '900'
      '1000'
      '1100'
      '1200'
      '1300'
      '1400'
      '1500'
      '1600'
      '1700'
      '1800'
      '1900'
      '2000'
      '2100'
      '2200'
      '2300'
      '2400'
      '2500')
  end
  object CheckBox1: TCheckBox
    Left = 30
    Top = 260
    Width = 137
    Height = 17
    Caption = #25509#25910#21306#25442#34892#26174#31034
    Checked = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 7
  end
  object CheckBox2: TCheckBox
    Left = 30
    Top = 282
    Width = 171
    Height = 17
    Caption = #36864#20986#26102#33258#21160#28165#31354#25509#25910#21306
    Checked = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    State = cbChecked
    TabOrder = 8
  end
  object Memo1: TMemo
    Left = 214
    Top = 46
    Width = 305
    Height = 115
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 9
  end
  object Memo2: TMemo
    Left = 214
    Top = 197
    Width = 305
    Height = 70
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    Lines.Strings = (
      'h100')
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 10
  end
  object Comm1: TComm
    CommName = 'COM1'
    BaudRate = 19200
    ParityCheck = False
    Outx_CtsFlow = False
    Outx_DsrFlow = False
    DtrControl = DtrEnable
    DsrSensitivity = False
    TxContinueOnXoff = True
    Outx_XonXoffFlow = True
    Inx_XonXoffFlow = True
    ReplaceWhenParityError = False
    IgnoreNullChar = False
    RtsControl = RtsEnable
    XonLimit = 500
    XoffLimit = 500
    ByteSize = _8
    Parity = None
    StopBits = _1
    XonChar = #17
    XoffChar = #19
    ReplacedChar = #0
    ReadIntervalTimeout = 100
    ReadTotalTimeoutMultiplier = 0
    ReadTotalTimeoutConstant = 0
    WriteTotalTimeoutMultiplier = 0
    WriteTotalTimeoutConstant = 0
    OnReceiveData = Comm1ReceiveData
    Left = 408
    Top = 16
  end
end