Архитектура Аудит Военная наука Иностранные языки Медицина Металлургия Метрология Образование Политология Производство Психология Стандартизация Технологии |
Программный код кнопки «Рассчитать экономию» формы «Модернизация ИТП»
rpric1 = Replace(Text4.Text, ", ", "." ) rQgod = Replace(Text1.Text, ", ", "." ) rsrn = Replace(ComboBox1.Text, ", ", "." ) rsrp = Replace(ComboBox2.Text, ", ", "." ) rmint = Replace(ComboBox3.Text, ", ", "." ) rkolr = Replace(Text2.Text, ", ", "." ) rvih = Replace(Text3.Text, ", ", "." ) rdjina = Replace(ComboBox4.Text, ", ", "." ) Qgod = CDbl(Val(rQgod)) srn = CDbl(Val(rsrn)) srp = CDbl(Val(rsrp)) mint = CDbl(Val(rmint)) kolr = CDbl(Val(rkolr)) vih = CDbl(Val(rvih)) djina = CDbl(Val(rdjina)) rtarif = Replace(Text88.Text, ", ", "." ) ry = Replace(Text91.Text, ", ", "." ) rkvartal = Replace(Text92.Text, ", ", "." ) tarif = CDbl(Val(rtarif)) y = CDbl(Val(ry)) kvartal = CDbl(Val(rkvartal)) pric1 = CDbl(Val(rpric1)) qwiz = Qgod / ((kolr + vih) * 24) If qwiz < 0.3 Then montaz1 = 2 If qwiz > = 0.3 And qwiz < 0.5 Then montaz1 = 2.5 If qwiz > = 0.5 And qwiz < 1 Then montaz1 = 2.7 If qwiz > = 0.1 And qwiz < 1.5 Then montaz1 = 3.5 If qwiz > = 1.5 And qwiz < 2 Then montaz1 = 3.9 If qwiz > = 2 And qwiz < 3 Then montaz1 = 4.95 If qwiz > = 3 And qwiz < 4 Then montaz1 = 6.3 If qwiz > = 4 And qwiz < 5 Then montaz1 = 8.3 If qwiz > = 5 And qwiz < 6 Then montaz1 = 10.16 If qwiz > = 6 And qwiz < 7 Then montaz1 = 12.2 If qwiz > = 7 And qwiz < 8 Then montaz1 = 14.2 If qwiz > = 8 And qwiz < 9 Then montaz1 = 15.95 If qwiz > = 9 And qwiz < 10 Then montaz1 = 17.95 If qwiz > = 10 Then montaz1 = 19.85 If (Text1.Text < > " " Or Text2.Text < > " " Or Text3.Text < > " " Or Text4.Text < > " " Or ComboBox1.Text < > " " Or ComboBox2.Text < > " " Or ComboBox3.Text < > " " Or ComboBox4.Text < > " " ) And (ComboBox1.Text = " " Or ComboBox2.Text = " " Or ComboBox3.Text = " " Or ComboBox4.Text = " " Or Text1.Text = " " Or Text2.Text = " " Or Text3.Text = " " Or Text4.Text = " " ) Then RetInt = MsgBox(" Вы заполнили не все поля таблицы! Будьте внимательней! ", vbOKOnly, " Ошибочка вышла" ) ElseIf Text89.Text = " " Then RetInt = MsgBox(" Вы забыли ввести источник финансирования мероприятия! ", vbOKOnly, " Ошибочка вышла" ) ElseIf Text88.Text = " " Then If Text90.Text = " " And Text91.Text = " " And Text92.Text = " " Then RetInt = MsgBox(" Введите размер тарифа, наименование организации Заказчика, а также год и квартал внедрения мероприятия! ", vbOKOnly, " Ошибочка вышла" ) If Text90.Text < > " " And Text91.Text = " " And Text92.Text = " " Then RetInt = MsgBox(" Введите размер тарифа, а также год и квартал внедрения мероприятия! ", vbOKOnly, " Ошибочка вышла" ) If Text90.Text = " " And Text91.Text < > " " And Text92.Text = " " Then RetInt = MsgBox(" Введите размер тарифа, наименование организации Заказчика, а также квартал внедрения мероприятия! ", vbOKOnly, " Ошибочка вышла" ) If Text90.Text = " " And Text91.Text = " " And Text92.Text < > " " Then RetInt = MsgBox(" Введите размер тарифа, наименование организации Заказчика, а также год внедрения мероприятия! ", vbOKOnly, " Ошибочка вышла" ) If Text90.Text < > " " And Text91.Text < > " " And Text92.Text = " " Then RetInt = MsgBox(" Введите размер тарифа, а также квартал внедрения мероприятия! ", vbOKOnly, " Ошибочка вышла" ) If Text90.Text < > " " And Text91.Text = " " And Text92.Text < > " " Then RetInt = MsgBox(" Введите размер тарифа, а также год внедрения мероприятия! ", vbOKOnly, " Ошибочка вышла" ) If Text90.Text = " " And Text91.Text < > " " And Text92.Text < > " " Then RetInt = MsgBox(" Введите размер тарифа и наименование организации Заказчика! ", vbOKOnly, " Ошибочка вышла" ) If Text90.Text < > " " And Text91.Text < > " " And Text92.Text < > " " Then RetInt = MsgBox(" Введитеразмертарифа! ", vbOKOnly, " Ошибочкавышла" ) ElseIf Text90.Text = " " Then If Text91.Text = " " And Text92.Text = " " Then RetInt = MsgBox(" ВведитенаименованиеорганизацииЗаказчика, атакжегодикварталвнедрениямероприятия! ", vbOKOnly, " Ошибочкавышла" ) If Text91.Text < > " " And Text92.Text = " " Then RetInt = MsgBox(" ВведитенаименованиеорганизацииЗаказчика, атакжекварталвнедрениямероприятия! ", vbOKOnly, " Ошибочкавышла" ) If Text91.Text = " " And Text92.Text < > " " Then RetInt = MsgBox(" Введите наименование организации Заказчика, а также год внедрения мероприятия! ", vbOKOnly, " Ошибочка вышла" ) If Text91.Text < > " " And Text92.Text < > " " Then RetInt = MsgBox(" Введите наименование организации Заказчика! ", vbOKOnly, " Ошибочка вышла" ) ElseIf Text91.Text = " " Then If Text92.Text = " " Then RetInt = MsgBox(" Введите год и квартал внедрения мероприятия! ", vbOKOnly, " Ошибочка вышла" ) If Text92.Text < > " " Then RetInt = MsgBox(" Введите год внедрения мероприятия! ", vbOKOnly, " Ошибочка вышла" ) ElseIf Text92.Text = " " Then RetInt = MsgBox(" Введите квартал внедрения мероприятия! ", vbOKOnly, " Ошибочка вышла" ) Else c = CSng(y) d = CSng(kvartal) If c < > Round(c) And d < > Round(d) Then RetInt = MsgBox(" Год внедрения - целое число от 1 до 5.Квартал внедрения - целое число от 1 до 4! ", vbOKOnly, " Ошибочка вышла" ) ElseIf c = Round(c) And d < > Round(d) Then RetInt = MsgBox(" Квартал внедрения - целое число от 1 до 4! ", vbOKOnly, " Ошибочка вышла" ) ElseIf c < > Round(c) And d = Round(d) Then RetInt = MsgBox(" Год внедрения - целое число от 1 до 5! ", vbOKOnly, " Ошибочка вышла" ) ElseIf y > 5 And kvartal > 4 Then RetInt = MsgBox(" Расчет идет для первых пяти лет после Базового года, исправьте год внедрения мероприятия! Кварталов в году только четыре! ", vbOKOnly, " Ошибочка вышла" ) ElseIf y > 5 Then RetInt = MsgBox(" Расчет идет для первых пяти лет после Базового года, исправьте год внедрения мероприятия! ", vbOKOnly, " Ошибочка вышла" ) ElseIf kvartal > 4 Then RetInt = MsgBox(" Кварталов в году только четыре! ", vbOKOnly, " Ошибочка вышла" ) ElseIf y = 5 And (kvartal = 3 Or kvartal = 4) Then RetInt = MsgBox(" Нет смысла рассчитывать показатели энергоэффективности для половины года! 5 год - последний отчетный год! ", vbOKOnly, " Ошибочка вышла" ) Else Fin = pric1 + montaz1 Fin = Round(Fin, 1) Text93.Text = Fin Ekok = 0.07 * Qgod + Qgod - kolr * ((Qgod / ((kolr + vih) * 24)) * djina + (Qgod / ((kolr + vih) * 24)) * ((mint - srn) / (srp - srn)) * (24 - djina)) - (Qgod / ((kolr + vih) * 24)) * ((mint - srn) / (srp - srn)) * vih Ekos = (tarif * Ekok) / 1000 Ekok = Round(Ekok, 2) Text94.Text = Ekok Ekos = Round(Ekos, 1) Text95.Text = Ekos If Check3.Value = 0 Then dr = MsgBox(" Записать рассчитанные данные в Базу Данных Access, в таблицы Excel, в документ Word? ", vbYesNo, " Важно" ) Select Case dr Case VbMsgBoxResult.vbYes strDatebase1 = " Provider=Microsoft.ace.OLEDB.12.0; Data Source=" & App.Path & " \Энергоаудит.accdb; " Adodc1.ConnectionString = strDatebase1 Adodc1.RecordSource = " [МодернизацияИТП]" Set DataGrid1.DataSource = Adodc1 Adodc1.Recordset.AddNew Adodc1.Recordset.fields(1) = Text90.Text Adodc1.Recordset.fields(2) = Fin Adodc1.Recordset.fields(3) = Ekok Adodc1.Recordset.fields(4) = Ekos Adodc1.Recordset.Update Command1_Click Command3_Click Command5_Click RetInt = MsgBox(" Данные отправлены в паспорт программы энергосбережения! Приступайте к расчету следующего мероприятия! ", vbOKOnly, " Важно" ) Select Case RetInt Case VbMsgBoxResult.vbOK Form11.Show Unload Form12 End Select Case VbMsgBoxResult.vbNo End Select Else strDatebase1 = " Provider=Microsoft.ace.OLEDB.12.0; Data Source=" & App.Path & " \Энергоаудит.accdb; " Adodc1.ConnectionString = strDatebase1 Adodc1.RecordSource = " [МодернизацияИТП]" Set DataGrid1.DataSource = Adodc1 Adodc1.Recordset.AddNew Adodc1.Recordset.fields(1) = Text90.Text Adodc1.Recordset.fields(2) = Fin Adodc1.Recordset.fields(3) = Ekok Adodc1.Recordset.fields(4) = Ekos Adodc1.Recordset.Update Command1_Click Command3_Click Command5_Click Check3.Value = False RetInt = MsgBox(" Данныеотправленывпаспортпрограммыэнергосбережения! Приступайтекрасчетуследующегомероприятия! ", vbOKOnly, " Важно" ) Select Case RetInt Case VbMsgBoxResult.vbOK Form11.Show Unload Form12 End Select End If End If End If
ПРИЛОЖЕНИЕ З |
Последнее изменение этой страницы: 2017-05-05; Просмотров: 380; Нарушение авторского права страницы