Разработка программы для расчета финансовых показателей используемых в составлении бизнес-плана на языке Visual Basic
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: диплом школа, оформление курсовой работы
| Добавил(а) на сайт: Jastrzhembskij.
Предыдущая страница реферата | 13 14 15 16 17 18 19 20 21 22 23 | Следующая страница реферата
Расчёт отдачи основных средств и нематериальных активов:
Private Sub Oosnsr_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label1.Caption = "Отдача ос и нематериальных активов"
Text1.Text = InputBox("Продукция (оборот)", "Отдача ос и нематериальных активов")
Text2.Text = InputBox("Средняя стоимость ос и нематериальных активов",
"Отдача ос и нематериальных активов")
If Text1.Text = "" Then GoTo M
If Text2.Text = "" Then GoTo M a = Text1.Text b = Text2.Text
Oos = (a / b)
Label11.Caption = Oos
Text3.Text = Oos
Command6.Enabled = True
M:
Text1.SetFocus
End Sub
Расчёт оборачиваемости запасов:
Private Sub Ozapasov_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label1.Caption = "Оборачиваемость запасов"
Text1.Text = InputBox("Продукция (оборот)", "Оборачиваемость запасов")
Text2.Text = InputBox("Средняя стоимость запасов", "Оборачиваемость запасов")
If Text1.Text = "" Then GoTo M
If Text2.Text = "" Then GoTo M a = Text1.Text b = Text2.Text
Ozap = (a / b)
Label19.Caption = Ozap
Text3.Text = Ozap
Command6.Enabled = True
M:
Text1.SetFocus
End Sub
Расчёт показателя рентабельности производства:
Private Sub Rproizv_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Label1.Caption = "Рентабельность производства"
Text1.Text = InputBox("Прибыль", "Рентабельность производства")
Text2.Text = InputBox("Себестоимость продукции", "Рентабельность производства")
If Text1.Text = "" Then GoTo M
If Text2.Text = "" Then GoTo M a = Text1.Text b = Text2.Text
Rproiz = (a / b)
Label9.Caption = Rproiz
Text3.Text = Rproiz
If Rproiz > 0.12 Then Label9.ForeColor = &HC000&
If Rproiz < 0.12 Then Label9.ForeColor = &HFF&
If Rproiz < 0.12 Then MsgBox ("Рентабельность производства меньше нормы(0,12)")
Рекомендуем скачать другие рефераты по теме: курсовая работа политика, бесплатные дипломные работы.
Категории:
Предыдущая страница реферата | 13 14 15 16 17 18 19 20 21 22 23 | Следующая страница реферата
Главная