Новая версия Vent-Calc, ввод нестандартных воздуховодов Опции

[Гость_IgorIlin_*]

Здравствуйте уважаемые коллеги!

Немного доработал Vent-Calc V1.2 - добавлена возможность ввода нестандартных сечений воздуховодов, формируются все возможные комбинации фасонных изделий стандарт/нестандарт и соответственно расчитываются. Относительно расчета калорифера - расчет ведется по формуле из ОВэшного СНИПа для приточного воздуха.

С уважением, Игорь

[Гость_IgorIlin_*]

Здравствуйте уважаемые коллеги!

Немного доработал Vent-Calc V1.2 - добавлена возможность ввода нестандартных сечений воздуховодов, формируются все возможные комбинации фасонных изделий стандарт/нестандарт и соответственно расчитываются. Относительно расчета калорифера - расчет ведется по формуле из ОВэшного СНИПа для приточного воздуха.

С уважением, Игорь

[MMM]

А вот и сама программа
Вес 745кБ

Обновление программы. В программу внесены некоторые измения, а именно снято ограничение на высоту ответвлений для тройников, и доработан алгоритм подбора сечений тройников.

Сообщение отредактировал MMM - 30.3.2007, 12:53

Прикрепленные файлы

 Vent_Calc12_new.rar ( 744,49 килобайт ) Кол-во скачиваний: 613

 

[kirur]

Испробовал Вашу программу , понравилась. Но возникла проблема с изменениями в коэффициентах шереховатости

- не вводятся десятичные

- зависает экв. шероховатость на одной величине или же прыгает с 1,5 на 15
ошибка?????

[zvyagaaa]

IgorIlin
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;

Прикрепленные файлы

 Project1.rar ( 171,59 килобайт ) Кол-во скачиваний: 160

 

[Zell]

В новой версии Vent Calc не работает калорифер
он не дает поставить отрицательную температуру нар. воздуха
Может это только у меня
А вот в старой все хорошо

[Гость_IgorIlin_*]

Уважаемый 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) и подобной умышленной задержки тут нет!!!!!!
Программа последовательно снижает скорость воздуха в воздуховоде, подбирает воздуховод, расчитывает сопротивление сети пока результат не станет ниже естественной тяги и ВСЁЁЁ!!!

НИКАКИХ ДЕШЕВЫХ ТРЮКОВ В ПРОГРАММЕ НЕТ, ВСЁ СОЛИДНО И ЧИННО!

[Гость_IgorIlin_*]

Уважаемый Zell!

Отрицательную температуру наружного воздуха в расчете калорифера можно ввести следующим образом: сначала ввести цифры, например:20 затем нажать на -(минус), результат [-20]
Это происходит из за фильтрации ввода символов в поле наружной температуры. Причем то-же самое было и в предыдущей версии программы, абсолютно аналогично. При этом если ввод не фильтровать, то в поле ввода в результате опечатки может попась абракаддабра.

В новой версии исправлена опечатка в слове "предприятий" благодаря бдительности уважаемого мною zvyagaaa!

Благодарю за замечания!
С Вашей помощью, уважаемые коллеги, программа Vent-Calc рано или поздно станет величайшим достоянием инженерного сообщества /шутка/


С ув. Игорь

[Zell]

А-а-а-а-а еще вопросик
как добавить новый типА размер жестяной прямоугоки

[Гость_IgorIlin_*]

Уважаемый 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. Отсортирутей нужное и ненужное в окнах [Не используемы]/[Используемые] воздуховоды и наслаждайтесь, наслаждайтесь результатом!!! А вообще до сих пор непойму зачем Вам нестандартные сеченя нужны, ув.коллеги, неужели стандартных мало?


Как пришить сюда картинку-скриншот?????????

[Zell]

я прошу прошения
но с каких пор сторона воздуховода(прям) 300 стала нестандартной

[Гость_IgorIlin_*]

Вобще СНиП определил 250-280-315-355-400, 300 тут нет! НЕСТАНДАРТ!

[Zell]

СНИП!?!?!

Я по ВСН воздуховоды беру

[zvyagaaa]

Как видите никакого там Sleep(100) и подобной умышленной задержки тут нет!!!!!!
Программа последовательно снижает скорость воздуха в воздуховоде, подбирает воздуховод, расчитывает сопротивление сети пока результат не станет ниже естественной тяги и ВСЁЁЁ!!!

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

[Гость_IgorIlin_*]

Уважаемые коллеги!

Zell:
Тут Вы абсолютно правы, ВСН допускает прямоугольные сечения противоречащие со СНИПом, такие как 150-300-350. СНИП такие сечения не предусматривает, ориентируясь повидимому на международные нормы. Такой вот двойной стандарт получается. Ну ничего, теперь в Vent-Calc можно добавить любые сечения, хоть в дюймах 10дюймов=254мм

А Вам zvyagaaa - огромный респект!!!

С ув. Игорь

[Гость_IgorIlin_*]

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 марта, рекомендую обновить программу.
С ув. Игорь