Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Не получили письмо с кодом активации?

Официальный форум Simple-Scada.

Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Сообщения - gps

Страницы: [1] 2
1
Ваши вопросы / Re: Создать Амперметр
« : 05 Мая 2024, 12:58:33 »
Большое спасибо.

2
Ваши вопросы / Создать Амперметр
« : 02 Мая 2024, 08:02:36 »
Доброго дня! Подскажите как реализовать отображение Амперметра как в примере, с активной стрелкой и красной зоной?

3
Ваши вопросы / Отображение времени.
« : 20 Февраля 2024, 12:03:01 »
Есть небольшая проблемка, на сервере где установлена Scada и OPC Серверы, системное время CET GMT+1. Соответственно и архивные тренды строятся по времени сервера. И если клиент заходит под временем GMT +6 то при при переходе в архивные тренды у него пустота. Пока он сам не выставит время на минус 5 часов от своего.Получается клиенты подтягивают системное время с ПК на котором они находятся а не с сервера. Так вот может вы подскажите решение этой проблемы.

4
Спасибо, теперь всё хорошо.

5
После установки Лицензионной версии 2.6.10.0, в шаблонных окнах перестали отображаться пользовательские картинки, но только в браузерах, в клиенте всё работает нормально.Предыдущую тему видел, кеш чистил, названия на eng. Браузер на том же компьютере что и сервер. Пробовал по ip заходить и просто по localhost, результат аналогичный.

6
Огромное спасибо. :)

7
Приветствую! Подскажите, не получается написать скрипт для нахождения значения угла по его косинусу.
Есть переменная cos_a_48086532 нужно с помощью формулы arccos(x)=arctan(sqrt(1-sqr(x))/x) записать результат в переменную angle_a_48086532.
Пример: cos_a_48086532 = 0,793   то угол angle_a_48086532 должен получиться 37.53°.


Код: (delphi)
program AngleCalculation;

var
  cosValue, angle: real;

begin
  // Ввод значения косинуса угла
  writeln('Введите значение косинуса угла: ');
  readln(cosValue);

  // Проверка ввода на корректность
  if (cosValue < -1) or (cosValue > 1) then
    writeln('Ошибка: косинус должен быть в диапазоне от -1 до 1')
  else
  begin
    // Расчёт угла в радианах по формуле arccos(x)=arctan(sqrt(1-sqr(x))/x)
    angle := arctan(sqrt(1 - sqr(cosValue)) / cosValue);

    // Перевод угла из радиан в градусы
    angle := angle * 180 / pi;

    // Вывод результата
    writeln('Угол, косинус которого равен ', cosValue:0:4, ' равен ', angle:0:4, ' градусов');
  end;
end.

8
Ваши вопросы / Re: Векторная Диаграмма
« : 02 Февраля 2024, 18:39:00 »
Спасибо, буду потеть.

9
Ваши вопросы / Векторная Диаграмма
« : 01 Февраля 2024, 18:47:39 »
Доброй ночи! Подскажите с помощью каких инструментов создать Векторную диаграмму. Пример во вложении. При клике на потребителя появляется всплывающее окно, внутри окна векторная диаграмма и параметры устройства.
Параметры по которым строится диаграмма примерно такие.
U - Напряжение, I - Ток, cos - Коэффициент мощности, 1_2 1_3 2_3 - Угол между фазами
U1 - 1808 Фаза A
U2 - 1811 Фаза B
U3 - 1823 Фаза C
I1 - 35.94 Фаза A
I2 - 35.62 Фаза B
I3 - 35.68 Фаза C
cos1 - 0.825 Фаза A
cos2 - 0.831 Фаза B
cos3 - 0.836 Фаза C
1_2 - 120.43 Угол между фазами A и B
1_3 - 239.84 Угол между фазами A и C
2_3 - 119.07 Угол между фазами B и C

11
Здравствуйте! Подскажите как отобразить шкалу времени во временных трендах?

Здесь добавить временную шкалу



Как тут реализовано.



13
Скрипт компилируется нормально, но в отчёте поле всё равно пустое.Текст который обведён на скрине не выводится в отчёт.

14
Сделал так:
Код: (delphi)
var
  aReport: TM_Report;
begin
  vrDynamic_name.Value := ComboBox2.Items[0].Text;
  vrDynamic_A_Begin.Value := vrAsumm.Value;
  vrDynamic_A_End.Value := vrAsumm.Value;
  vrDynamic_A_Raznica.Value := vrAsumm.Value;

  aReport := ReportBuild('Периодический1');
  aReport.View(GetClientName);
end.
Но выдаёт Ошибку Undeclared idintifier ComboBox2

15
Ещё раз приветствую Всех!
Подскажите как реализовать заголовок в Периодическом отчёте.

Есть отчёт. Выбираем потребителя и период отчёта. Это сам скрипт:
Код: (delphi)
var
  aReport: TM_Report;
begin

//vrDynamic_name.Value := vrAsumm.Name;
  vrDynamic_A_Begin.Value := vrAsumm.Value;
  vrDynamic_A_End.Value := vrAsumm.Value;
  vrDynamic_A_Raznica.Value := vrAsumm.Value;

  aReport := ReportBuild('Периодический1');
  aReport.View(GetClientName);
end.

А теперь вопрос, как мне текст из поля которое показано ниже на скрине вставить в отчёт на против Потребитель, там где у меня vrDynamic_name, что бы оно менялось согласно выбранного потребителя в списке.

Заранее благодарен за ответ.

Страницы: [1] 2