Официальный форум Simple-Scada.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
begin
if Started.Value = 1 then
Counter.Value := Counter.Value + 1
else
Counter.Value := -1;
case Counter.Value of
1: ArduinoSerial0_D31.Value := 1;
2: ArduinoSerial0_D31.Value := 1;
8: ArduinoSerial0_D49.Value := 1;
9: ArduinoSerial0_D49.Value := 1;
15: ArduinoSerial0_D45.Value := 1;
18: Started.Value :=0;
end;
end.
emoxristov!
Возможно Вам подойдет "радиокнопка", в примере два варианта алгоритма:
- не более одной нажатой кнопки (см. этот);
- только одна нажатая кнопка.
Кнопки с фиксацией и управляются битами переменной iButtons, тег кнопки равен битовой маске.
Переменная кнопок модифицируется скриптами по событию "Пользователь кликнул объект мышью"Кодbegin
iButtons.Value := Sender.Tag and iButtons.AsInt; // не более одной нажатой кнопки
// действия по кнопкам
case iButtons.AsInt of
. . .
end;
end.Кодbegin
iButtons.Value := Sender.Tag; // только одна нажатая кнопка
// действия по кнопкам
case iButtons.AsInt of
. . .
end;
end.
begin
// Sender - это объект, который вызвал скрипт(например поле, изображение и т.д.)
if Button123 is TM_Object then // проверяем, что Sender это объект
with Button123 as TM_Object do // приводим Sender к типу "TM_Object"
case AsInt of // если значение переменной связанной с объектом равно:
1..25: Color := clYellow; // от 1 до 5 - изменить цвет на красный
26..50: Color := clChartreuse; // 6 или 7 - изменить цвет на зеленый
51..255 : Color := clRed; // 8 - изменить цвет на желтый
end;
end.