delphi script programming under integra phase 6

• 2.1. Background Color Changing (Task 11.1.1) ;

   // BitBtn1.OnClick
  procedure BitBtn1Click(Sender: TObject);
  begin
  if Rectangle1.Brush.StartColor = clWhite then      
    Rectangle1.Brush.StartColor := clGreen
    else
    Rectangle1.Brush.StartColor := clWhite; 
  end;   //click to invert the backgroud color of rectangle

• 2.2. Object Position Changing (Task 11.1.2) ;

  // BitBtn1.OnClick
  procedure BitBtn1Click(Sender: TObject);
  begin
  if  Rectangle1.Top <=400 then                   
   Rectangle1.Top :=  Rectangle1.Top +50
   else
   Rectangle1.Top :=100; 
  end;     //click to move the rectangle top to bottom

// SISEvents1.OnFlashingCycle
procedure SISEvents1FlashingCycle(Sender: TObject; TriggerOn: Boolean);
Begin    
    //"mouthe" open & close
    if Pie1.Sweepangle = 315 then             
    Pie1.Sweepangle:=355
    else
    Pie1.Sweepangle:=315;    
    //movement form left to right
    if Pie1.Left <= 1000 then               
    Pie1.Left := Pie1.Left + 100
    else
    Pie1.Left := 100;
End;

• 4.1. Create a TagItemList and add tag items to it;
  
• 4.2. TagItemList activation via script programming with the OnCreate event of the Form;

  // FormS001.OnCreate
  procedure isi_FormCreate(Sender: TObject);
  begin
  ActivateTagItemList(TagItemList1, DEFAULTCONNECTION, DEFAULTPLANT, DEFAULTFGNAME,false);    
  end;

• Select the TagItem from TL, and add scripts under it OnValueChange event;

  // TagItem_flashfreq.OnValueChange
  procedure TagItem_flashfreqValueChange(Sender: TObject; AValue: Variant; AValueValid: Boolean);
  begin
  if not AValueValid then exit;  //Error routine
  LED1.LedState := AValue;
  end;
  // TagItem_Sec.OnValueChange
  procedure TagItem_SecValueChange(Sender: TObject; AValue: Variant; AValueValid: Boolean);
  begin
  if not AValueValid then exit;  //Error routine
  Label1.Caption := IntToStr(AValue) + 'sec';
  end;

• 6.1. Add a new TagItem in the TL;
  
• 6.2. Add a PLCLabel and connect the TagItem as before, then create scripts under OnClick event of this PLCLabel ;

    // PLCLabel1.OnClick
  procedure PLCLabel1Click(Sender: TObject);
     var
       AIntVal   : integer;                //variable declaration
  
  Begin                              
          //reload operand into local variable
          AIntVal := TagItem_Write_Test.value;  
  
        //Call input box
          if SIS.InputInt(AIntVal, TagItem_Write_Test.TagComment,false) then
          Begin
          TagItem_Write_Test.Write(AIntVal);
          Showmessage (INTtoSTR(AIntVal) + tr' was written in the PLC');
          End;          
  End     

• 7.1. Value can only be wirtten to PLC with sufficient user level from VISU

(Task 11.6) ;

// PLCLabel1.OnClick
procedure PLCLabel1Click(Sender: TObject);
var
 AIntVal   : integer;                //variable declaration

Begin
   // Level check
if TagItem_Write_Test.IsTagAccessLevelValid then
//scripts for value input
Begin
....
...
...
End
//pop-up messagebox
 Else
Showmessage('No Authority to write');
End;

• 7.2. Make user access level to change the properties of object via script programming under SISEvents OnUserChanged event （Task 11.7） ;

  // SISEvents1.OnUserChanged
  procedure SISEvents1UserChanged(Sender: TObject);
  Begin
  
  if TagItem_Write_Test.IsTagAccessLevelValid then
  
   begin 
      PLCLabel1.Color:=clWhite;
      PLCLabel1.Font.Color:=clBlue;
   end    
  
     else
  
     begin 
      PLCLabel1.Color:=clBtnFace;
      PLCLabel1.Font.Color:=clBlack;
     end 
  End;