Создание программы автоматизированной системы определения относительной влажности

Применяется для измерения относительной влажности воздуха и температуры в складских помещениях, материальных комнатах, шелковичных, тепличных, птицеводческих хозяйствах. Такие приборы можно встретить в музеях, больницах, общественных местах, погребах, овощехранилищах, складах и других местах, где необходим строгий контроль относительной влажности.

Диапазон измерения температуры сухого термометра от 0 °C до +25 °C.

Диапазон измерения относительной влажности в зависимости от температур:

от 20% до 90% при температуре: от 5 °C до +25 °C.

Цена деления: 0,2 °C.

Термометрическая жидкость ВИТ-1 и ВИТ-2 - толуол;

Для смачивания фитиля предпочтительно использовать дистиллированную или слабоминерализованную воду, чтобы продлить его срок службы.

Высота 290 мм, ширина 120 мм, толщина 50 мм .

Межповерочный интервал: 2 года

Индивидуальная коробка.



3.2 Конструкция и принцип работы гигрометра

На пластмассовом основании закреплены два термометра, температурная шкала, психрометрическая таблица и стеклянный питатель. Один из термометров остаётся сухим, капилляр другого термометра - влажный. Утолщение капилляра «влажного» термометра, где находится основной объём термометрической жидкости (это не ртуть, а вполне безобидный толуол) помещено в специальный трубчатый тканевый материал (фитиль), который хорошо впитывает воду.Второй конец этого материала помещают на несколько сантиметров в открытый конец изогнутой стеклянной трубки (питатель), в которую налита обычная вода (предпочтительно, дистиллированная). Весь материал оказывается смоченным и, под воздействием циркуляции воздуха, вода испаряется и охлаждает колбу капилляра. За счёт этого показания «сухого» и «влажного» термометров отличаются. Это и является ключевым моментом для определения относительной влажности воздуха. Далее остаётся только считать показания «сухого» термометра и определить разницу показаний между «сухим» и «влажным» термометром. Относительную влажность воздуха можно найти в психрометрической таблице, прикреплённой прямо на корпусе прибора, в точке пересечения текущей температуры «сухого» термометра и разницы температур между «сухим» и «влажным» термометром.

Аспирация воздуха, или скорость воздушных потоков, в помещении при измерении относительной влажности гигрометрами ВИТ-1 или ВИТ-2, не должна превышать 1 м/с, иначе разница показаний «сухого» и «влажного» термометра будет больше, и вы получите по таблице заниженную относительную влажность воздуха.

Отличия психрометров ВИТ-1 и ВИТ-2 заключаются в диапазоне измеряемой температуры, и, соответственно, относительной влажности:

ВИТ-1 измеряет температуру в пределах от 0 до + 25 єC, и относительную влажность в температурном диапазоне от +5 до +25 єC.

ВИТ-2 - температуру от +15 до +40 єC, и относительную влажность от при температуре от +20 до +40 єC.

На термометре ВИТ-1 нанесена психрометрическая таблица следующего вида:

Показ. сух. терм. єC	РАЗНОСТЬ ПОКАЗАНИЙ ТЕРМОМЕТРОВ, єC
	0,5	1,0	1,5	2,0	2,5	3,0	3,5	4,0	4,5	5,0	5,5	6,0	6,5	7,0	7,5	8,0	8,5	9,0	9,5	10,0	10,5	11,0
	ОТНОСИТЕЛЬНАЯ ВЛАЖНОСТЬ, %
