{
int Get2IntComStringBinary();
int Value;
float fValue;
int length;
int Decimal;
while(1)
{
Get2IntComStringBinary("-Communication-SpeedTest-Interface",&Value,5,&Decimal,0,&length);
if(length >= 9)
{
Decimal = Decimal & 0x07;
if(Decimal == 0)
{
fValue = Value;
SetObValFloat("-Communication-SpeedTest-Calibration-Speed",fValue );
}
if(Decimal == 1)
{
fValue = Value/10;
SetObValFloat("-Communication-SpeedTest-Calibration-Speed",fValue );
}
if(Decimal == 2)
{
fValue = Value/100;
SetObValFloat("-Communication-SpeedTest-Calibration-Speed",fValue );
}
if(Decimal == 4)
{
fValue = Value/1000;
SetObValFloat("-Communication-SpeedTest-Calibration-Speed",fValue );
}
}
Wait(100);
}
}
2.
int TRUE = 1;
int FALSE = 0;
main()
{
int WriteNominalRevolution();
int RetVal;
int LineNumber;
int Timer;
float Drehzahl;
int* handle;
char PoolName[200];
// Auf Pool Routinen zugreifen
seq Pool;
RetVal = GetProjectDir(PoolName,100);
istrcatstr(PoolName,"seq\common\pool.seq",50);
Pool |> PoolName;
Pool.ClearAllCalibTexts();
Pool.LoadAndSaveDialog("CalibRatedSpeed.Dlg");
//Pool.LoadAndSaveDialog2ndScreen("CalibRatedSpeed.Dlg");
Pool.SetTextForSeq ("-ProgramFlag-TextFlag-CalibDlg-Text02" ,"
while(GetObVal("-OperatingPanel-MainScreen-ButtonT1") || GetObVal("-OperatingPanel-MainScreen-ButtonT2"))
{
Wait(10);
}