test.pas

温度恒温控制,与PLC,工控板通讯,实现炉字过程控制.

    Shape5: TShape;
    Shape6: TShape;
    Shape7: TShape;
    Shape8: TShape;
    Shape9: TShape;
    Label96: TLabel;
    Label101: TLabel;
    Label103: TLabel;
    Label106: TLabel;
    Label108: TLabel;
    Label109: TLabel;
    Panel15: TPanel;
    Panel46: TPanel;
    Panel47: TPanel;
    Panel48: TPanel;
    Panel52: TPanel;
    Label111: TLabel;
    Panel53: TPanel;
    Panel51: TPanel;
    tsPID: TTabSheet;
    Label113: TLabel;
    Panel50: TPanel;
    Label115: TLabel;
    Label174: TLabel;
    Label112: TLabel;
    Label180: TLabel;
    Label181: TLabel;
    Label183: TLabel;
    sppidp3: TSpinEdit;
    sppidi3: TSpinEdit;
    sppidd3: TSpinEdit;
    Label182: TLabel;
    Label184: TLabel;
    Label185: TLabel;
    sppidp6: TSpinEdit;
    Label186: TLabel;
    Label187: TLabel;
    sppidi6: TSpinEdit;
    sppidd6: TSpinEdit;
    Label188: TLabel;
    sppidp9: TSpinEdit;
    Label189: TLabel;
    Label190: TLabel;
    sppidi9: TSpinEdit;
    sppidd9: TSpinEdit;
    Label191: TLabel;
    sppidp12: TSpinEdit;
    Label192: TLabel;
    Label193: TLabel;
    sppidi12: TSpinEdit;
    sppidd12: TSpinEdit;
    Label194: TLabel;
    sppidp15: TSpinEdit;
    Label195: TLabel;
    Label196: TLabel;
    sppidi15: TSpinEdit;
    sppidd15: TSpinEdit;
    Label197: TLabel;
    Label198: TLabel;
    Label199: TLabel;
    Label200: TLabel;
    Label201: TLabel;
    Label202: TLabel;
    Label203: TLabel;
    Label204: TLabel;
    Label205: TLabel;
    Label206: TLabel;
    Label207: TLabel;
    Label208: TLabel;
    Label209: TLabel;
    sppidp2: TSpinEdit;
    sppidi2: TSpinEdit;
    sppidd2: TSpinEdit;
    sppidp1: TSpinEdit;
    sppidi1: TSpinEdit;
    sppidd1: TSpinEdit;
    sppidp5: TSpinEdit;
    sppidi5: TSpinEdit;
    sppidd5: TSpinEdit;
    sppidp4: TSpinEdit;
    sppidi4: TSpinEdit;
    sppidd4: TSpinEdit;
    sppidp8: TSpinEdit;
    sppidi8: TSpinEdit;
    sppidd8: TSpinEdit;
    sppidp7: TSpinEdit;
    sppidi7: TSpinEdit;
    sppidd7: TSpinEdit;
    sppidp11: TSpinEdit;
    sppidi11: TSpinEdit;
    sppidd11: TSpinEdit;
    sppidp10: TSpinEdit;
    sppidi10: TSpinEdit;
    sppidd10: TSpinEdit;
    sppidp14: TSpinEdit;
    sppidi14: TSpinEdit;
    sppidd14: TSpinEdit;
    sppidp13: TSpinEdit;
    sppidi13: TSpinEdit;
    sppidd13: TSpinEdit;
    Label210: TLabel;
    Label211: TLabel;
    Label212: TLabel;
    sppidp31: TSpinEdit;
    sppidp30: TSpinEdit;
    sppidi31: TSpinEdit;
    sppidi30: TSpinEdit;
    sppidp29: TSpinEdit;
    sppidi29: TSpinEdit;
    sppidd31: TSpinEdit;
    sppidd30: TSpinEdit;
    sppidd29: TSpinEdit;
    sppidp34: TSpinEdit;
    Label213: TLabel;
    Label214: TLabel;
    sppidp33: TSpinEdit;
    Label215: TLabel;
    sppidp32: TSpinEdit;
    sppidi32: TSpinEdit;
    sppidi33: TSpinEdit;
    sppidi34: TSpinEdit;
    sppidd34: TSpinEdit;
    sppidd33: TSpinEdit;
    sppidd32: TSpinEdit;
    sppidp37: TSpinEdit;
    Label216: TLabel;
    Label217: TLabel;
    Label218: TLabel;
    sppidp36: TSpinEdit;
    sppidp35: TSpinEdit;
    sppidi35: TSpinEdit;
    sppidi36: TSpinEdit;
    sppidi37: TSpinEdit;
    sppidd37: TSpinEdit;
    sppidd36: TSpinEdit;
    sppidd35: TSpinEdit;
    Label219: TLabel;
    Label220: TLabel;
    Label221: TLabel;
    sppidp40: TSpinEdit;
    sppidi40: TSpinEdit;
    sppidd40: TSpinEdit;
    sppidd39: TSpinEdit;
    sppidi39: TSpinEdit;
    sppidp39: TSpinEdit;
    sppidp38: TSpinEdit;
    sppidi38: TSpinEdit;
    sppidd38: TSpinEdit;
    Label222: TLabel;
    Label223: TLabel;
    Label224: TLabel;
    sppidp43: TSpinEdit;
    sppidi43: TSpinEdit;
    sppidd43: TSpinEdit;
    sppidd42: TSpinEdit;
    sppidi42: TSpinEdit;
    sppidp42: TSpinEdit;
    sppidp41: TSpinEdit;
    sppidi41: TSpinEdit;
    sppidd41: TSpinEdit;
    Panel54: TPanel;
    Label178: TLabel;
    Label179: TLabel;
    Label225: TLabel;
    Label226: TLabel;
    Label227: TLabel;
    Label228: TLabel;
    Label229: TLabel;
    Label230: TLabel;
    Label231: TLabel;
    Label232: TLabel;
    Label233: TLabel;
    Label234: TLabel;
    Label235: TLabel;
    Label236: TLabel;
    Label237: TLabel;
    Label238: TLabel;
    Label239: TLabel;
    Label240: TLabel;
    sppidp16: TSpinEdit;
    sppidp17: TSpinEdit;
    sppidp18: TSpinEdit;
    sppidp19: TSpinEdit;
    sppidp20: TSpinEdit;
    sppidp21: TSpinEdit;
    sppidp22: TSpinEdit;
    sppidp23: TSpinEdit;
    sppidp24: TSpinEdit;
    sppidp25: TSpinEdit;
    sppidp26: TSpinEdit;
    sppidp27: TSpinEdit;
    sppidp28: TSpinEdit;
    sppidi16: TSpinEdit;
    sppidi17: TSpinEdit;
    sppidi18: TSpinEdit;
    sppidd16: TSpinEdit;
    sppidd17: TSpinEdit;
    sppidd18: TSpinEdit;
    sppidi19: TSpinEdit;
    sppidi20: TSpinEdit;
    sppidi21: TSpinEdit;
    sppidd19: TSpinEdit;
    sppidd20: TSpinEdit;
    sppidd21: TSpinEdit;
    sppidi22: TSpinEdit;
    sppidi23: TSpinEdit;
    sppidi24: TSpinEdit;
    sppidd22: TSpinEdit;
    sppidd23: TSpinEdit;
    sppidd24: TSpinEdit;
    sppidi25: TSpinEdit;
    sppidi26: TSpinEdit;
    sppidi27: TSpinEdit;
    sppidd25: TSpinEdit;
    sppidd26: TSpinEdit;
    sppidd27: TSpinEdit;
    sppidi28: TSpinEdit;
    sppidd28: TSpinEdit;
    Label241: TLabel;
    Label242: TLabel;
    sppidp44: TSpinEdit;
    sppidi44: TSpinEdit;
    Label243: TLabel;
    Label244: TLabel;
    sppidd44: TSpinEdit;
    Label245: TLabel;
    sppidi45: TSpinEdit;
    sppidd45: TSpinEdit;
    Label246: TLabel;
    sppidp46: TSpinEdit;
    sppidp45: TSpinEdit;
    sppidi46: TSpinEdit;
    sppidd46: TSpinEdit;
    sppidd47: TSpinEdit;
    sppidi47: TSpinEdit;
    sppidp47: TSpinEdit;
    Label247: TLabel;
    Label248: TLabel;
    sppidp48: TSpinEdit;
    sppidi48: TSpinEdit;
    sppidd48: TSpinEdit;
    sppidd49: TSpinEdit;
    sppidi49: TSpinEdit;
    sppidp49: TSpinEdit;
    Label249: TLabel;
    Label250: TLabel;
    sppidp50: TSpinEdit;
    sppidi50: TSpinEdit;
    sppidd50: TSpinEdit;
    sppidd51: TSpinEdit;
    sppidi51: TSpinEdit;
    sppidp51: TSpinEdit;
    Label251: TLabel;
    Label252: TLabel;
    sppidp52: TSpinEdit;
    sppidi52: TSpinEdit;
    sppidd52: TSpinEdit;
    sppidd53: TSpinEdit;
    sppidi53: TSpinEdit;
    sppidp53: TSpinEdit;
    Label253: TLabel;
    Label254: TLabel;
    sppidp54: TSpinEdit;
    sppidi54: TSpinEdit;
    sppidd54: TSpinEdit;
    sppidd55: TSpinEdit;
    sppidi55: TSpinEdit;
    sppidp55: TSpinEdit;
    Label255: TLabel;
    Label256: TLabel;
    sppidp56: TSpinEdit;
    sppidi56: TSpinEdit;
    sppidd56: TSpinEdit;
    bnpid1: TButton;
    bnpid2: TButton;
    bnpid3: TButton;
    bnpid4: TButton;
    bnpid5: TButton;
    bnpid6: TButton;
    bnpid7: TButton;
    spp: TSpinEdit;
    spi: TSpinEdit;
    spd: TSpinEdit;
    Label257: TLabel;
    Label258: TLabel;
    Label259: TLabel;
    Label261: TLabel;
    procedure tmdateTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure tmtemp1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure bbtncloseClick(Sender: TObject);
    procedure bnwarnclearClick(Sender: TObject);
    procedure bnsavelogClick(Sender: TObject);
    procedure bnloadlogClick(Sender: TObject);
    procedure bndeletelogClick(Sender: TObject);
    procedure bnsavefileClick(Sender: TObject);
    procedure bnloadfileClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bnstartClick(Sender: TObject);
    procedure tmtempTimer(Sender: TObject);
    procedure bnupallClick(Sender: TObject);
    procedure uduprow1ChangingEx(Sender: TObject; var AllowChange: Boolean;
      NewValue: Smallint; Direction: TUpDownDirection);
    procedure uduprow2ChangingEx(Sender: TObject; var AllowChange: Boolean;
      NewValue: Smallint; Direction: TUpDownDirection);
    procedure uduprow3ChangingEx(Sender: TObject; var AllowChange: Boolean;
      NewValue: Smallint; Direction: TUpDownDirection);
    procedure uduprow4ChangingEx(Sender: TObject; var AllowChange: Boolean;
      NewValue: Smallint; Direction: TUpDownDirection);
    procedure uduprow5ChangingEx(Sender: TObject; var AllowChange: Boolean;
      NewValue: Smallint; Direction: TUpDownDirection);
    procedure uduprow6ChangingEx(Sender: TObject; var AllowChange: Boolean;
      NewValue: Smallint; Direction: TUpDownDirection);
    procedure udupwcrow2ChangingEx(Sender: TObject;
      var AllowChange: Boolean; NewValue: Smallint;
      Direction: TUpDownDirection);
    procedure udupwcrow3ChangingEx(Sender: TObject;
      var AllowChange: Boolean; NewValue: Smallint;
      Direction: TUpDownDirection);
    procedure udupwcrow4ChangingEx(Sender: TObject;
      var AllowChange: Boolean; NewValue: Smallint;
      Direction: TUpDownDirection);
    procedure udupwcrow5ChangingEx(Sender: TObject;
      var AllowChange: Boolean; NewValue: Smallint;
      Direction: TUpDownDirection);
    procedure udupwcrow6ChangingEx(Sender: TObject;
      var AllowChange: Boolean; NewValue: Smallint;
      Direction: TUpDownDirection);
    procedure udupcol1ChangingEx(Sender: TObject; var AllowChange: Boolean;
      NewValue: Smallint; Direction: TUpDownDirection);
    procedure udlowrow1ChangingEx(Sender: TObject;
      var AllowChange: Boolean; NewValue: Smallint;
      Direction: TUpDownDirection);
    procedure udlowrow2ChangingEx(Sender: TObject;
      var AllowChange: Boolean; NewValue: Smallint;
      Direction: TUpDownDirection);
    procedure udlowrow3ChangingEx(Sender: TObject;
      var AllowChange: Boolean; NewValue: Smallint;
      Direction: TUpDownDirection);
    procedure udlowrow4ChangingEx(Sender: TObject;
      var AllowChange: Boolean; NewValue: Smallint;
      Direction: TUpDownDirection);
    procedure udlowrow5ChangingEx(Sender: TObject;
      var AllowChange: Boolean; NewValue: Smallint;
      Direction: TUpDownDirection);
    procedure udlowrow6ChangingEx(Sender: TObject;
      var AllowChange: Boolean; NewValue: Smallint;
      Direction: TUpDownDirection);
    procedure udupwcrow1ChangingEx(Sender: TObject;
      var AllowChange: Boolean; NewValue: Smallint;
      Direction: TUpDownDirection);
    procedure sptemChange(Sender: TObject);
    procedure Timer0Timer(Sender: TObject);
    procedure bnstopClick(Sender: TObject);
    procedure tmglassTimer(Sender: TObject);
    procedure splowheatChange(Sender: TObject);
    procedure sphighheatChange(Sender: TObject);
    procedure spqhChange(Sender: TObject);
    procedure spfj1qhChange(Sender: TObject);
    procedure spfj2qhChange(Sender: TObject);
    procedure splqChange(Sender: TObject);
    procedure spfj3lqChange(Sender: TObject);
    procedure tmplcTimer(Sender: TObject);
    procedure tmsoundTimer(Sender: TObject);
    procedure spgydwjlChange(Sender: TObject);
    procedure spgygwjlChange(Sender: TObject);
    procedure spgyqhsjChange(Sender: TObject);
    procedure spgyfj1qhChange(Sender: TObject);
    procedure spgyfj2qhChange(Sender: TObject);
    procedure spgyfj3lqChange(Sender: TObject);
    procedure spgylqsjChange(Sender: TObject);
    procedure bngymodifyClick(Sender: TObject);
    procedure bnfjmodifyClick(Sender: TObject);
    procedure jlmodifyClick(Sender: TObject);