Визначити суму амортизаційних відрахувань для різних видів основних засобів, якщо відомо їхню залишкову вартість.
Відсоток амортизаційних відрахувань визначається по формулі залежно від виду основних засобів:
· для будинків - 10%;
· для транспортних засобів - 15%;
· для утаткування - 12%.
Залишкову вартість вибирати за допомогою лінійки, а вид основних засобів - за допомогою перемикачів.
Умовні позначки:
Z - залишкова вартість основних засобів;
S - сума амортизаційних відрахувань.
Виконання:
1. Створюємо форму пректу.
2. Задаємо властивості для форми та створюваних об’єктів.
для линейкі (HscrollBar):
Name - hsbLin
Max - 30000
Min - 0
Value - 0
SmallChange - 100
для 1 - го переключателя (OptionButton):
Name - optF1
Caption - здания
Value - True
для 2 - го переключателя:
Name - optF2
Caption - транспорт
Value - False
для 3 - го переключателя:
Name - optF3
Caption - оборудование
Value - False
3. Створюємо програмний код програми.
Процедура, що виконується під час переміщення бігунка по лінейці.
Private Sub hsbLin_Scroll()
hsbLin_Change
End Sub
Процедура, що виконується при завершенні переміщення бігунка по лінейці.
Private Sub hsbLin_ Change ()
txtZ.Text = hsbLin. Value
End Sub
3.3 Процедура виконання розрахунків:
Private Sub cmdRas_Click()
Z= txtZ.Text
If optF1.Value = True Then ¿
S = Z* 0.1 ¿
Else ¿
If optF2.Value = True Then ¿
S = Z * 0.15 ¿
Else ¿
S = Z * 0.12 ¿
End if ¿
End if ¿
txtS.Text = str(S)
End Sub
3.4 Процедура завершення роботи програми:
Private Sub cmdVix_Click()
End
End Sub
3.5 Процедура очистки полей:
Private Sub cmdOch_Click()
txtZ.Text = “”
txtS.Text = “”
End Sub
4. Запускаємо програму на виконання.
