double arrow

Private Sub Cmd_Ввод_Click()

TxtAll.SetFocus

TxtExpluat.Visible = False

TxtRezerv.Visible = False

TxtRemont.Visible = False

Label2.Visible = False

Label3.Visible = False

Label4.Visible = False

End Sub

Метод SetFocus робить поле TxtAll готовим до приймання даних і розміщує в ньому курсор. Процедура обробки події робить невидимими інші текстові поля і мітки, прибираючи з екрана результати попередніх обчислень.

7. З подією Click командної кнопки Cmd_ Розрахунок зв'яжіть код:

Private Sub Cmd_Расчет_Click()

TxtExpluat.Text = 10 * TxtAll.Text \ 100

TxtRezerv.Text = 60 * TxtAll.Text \ 100

TxtRemont.Text = TxtAll.Text - TxtExpluat.Text - TxtRezerv.Text

Label2.Visible = True

Label3.Visible = True

Label4.Visible = True

TxtExpluat.Visible = True

TxtRezerv.Visible = True

TxtRemont.Visible = True

End Sub

8.Зподією Click командної кнопки Cmd_ Вихід з в’яжіть код:

Private Sub Cmd_Выход_Click()

End

End Sub

9. Запустіть додаток на виконання і виконайте обчислення для різних вихідних даних.

10. Зберіжіть проект та форму в папці ЛАБ6 з іменами Лр6_Зад1_P _Прізвище і Лр6_Зад1_F _ Прізвище відповідно.

ЗАВДАННЯ НА САМОСТІЙНУ РОБОТУ(В,ВС,ЛС)

ЗАВДАННЯ 6.2. Створіть проект для обчислення значення функції згідно з варіантом індивідуального завдання.


Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  



Сейчас читают про: