unit1.dfm

delphi实现的MODBUS主站程序

object Form1: TForm1
  Left = 306
  Top = 188
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'TModbusM'#27979#35797
  ClientHeight = 274
  ClientWidth = 389
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 6
    Top = 156
    Width = 48
    Height = 12
    Caption = #21151' '#33021' '#30721
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 5
    Top = 180
    Width = 48
    Height = 12
    Caption = #36215#22987#22320#22336
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 5
    Top = 204
    Width = 48
    Height = 12
    Caption = #35835#21462#25968#37327
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 5
    Top = 228
    Width = 48
    Height = 12
    Caption = #20174#31449#22320#22336
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Panel1: TPanel
    Left = 8
    Top = 8
    Width = 92
    Height = 49
    Color = clLime
    TabOrder = 0
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 255
    Width = 389
    Height = 19
    Panels = <
      item
        Width = 50
      end>
  end
  object BitBtn1: TBitBtn
    Left = 8
    Top = 64
    Width = 92
    Height = 33
    Caption = #21457#36865#25968#25454
    TabOrder = 2
    OnClick = BitBtn1Click
    Glyph.Data = {
      CE040000424DCE040000000000008E0200002800000018000000180000000100
      08000000000040020000120B0000120B00009600000096000000FFFAEB00FFFF
      E600FFFFDE00FFFFD800FFFDD300FEE4D300FFF5CB00FFF1C800FFECC200EFC7
      9D00F0BC8800E5AC7200C26F6B00E9955700E2874700C16F6B00C0675A00D980
      5100FDE3D300E3884800E2874800E3884900E48C4E00E58D4F00E68E5000E58E
      5100E58F5400E6915500E6915600E2884800E3894900E38A4A00E48B4B00E38A
      4B00E28A4B00E48B4C00E48C4C00E48C4D00E38C4D00E68E4F00E48D4E00E58E
      4F00E58E5000E58F5000E38D4F00E7905200E68F5100E6915100E7915300E690
      5200E6915300E7925400E3915300E8935600E8945600E7925500E7935500E692
      5500E9945700E9955800E9965800E8945700E8955700E6965900EA985C00E898
      5C00E9995E00E6995F00EB9D6200EA9C6100EC9E6400EEA06600ED9F6500F1A3
      6900EFA26800F1A46A00EDA26800F1A66C00F0A66D00E9A16E00F5AC7500EDA7
      7400F1A76D00F1A96F00F1AB7000EEA76F00F1AC7200F0AA7300F7B17900F8B5
      8000FABB8300FCBE8500FCBF8800FCC08800F3B98300FCC08900F3B98400FFC3
      8F00F9C08F00FFCA9A00E6AC7200F0BB8600F4BD8900F3BE8800F5BE8A00F7C5
      9200F7C59300FCCB9B00FBCA9A00FFCFA100FFD0A100FFD1A300EFC79E00FFD2
      A300FFD3A500FFD4A600FFD5A800EEC79D00FFD7AC00FFD8AC00FFD9AE00FFD8
      AA00FFD9AC00FFDAB000FFDBB000FFDCB200FFDEB500FFDDB200FFDEB300FFDF
      B500FFE2BB00FFDFB300FFE0B500FFE1B600FFE2B800FFE3BB00FFE5BC00FFE6
      BB00FFE6BC00FFE9BF00FFF3C700FFFBEC00FFF5C800FFF8CE00FFF8CC00FFFC
      D300FFFFD400FFFFD900FFFFE20000000000200D0D0D3E0D0D3E0D0D0D0D0D0D
      3E0D0D0D0D0D3E0D361F3C5D5F5C5B5F5C5B5D5F5C5D5F5C5B5D5F5C5F5C5B5D
      5A2F560101010101010101010101010101010101010101010338540202020202
      0202940202020202029402020202020292385303030303030303930303030303
      03930303030303039033520404040404040491048C3D8E040491040404040404
      8F334D0606060606060606063A235806060606060606060606304B0707070707
      070707610E1D3571070707070707070707304908080808080808831E1325273B
      8908080808080808082D4A8A8A8A8B8B8A8B4013300E182E508B8B8A8B8B8A8B
      8B31478888888786885913210E0E0E2D2863828887868886882E488185817E84
      6D21140E0E0E0E0E242E7C817E848180852E467C7F7B7B78371D2B0E0E0E0E0E
      1D234E7B7B7D7B7B7D2B447A7977775721150E0E0E0E0E0E0E31216277767777
      7628447472744C211E320E0E0E0E0E0E0E0E2A166D747473740E45716E4C1E1D
      21172B2B2B2B2B2B2B2B291D446E716F710E426B6C1E1E1E2939391B1B391B39
      39391B1925556B6B6B0E41696A6A6A685E605E60605E605E5E5E60605E666969
      69213F0A0A0A670A0A0A0A0A0A0A65656565650A0A6565656526340B0B0B640B
      0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B224375090909700975750909097570
      0909750909757009092C51000000008D000000000000008D0000000000008D00
      001C4F050505120512050512050505120505050505051205051A100C0C0C0F0C
      0F0C0C0F0C0C0C0F0C0C0C0C0C0C0F0C0C11}
  end
  object BitBtn2: TBitBtn
    Left = 8
    Top = 104
    Width = 92
    Height = 33
    Caption = #27979#35797#25968#25454
    TabOrder = 3
    OnClick = BitBtn2Click
    Glyph.Data = {
      CE040000424DCE040000000000008E0200002800000018000000180000000100
      08000000000040020000120B0000120B00009600000096000000FFFAEB00FFFF
      E600FFFFDE00FFFFD800FFFDD300FEE4D300FFF5CB00FFF1C800FFECC200EFC7
      9D00F0BC8800E5AC7200C26F6B00E9955700E2874700C16F6B00C0675A00D980
      5100FDE3D300E3884800E2874800E3884900E48C4E00E58D4F00E68E5000E58E
      5100E58F5400E6915500E6915600E2884800E3894900E38A4A00E48B4B00E38A
      4B00E28A4B00E48B4C00E48C4C00E48C4D00E38C4D00E68E4F00E48D4E00E58E
      4F00E58E5000E58F5000E38D4F00E7905200E68F5100E6915100E7915300E690
      5200E6915300E7925400E3915300E8935600E8945600E7925500E7935500E692
      5500E9945700E9955800E9965800E8945700E8955700E6965900EA985C00E898
      5C00E9995E00E6995F00EB9D6200EA9C6100EC9E6400EEA06600ED9F6500F1A3
      6900EFA26800F1A46A00EDA26800F1A66C00F0A66D00E9A16E00F5AC7500EDA7
      7400F1A76D00F1A96F00F1AB7000EEA76F00F1AC7200F0AA7300F7B17900F8B5
      8000FABB8300FCBE8500FCBF8800FCC08800F3B98300FCC08900F3B98400FFC3
      8F00F9C08F00FFCA9A00E6AC7200F0BB8600F4BD8900F3BE8800F5BE8A00F7C5
      9200F7C59300FCCB9B00FBCA9A00FFCFA100FFD0A100FFD1A300EFC79E00FFD2
      A300FFD3A500FFD4A600FFD5A800EEC79D00FFD7AC00FFD8AC00FFD9AE00FFD8
      AA00FFD9AC00FFDAB000FFDBB000FFDCB200FFDEB500FFDDB200FFDEB300FFDF
      B500FFE2BB00FFDFB300FFE0B500FFE1B600FFE2B800FFE3BB00FFE5BC00FFE6
      BB00FFE6BC00FFE9BF00FFF3C700FFFBEC00FFF5C800FFF8CE00FFF8CC00FFFC
      D300FFFFD400FFFFD900FFFFE20000000000200D0D0D3E0D0D3E0D0D0D0D0D0D
      3E0D0D0D0D0D3E0D361F3C5D5F5C5B5F5C5B5D5F5C5D5F5C5B5D5F5C5F5C5B5D
      5A2F560101010101010101010101010101010101010101010338540202020202
      0202940202020202029402020202020292385303030303030303930303030303
      03930303030303039033520404040404040491048C3D8E040491040404040404
      8F334D0606060606060606063A235806060606060606060606304B0707070707
      070707610E1D3571070707070707070707304908080808080808831E1325273B
      8908080808080808082D4A8A8A8A8B8B8A8B4013300E182E508B8B8A8B8B8A8B
      8B31478888888786885913210E0E0E2D2863828887868886882E488185817E84
      6D21140E0E0E0E0E242E7C817E848180852E467C7F7B7B78371D2B0E0E0E0E0E
      1D234E7B7B7D7B7B7D2B447A7977775721150E0E0E0E0E0E0E31216277767777
      7628447472744C211E320E0E0E0E0E0E0E0E2A166D747473740E45716E4C1E1D
      21172B2B2B2B2B2B2B2B291D446E716F710E426B6C1E1E1E2939391B1B391B39
      39391B1925556B6B6B0E41696A6A6A685E605E60605E605E5E5E60605E666969
      69213F0A0A0A670A0A0A0A0A0A0A65656565650A0A6565656526340B0B0B640B
      0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B224375090909700975750909097570
      0909750909757009092C51000000008D000000000000008D0000000000008D00
      001C4F050505120512050512050505120505050505051205051A100C0C0C0F0C
      0F0C0C0F0C0C0C0F0C0C0C0C0C0C0F0C0C11}
  end
  object Memo1: TMemo
    Left = 107
    Top = 8
    Width = 278
    Height = 145
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Fixedsys'
    Font.Style = []
    ImeName = #26234#33021#38472#26725#36755#20837#24179#21488'  5.5'
    Lines.Strings = (
      '')
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 4
  end
  object Edit1: TEdit
    Left = 59
    Top = 152
    Width = 41
    Height = 21
    ImeName = #26234#33021#38472#26725#36755#20837#24179#21488'  5.5'
    TabOrder = 5
    Text = '4'
  end
  object Edit2: TEdit
    Left = 59
    Top = 176
    Width = 41
    Height = 21
    ImeName = #26234#33021#38472#26725#36755#20837#24179#21488'  5.5'
    TabOrder = 6
    Text = '0'
  end
  object Edit3: TEdit
    Left = 59
    Top = 200
    Width = 41
    Height = 21
    ImeName = #26234#33021#38472#26725#36755#20837#24179#21488'  5.5'
    TabOrder = 7
    Text = '34'
  end
  object Edit4: TEdit
    Left = 59
    Top = 224
    Width = 41
    Height = 21
    ImeName = #26234#33021#38472#26725#36755#20837#24179#21488'  5.5'
    TabOrder = 8
    Text = '11'
  end
  object Memo2: TMemo
    Left = 106
    Top = 160
    Width = 279
    Height = 89
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Fixedsys'
    Font.Style = []
    ImeName = #26234#33021#38472#26725#36755#20837#24179#21488'  5.5'
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 9
  end
  object MBM: TModbusM
    ComPort = pnCOM3
    OnResponseReady = MBMResponseReady
    OnError = MBMError
    SlaveId = 4
    FunctionCode = 0
    Offset = 0
    Quantity = 0
    RegisterDim = 2
    Timeout = 500
    Left = 192
    Top = 40
  end
  object Timer1: TTimer
    Interval = 9
    OnTimer = Timer1Timer
    Left = 224
    Top = 40
  end
end