1261
Ваши проекты / Re: Подача продукта на линию пакетирования
« : 18 Мая 2016, 08:26:44 »
Отличный проект. Поздравляем с успешным внедрением!
Официальный форум 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.
Опять поломалось (Вы используете старую бета-версию. Скачайте официальную демо-версию. Если Вы хотите, чтобы Ваш проект работал на ней - пришлите его нам на почту техподдержки support@simple-scada.com для пересохранения.
Вопрос с правами пользователя, как сделать, чтобы оператор не мог свернуть скаду ?Попробуем что-нибудь придумать в ближайшее время.
begin
if Variable1.IsGoodQuality = False then Text1.Text := 'Не удалось считать переменную'; // если качество переменной плохое – вывести предупреждение.
end.