Полная версия этой страницы:
Расчет расходов воды
Михаил I
14.11.2007, 16:00
....если использовать значек суммы, т ов той ячейке и появится команда СУММ
смысл такой же. Также можно воспользоваться последними используемыми командами на панели
Сантехник
21.12.2007, 23:46
Ну не стал бы я о суммировании чисел спрашивать. Конкатенация строк значок & вроде бы но это для переменных, а строки надо еще загнать в массив и т.д. Может кто об этом раскажет. А то тупо пришлось в таблице ссылками создать что то похожее на расчет и потом через блокнот в ворд перегонять.
Сантехник
23.12.2007, 19:14
Все получилось сложение строк работает не только в вба но и в таблице. И отчет можно создать прямо на рабочем листе. Строковые значения при этом заключаются в кавычки "строка" . Записка по ВК пишется значительно быстрее. Еще придумать бы как приделывать душевые и поливку Дело в том что душевые пром предприятий это отдельный потребитель с секундным и суточным расходами, а душевые кабины скажем в бане или СПА влияют только на секундные расходы , так как нормы на потребителя учитывают душевые. По поводу групповых душевых - имхо их не следует учитывать в количестве сан приборов, так как их расход считается не через PN а постоянен. Если учесть их при расчете PN, то на последнем участке где находятся души расход получится больше чем следует, так как к самому расходу душевых будет прибавлен еще и расход на какоето количество приборов. Но если количество приборов мало то уменьшается максимальный секундный расход. Чего думаете по этому поводу Михаил1? Или алгоритм должен как то ветвиться.
Перечитал 83 пост и понял что изобрел еще один велосипед но он еще плоховато ездит хоть и в правильном направлении
Михаил I
24.12.2007, 12:07
то чо считается через нп считается через нп, уножается на число потребителей и т.д.
душевые являются сосредоточенными. Т.е. просто в таблице гидр. расчета есть дополнительный столбец, где вписыватся расход на сетки.
Еще ньюанс есть - расчет спорткомплексов. Там секундник должен считаться по числу сеток, а часовой по числу спортсменов. Тут нп не везде канает.
Т.е. расчет не должен ветвиться, а должно быть условие - если спорткомплекс тогда....
Сетки, подпитка бассейнов, ножная ванна, а также на пожар у меня в таблице прибавляются к расходу, полученному через нп.
Сантехник
24.12.2007, 23:43
Так и сделаю
Еще полив дорожек не упомянули
Михаил I
25.12.2007, 7:57
ну типа да, но только дорожки скорее всего в зданиях бассейна. Я не учел, т.к. встречается крайне редко.
Сантехник
29.12.2007, 22:08
Чтоб задурить голову эксперту в самый раз пущай ищет по нормативке
Михаил I
30.12.2007, 21:21
Цитата(Сантехник @ 30.12.2007, 0:08) [snapback]206997[/snapback]
Чтоб задурить голову эксперту
Это как раз надо делать поминимуму

Не будут нормы искать, просто подчеркнут
riddick130
18.1.2008, 21:55
А такий розрахунок підходить
Хороший розрахунок, от з лічильниками щось не все ясно?
вот исче есть такая активно юзалась и юзается
вот:
Михаил I
24.5.2008, 21:07
вот что бывает
с помощью VBA
Цитата(Skorpion @ 24.10.2007, 17:40) [snapback]180609[/snapback]
gav прислал мне сообщение с просьбой дать расчеты по системе горячего водоснабжения, что я и делаю.
А не выложить ли Вам и расчет холодной воды, про который упоминается в этом архиве...please
Цитата(Михаил I @ 24.5.2008, 22:07) [snapback]255911[/snapback]
вот что бывает
с помощью VBAрекомендую в форме 1
сделать,, что бы при нажатии на кнопку готово сразу данные вносились в таблицу
ну соответственно, по умолчанию в той же форме можно поставить выбор и числа
к примеру:
Private Sub CommandButton1_Click()
Dim t, n, l, k As Integer
Dim m As Single
If OptionButton1.Value Then m = 2
If OptionButton2.Value Then m = 3
If OptionButton3.Value Then m = 1.5
t = TextBox1
n = TextBox2
l=int(2.2 * n * m * t / 1.5)
k=int(2.2 * n * m)
TextBox3 = l
TextBox4 = k
ну и заполнение ячеек со сдвигом(1,31) =k
ну и заполнение ячеек со сдвигом(1,33) =l
ну и наконец форму скрываем hide
End Sub
Михаил I
29.10.2008, 21:02
код там такой:
Private Sub CommandButton1_Click()
Dim t, n As Integer
Dim m As Single
If OptionButton1.Value Then m = 2
If OptionButton2.Value Then m = 3
If OptionButton3.Value Then m = 1.5
t = TextBox1
n = TextBox2
TextBox3 = 2.2 * n * m * t / 1.5
TextBox3 = Round(TextBox3)
TextBox4 = 2.2 * n * m
TextBox4 = Round(TextBox4)
End Sub
Вся сложность в том, что запись осуществляется не в первые ячейки, а в одну из десяти строк. К тому же общепитов может быть несколько. Так что смысл этого расчета не автоматизация, а упрощение просто расчета.
Совершенно верно, вносить значения куда надо не просто!
Вот твоя задача и состоит,,, что бы программно, при выборе расчёта ресторана или кафе появлялась форма.
P.S. Мне кстати понравилась твоя программа, особенно расчёт альфа.
Михаил I
31.10.2008, 7:50
Цитата(shmike @ 30.10.2008, 16:53) [snapback]309201[/snapback]
Вот твоя задача и состоит,,, что бы программно, при выборе расчёта ресторана или кафе появлялась форма.
Да, она выскакивает после запуска кнопки. Просто часто бывает, что ТХ задают сразу блюда. И переводить места в блюда уже необходимость отпадает. ТАк что надоедливого выскакивания формы нет.
Согласен.
Заодно и идею мне подсказал хорошую.
BRIGSISA
10.12.2010, 22:17
Але краще вернутись до цієї програми
new movies
Пацаны, вот вам программка для расчёта расходов воды с списком
Для просмотра полной версии этой страницы, пожалуйста,
пройдите по ссылке.