KRIndicator.pas

Типы данных

• TKRIndicatorState – состояние индикатора
  • istOn – положительное (включен)
  • istOff – отрицательное (выключен)
  • istError – ошибка в переменной
• TKRIndicatorType – метод срабатывания индикатора
  • itpOnHi – срабатывание по превышению заданного предела
  • itpOnLow – срабатывание при снижении ниже заданного предела
  • itpBit – срабатывание по состоянию бита

Классы

Класс TKRIndicator

Родительский класс TShape

Интерфейсы: IKRTimer

TKRIndicator – компонент удаленного мониторинга. Представляет из себя статическое изображение одного из следующих видов: прямоугольник, квадрат, прямоугольник или квадрат со скругленными углами, эллипс, окружность. Задача – изменение цвета в зависимости от значения удаленной переменной.

Свойства класса TKRIndicator

• Variable – переменная, значение которой будет влиять на состояние индикатора

• IndicatorState – текущее состояние индикатора. Возвращает одно из значений списка TKRIndicatorState. Только чтение

• IndicatorType – метод срабатывания индикатора. Принимает одно из значений списка TKRIndicatorType

• Bit – номер бита, который влияет на состояние индикатора. Используется при методе реагирования itpBit

• Limit – предел срабатывания. Используется при методах реагирования itpOnHi и itpOnLow

• Timer – таймер класса TKRTimer для обновления состояния индикатора

• BrushOn – свойства кисти при состоянии индикатора istOn

• PenOn – свойства карандаша при состоянии индикатора istOn

• BrushOff – свойства кисти при состоянии индикатора istOff

• PenOff – свойства карандаша при состоянии индикатора istOff

• BrushErr – свойства кисти при состоянии индикатора istError

• PenErr – свойства карандаша при состоянии индикатора istError

События класса TKRIndicator

• OnStateChanged – событие генерируется при изменении состоянии индикатора

Вход

Гость Изменить адрес электронной почты Ввести адрес электронной почты Уведомления об ответах Уведомления о новых комментариях на странице Уведомления обо всех новых комментариях на сайте Уведомление о статусе ваших комментариев Отписаться от всех уведомлений Выйти и удалить аккаунт Выход

Выход

Комментировать

Вначале новые Новые Лучшие Старые Ожидают проверки

Ожидают проверки (0)

Всего комментариев:

Новые комментарии ()

0

Nozyl Nozyles

13.05.2021 15:06

[*REPLY_NAME*]

 

Добрый день, подскажите, возможно ли сделать что бы индикатор при активном 2м бите переменной был залит красным, а например при активном 3м бите зеленым ?

Показать полностью

0

ответить

изменить

удалить

13

Руслан Кандирал

13.05.2021 15:17

Nozyl Nozyles

 

Здравствуйте. Нет, данный компонент реагирует только на один бит

Показать полностью

0

ответить

изменить

удалить

0

Nozyl Nozyles

14.05.2021 13:48

Руслан Кандирал

 

Не подскажите как это можно реализовать ? 0 бит активен зеленый, 1й красный, оба желтый, я так понимаю нужно использовать функцию преобразования полученного битового массива ?

Показать полностью

0

ответить

изменить

удалить

13

Руслан Кандирал

14.05.2021 14:09

Nozyl Nozyles

 

Вы можете переделать этот компонент под свои нужды. Вот полный код компонента
https://github.com/kandiral/Kandiral/blo...

Данный компонент имеет три состояние istOn, istOff, istError. Текущее состояние определяется в процедуре DoTimer

Показать полностью

0

ответить

изменить

удалить

0

Nozyl Nozyles

25.05.2021 13:17

Руслан Кандирал

 

Спасибо, разобрался, еще вопрос: возможно ли сделать из индикатора треугольник ? Например через Convas ? И будет ли библиотека стабильно работать с примерно 800 boolean переменными через TCP =)

Показать полностью

0

ответить

изменить

удалить

13

Руслан Кандирал

25.05.2021 13:43

Nozyl Nozyles

 

