Navigation:  Les scripts > Les autres scripts > Procedure and function > Specifics

PLCI function

 

Read a integer from a databank.

 

Function PlcI(Db:integer; Register:Integer):Integer;

 

This function return the value of the PLC register DB,Register

 

 

PLCI procedure

 

Write a integer in a databank.

 

Procedure PlcI(Db:integer;Register:Integer;Data:integer);

 

This function write the value ‘Data’ in the Plc register.

 

PLCR function

 

Read a float from a databank.

 

Function PLCR(db:integer;register:Integer):Real;

 

This function returns the value of the PLC register.

 

PLCR procedure

 

Write a float in a databank.

 

Procedure PLCR(db:integer;register:Integer;data:real);

 

This function write the value found in variable ‘data’ in the Plc register.

 

PLCS function

 

Read a string from a databank.

 

Function PLCS(db:integer;register:Integer):String;

 

This function returns the value of the PLC register.

 

PLCS procedure

 

Write a String in a databank.

 

Procedure PLCS(db:integer;register:Integer;data:string);

 

This function write the value found in variable ‘data’ in the Plc register.

 

BIT function

 

Read a boolean from a databank.

 

Function Bit(db:integer;register:Integer;Bit:integer):boolean;

 

This function returns the value of the PLC register bit.

 

BIT procedure

 

Write a bit in a databank.

 

Procedure BIT(db:integer;register:Integer;data:boolean);

 

This function write the value found in variable ‘data’ in the Plc register bit.

 

 

 

VARI function

 

Read a integer from a internal variable

 

Function VarI(register:Integer):Integer;

 

This function returns the value of the integer internal variable register. Register must be >=0 and <=999

 

VARI procedure

 

Write a integer in an internal variable .

 

Procedure VARI(register:Integer;data:integer);

 

This function write the value found in variable ‘data’ in the integer internal variable register. Register must be >=0 and <=999

 

VARR function

 

Read a float from a internal variable

 

Function VarR(register:Integer):real;

 

This function returns the value of the float internal variable register. Register must be >=0 and <=999

 

VARR procedure

 

Write a float in an internal variable .

 

Procedure VARR(register:Integer;data:Real);

 

This function write the value found in variable ‘data’ in the float internal variable register. Register must be >=0 and <=999

 

VARS function

 

Read a string from a internal variable

 

Function VarS(register:Integer):string;

 

This function returns the value of the string internal variable register. Register must be >=0 and <=999

 

VARS procedure

 

Write a string in an internal variable .

 

Procedure VARS(register:Integer;data:string);

 

This function write the value found in variable ‘data’ in the string internal variable register. Register must be >=0 and <=999

 

VARB function

 

Read a boolean from a internal variable

 

Function VarI(register:Integer):Boolean;

 

This function returns the value of the boolean internal variable register. Register must be >=0 and <=999

 

VARB procedure

 

Write a boolean in an internal variable .

 

Procedure VARB(register:Integer;data:Boolean);

 

This function write the value found in variable ‘data’ in the boolean internal variable register. Register must be >=0 and <=999

 

Alarm function

 

Function Alarm(Num:integer):Boolean;

 

This function returns true is the alarm #num is activated.

 

AlarmType function

 

Function AlarmType(Type:integer):Boolean;

 

This function returns true is any alarm of the specified type is activated.

 

AlarmGroup function

 

Function AlarmGroup(GroupNum:Integer):Boolean;

 

This function returns true is any alarm of the specified group is activated;

 

NewAlarm function

 

Function NewAlarm(alarmNum:integer):Boolean;

 

This function return true is the specified alarm is activated and not acknowleged.

 

NewAlarmType function

 

Function NewAlarmType(Type:integer):Boolean;

 

This function returns true if any alarm of the specified type is activated and not acknowleged.

 

NewAlarmGroup function

 

Function NewAlarmGroup(Group:integer):Boolean;

 

This function returns true if any alarm of the specified group is activated ans not acknowleged.

 

AlarmAck procedure

 

Procedure AlarmAck;

 

This procedure send a Acknowleg to the server. Same function than when the user click on the Alarm window.

 

OpenWindow procedure

 

Procedure OpenWindow(Name:string);

 

This procedure Open a graphic window with the name ‘Name’. This window is opened in a non modal mode.

 

OpenWindowAt procedure

 

Procedure OpenWindowAt(Name:string;X,Y:integer);

 

This procedure Open a graphic window with the name ‘Name’ at the screen position X and Y.

 

CloseWindow procedure

 

Procedure CloseWindow(Name:string);

 

This procedure close the graphic window with the name ‘Name’.

 

 

 

 

OpenDialog procedure

 

Procedure OpenDialog(Name:string);

 

This procedure Open a graphic window with the name ‘Name’ in a modal mode.

 

 

PlaySynchWave procedure

 

Procedure PlaySynchWave(Name:string);

 

This procedure play the wave file ‘Name’ in a synchrone mode (wait until the play is finish)

 

 

PlayAsynchWave procedure

 

Procedure PlayAsynchWave(Name:string);

 

This procedure play the wave file ‘Name’ in a asynchrone mode (play in background)

 

AccessLevel function

 

Function AccessLevel:Integer;

 

This function returns the actual access level of the current user.

 

 

ShowMessage procedure

 

Procedure ShowMessage(Msg:string);

 

Call ShowMessage to display a simple message box with an OK button. The Msg parameter is the message string that appears in the message box. The name of the application's executable file appears as the caption of the message box.

 

To display a message in a message box with other buttons, or with an icon, use the MessageBox function.

 

MessageBox function

 

Displays a message dialog box in the center of the screen.

 

function MessageBox(Title:string;Msg: string; DlgType:integer; Buttons:integer):Boolean;

 

Call MessageDlg to bring up a message box and obtain the user's response. The message box displays the value of the Msg parameter.  Use the DlgType parameter to indicate the purpose of the dialog.  Use the Buttons parameter to indicate what buttons should appear in the message box.

 

MessageDlg returns true is the user click on OK

 

DlgType can have the following value:

 

 

ICONEXCLAMATION,ICONHAND,ICONINFORMATION or ICONQUESTION

 

Buttons can have the following value :

 

MB_OK,MB_OKCANCEL or MB_YESNO

 

ShellExec procedure

 

Procedure ShellExec(ProgramName:string;Parameter:string);

Procedure ShellExec(ProgramName:string;Parameter:string;ShowHideMode:Integer);

Procedure ShellExec(ProgramName:string;Parameter:string;ShowHideMode:Integer;Timeout:Integer);

 

 

This procedure execute a external command.

ShowHidemode can have the following value:

SW_SHOW, SW_HIDE, SW_SHOWMINIMIZED or SW_SHOWMAXIMIZED

 

When timeout=0 then the procedure retruns immediatliy

 

 

HoistTake  procedure

 

Procedure HoistTake(HoistNumber:Integer;Position:Integer);

 

 

This procedure make the hoist (hoistNumber) to take load in position indicated in Position parameter.

 

HoistGive  procedure

 

Procedure HoistGive(HoistNumber:Integer;Position:Integer);

 

 

This procedure make the hoist (hoistNumber) to drop load in position indicated in Position parameter.

 

HoistMove  procedure

 

Procedure HoistMove(HoistNumber:Integer;Position:Integer);

 

 

This procedure make the hoist (hoistNumber) to move horizontally to the position indicated in Position parameter.

 

HoistTransfer  procedure

 

Procedure HoistTransfer(HoistNumber:Integer;Origin,Destination:Integer);

 

 

This procedure make the hoist (hoistNumber) to take load in position indicated in origin parameter and than drop the load in position indicated in the destination parameter.

 

 

HoistOrigin procedure

 

Procedure HoistOrigin(HoistNumber:Integer);

 

 

This procedure force the origin of the hoist (hoistNumber) .

 

HoistStop procedure

 

Procedure HoistStop(HoistNumber:Integer);

 

 

This procedure force the stop of the hoist (hoistNumber) .

 

HoistReady  function

 

Function HoistReady(HoistNumber:Integer):Boolean;

 

 

This function returns true if the hoist (hoistnumber) is ready and no more command in buffer.

 

HoistPosition  function

 

Function HoistPosition(HoistNumber:Integer):Integer;

 

 

This function returns the actual hoist position.

 

JigNumber  function

 

Function JigNumber(Position:Integer):integer;

 

 

This function returns the jig number inside the position indicated in the parameter.

 

JigProgram  function

 

Function JigProgram(Position:Integer):integer;

 

 

This function returns the jig program number inside the position indicated in the parameter.

 

JigTime  function

 

Function JigTime(Position:Integer):integer;

 

 

This function returns the immersion time of the jig  inside the position indicated in the parameter.

 

IsCoverOpen  function

 

Function IsCoverOpen(Position:Integer):Boolean;

 

 

This function returns true if the cover of the position is open or if no cover is present.

 

OpenCover  procedure

 

Procedure Opencover(Position:Integer);

 

 

This procedure force the open command of the cover of the position indicated in the parameter

 

CloseCover  procedure

 

Procedure Closecover(Position:Integer);

 

 

This procedure force the close command of the cover of the position indicated in the parameter