umodbusform.dfm

这是一个用D6实现的对LineGuard进行通信的简单例程,通过该程序

          '5015:Analog Input 5 Raw A/D Count'
          '5016:Analog Input 6 Raw A/D Count'
          '5017:Analog Input 7 Raw A/D Count'
          '5018:Analog Input 8 Raw A/D Count'
          '5019:Analog Input 9 Raw A/D Count'
          '7002:Line Diameter'
          '7005:Live Pressure'
          '7007:Input Voltage'
          '7011:Average Pressure'
          '7013:RoD minute Average'
          '7014:Atmospheric Pressure'
          '7015:Pressure(In Use)'
          '7017:Major Log Alarm Low Pressure Setpoint'
          '7018:Minor Log Alarm Low Pressure Setpoint'
          '7019:Minor Log Alarm High Pressure Setpoint'
          '7020:Major Log Alarm High Pressure Setpoint'
          '7025:Major Log Alarm High RoD Pressure Setpoint'
          '7026:Minor Log Alarm High RoD Pressure Setpoint'
          '7027:Battery Low Alarm'
          '7040:Analog Input 1 Zero EU'
          '7041:Analog Input 1 Mid 1 EU'
          '7042:Analog Input 1 Mid 2 EU'
          '7043:Analog Input 1 Mid 3 EU'
          '7044:Analog Input 1 Span EU'
          '7046:Analog Input 2 Zero EU'
          '7047:Analog Input 2 Mid 1 EU'
          '7048:Analog Input 2 Mid 2 EU'
          '7049:Analog Input 2 Mid 3 EU'
          '7050:Analog Input 2 Span EU')
        ScrollWidth = 1100
        TabOrder = 0
      end
      object btnGetNumeric: TButton
        Left = 781
        Top = 0
        Width = 75
        Height = 25
        Caption = #35835#21462
        TabOrder = 1
        OnClick = btnGetNumericClick
      end
      object edtValue: TEdit
        Left = 790
        Top = 40
        Width = 65
        Height = 21
        ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
        TabOrder = 2
      end
    end
    object tabSetNum: TTabSheet
      Caption = 'Set Numeric/Holding register'
      ImageIndex = 3
      object Label2: TLabel
        Left = 776
        Top = 43
        Width = 13
        Height = 13
        Caption = #20540
      end
      object lbSetNumeric: TListBox
        Left = 0
        Top = 0
        Width = 761
        Height = 274
        Align = alLeft
        ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
        ItemHeight = 13
        Items.Strings = (
          '3018:Digital Input 1 Status'
          '3019:Digital Input 2 Status'
          '3020:Digital Input 3 Status'
          '3021:Digital Input 4 Status'
          '3023:Average Sample Period(1-12)(1=5 sec,2=10 sec, etc.)'
          
            '3024:Event Duration(0-12)(0=0 sec,1=5 sec,2=10 sec,3=15 sec,4=30' +
            ' sec,5=60 sec,6=120 sec,7=180 sec,8=240 sec,9=300 sec,10=600 sec' +
            ',11=1200 sec,12=1800 sec)'
          
            '3025:Do Close Stoke Duration(1-12)(1=5 sec,2=10 sec,3=15 sec,4=3' +
            '0 sec,5=60 sec,6=120 sec,7=180 sec,8=240 sec,9=300 sec,10=600 se' +
            'c,11=1200 sec,12=1800 sec)'
          
            '3026:Do Open Stoke Duration(1-12)(1=5 sec,2=10 sec,3=15 sec,4=30' +
            ' sec,5=60 sec,6=120 sec,7=180 sec,8=240 sec,9=300 sec,10=600 sec' +
            ',11=1200 sec,12=1800 sec)'
          '3028:Comm Port 1 Baud Rate(0-3)(0=1200,1=2400,2=4800,3=9600)'
          '3031:Comm Port 1 Parity(0=None,1=Even,2=Odd)'
          '3032:Comm Port 1 Key On Delay(10 msec increments)'
          '3035:Comm Port 2 Baud Rate(0-3)(0=1200,1=2400,2=4800,3=9600)'
          '3038:Comm Port 2 Parity(0=None,1=Even,2=Odd)'
          '3039:Comm Port 2 Key On Delay(10 msec increments)'
          
            '3042:Minor Log Period(0-5)(0=30 sec,1=60 sec,2=120 sec,3=180 sec' +
            ',4=240 sec,5=300 sec)'
          '3043:Major Log Period(0-3)(0=5 sec,1=10 sec,2=15 sec,3=30 sec)'
          '3047:Major Record Number(0-1)'
          '3048:Minor Record Number(1-100)'
          '3054:Major Event Status'
          '3055:Minor Event Status'
          '3058:Comm Port 1 Key Off Delay(10 msec increments)'
          '3059:Comm Port 2 Key Off Delay(10 msec increments)'
          '3060:Digital Output 1 Status'
          '3061:Digital Output 2 Status'
          '5009:Major Log index Number'
          '5010:Minor Log index Number'
          '5011:Analog Input 1 Raw A/D Count'
          '5012:Analog Input 2 Raw A/D Count'
          '5013:Analog Input 3 Raw A/D Count'
          '5014:Analog Input 4 Raw A/D Count'
          '5015:Analog Input 5 Raw A/D Count'
          '5016:Analog Input 6 Raw A/D Count'
          '5017:Analog Input 7 Raw A/D Count'
          '5018:Analog Input 8 Raw A/D Count'
          '5019:Analog Input 9 Raw A/D Count'
          '7002:Line Diameter'
          '7005:Live Pressure'
          '7007:Input Voltage'
          '7011:Average Pressure'
          '7013:RoD minute Average'
          '7014:Atmospheric Pressure'
          '7015:Pressure(In Use)'
          '7017:Major Log Alarm Low Pressure Setpoint'
          '7018:Minor Log Alarm Low Pressure Setpoint'
          '7019:Minor Log Alarm High Pressure Setpoint'
          '7020:Major Log Alarm High Pressure Setpoint'
          '7025:Major Log Alarm High RoD Pressure Setpoint'
          '7026:Minor Log Alarm High RoD Pressure Setpoint'
          '7027:Battery Low Alarm'
          '7040:Analog Input 1 Zero EU'
          '7041:Analog Input 1 Mid 1 EU'
          '7042:Analog Input 1 Mid 2 EU'
          '7043:Analog Input 1 Mid 3 EU'
          '7044:Analog Input 1 Span EU'
          '7046:Analog Input 2 Zero EU'
          '7047:Analog Input 2 Mid 1 EU'
          '7048:Analog Input 2 Mid 2 EU'
          '7049:Analog Input 2 Mid 3 EU'
          '7050:Analog Input 2 Span EU')
        ScrollWidth = 1100
        TabOrder = 0
      end
      object btnSetNumeric: TButton
        Left = 781
        Top = 0
        Width = 75
        Height = 25
        Caption = #25191#34892
        TabOrder = 1
        OnClick = btnSetNumericClick
      end
      object edtSetValue: TEdit
        Left = 790
        Top = 40
        Width = 65
        Height = 21
        ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
        TabOrder = 2
      end
    end
    object tabData: TTabSheet
      Caption = 'DataLog Collection'
      ImageIndex = 4
      object lbLogs: TListBox
        Left = 0
        Top = 0
        Width = 201
        Height = 274
        Align = alLeft
        ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
        ItemHeight = 13
        Items.Strings = (
          'Minor Pressure log data '
          'Minor Rod log Data'
          'Major Pressure log data'
          'Major Rod log Data'
          'Event Log Data')
        TabOrder = 0
      end
      object btnReadLogs: TButton
        Left = 232
        Top = 0
        Width = 75
        Height = 25
        Caption = #25191#34892
        TabOrder = 1
        OnClick = btnReadLogsClick
      end
    end
  end
  object com: TSerialPortNG
    CommPort = 'COM2'
    ParityType = 2
    StopBits = 1
    DataBits = 7
    ErrorNoise = 255
    OnWriteDone = comWriteDone
    OnLineErrorEvent = comLineErrorEvent
    OnRxClusterEvent = comRxClusterEvent
    OnProcessError = comProcessError
    Left = 72
    Top = 352
  end
  object popStatus: TPopupMenu
    Left = 40
    Top = 352
    object N1: TMenuItem
      Caption = #28165#38500#29366#24577#20449#24687
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #20445#23384#29366#24577#20449#24687
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = #36890#35759#35774#32622
      OnClick = N3Click
    end
  end
  object WaitForResponseTimer: TTimer
    Enabled = False
    Interval = 5000
    OnTimer = WaitForResponseTimerTimer
    Left = 791
    Top = 120
  end
end