Haefely 2830, Руководство пользователя, Страница: 97 / 124

Software
89
Sound(AFrequency, ALength: Integer);
Generate sound with the frequency <AFrequency> and the length <ALength>. The
speaker is the internal buzzer in the 2830.
UserProcedure(Value1, …, ValueN: Datatype; ValueA, …, ValueX: Datatype);
The user has the possibility to program is own procedures e.g. for an often used
command sequence. The declaration of the user procedure has to be made before the
keyword
begin
.
Sample:
var
Variable_Text: string;
Variable_Int: integer;
procedure procedureA(A,B: integer; S: string);
begin
ShowMessage(S+AddDouble(A+B,0,0));
end;
procedure procedureB;
begin
ShowMessage('Some Text');
end;
begin
Variable_Text:= 'Some Text';
Variable_Int:=10;
procedureA(Variable_Int-5, Varia5, Variable_Text);
procedureB;
end.
9.6.4.6 Function
A function is a set of commands which will be executed. A function can be called with additional
variables or a values in brackets e.g. a text, a number etc. A function executes the command set
and returns a value such as the actual heating temperature, a measured value etc.
AddInt(AVal, AAbsLength: Integer): String;
Converts the integer value <AVal> into a string. <AAbsLength> determines the absolute
length of the result string. If the absolute length is longer than the value the procedure
fills up the missing digits with whitespaces. If it is shorter then the integer number will
be cut.
If the <AMinLength> = 0 then the result string will be empty.
Samples:
AddInt(12,0); //’’
AddInt(12,1); //’1’
AddInt(12,2); //’12’
AddInt(12,4); //’ 12’
AddDouble(AVal: Double; AMinLength, ADigits: Integer): String;