Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Visual Basic
Перезагрузить страницу Проблемы с вводом предельных значений функции if ... Then
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
SeTkca SeTkca вне форума
Новичок
 
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 01.11.2017
Red face Проблемы с вводом предельных значений функции if ... Then - 01.11.2017, 19:55

'ЗАПИСЬ РЕАКЦИИ РАЗДОЖЕНИЯ
'"'$$$$$$$$$'ГРУППА ВВ
If O >= (2 * C + H / 2) Then
Label45.Text = 1
ElseIf (C + (H / 2)) <= O < (2 * C + H / 2) Then
Label45.Text = 2
ElseIf O < (C + (H / 2)) Then
Label45.Text = 3
End If

Здесь Программа не перестраивает 2 на 3 так как считает, что критерии заданные ей правильные. ПОМОГИТЕ МОЖЕТ Я НЕ ВЕРНО ЗАДАЛ ПРЕДЕЛЫ. БЬЮСЬ 4 часа. СПАСИБО БОЛЬШОЕ
'Расчет для первой группы с s>=0 ПРИНЦИП БЕРТЛО

'Реакции разложения связанные с водой
'CcHhOoNn=(c)СО2 +(h/2)Н2O+1/2(o-2c-h/2)O2+n/2N2

If Label45.Text = 1 Then
x = C 'C02 x
Label33.Text = Math.Round(x, 2)
f = H / 2 'H2O f
Label31.Text = Math.Round(f, 2)
y = O - (2 * x) - f 'O2 y Свободный водород
Label34.Text = Math.Round(f, 2)
p = N / 2 'N2 y Свободный Азот
Label36.Text = Math.Round(p, 2)
End If
'Расчет Продуктов для второй группы ВВ если S<0 но C + Н/2 <= О < 2С + Н/2

If Label45.Text = 2 Then
x = 1 / 2 * (O - C) 'C02 x
Label33.Text = Math.Round(x, 2)
z = 1 / 2 * (3 * C - O) 'C0 z
Label32.Text = Math.Round(z, 2)
w = C - z - x 'C
Label35.Text = Math.Round(w, 2)
f = 1 / 2 * (O - C) 'H2O f
Label31.Text = Math.Round(f, 2)
g = 1 / 2 * (C + H - O) 'H2 g
Label37.Text = Math.Round(g, 2)
y = O - (2 * x) - f - z 'O2 y Свободный водород
Label34.Text = Math.Round(y, 2)
p = N / 2 'N2 y Свободный Азот
Label36.Text = Math.Round(p, 2)
End If
'ТРЕТЬЯ ГРУППА ВВ ПО КИСЛОРОДНОМУ БАЛАНСУ

If Label45.Text = 3 Then
x = 0 'C02 x
Label33.Text = Math.Round(x, 2)
z = O - (H / 2) 'C0 z
Label32.Text = Math.Round(z, 2)
w = (C - O + (H / 2)) 'C w
Label35.Text = Math.Round(w, 2)
f = H / 2 'H2O f
Label31.Text = Math.Round(f, 2)
g = 0 'H2 g
Label37.Text = Math.Round(g, 2)
y = O - (2 * x) - f - z 'O2 y Свободный водород
Label34.Text = Math.Round(y, 2)
p = N / 2 'N2 y Свободный Азот
Label36.Text = Math.Round(p, 2)
End If
Ответить с цитированием
Ads
Ответ

Метки
baisic , новичок , программу

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Разработать программу табулирования (вычисления таблицы значений) функции. Тараканище Вопросы начинающих программистов 0 30.10.2011 13:17
Вычислить и напечатать таблицы значений функции y= f(x) andreis459 Pascal 1 20.03.2011 00:10
Алгоритм для вычисления значений функции для нескольких значений аргумента в С++ imported_Гоша Вопросы начинающих программистов 3 07.12.2010 15:18
Нахождение самого длинного пути с вводом значений dyalex86 Prolog 1 18.10.2010 14:19
Как обрабатывать функции, возвращающие несколько значений Vladimir the Red Sunny Haskell 12 03.09.2010 13:38
Программа с использованием рекурсии вычисления значений функции Anti[B]iotik Prolog 2 11.02.2010 17:24
Проблемы со вводом в datetime Anonymous PostgreSQL 8 24.03.2009 11:45
Проблемы с вводом символа Asus F5R Solnze Ноутбуки 10 15.05.2008 19:08
Составление таблицы значений функции на С++ God-of-Chaos Вопросы начинающих программистов 3 29.12.2007 17:37
Проблемы с вводом iostream Марьюшка Вопросы начинающих программистов 2 12.12.2007 21:07
Программа для вычисления значений функции Dyst Вопросы начинающих программистов 2 22.12.2006 14:28
Сформировать массив значений комплексной функции на С++ samanta Вопросы начинающих программистов 1 25.09.2004 13:53



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов