TxtAll.SetFocus

End Sub

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

If Option1.Value = True Then

FrmRez.TxtExpluat.Text = 40 * FrmIshDan.TxtAll.Text \ 100

FrmRez.TxtRezerv.Text = 10 * FrmIshDan.TxtAll.Text \ 100

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

Else

FrmRez.TxtExpluat.Text = 1.5 * 40 * FrmIshDan.TxtAll.Text \ 100

FrmRez.TxtRezerv.Text = 10 * FrmIshDan.TxtAll.Text \ 100

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

End If

FrmRez.Visible = True

End Sub

Встановлення властивості Visible форми FrmRez значення True завантажує її на екран разом з підрахованими результатами.

Private Sub Cmd_Вихід_ Click() залишається без змін.

9. Пов'яжіть з подією LostFocus (втрата фокуса) поля TxtAll такий код:

Private Sub TxtAll._LostFocus()

If Not IsNumeric(TxtAll) Then

MsgBox "Невірне значення: не цифра"

TxtAll.SetFocus

End If

End Sub

Пояснення Ця подія настає після втрати фокуса елементом управління, тобто після передачі фокуса іншому елементу по завершенню введення або корегування даних. Описана вище процедура за допомогою вбудованої функції IsNumeric() перевіряє, чи можна введене значення привести до числового типу. При негативному результаті за допомогою функції MsgBox виводиться повідомлення про помилку, і фокус повертається до поля TxtAll для виправлення помилки.

10. Дослідіть виконання програми з різними даними. Результати додайте до звіту.

11. Зберіжіть проект та форму в папці ЛАБ7з іменами Лр7_Зад3_P_Прізвище Лр7_Зад3_F1_ Прізвище і Лр7_Зад3_F2_ Прізвище відповідно.

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

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

<== попередня сторінка	\|	наступна сторінка ==>
Порядок виконання роботи	\|	Приклад виконання

Не знайшли потрібну інформацію? Скористайтесь пошуком google:

Генерація сторінки за: 0.003 сек.