Реферат Розробка програми для розрахунку фінансових показників, які у складанні бізнес-плану на ...

Тема: Курсовые проекты

для обчислення додаткових даних (поточні активи, короткострокові пасиви, власні оборотні кошти) досить натиснути на кнопку, що знаходиться поруч з обчислюваними даними і ввести значення пропонованих показників (Рис.3).

Рис.2 Вибір показника, який необхідно порахувати

Рис.3 Вікно введення даних для обчислення поточних активів

Кнопка перерахунку коефіцієнтів оборотності в періоди обороту (у днях) стає активною після розрахунку хоча б одного показника ділової активності і при натисканні виводить на формі період обороту замість порахуємо коефіцієнта.

текст програми мовою Visual Basic

Оголошення змінних:

Dim a, b, c, d, x, y, z As Double

Dim Kteklik, Kobes, Rpr, Rproiz As Double

Dim Fotd, Oos, Oobakt, Ozap, Odz, Oba, Oksk As Double

Dim s500, s510, s730, s735, s740, tekaktiv, tekpassiv As Double

Розрахунок приватного від значень 1-го і 2-го текстових полів:

Private Sub Command1_Click ()

Text3.Text = "" p> a = 0

b = 0

c = 0

If Text1.Text = "" Then GoTo M

If Text2.Text = "" Then GoTo M

If Text2.Text = 0 Then Text3.Text = "На нуль ділити не можна!" p> If Text2.Text = 0 Then GoTo M

a = Text1.Text

b = Text2.Text

c = A/b

Text3.Text = C

Text1.SetFocus

End Sub

Очищення форми від всіх результатів:

Private Sub Command2_Click ()

Text1.Text = & Quo t; "

Text2.Text = "" p> Text3.Text = "" p> Label1.Caption = "Показник"

Label4.Caption = "" p> Label5.Caption = "" p> Label6.Caption = "" p> Label7.Caption = "" p> Label8.Caption = "" p> Label9.Caption = "" p> Label10.Caption = "" p> Label11.Caption = "" p> Label13.Caption = "" p> Label15.Caption = "" p> Label17.Caption = "" p> Label18.Caption = "" p> Label19.Caption = "" p> Label20.Caption = "" p> Label21.Caption = "" p> Label22.Caption = "" p> Fotd = 0

Oos = 0

Oobakt = 0

Ozap = 0

Odz = 0

Oba = 0

Oksk = 0

a = 0

b = 0

c = 0

d = 0

x = 0

y = 0