econv230p.~dfm

自已用DELPHI编写的MODBUS测试软件及源代码

          Tag = 1
          Caption = '300'
          RadioItem = True
          OnClick = b110Click
        end
        object b600: TMenuItem
          Tag = 2
          Caption = '600'
          RadioItem = True
          OnClick = b110Click
        end
        object b1200: TMenuItem
          Tag = 3
          Caption = '1200'
          RadioItem = True
          OnClick = b110Click
        end
        object b2400: TMenuItem
          Tag = 4
          Caption = '2400'
          RadioItem = True
          OnClick = b110Click
        end
        object b4800: TMenuItem
          Tag = 5
          Caption = '4800'
          RadioItem = True
          OnClick = b110Click
        end
        object b9600: TMenuItem
          Tag = 6
          Caption = '9600'
          RadioItem = True
          OnClick = b110Click
        end
        object b14400: TMenuItem
          Tag = 7
          Caption = '14400'
          RadioItem = True
          OnClick = b110Click
        end
        object b19200: TMenuItem
          Tag = 8
          Caption = '19200'
          RadioItem = True
          OnClick = b110Click
        end
        object b38400: TMenuItem
          Tag = 9
          Caption = '38400'
          RadioItem = True
          OnClick = b110Click
        end
        object b56000: TMenuItem
          Tag = 10
          Caption = '56000'
          RadioItem = True
          OnClick = b110Click
        end
        object b57600: TMenuItem
          Tag = 11
          Caption = '57600'
          RadioItem = True
          OnClick = b110Click
        end
        object b115200: TMenuItem
          Tag = 12
          Caption = '115200'
          RadioItem = True
          OnClick = b110Click
        end
        object b128000: TMenuItem
          Tag = 13
          Caption = '128000'
          RadioItem = True
          OnClick = b110Click
        end
        object b256000: TMenuItem
          Tag = 14
          Caption = '256000'
          RadioItem = True
          OnClick = b110Click
        end
        object buser: TMenuItem
          Tag = 15
          Caption = 'user'
          RadioItem = True
          OnClick = b110Click
        end
      end
      object m_protocol: TMenuItem
        Caption = '通讯规约'
        object MODBUSRTU1: TMenuItem
          Caption = 'MODBUS RTU'
          Checked = True
          RadioItem = True
          OnClick = MODBUSRTU1Click
        end
        object MODBUSASCII1: TMenuItem
          Tag = 1
          Caption = 'MODBUS ASCII'
          RadioItem = True
          OnClick = MODBUSRTU1Click
        end
        object cdt1: TMenuItem
          Tag = 2
          Caption = '...'
          RadioItem = True
          OnClick = MODBUSRTU1Click
        end
      end
      object m_port: TMenuItem
        Caption = '通讯端口'
        object COM11: TMenuItem
          Tag = 1
          Caption = 'COM1'
          Checked = True
          RadioItem = True
          OnClick = COM11Click
        end
        object COM21: TMenuItem
          Tag = 2
          Caption = 'COM2'
          RadioItem = True
          OnClick = COM11Click
        end
        object COM31: TMenuItem
          Tag = 3
          Caption = 'COM3'
          RadioItem = True
          OnClick = COM11Click
        end
        object COM41: TMenuItem
          Tag = 4
          Caption = 'COM4'
          RadioItem = True
          OnClick = COM11Click
        end
        object COM51: TMenuItem
          Tag = 5
          Caption = 'COM5'
          RadioItem = True
          OnClick = COM11Click
        end
        object COM61: TMenuItem
          Tag = 6
          Caption = 'COM6'
          RadioItem = True
          OnClick = COM11Click
        end
        object COM71: TMenuItem
          Tag = 7
          Caption = 'COM7'
          RadioItem = True
          OnClick = COM11Click
        end
        object COM81: TMenuItem
          Tag = 8
          Caption = 'COM8'
          RadioItem = True
          OnClick = COM11Click
        end
        object COM91: TMenuItem
          Tag = 9
          Caption = 'COM9'
          RadioItem = True
          OnClick = COM11Click
        end
        object COM101: TMenuItem
          Tag = 10
          Caption = 'COM10'
          OnClick = COM11Click
        end
      end
      object m_verify: TMenuItem
        Caption = '奇偶校验'
        object paritynone: TMenuItem
          Caption = '无校验'
          Checked = True
          RadioItem = True
          OnClick = paritynoneClick
        end
        object parityodd: TMenuItem
          Tag = 1
          Caption = '奇校验'
          RadioItem = True
          OnClick = paritynoneClick
        end
        object parityeven: TMenuItem
          Tag = 2
          Caption = '偶校验'
          RadioItem = True
          OnClick = paritynoneClick
        end
      end
      object m_address: TMenuItem
        Caption = '模块地址'
        object address1: TMenuItem
          Caption = '1'
          Checked = True
          RadioItem = True
          OnClick = address1Click
        end
        object address2: TMenuItem
          Caption = '2'
          RadioItem = True
          OnClick = address1Click
        end
        object address3: TMenuItem
          Caption = '3'
          RadioItem = True
          OnClick = address1Click
        end
        object address4: TMenuItem
          Caption = '4'
          RadioItem = True
          OnClick = address1Click
        end
        object address5: TMenuItem
          Caption = '5'
          RadioItem = True
          OnClick = address1Click
        end
        object address6: TMenuItem
          Caption = '6'
          RadioItem = True
          OnClick = address1Click
        end
        object address7: TMenuItem
          Caption = '7'
          RadioItem = True
          OnClick = address1Click
        end
        object address8: TMenuItem
          Caption = '8'
          RadioItem = True
          OnClick = address1Click
        end
        object address9: TMenuItem
          Caption = '9'
          RadioItem = True
          OnClick = address1Click
        end
        object address10: TMenuItem
          Caption = '10'
          RadioItem = True
          OnClick = address1Click
        end
        object address11: TMenuItem
          Caption = '11'
          RadioItem = True
          OnClick = address1Click
        end
        object address12: TMenuItem
          Caption = '12'
          RadioItem = True
          OnClick = address1Click
        end
        object address13: TMenuItem
          Caption = '13'
          RadioItem = True
          OnClick = address1Click
        end
        object address14: TMenuItem
          Caption = '14'
          RadioItem = True
          OnClick = address1Click
        end
        object address15: TMenuItem
          Caption = '15'
          RadioItem = True
          OnClick = address1Click
        end
        object address16: TMenuItem
          Caption = '16'
          RadioItem = True
          OnClick = address1Click
        end
        object address17: TMenuItem
          Caption = '17'
          RadioItem = True
          OnClick = address1Click
        end
        object address18: TMenuItem
          Caption = '18'
          RadioItem = True
          OnClick = address1Click
        end
        object address19: TMenuItem
          Caption = '19'
          RadioItem = True
          OnClick = address1Click
        end
        object address20: TMenuItem
          Caption = '20'
          RadioItem = True
          OnClick = address1Click
        end
        object address21: TMenuItem
          Caption = '21'
          RadioItem = True
          OnClick = address1Click
        end
        object address22: TMenuItem
          Caption = '22'
          RadioItem = True
          OnClick = address1Click
        end
        object address23: TMenuItem
          Caption = '23'
          RadioItem = True
          OnClick = address1Click
        end
        object address24: TMenuItem
          Caption = '24'
          RadioItem = True
          OnClick = address1Click
        end
        object address25: TMenuItem
          Caption = '25'
          RadioItem = True
          OnClick = address1Click
        end
        object address26: TMenuItem
          Caption = '26'
          RadioItem = True
          OnClick = address1Click
        end
        object address27: TMenuItem
          Caption = '27'
          RadioItem = True
          OnClick = address1Click
        end
        object address28: TMenuItem
          Caption = '28'
          RadioItem = True
          OnClick = address1Click
        end
        object address29: TMenuItem
          Caption = '29'
          RadioItem = True
          OnClick = address1Click
        end
        object address30: TMenuItem
          Caption = '30'
          RadioItem = True
          OnClick = address1Click
        end
        object address31: TMenuItem
          Caption = '31'
          RadioItem = True
          OnClick = address1Click
        end
        object address32: TMenuItem
          Caption = '32'
          RadioItem = True
          OnClick = address1Click
        end
      end
      object N2: TMenuItem
        Caption = '超时时间'
        OnClick = N2Click
      end
      object N1: TMenuItem
        Caption = '两帧间隔时间'
        OnClick = N1Click
      end
      object m_comcontrol: TMenuItem
        Caption = '开始通讯'
        OnClick = m_comcontrolClick
      end
    end
    object m_help: TMenuItem
      Caption = '帮助'
      object m_about: TMenuItem
        Caption = '关于'
        OnClick = m_aboutClick
      end
    end
  end
  object sendtimer: TTimer
    Enabled = False
    Interval = 1
    OnTimer = sendtimerTimer
    Left = 92
    Top = 434
  end
  object revtimer: TTimer
    Enabled = False
    Interval = 1
    OnTimer = revtimerTimer
    Left = 124
    Top = 434
  end
  object PopupMenu1: TPopupMenu
    Left = 452
    Top = 434
    object save: TMenuItem
      Caption = 'save'
      OnClick = saveClick
    end
    object saveas: TMenuItem
      Caption = 'save as'
      OnClick = saveasClick
    end
  end
  object open1: TOpenDialog
    Filter = 'txt|*.txt'
    Title = '打开产品定义文件'
    Left = 358
    Top = 434
  end
  object Save1: TSaveDialog
    DefaultExt = '*.txt'
    Filter = 'txt|*.TXT'
    Title = '文件另存为'
    Left = 393
    Top = 434
  end
  object readholdtimer: TTimer
    Enabled = False
    Interval = 8300
    OnTimer = readholdtimerTimer
    Left = 156
    Top = 434
  end
  object readfifotimer: TTimer
    Enabled = False
    Interval = 3000
    OnTimer = readfifotimerTimer
    Left = 188
    Top = 434
  end
  object PopupMenu2: TPopupMenu
    Left = 484
    Top = 434
    object save2: TMenuItem
      Caption = 'save'
      OnClick = save2Click
    end
  end
  object TimerOut1: TTimer
    Enabled = False
    Interval = 500
    OnTimer = TimerOut1Timer
    Left = 276
    Top = 434
  end
  object VaComm1: TVaComm
    FlowControl.OutCtsFlow = False
    FlowControl.OutDsrFlow = False
    FlowControl.ControlDtr = dtrDisabled
    FlowControl.ControlRts = rtsDisabled
    FlowControl.XonXoffOut = False
    FlowControl.XonXoffIn = False
    FlowControl.DsrSensitivity = False
    FlowControl.TxContinueOnXoff = False
    DeviceName = 'COM%d'
    Left = 236
    Top = 434
  end
end