Здравствуйте уважаемые коллеги!
Немного доработал Vent-Calc V1.2 - добавлена возможность ввода нестандартных сечений воздуховодов, формируются все возможные комбинации фасонных изделий стандарт/нестандарт и соответственно расчитываются. Относительно расчета калорифера - расчет ведется по формуле из ОВэшного СНИПа для приточного воздуха.
С уважением, Игорь
Полная версия этой страницы: Новая версия Vent-Calc
А вот и сама программа
Вес 745кБ
Обновление программы. В программу внесены некоторые измения, а именно снято ограничение на высоту ответвлений для тройников, и доработан алгоритм подбора сечений тройников.
Вес 745кБ
Обновление программы. В программу внесены некоторые измения, а именно снято ограничение на высоту ответвлений для тройников, и доработан алгоритм подбора сечений тройников.
Испробовал Вашу программу , понравилась. Но возникла проблема с изменениями в коэффициентах шереховатости
- не вводятся десятичные
- зависает экв. шероховатость на одной величине или же прыгает с 1,5 на 15
ошибка?????
- не вводятся десятичные
- зависает экв. шероховатость на одной величине или же прыгает с 1,5 на 15
ошибка?????
IgorIlin
1) съехали Edit в расчете естественной вентиляции
2) есть просьба, уберите Progressbar из этого расчета. Выглядит не солидно
расчет плевый, и добавленные паузы, лишь нервируют Прикладываю файл, иллюстрирующий примерно вашу ситуацию, когда умышленно увеличивают время расчета
ПС в моей программе есть аналогичный расчет, который на Пентиум 2 у меня на работе длится не более секунды!
ИМХО - это моветон использовать такую фишку не по назначению
1) съехали Edit в расчете естественной вентиляции
2) есть просьба, уберите Progressbar из этого расчета. Выглядит не солидно
расчет плевый, и добавленные паузы, лишь нервируют Прикладываю файл, иллюстрирующий примерно вашу ситуацию, когда умышленно увеличивают время расчета ПС в моей программе есть аналогичный расчет, который на Пентиум 2 у меня на работе длится не более секунды!
ИМХО - это моветон использовать такую фишку не по назначению
Цитата
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to 100 do
begin
Label1.Caption:='Прогресс='+inttostr(i)+'%';
label1.Refresh;
ProgressBar1.Position:=i;
Sleep(100);
end;
Edit1.Text:='2*2='+IntToStr(2*2);
ProgressBar1.Position:=0;
Button2.Enabled:=true;
end;
var
i:integer;
begin
for i:=0 to 100 do
begin
Label1.Caption:='Прогресс='+inttostr(i)+'%';
label1.Refresh;
ProgressBar1.Position:=i;
Sleep(100);
end;
Edit1.Text:='2*2='+IntToStr(2*2);
ProgressBar1.Position:=0;
Button2.Enabled:=true;
end;
В новой версии Vent Calc не работает калорифер
он не дает поставить отрицательную температуру нар. воздуха
Может это только у меня
А вот в старой все хорошо
он не дает поставить отрицательную температуру нар. воздуха
Может это только у меня
А вот в старой все хорошо
Уважаемый zvyagaaa!
Вот фрагмент программы обрабатывающей расчет ВЕ с Progressbar который Вас так нервирует:
For fff As Single = 3 To 0.05 Step -0.05
vmax.Text = fff
sum.Text = (CDec(z_g.Text) + CDec(z_r.Text) + CDec(z_o.Text))
L.Text = L_g.Text
press(1)
ComboBox2_VE.SelectedIndex = ComboBox1.SelectedIndex
VEP = CDec(final.Text)
sum.Text = (CDec(z_v.Text) + CDec(z_a.Text))
L.Text = H_v.Text
press(1)
ComboBox1_VE.SelectedIndex = ComboBox1.SelectedIndex
VEP = VEP + CDec(final.Text)
G_VE.Text = g.Text
If VEP <= EST Then
ok = True
Exit For
Else
End If
ProgressBar1.Value = 300 - (fff * 100)
Next fff
ProgressBar1.Value = 300
Как видите никакого там Sleep(100) и подобной умышленной задержки тут нет!!!!!!
Программа последовательно снижает скорость воздуха в воздуховоде, подбирает воздуховод, расчитывает сопротивление сети пока результат не станет ниже естественной тяги и ВСЁЁЁ!!!
НИКАКИХ ДЕШЕВЫХ ТРЮКОВ В ПРОГРАММЕ НЕТ, ВСЁ СОЛИДНО И ЧИННО!
Вот фрагмент программы обрабатывающей расчет ВЕ с Progressbar который Вас так нервирует:
For fff As Single = 3 To 0.05 Step -0.05
vmax.Text = fff
sum.Text = (CDec(z_g.Text) + CDec(z_r.Text) + CDec(z_o.Text))
L.Text = L_g.Text
press(1)
ComboBox2_VE.SelectedIndex = ComboBox1.SelectedIndex
VEP = CDec(final.Text)
sum.Text = (CDec(z_v.Text) + CDec(z_a.Text))
L.Text = H_v.Text
press(1)
ComboBox1_VE.SelectedIndex = ComboBox1.SelectedIndex
VEP = VEP + CDec(final.Text)
G_VE.Text = g.Text
If VEP <= EST Then
ok = True
Exit For
Else
End If
ProgressBar1.Value = 300 - (fff * 100)
Next fff
ProgressBar1.Value = 300
Как видите никакого там Sleep(100) и подобной умышленной задержки тут нет!!!!!!
Программа последовательно снижает скорость воздуха в воздуховоде, подбирает воздуховод, расчитывает сопротивление сети пока результат не станет ниже естественной тяги и ВСЁЁЁ!!!
НИКАКИХ ДЕШЕВЫХ ТРЮКОВ В ПРОГРАММЕ НЕТ, ВСЁ СОЛИДНО И ЧИННО!
Уважаемый Zell!
Отрицательную температуру наружного воздуха в расчете калорифера можно ввести следующим образом: сначала ввести цифры, например:20 затем нажать на -(минус), результат [-20]
Это происходит из за фильтрации ввода символов в поле наружной температуры. Причем то-же самое было и в предыдущей версии программы, абсолютно аналогично. При этом если ввод не фильтровать, то в поле ввода в результате опечатки может попась абракаддабра.
В новой версии исправлена опечатка в слове "предприятий" благодаря бдительности уважаемого мною zvyagaaa!
Благодарю за замечания!
С Вашей помощью, уважаемые коллеги, программа Vent-Calc рано или поздно станет величайшим достоянием инженерного сообщества
/шутка/
С ув. Игорь
Отрицательную температуру наружного воздуха в расчете калорифера можно ввести следующим образом: сначала ввести цифры, например:20 затем нажать на -(минус), результат [-20]
Это происходит из за фильтрации ввода символов в поле наружной температуры. Причем то-же самое было и в предыдущей версии программы, абсолютно аналогично. При этом если ввод не фильтровать, то в поле ввода в результате опечатки может попась абракаддабра.
В новой версии исправлена опечатка в слове "предприятий" благодаря бдительности уважаемого мною zvyagaaa!
Благодарю за замечания!
С Вашей помощью, уважаемые коллеги, программа Vent-Calc рано или поздно станет величайшим достоянием инженерного сообщества
/шутка/С ув. Игорь
А-а-а-а-а еще вопросик
как добавить новый типА размер жестяной прямоугоки
как добавить новый типА размер жестяной прямоугоки
Уважаемый kirur!
Десятичным разделителем в программе Vent-Calc, является [,]-запятая. Фильтр ввода с клавиатуры пропускает только цифры и запятую.
Все промежуточные значения поправочного коэффициента [n] для шероховатости от 0,1 до 15 мм программа вычисляет интерполяцией исходя из значений для КМС = 0,1 1 1,5 4 10 приведенных в справочнике Староверова.
Если программа не работает даже с запятой значит дело уже не в программе а в версии Windows, если Ваш Windows (или Framework) европейской версии (для западной европы) то он в упор не воспримет запятую как десятичный разделитель. Vent-Calc не глобализован на международную аудиторию и автоматически не настраивается на западные кодировки. Выход для всех иностранцев - использовать русскую версию Windows, или подождать пока я разберусь как глобализовать Vent-Calc .
С уважением, Игорь
<font size='1' color='#8e8b8b'>Добавлено - 09:53</font>
Если Вам тов.Zell нужно добавить воздуховод сечением 123х456 то введите сначало типоразмер 123 затем 456 (можно и наоборт) и программа автоматически сформирует все варианты прямоуголок со стандартными сечениями и нестандартными сечениями, а так-же среди прочих Вы увидите и то, что Вам нужно, а именно воздуховод 123х456. Отсортирутей нужное и ненужное в окнах [Не используемы]/[Используемые] воздуховоды и наслаждайтесь, наслаждайтесь результатом!!! А вообще до сих пор непойму зачем Вам нестандартные сеченя нужны, ув.коллеги, неужели стандартных мало?
Как пришить сюда картинку-скриншот?????????
Десятичным разделителем в программе Vent-Calc, является [,]-запятая. Фильтр ввода с клавиатуры пропускает только цифры и запятую.
Все промежуточные значения поправочного коэффициента [n] для шероховатости от 0,1 до 15 мм программа вычисляет интерполяцией исходя из значений для КМС = 0,1 1 1,5 4 10 приведенных в справочнике Староверова.
Если программа не работает даже с запятой значит дело уже не в программе а в версии Windows, если Ваш Windows (или Framework) европейской версии (для западной европы) то он в упор не воспримет запятую как десятичный разделитель. Vent-Calc не глобализован на международную аудиторию и автоматически не настраивается на западные кодировки. Выход для всех иностранцев - использовать русскую версию Windows, или подождать пока я разберусь как глобализовать Vent-Calc
.С уважением, Игорь
<font size='1' color='#8e8b8b'>Добавлено - 09:53</font>
Если Вам тов.Zell нужно добавить воздуховод сечением 123х456 то введите сначало типоразмер 123 затем 456 (можно и наоборт) и программа автоматически сформирует все варианты прямоуголок со стандартными сечениями и нестандартными сечениями, а так-же среди прочих Вы увидите и то, что Вам нужно, а именно воздуховод 123х456. Отсортирутей нужное и ненужное в окнах [Не используемы]/[Используемые] воздуховоды и наслаждайтесь, наслаждайтесь результатом!!! А вообще до сих пор непойму зачем Вам нестандартные сеченя нужны, ув.коллеги, неужели стандартных мало?
Как пришить сюда картинку-скриншот?????????
я прошу прошения
но с каких пор сторона воздуховода(прям) 300 стала нестандартной
но с каких пор сторона воздуховода(прям) 300 стала нестандартной
Вобще СНиП определил 250-280-315-355-400, 300 тут нет! НЕСТАНДАРТ!
СНИП!?!?!
Я по ВСН воздуховоды беру
Я по ВСН воздуховоды беру
Цитата(IgorIlin @ Mar 28 2007, 08:29 )
Как видите никакого там Sleep(100) и подобной умышленной задержки тут нет!!!!!!
Программа последовательно снижает скорость воздуха в воздуховоде, подбирает воздуховод, расчитывает сопротивление сети пока результат не станет ниже естественной тяги и ВСЁЁЁ!!!
Программа последовательно снижает скорость воздуха в воздуховоде, подбирает воздуховод, расчитывает сопротивление сети пока результат не станет ниже естественной тяги и ВСЁЁЁ!!!
Тогда не понятно, почему Ваш алгоритм работает дольше, чем мой?
у меня тоже циклично расчитывает и подбирает воздуховод в зависимости от полученной тяги! И гораздо быстрее работает алгоритм...Странно... ну нет так нет...
Уважаемые коллеги!
Zell:
Тут Вы абсолютно правы, ВСН допускает прямоугольные сечения противоречащие со СНИПом, такие как 150-300-350. СНИП такие сечения не предусматривает, ориентируясь повидимому на международные нормы. Такой вот двойной стандарт получается. Ну ничего, теперь в Vent-Calc можно добавить любые сечения, хоть в дюймах 10дюймов=254мм
А Вам zvyagaaa - огромный респект!!!
С ув. Игорь
Zell:
Тут Вы абсолютно правы, ВСН допускает прямоугольные сечения противоречащие со СНИПом, такие как 150-300-350. СНИП такие сечения не предусматривает, ориентируясь повидимому на международные нормы. Такой вот двойной стандарт получается. Ну ничего, теперь в Vent-Calc можно добавить любые сечения, хоть в дюймах 10дюймов=254мм
А Вам zvyagaaa - огромный респект!!!
С ув. Игорь
dai1 справшивает:
При расчёте тройников программа требует с одной стороны уменьшить сечение, например, 355х355, с другой стороны ругается,если например выбрал сечение 315х355,так как другого не дано, что высота должна быть одинаковой. Как быть? Может есть новая версия в которой это учтено?
Ответ:
30 марта 2007 года Vent-Calc 1.2 доработан с учетом пожеланий dai1.
1 - снято ограничение на высоту ответвлений для тройников
2 - доработан алгоритм подбора сечений для ответвлений с учетом.п.1 при этом если сечение тройника например 250x355, то автоматически будет подобрано (для ответвления) не сечение 250х250, как то было до доработки программы, а например более оптимальное, например 100х250, вместе с тем можно выбрать и любое другое сечение, произвольно.
Если Вы скачали Vent-Calc V1.2 до 30 марта, рекомендую обновить программу.
С ув. Игорь
При расчёте тройников программа требует с одной стороны уменьшить сечение, например, 355х355, с другой стороны ругается,если например выбрал сечение 315х355,так как другого не дано, что высота должна быть одинаковой. Как быть? Может есть новая версия в которой это учтено?
Ответ:
30 марта 2007 года Vent-Calc 1.2 доработан с учетом пожеланий dai1.
1 - снято ограничение на высоту ответвлений для тройников
2 - доработан алгоритм подбора сечений для ответвлений с учетом.п.1 при этом если сечение тройника например 250x355, то автоматически будет подобрано (для ответвления) не сечение 250х250, как то было до доработки программы, а например более оптимальное, например 100х250, вместе с тем можно выбрать и любое другое сечение, произвольно.
Если Вы скачали Vent-Calc V1.2 до 30 марта, рекомендую обновить программу.
С ув. Игорь
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.