5	91	83	75	66	58	50	42	34	26	19
6	92	84	76	67	60	52	45	37	30	22	15
7	92	84	77	69	62	54	47	40	33	26	19
8	92	85	78	70	63	56	49	42	36	29	22	16
9	93	86	79	71	65	58	51	45	38	32	25	19
10	93	86	79	73	66	60	53	47	41	34	28	22	16
11	93	87	80	74	67	61	55	49	43	37	31	26	20
12	93	87	81	75	69	63	57	51	45	40	34	28	23	18
13	94	88	82	76	70	64	58	53	47	42	36	31	26	10
14	94	88	82	76	71	65	60	54	49	44	39	33	28	23	18
15	94	88	83	77	72	66	61	56	51	46	41	36	31	26	21	18
16	94	89	83	78	73	68	63	57	52	48	43	38	33	29	24	20
17	95	89	84	79	74	69	64	59	54	49	45	40	35	31	27	22	19
18		90	84	79	74	70	65	60	55	51	47	42	37	33	29	24	21	17
19		90	85	80	75	70	66	61	57	52	48	44	39	35	31	27	23	19
20		90	85	81	76	71	67	63	58	54	50	45	41	37	33	29	25	22	18
21		90	85	81	77	72	68	64	59	55	51	47	43	39	35	31	28	24	21	17
22		91	85	82	77	73	69	64	61	56	52	48	44	41	37	33	30	26	23	19
23		91	86	82	78	74	70	65	62	58	54	50	46	42	39	35	32	28	25	21	18
24		91	87	83	78	74	70	66	62	59	55	51	48	44	40	37	33	30	27	24	20
25		91	87	83	79	75	71	67	63	60	56	52	49	45	42	38	35	32	29	26	22	19

Поверка гигрометров.

Гигрометры психрометрические являются одним из видов контрольно-измерительных приборов. Поэтому они имеют погрешность показаний, которая контролируется определенными нормативами. Каждый гигрометр ВИТ-1 и ВИТ-2, имеет индивидуальную государственную поверку. Это говорит о качестве реализуемой продукции, о жестком контроле качества выпускаемых заводом-производителем приборов. Межповерочный интервал психрометров гигрометрических ВИТ-1 и ВИТ-2 составляет 2 года.Вся эта и другая необходимая информация, указана в индивидуальном паспорте прибора (он же - свидетельство о поверке), который поставляется в комплекте.

3.3 Разработка алгоритма для автоматизации определения влажности гигрометра ВИТ-1

1)Условие ввода данных

До начала работы происходит описание переменных, которые будут использоваться в программе

Var

{Оператор Var обозначает начало блока для объявления переменных.}

K : Integer;

{Oбъявление переменных}

{То, что в фигурных скобках, программа не обрабатывает, это комментарии для пояснения действий программы}

Условия ввода данных происходит по конкретным условиям на языке Паскаль

………………………………………………..

if(x>=5) and(x<26) and(y=0) then h := '100%';

if(x>=5) and(x<6) and(y=0.5) then h := '91%';

if(x>=6) and(x<9) and(y=0.5) then h := '92%';

if(x>=9) and(x<13) and(y=0.5) then h := '93%';

if(x>=13) and(x<17) and(y=0.5) then h := '94%';

if(x>=18) and(x<26) and(y=0.5) then h := 'выше 96%';

if(x=17) and(y=0.5) then h := '95%';

if(x>=5) and(x<6) and(y=1) then h := '83%';

if(x>=6) and(x<8) and(y=1) then h := '84%';

if(x=8) and(y=1) then h := '85%';

if(x>=9) and(x<11) and(y=1) then h := '86%';

if(x>=11) and(x<13) and(y=1) then h := '87%';

if(x>=13) and(x<16) and(y=1) then h := '88%';

…………………………………………………….

Рисунок 3.2

На главном поле программы пользователю показывается, в каком диапазоне работает гигрометр ВИТ-1.

2)Ввод данных

Ввод данных происходит по принципу условий описанных на языке паскаль

Begin

Writeln(`Введите T -сухого градусника ');

{Приглашение ввести значение переменной К}

Readln(K);

{Считывание значения, введенного с клавиатуры, в переменную c именем K}

Writeln(`влажность = ', K);

{Вывод на экран значения введенной переменной K}

{Любая команда в Паскале завершается точкой с запятой.}

End.

{Begin и End обозначают начало и конец, какого либо программного блока. End с точкой - конец программы.}

Рисунок 3.3

Для ввода температуры сухого градусника нужно внести показание термометра в указанное поле.

3)Ввод данных

Begin

Writeln(`Введите T -влажного градусника ');

{Приглашение ввести значение переменной Е}

Readln(е);

{Считывание значения, введенного с клавиатуры, в переменную c именем K}

Writeln(`Это е = ', е);

{Вывод на экран значения введенной переменной K}

{Любая команда в Паскале завершается точкой с запятой.}

End.

{Begin и End обозначают начало и конец, какого либо программного блока. End с точкой - конец программы.}

Рисунок 3.4

Для ввода температуры мокрого градусника нужно внести показание термометра в указанное поле.

Процесс вычисления

procedureInitControls;

begin

MainForm.Title := 'Атоматический АГЖ'; задаем название программы

MainForm.SetSize(500,350); описываем размеры окна

MainForm.CenterOnScreen;

пример

b.Value := 19.5; описание 1 переменной в окне

a.Value := 20; описание 2 переменой в окне

ok.Click += MyClick;

mainPanel.Dock := DockStyle.Left;

mainPanel.Width := 150;

ParentControl := MainForm;

tb := new TextBox;

tb.Dock := DockStyle.Fill;

tb.AddLine('Диапазон измерения относительной влажности в зависимости');

tb.AddLine('от температур от 20% до 90% ');

tb.AddLine('При температуре: от 5 °C до +25 °C. ');

tb.AddLine('Введите температуру градусников');

end;

После того когда все поля заполнены приступаем к вычислению влажности для этого нужно нажать на кнопку «Вычислить»

Вывод результатов.

Readln(K);

{Считывание значения, введенного с клавиатуры, в переменную c именем K}

Writeln(`Это К = ', K);

{Вывод на экран значения введенной переменной K}

{Любая команда в Паскале завершается точкой с запятой.}

End.

{Begin и End обозначают начало и конец, какого либо программного блока. End с точкой - конец программы.}var h :

Рисунок 3.5 вывод результатов расчета

После того как была нажата кнопка программа вычисляет относительную влажность воздуха и появляются данные вычисления. Для того что бы повторить вычисление требуется снова заполнить поля и нажать кнопку «вычислить»

В результате мы получаем следующий алгоритм автоматизированного расчета влажности с помощью гигрометра ВИТ-1.



Выводы

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



Заключение

В ходе проведенной работы

1.Рассмотрена история создания Гигрометров;

2. Проведена классификация гигрометров;

3.Изучен принцип их действия;

4. Ознакомление с методикой разработки алгоритма;

5. Создана программа на языке Паскаль для автоматизированного вычисления относительной влажности;

Выбрал методические рекомендации для создание программ на языке Паскаль .

6. создан алгоритм для автоматизированного расчета относительной влажности с помощью гигрометра ВИТ-1.

7. Создана автоматизированная программа « Психометрический гигрометр ВИТ-1» которая с помощью введённых данных температур вычисляет относительную влажность помещения со стабильной точностью измерений. Благодаря этой программе вычисление относительной влажности значительно упростилось, и не затрачивают много времени и сил.

Таким образом, цели и задачи курсовой работы достигнуты.

гигрометр влажность автоматизированный алгоритм



Библиографический список

1. Стернзат М. С., Метеорологические приборы и наблюдения, Л., 1968, гл. 4; Усольцев В. А., Измерение влажности воздуха, Л., 1959.

2. П. Лакур, Я. Аппель. Историческая физика, том 2. Одесса, 1908. - 432 стр.

3. Прибор для определения степени влажности воздуха. Словарь иностранных слов, вошедших в состав русского языка. Чудинов А.Н., 1910. ГИГРОМЕТР греч.; этимологию см. пред. слова. Прибор для определении степени влажности

4. М.А.Берлинер. Измерение влажности. Изд. 2-е, перераб. и доп. - М.: Энергия, 1973, с.230.

5. В.А.Зайцев, А.А.Ледохович, Г.Т.Никандрова. Влажность воздуха и ее измерение. - Л.: Гидрометеоиздат, 1974, с.93.

6. Гигрометр. Патент РФ №1827610, G01N 25/68. Опубл. 15.07.93. Бюл. №26.

7. Аш.Ж. и соавторы "Датчики измерительных систем": в двух книгах. кн.2 пер. с франц.: нир, 1992 - 480стр.

Нормативные документы

8. ГОСТ 8.524-85 Государственная система обеспечения единства измерений. Таблицы психрометрические. Построение, содержание, расчетные соотношения

9. ГОСТ 28498-90 Термометры жидкостные стеклянные. Общие технические требования. Методы испытаний

10. ГОСТ 8.558-93 Государственная система обеспечения единства измерений. Государственная поверочная схема для средств измерений температуры

11. ГОСТ 18321-73 Статистический контроль качества. Методы случайного отбора выборок штучной продукции

12. ГОСТ 427--75 ЛИНЕЙКИ ИЗМЕРИТЕЛЬНЫЕ МЕТАЛЛИЧЕСКИЕ

13. ГОСТ 215-73 Термометры ртутные стеклянные лабораторные. Технические условия

14. ГОСТ 8.279-78 Государственная система обеспечения единства измерений. Термометры стеклянные жидкостные рабочие. Методика поверки

15 .ГОСТ 19.701-90 Единая система программной документации. Схемы алгоритмов, программ, данных и систем. Условные обозначения и правила выполнения.

ПриложениеА

Текст программы

usesFormsABC;

functionCalcText(a,b: real): string;

begin

Result:= '';

varx := a;

vary:= a-b;

var h : string;

if(x>=5) and(x<26) and(y=0) then h := '100%';

if(x>=5) and(x<6) and(y=0.5) then h := '91%';

if(x>=6) and(x<9) and(y=0.5) then h := '92%';

if(x>=9) and(x<13) and(y=0.5) then h := '93%';

if(x>=13) and(x<17) and(y=0.5) then h := '94%';

if(x>=18) and(x<26) and(y=0.5) then h := 'выше 96%';

if(x=17) and(y=0.5) then h := '95%';

if(x>=5) and(x<6) and(y=1) then h := '83%';

if(x>=6) and(x<8) and(y=1) then h := '84%';

if(x=8) and(y=1) then h := '85%';

if(x>=9) and(x<11) and(y=1) then h := '86%';

if(x>=11) and(x<13) and(y=1) then h := '87%';

if(x>=13) and(x<16) and(y=1) then h := '88%';

if(x>=16) and(x<18) and(y=1) then h := '89%';

if(x>=18) and(x<22) and(y=1) then h := '90%';

if(x>=22) and(x<26) and(y=1) then h := '91%';

if(x=5) and(y=1.5) then h := '75%';

if(x=6) and(y=1.5) then h := '76%';

if(x=7) and(y=1.5) then h := '77%';

if(x=8) and(y=1.5) then h := '78%';

if(x>=9) and(x<11) and(y=1.5) then h := '79%';

if(x=11) and(y=1.5) then h := '80%';

if(x>=13) and(x<15) and(y=1.5) then h := '82%';

if(x=12) and(y=1.5) then h := '81%';

if(x>=15) and(x<17) and(y=1.5) then h := '83%';

if(x>=17) and(x<19) and(y=1.5) then h := '84%';

if(x>=19) and(x<23) and(y=1.5) then h := '85%';

if(x=23) and(y=1.5) then h := '86%';

if(x>=23) and(x<26) and(y=1.5) then h := '87%';

if(x>=5) and(y=2) then h := '66%';

if(x=6) and(y=2) then h := '67%';

if(x=7) and(y=2) then h := '69%';

if(x=8) and(y=2) then h := '70%';

if(x=9) and(y=2) then h := '71%';

if(x=10) and(y=2) then h := '73%';

if(x=11) and(y=2) then h := '74%';

if(x=12) and(y=2) then h := '75%';

if(x=13) and(y=2) then h := '76%';

if(x=14) and(y=2) then h := '76%';

if(x=15) and(y=2) then h := '77%';

if(x=16) and(y=2) then h := '78%';

if(x=17) and(x=18) and(y=2) then h := '79%';

if(x=19) and(y=2) then h := '80%';

if(x=20) and(x=21) and(y=2) then h := '81%';

if(x=22) and(y=2) then h := '82%';

if(x=23) and(y=2) then h := '82%';

if(x=24) and(y=2) then h := '83%';

if(x=25) and(y=2) then h := '83%';

if(x=5) and(y=2.5) then h := '58%';

if(x=6) and(y=2.5) then h := '60%';

if(x=7) and(y=2.5) then h := '62%';

if(x=8) and(y=2.5) then h := '63%';

if(x=9) and(y=2.5) then h := '65%';

if(x=10) and(y=2.5) then h := '66%';

if(x=11) and(y=2.5) then h := '67%';

if(x=12) and(y=2.5) then h := '69%';

if(x=13) and(y=2.5) then h := '70%';

if(x=14) and(y=2.5) then h := '71%';

if(x=15) and(y=2.5) then h := '72%';

if(x=16) and(y=2.5) then h := '73%';

if(x=17) and(y=2.5) then h := '74%';

if(x=18) and(y=2.5) then h := '74%';

if(x=19) and(y=2.5) then h := '75%';

if(x=20) and(y=2.5) then h := '76%';

if(x=21) and(y=2.5) then h := '77%';

if(x=22) and(y=2.5) then h := '77%';

if(x=23) and(y=2.5) then h := '78%';

if(x=24) and(y=2.5) then h := '78%';

if(x=25) and(y=2.5) then h := '79%';

if(x=5) and(y=3) then h := '50%';

if(x=6) and(y=3) then h := '52%';

if(x=7) and(y=3) then h := '54%';

if(x=8) and(y=3) then h := '56%';

if(x=9) and(y=3) then h := '58%';

if(x=10) and(y=3) then h := '60%';

if(x=11) and(y=3) then h := '61%';

if(x=12) and(y=3) then h := '63%';

if(x=13) and(y=3) then h := '64%';

if(x=14) and(y=3) then h := '65%';

if(x=15) and(y=3) then h := '66%';

if(x=16) and(y=3) then h := '68%';

if(x=17) and(y=3) then h := '69%';

if(x=18) and(y=3) then h := '70%';

if(x=19) and(y=3) then h := '70%';

if(x=20) and(y=3) then h := '71%';

if(x=21) and(y=3) then h := '72%';

if(x=22) and(y=3) then h := '73%';

if(x=23) and(y=3) then h := '74%';

if(x=24) and(y=3) then h := '74%';

if(x=25) and(y=3) then h := '75%';

if(x=5) and(y=3.5) then h := '42%';

if(x=6) and(y=3.5) then h := '45%';

if(x=7) and(y=3.5) then h := '47%';

if(x=8) and(y=3.5) then h := '49%';

if(x=9) and(y=3.5) then h := '51%';

if(x=10) and(y=3.5) then h := '53%';

if(x=11) and(y=3.5) then h := '55%';

if(x=12) and(y=3.5) then h := '57%';

if(x=13) and(y=3.5) then h := '58%';

if(x=14) and(y=3.5) then h := '60%';

if(x=15) and(y=3.5) then h := '61%';

if(x=16) and(y=3.5) then h := '63%';

if(x=17) and(y=3.5) then h := '64%';

if(x=18) and(y=3.5) then h := '65%';

if(x=19) and(y=3.5) then h := '66%';

if(x=20) and(y=3.5) then h := '67%';

if(x=21) and(y=3.5) then h := '68%';

if(x=22) and(y=3.5) then h := '69%';

if(x=23) and(y=3.5) then h := '70%';

if(x=24) and(y=3.5) then h := '70%';

if(x=25) and(y=3.5) then h := '71%';

if(x=5) and(y=4) then h := '34%';

if(x=6) and(y=4) then h := '37%';

if(x=7) and(y=4) then h := '40%';

if(x=8) and(y=4) then h := '42%';

if(x=9) and(y=4) then h := '45%';

if(x=10) and(y=4) then h := '47%';

if(x=11) and(y=4) then h := '49%';

if(x=12) and(y=4) then h := '51%';

if(x=13) and(y=4) then h := '53%';

if(x=14) and(y=4) then h := '54%';

if(x=15) and(y=4) then h := '56%';

if(x=16) and(y=4) then h := '57%';

if(x=17) and(y=4) then h := '59%';

if(x=18) and(y=4) then h := '60%';

if(x=19) and(y=4) then h := '61%';

if(x=20) and(y=4) then h := '63%';

if(x=21) and(y=4) then h := '64%';

if(x=22) and(y=4) then h := '64%';

if(x=23) and(y=4) then h := '65%';

if(x=24) and(y=4) then h := '66%';

if(x=25) and(y=4) then h := '67%';

if(x=5) and(y=4.5) then h := '26%';

if(x=6) and(y=4.5) then h := '30%';

if(x=7) and(y=4.5) then h := '33%';

if(x=8) and(y=4.5) then h := '36%';

if(x=9) and(y=4.5) then h := '38%';

if(x=10) and(y=4.5) then h := '41%';

if(x=11) and(y=4.5) then h := '43%';

if(x=12) and(y=4.5) then h := '45%';

if(x=13) and(y=4.5) then h := '47%';

if(x=14) and(y=4.5) then h := '49%';

if(x=15) and(y=4.5) then h := '51%';

if(x=16) and(y=4.5) then h := '52%';

if(x=17) and(y=4.5) then h := '54%';

if(x=18) and(y=4.5) then h := '55%';

if(x=19) and(y=4.5) then h := '57%';

if(x=20) and(y=4.5) then h := '58%';

if(x=21) and(y=4.5) then h := '59%';

if(x=22) and(y=4.5) then h := '61%';

if(x=23) and(y=4.5) then h := '62%';

if(x=24) and(y=4.5) then h := '62%';

if(x=25) and(y=4.5) then h := '63%';

if(x=5) and(y=5) then h := '19%';

if(x=6) and(y=5) then h := '22%';

if(x=7) and(y=5) then h := '26%';

if(x=8) and(y=5) then h := '29%';

if(x=9) and(y=5) then h := '32%';

if(x=10) and(y=5) then h := '34%';

if(x=11) and(y=5) then h := '37%';

if(x=12) and(y=5) then h := '40%';

if(x=13) and(y=5) then h := '42%';

if(x=14) and(y=5) then h := '44%';

if(x=15) and(y=5) then h := '46%';

if(x=16) and(y=5) then h := '48%';

if(x=17) and(y=5) then h := '49%';

if(x=18) and(y=5) then h := '51%';

if(x=19) and(y=5) then h := '52%';

if(x=20) and(y=5) then h := '54%';

if(x=21) and(y=5) then h := '55%';

if(x=22) and(y=5) then h := '56%';

if(x=23) and(y=5) then h := '58%';

if(x=24) and(y=5) then h := '59%';

if(x=25) and(y=5) then h := '60%';

if(x=5) and(y=5.5) then h := '14%';

if(x=6) and(y=5.5) then h := '15%';

if(x=7) and(y=5.5) then h := '19%';

if(x=8) and(y=5.5) then h := '22%';

if(x=9) and(y=5.5) then h := '25%';

if(x=10) and(y=5.5) then h := '28%';

if(x=11) and(y=5.5) then h := '31%';

if(x=12) and(y=5.5) then h := '34%';

if(x=13) and(y=5.5) then h := '36%';

if(x=14) and(y=5.5) then h := '39%';

if(x=15) and(y=5.5) then h := '41%';

if(x=16) and(y=5.5) then h := '43%';

if(x=17) and(y=5.5) then h := '45%';

if(x=18) and(y=5.5) then h := '47%';

if(x=19) and(y=5.5) then h := '48%';

if(x=20) and(y=5.5) then h := '50%';

if(x=21) and(y=5.5) then h := '51%';

if(x=22) and(y=5.5) then h := '52%';

if(x=23) and(y=5.5) then h := '54%';

if(x=24) and(y=5.5) then h := '55%';

if(x=25) and(y=5.5) then h := '56%';

if(x>=5) and (x<8) and(y=6) then h := 'меньше 16%';

if(x=8) and(y=6) then h := '16%';

if(x=9) and(y=6) then h := '19%';

if(x=10) and(y=6) then h := '22%';

if(x=11) and(y=6) then h := '26%';

if(x=12) and(y=6) then h := '28%';

if(x=13) and(y=6) then h := '31%';

if(x=14) and(y=6) then h := '33%';

if(x=15) and(y=6) then h := '36%';

if(x=16) and(y=6) then h := '38%';

if(x=17) and(y=6) then h := '40%';

if(x=18) and(y=6) then h := '42%';

if(x=19) and(y=6) then h := '44%';

if(x=20) and(y=6) then h := '45%';

if(x=21) and(y=6) then h := '47%';

if(x=22) and(y=6) then h := '48%';

if(x=23) and(y=6) then h := '50%';

if(x=24) and(y=6) then h := '51%';

if(x=25) and(y=6) then h := '52%';

if(x>=5) and(x<10) and(y=6.5) then h := 'меньше 16%';

if(x=10) and(y=6.5) then h := '16%';

if(x=11) and(y=6.5) then h := '20%';

if(x=12) and(y=6.5) then h := '23%';

if(x=13) and(y=6.5) then h := '26%';

if(x=14) and(y=6.5) then h := '28%';

if(x=15) and(y=6.5) then h := '31%';

if(x=16) and(y=6.5) then h := '33%';

if(x=17) and(y=6.5) then h := '35%';

if(x=18) and(y=6.5) then h := '37%';

if(x=19) and(y=6.5) then h := '39%';

if(x=20) and(y=6.5) then h := '41%';

if(x=21) and(y=6.5) then h := '43%';

if(x=22) and(y=6.5) then h := '44%';

if(x=23) and(y=6.5) then h := '46%';

if(x=24) and(y=6.5) then h := '48%';

if(x=25) and(y=6.5) then h := '49%';

if(x>=5) and (x<12) and(y=7) then h := 'меньше 16%';

if(x=12) and(y=7) then h := '18%';

if(x=13) and(y=7) then h := '20%';

if(x=14) and(y=7) then h := '23%';

if(x=15) and(y=7) then h := '26%';

if(x=16) and(y=7) then h := '29%';

if(x=17) and(y=7) then h := '31%';

if(x=18) and(y=7) then h := '33%';

if(x=19) and(y=7) then h := '35%';

if(x=20) and(y=7) then h := '37%';

if(x=21) and(y=7) then h := '39%';

if(x=22) and(y=7) then h := '41%';

if(x=23) and(y=7) then h := '42%';

if(x=24) and(y=7) then h := '44%';

if(x=25) and(y=7) then h := '45%';

if(x>=5) and (x<14) and(y=7.5) then h := 'меньше 16%';

if(x=14) and(y=7.5) then h := '18%';

if(x=15) and(y=7.5) then h := '21%';

if(x=16) and(y=7.5) then h := '24%';

if(x=17) and(y=7.5) then h := '27%';

if(x=18) and(y=7.5) then h := '29%';

if(x=19) and(y=7.5) then h := '31%';

if(x=20) and(y=7.5) then h := '33%';

if(x=21) and(y=7.5) then h := '35%';

if(x=22) and(y=7.5) then h := '37%';

if(x=23) and(y=7.5) then h := '39%';

if(x=24) and(y=7.5) then h := '40%';

if(x=25) and(y=7.5) then h := '42%';

if(x>=5) and (x<15) and(y=8) then h := 'меньше 16%';

if(x=15) and(y=8) then h := '18%';

if(x=16) and(y=8) then h := '20%';

if(x=17) and(y=8) then h := '22%';

if(x=18) and(y=8) then h := '24%';

if(x=19) and(y=8) then h := '27%';

if(x=20) and(y=8) then h := '29%';

if(x=21) and(y=8) then h := '31%';

if(x=22) and(y=8) then h := '33%';

if(x=23) and(y=8) then h := '35%';

if(x=24) and(y=8) then h := '37%';

if(x=25) and(y=8) then h := '38%';

if(x>=5) and (x<17) and(y=8.5) then h := 'меньше 18%';

if(x=17) and(y=8.5) then h := '19%';

if(x=18) and(y=8.5) then h := '21%';

if(x=19) and(y=8.5) then h := '23%';

if(x=20) and(y=8.5) then h := '25%';

if(x=21) and(y=8.5) then h := '28%';

if(x=22) and(y=8.5) then h := '30%';

if(x=23) and(y=8.5) then h := '32%';

if(x=24) and(y=8.5) then h := '33%';

if(x=25) and(y=8.5) then h := '35%';

if(x>=5) and (x<18) and(y=9) then h := 'меньше 16%';

if(x=18) and(y=9) then h := '17%';

if(x=19) and(y=9) then h := '19%';

if(x=20) and(y=9) then h := '22%';

if(x=21) and(y=9) then h := '24%';

if(x=22) and(y=9) then h := '26%';

if(x=23) and(y=9) then h := '28%';

if(x=24) and(y=9) then h := '30%';

if(x=25) and(y=9) then h := '32%';

if(x>=5) and (x<20) and(y=9.5) then h := 'меньше 17%';

if(x=20) and(y=9.5) then h := '18%';

if(x=21) and(y=9.5) then h := '21%';

if(x=22) and(y=9.5) then h := '23%';

if(x=23) and(y=9.5) then h := '25%';

if(x=24) and(y=9.5) then h := '27%';

if(x=25) and(y=9.5) then h := '29%';

if(x>=5)and (x<21) and(y=10) then h := 'меньше 16%';

if(x=21) and(y=10) then h := '17%';

if(x=22) and(y=10) then h := '19%';

if(x=23) and(y=10) then h := '21%';

if(x=24) and(y=10) then h := '24%';

if(x=25) and(y=10) then h := '26%';

if(x>=5) and (x<23) and(y=10.5) then h := 'меньше 17%';

if(x=23) and(y=10.5) then h := '18%';

if(x=24) and(y=10.5) then h := '20%';

if(x=25) and(y=10.5) then h := '22%';

if(x>=5) and (x<25) and(y=11) then h := 'меньше 18%';

if(x=25) and(y=11) then h := '19%';

Result += h;

end;

var

a := new RealField('Т - сухогоградусника');

b := new RealField('Т - мокрогоградусника');

ok := new Button('Вычислить');

tb: TextBox;

procedure MyClick;

begin

tb.Text := '';

var res := CalcText(a.Value,b.Value);

tb.AddLine(Format('Темпратурасухогоградусника = {0};',a.Value));

tb.AddLine(Format('Темпратурамокрогоградусника = {0};',b.Value));

tb.AddLine(Format('Влажностьсоставляет {0};',res.ToString));

end;

procedure InitControls;

begin

MainForm.Title := 'ГигрометрЖуганов';

MainForm.SetSize(500,350);

MainForm.CenterOnScreen;

b.Value := 19.5;

a.Value := 20;

ok.Click += MyClick;

mainPanel.Dock := DockStyle.Left;

mainPanel.Width := 150;

ParentControl := MainForm;

tb := new TextBox;

tb.Dock := DockStyle.Fill;

tb.AddLine('Диапазон измерения относительной влажности в зависимости');

tb.AddLine('от температур от 20% до 90% ');

tb.AddLine('При температуре: от 5 °C до +25 °C. ');

tb.AddLine('Введите температуру градусников');

end;

begin

InitControls;

end.

Размещено на Allbest.ru