Родительский класс индикатора TShape, все что можно делать с TShape можно делать с индикатором (это по поводу треугольника).
800 параметров работать, возможно, и будет, но вот на сколько быстро будет обновляться такое количество данных. В этом году я добавил в KRModbusClient пакетного обновления данных (BatchUpdates), то есть за один запрос можно опрашивать несколько переменных, я думаю в вашем случае это будет как раз кстати.

Показать полностью

0

ответить

изменить

удалить

1

Сергей Никитенко

23.12.2019 16:05

[*REPLY_NAME*]

 

Подскажите, Руслан... как только прописываю обработчик OnStateChanged, индикатор становиться серым и не происходит подсветка перехода Hi - Low?

Показать полностью

0

ответить

изменить

удалить

13

Руслан Кандирал

23.12.2019 16:13

Сергей Никитенко

 

Можете показать код в событии OnStateChanged?

Показать полностью

0

ответить

изменить

удалить

1

Сергей Никитенко

23.12.2019 16:15

Руслан Кандирал

 

procedure TMainForm.KRIndicatorSaveProdStateChanged(Sender: TObject); var LineID, intTypeDownTime:Integer; TCPConnector: TKRTCPConnector; mbQtyProd: TKRMBRegister; AVariantQtyProd: variant; intQtyProd: integer; mbFlagSaveProdDB: TKRMBRegister; AVariantFlagSaveProdDB: variant; intFlagSaveProdDB: integer; bbool: boolean; begin LineID:=(Sender as TKRTimer).Tag; TCPConnector := TKRTCPConnector(FindComponent('KRTCPConnector'+IntToStr((Sender as TKRTimer).Tag))); mbQtyProd := TKRMBRegister(FindComponent('KRMB'+IntToStr((Sender as TKRTimer).Tag)+'_QtyProd')); AVariantQtyProd := mbQtyProd.Value; intQtyProd := VarToInt(AVariantQtyProd); mbFlagSaveProdDB := TKRMBRegister(FindComponent('KRMB'+IntToStr((Sender as TKRTimer).Tag)+'_FlagSaveProdDB')); AVariantFlagSaveProdDB := mbFlagSaveProdDB.Value; intFlagSaveProdDB := VarToInt(AVariantFlagSaveProdDB); if (TCPConnector.Stat=cstConnected) and (intQtyProd>0) and (intFlagSaveProdDB=1) then begin try ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('INSERT INTO Table_QtyProd (idLine, QtyProd, DateTime) VALUES (:N1, :N2, :N3)'); ADOQuery1.Parameters.ParamByName('N1').Value:=LineID; ADOQuery1.Parameters.ParamByName('N2').Value:=intQtyProd; ADOQuery1.Parameters.ParamByName('N3').Value:=now; ADOQuery1.ExecSQL; except on e:Exception do AddLog('err timer save QtyProd insert QtyProd > 0'+e.ToString); end; end; end;

Показать полностью

0

ответить

изменить

удалить

13

Руслан Кандирал

23.12.2019 16:23

Сергей Никитенко

 

Почему везде
(Sender as TKRTimer)
если отправитель у вас TKRIndicator

Хотя не факт, что проблема в этом

Показать полностью

0

ответить

изменить

удалить

1

Сергей Никитенко

23.12.2019 23:18

Руслан Кандирал

 

Сорри за такие оплошности...сам не заметил...копировал обработчик с таймера...поправил помогло...неясно только поле Limit...в каких случаях его выставлять? лимит это верхний или нижний?

Показать полностью

0

ответить

изменить

удалить

13

Руслан Кандирал

23.12.2019 23:27

Сергей Никитенко

 

У индикатора есть три возможных варианта работы:
itpOnHi – срабатывание по превышению заданного предела
itpOnLow – срабатывание при снижении ниже заданного предела
itpBit – срабатывание по состоянию бита

В itpOnHi и itpOnLow заданный предел это и есть Limit
Например если IndicatorType=itpOnHi, то при значении переменной ниже или равно Limit состояние индикатора будет istOff. А если значение превысит Limit, то состояние индикатора изменится на istOn.
При IndicatorType=itpOnLow наоборот.

Показать полностью

0

ответить

изменить

удалить

Следующие комментарии