Официальный форум Simple-Scada.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
begin
case Image16.ValueAsInt of // если значение переменной изображения равно:
1 : Image16.AnimSpeed := 5; // установить скорость анимации 5;
2 : Image16.AnimSpeed := 10; // установить скорость анимации 10;
3 : Image16.AnimSpeed := 20; // установить скорость анимации 20;
4 : Image16.AnimSpeed := 25; // установить скорость анимации 25;
end;
end.
begin
// Field1 - поле с которым связанна переменная температуры.
// Ниже приведены варианты звуковых сообщений - выберите какое требуется Вам.
case Field1.ValueAsInt of
20..30: PlayMessageSoundClient(GetClientName); // проиграть звук сообщения на текущем клиенте, если значение в диапазоне от 20 до 30.
31..40: PlayWarningSoundClient(GetClientName); // проиграть звук предупреждения на текущем клиенте, если значение в диапазоне от 31 до 40.
41..50: PlayAlarmSoundClient(GetClientName); // проиграть звук аварии на текущем клиенте, если значение в диапазоне от 41 до 50.
end;
end.
begin
StopSoundClient(GetClientName); // остановить проигрывание звука на текущем клиенте.
end.