umodbusform.dfm

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

object ModbusForm: TModbusForm
  Left = 92
  Top = 104
  Width = 895
  Height = 572
  Caption = 'ModBus'#27979#35797
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object lbStatus: TListBox
    Left = 8
    Top = 320
    Width = 865
    Height = 209
    ImeName = #29579#30721#20116#31508#22411#36755#20837#27861'86'#29256
    ItemHeight = 13
    PopupMenu = popStatus
    TabOrder = 0
  end
  object PageControl1: TPageControl
    Left = 8
    Top = 8
    Width = 865
    Height = 305
    ActivePage = tabGetBool
    Style = tsFlatButtons
    TabIndex = 0
    TabOrder = 1
    object tabGetBool: TTabSheet
      Caption = 'Get Boolean/Logic Coil Status'
      object lbReadBool: 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 = (
          '1001:Alarm Status--Major Log Static Pressure Low Alarm'
          '1002:Alarm Status--Minor Log Static Pressure Low Alarm'
          '1003:Alarm Status--Minor Log Static Pressure High Alarm'
          '1004:Alarm Status--Major Log Static Pressure High Alarm'
          '1009:Alarm Status--Minor Log RoD High Alarm'
          '1010:Alarm Status--Major Log RoD High Alarm'
          '1011:Alarm Status--Battery Low Alarm'
          '1012:Alarm Status--Minor Event Active Alarm'
          '1013:Alarm Status--Major Event Pending Alarm'
          '1065:Alarm Enable--Major Log Static Pressure Low Alarm Enable'
          '1066:Alarm Enable--Minor Log Static Pressure Low Alarm Enable'
          '1067:Alarm Enable--Minor Log Static Pressure High Alarm Enable'
          '1068:Alarm Enable--Major Log Static Pressure High Alarm Enable'
          '1073:Alarm Enable--Minor Log RoD High Alarm Enable'
          '1074:Alarm Enable--Major Log RoD High Alarm Enable'
          '1097:Cold Start(0=None, 1=Initiate Cold Start)'
          '1098:Re-arm/Reset Major Log'
          
            '1105:AutoClosure Mask--High Static Pressure Mask(0=Auto-Close, 1' +
            '= Do Not Close)'
          
            '1106:AutoClosure Mask--Low Static Pressure Mask(0=Auto-Close, 1=' +
            ' Do Not Close)'
          '1107:AutoClosure Mask--High RoD(0=Auto-Close, 1= Do Not Close)'
          '1129:Digital Input 1 status'
          '1130:Digital Input 2 status'
          '1131:Digital Input 3 status'
          '1132:Digital Input 4 status'
          '1133:Digital Output 1 status'
          '1134:Digital Output 2 status')
        TabOrder = 0
      end
      object btnRedBool: TButton
        Left = 776
        Top = 8
        Width = 75
        Height = 25
        Caption = #35835#21462
        TabOrder = 1
        OnClick = btnRedBoolClick
      end
      object Button1: TButton
        Left = 776
        Top = 40
        Width = 75
        Height = 25
        Caption = #21453#35299
        TabOrder = 2
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 776
        Top = 152
        Width = 75
        Height = 25
        Caption = 'Button2'
        TabOrder = 3
        OnClick = Button2Click
      end
    end
    object tabSetBool: TTabSheet
      Caption = 'Set Boolean/Logic Coil Status'
      ImageIndex = 1
      object lbSetBool: 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 = (
          '1001:Alarm Status--Major Log Static Pressure Low Alarm'
          '1002:Alarm Status--Minor Log Static Pressure Low Alarm'
          '1003:Alarm Status--Minor Log Static Pressure High Alarm'
          '1004:Alarm Status--Major Log Static Pressure High Alarm'
          '1009:Alarm Status--Minor Log RoD High Alarm'
          '1010:Alarm Status--Major Log RoD High Alarm'
          '1011:Alarm Status--Battery Low Alarm'
          '1012:Alarm Status--Minor Event Active Alarm'
          '1013:Alarm Status--Major Event Pending Alarm'
          '1065:Alarm Enable--Major Log Static Pressure Low Alarm Enable'
          '1066:Alarm Enable--Minor Log Static Pressure Low Alarm Enable'
          '1067:Alarm Enable--Minor Log Static Pressure High Alarm Enable'
          '1068:Alarm Enable--Major Log Static Pressure High Alarm Enable'
          '1073:Alarm Enable--Minor Log RoD High Alarm Enable'
          '1074:Alarm Enable--Major Log RoD High Alarm Enable'
          '1097:Cold Start(0=None, 1=Initiate Cold Start)'
          '1098:Re-arm/Reset Major Log'
          
            '1105:AutoClosure Mask--High Static Pressure Mask(0=Auto-Close, 1' +
            '= Do Not Close)'
          
            '1106:AutoClosure Mask--Low Static Pressure Mask(0=Auto-Close, 1=' +
            ' Do Not Close)'
          '1107:AutoClosure Mask--High RoD(0=Auto-Close, 1= Do Not Close)'
          '1129:Digital Input 1 status'
          '1130:Digital Input 2 status'
          '1131:Digital Input 3 status'
          '1132:Digital Input 4 status'
          '1133:Digital Output 1 status'
          '1134:Digital Output 2 status')
        TabOrder = 0
      end
      object btnSet: TButton
        Left = 776
        Top = 0
        Width = 75
        Height = 25
        Caption = #35774#32622
        TabOrder = 1
        OnClick = btnSetClick
      end
      object btnClear: TButton
        Left = 776
        Top = 32
        Width = 75
        Height = 25
        Caption = #28165#38500
        TabOrder = 2
        OnClick = btnClearClick
      end
    end
    object tabGetNum: TTabSheet
      Caption = 'Get Numeric/Holding register'
      ImageIndex = 2
      object Label1: TLabel
        Left = 776
        Top = 43
        Width = 13
        Height = 13
        Caption = #20540
      end
      object lbGetNumeric: 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'