isRange - HiAsm

Вверх ↑

Форумы КомпонентыisRange ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 5227

Рейтинг: 587

#1: 2014-10-23 19:31:27 ЛС | профиль | цитата

Проверка вхождения числа в диапазон чисел.

карма: 4

Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...

файлы: 1

isrange.zip [1.4KB] [491]

Голосовали:

Shonyi

Ответов: 16884

Рейтинг: 1239

#2: 2014-10-23 22:25:50 ЛС | профиль | цитата

Ещё одна проверка вхождения в диапазон. И не только чисел.
between.zip

А проверка вхождения в диапазон только чисел решается гораздо меньшей кровью:


Add(InlineCode,5438944,259,105)
{
 WorkPoints=#9:doBetween|
 EventPoints=#5:onYes|4:onNo|
 DataPoints=#7:dNumber|4:dMin|4:dMax|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|48:    dNumber,dMin,dMax,onYes,onNo : THI_Event;   |53:    PROCEDURE doBetween(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|32:PROCEDURE THiAsmClass.doBetween;|21:var a, b, c : double;|5:begin|26:  a:=ReadReal(_Data,dMin);|26:  b:=ReadReal(_Data,dMax);|29:  c:=ReadReal(_Data,dNumber);|76:  If (c >= a)AND(c <= b) then _hi_onEvent(onYes,c) else _hi_onEvent(onNo,c);|4:end;|4:end.|
}

карма: 25

Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!

файлы: 1 between.zip [1.3KB] [412]

Голосовали: Shonyi, sashaoli

Форумы КомпонентыisRange ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)