Вверх ↑
Пакеты 
HiAsm4
Windows 
Компоненты 
Лoгикa - CounterEx

CounterEx
Краткое описание
  Компонент предназначен для создания в программе счетчиков различного назначения
Параметры
  • Min - Установка минимального значения счетчика
  • Max - Установка максимального значения счетчика
  • Step - Установка шага счетчика
  • Direct - Направление счета Inc: от Min к Max, Dec: от Max к Min
  • Default - Начальное значение счетчика
  • Методы
  • doNext - Устанавливает следующее значение счетчика
  • doPrev - Устанавливает предыдущее значение счетчика
  • doReset - Сброс счетчика в начальное значение
  • doValue - Устанавливает значение счетчика
  • События
  • onNext - Событие происходит всякий раз при установке нового значения счетчика и возвращает в поток его текущее значение
  • onThroughMax - Событие происходит всякий раз после перехода через максимальное значение счетчика
  • onThroughMin - Событие происходит всякий раз после перехода через минимальное значение счетчика
  • Свойства
  • Count - Содержит текущее значение счетчика
  • Max - Содержит максимальное значение счетчика
  • Min - Содержит минимальное значение счетчика
  • Direct - Содержит текущее направление счета (0 - Inc, 1 - Dec)
  • Пример
      Пример создания бесконечного реверсивного счетчика

    
    Add(MainForm,2953706,140,91)
    {
    Width=371
    Height=206
    Caption="CounterEx"
    }
    Add(CounterEx,3012743,329,147)
    {
    Min=1
    Max=10
    Default=1
    Point(doValue)
    Point(onThroughMax)
    Point(onThroughMin)
    Point(doDirect)
    Point(Direct)
    Point(Max)
    Point(Min)
    link(onNext,11002303:doText,[])
    link(onThroughMax,1648576:doData,[(387,160)(387,211)(331,211)(331,237)])
    link(onThroughMin,7000761:doData,[(380,167)(380,205)(324,205)(324,279)])
    }
    Add(Label,11002303,406,147)
    {
    Left=125
    Top=40
    Width=100
    Height=45
    Font=[MS Sans Serif,24,1,0,1]
    Caption="1"
    AutoSize=1
    Alignment=2
    }
    Add(Button,5658069,140,147)
    {
    Left=150
    Top=105
    TabOrder=-1
    Caption="Start"
    link(onClick,1230632:doTimer,[])
    }
    Add(Timer,1230632,189,147)
    {
    Interval=500
    Enable=1
    link(onTimer,14297138:doWork2,[])
    }
    Add(DoData,1648576,343,231)
    {
    link(onEventData,12276218:doEvent1,[])
    link(Data,3012743:Max,[])
    }
    Add(DoData,7000761,350,273)
    {
    link(onEventData,12276218:doEvent2,[(394,279)(394,244)])
    link(Data,3012743:Min,[])
    }
    Add(Hub,12276218,406,231)
    {
    InCount=2
    OutCount=3
    link(onEvent1,3012743:doValue,[(450,237)(450,320)(235,320)(235,160)])
    link(onEvent2,3401999:doOperation,[(441,244)(441,314)(242,314)(242,237)])
    link(onEvent3,14297138:doWork3,[(432,251)(432,308)(298,308)])
    }
    Add(HubEx,14297138,294,147)
    {
    link(onEvent,3012743:doNext,[])
    }
    Add(Math,3401999,252,231)
    {
    OpType=6
    Op2=1
    ResultType=0
    link(onResult,3012743:doDirect,[(310,237)(310,167)])
    link(Op1,3012743:Direct,[(258,194)(342,194)])
    }

    Замечания
    Обновление элемента: [svn]CounterEx.pas[/svn]
    BB-code статьи для вставки
    Всего комментариев: 0
    (комментарии к статье еще не добавлены)
    Комментарий
    ...