Официальный форум Simple-Scada.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Не работает.Необходимо явно указать тип строковой константы:
with Sender as TM_Text do
ShowMessageAll("", Text + " / " + Text);
with Sender as TM_Text do
ShowMessageAll("", Text + UTF8Encode(" / ") + Text);
begin // тип события: Клиент подключен
ClientName.Value := GetClientName; // записать имя клиента во внутреннюю переменную ClientName:
//...
end.
Создать в базе данных свою таблицу с четырьмя столбцам индекс, номер механизма, назначение механизма (группа освещения, приточная система, вытяжная система и т.д.)Судя по названию столбцов, это редко редактируемые данные, возможно только один раз.
В приложенном Вами примере изменённый текст будет сохраняться на сервере и изменения будут видны у всех клиентов?Из "Основного руководства" по Simple-Scada:
Клиенты Simple-Scada выполняют только задачи визуализации, все необходимые данные запрашиваются у сервера.Так что скорее ДА чем НЕТ, но внести полную ясность могут только разработчики Simple-Scada. Равно как и по вопросу об одновременном редактировании значения на нескольких клиентах.
Если выполнение проекта остановить и запустить по новой то будут отображены названия механизмов уже измененные или те же самые которые создавались при создании проекта в редакторе.?При запуске проекта свойства объекта инициализируются статическими начальными значениями, заданными при создании проекта в редакторе. Для динамических начальных значений (изменяемых в процессе исполнения и сохраняемых в качестве новых начальных значений) всю работу прийдется выполнять самостоятельно, включая:
И ещё один вопрос как в редакторе можно изменить тип события, по которому будет вызван скрипт например с "универсального" на "полностью запущен"Создать новый скрипт соответствующего типа и скопипровать в него содержимое исходного.
Не подскажите решение. Необходимо для каждого механизма создать поле c наименованием механизма. Также должна быть возможность изменения\ редактирования оператором этого поля при необходимости.
begin
with Sender as TM_Text do
begin
EditText.Tag := Tag; // идентификатор текста
aText.Value := Text; // записать исходный текст в переменную редактирования
EditText.X := X; // позиционирование окна редактирования по X
EditText.Y := Y; // по Y
end;
end.
begin
GetTextByName('Text' + IntToStr(EditText.Tag)).Text :=
aText.AsUTF8String; // запись результата редактирования
EditText.Y := -100; // скрыть поле редактирования
end.
Val.Value := Sender.Tag;
Да, клиент скады делает мелкую оптимизацию и просто не передаёт серверу скады сведения о таком вводе. А в Вашем случае для чего нужно OnDoneInput на ввод того же значения?
Да, первое значение пришедшее с контроллера после старта проекта учитывается при выводе сообщений, ведь эти сообщения активны, значит нельзя их игнорировать. В ином случае оператор может не увидеть какие-то аварии после перезапуска сервера скады, а это недопустимо.
Значение числа "Пи" во времена ЭВМ М-20 было 3.14159265 (Руководство по скриптам - Глобальные константы)
var
x: word;
y: double;
begin // Пример для x = 40000
x := TM_Text(Sender).Variable.Value;
Field2.Text := IntToStr(x); // Field2.Text = '40000'
y := x;
Field3.Text := FloatToStr(y); // Field3.Text = '-25536.00'
y := TM_Text(Sender).Variable.Value;
Field4.Text := FloatToStr(y); // Field4.Text = '40000.00'
end.
procedure XXX_OnDataChange(Sender: TM_control);
type word4 = record a,b,c,d: word; end;
var
t:word4;
pt: ^word4 = @t;
begin
PInt64(pt)^ := TM_Text(Sender).Variable.Value; // Вызывающий процедуру тег должен иметь тип Int64 !!!
PSUS_1.Text := FloatToStr(t.a * 0.05, 2);
PSIS_1.Text := FloatToStr(t.b * 0.1, 1); // и т.д
var
a: int64;
begin
a := $20000000000003;
x1.Value := a;
Text1.Text := 'Int64 =' + IntToHex(a,8); // Text1 = '00000003'
Text2.Text := 'AsInt64 =' + IntToHex(x1.AsInt64,8); // Text2 = '00000004' !
a := $20000000000001;
x1.Value := a;
Text3.Text := 'Int64 =' + IntToHex(a,8); // Text3 = '00000001'
Text4.Text := 'AsInt64 =' + IntToHex(x1.AsInt64,8); // Text4 = '00000000' !
end.