End Sub. Private Sub Command2_Click()

7. Додати оператори контролю введення в код текстового вікна text4. Для текстового вікна text4 усі дії виконуються аналогічно вікна text3. У вікні виділити рядки від Select case до End select, виконавши потім такі дії:

скопіювати за допомогою пункту меню Edit → команда Copy;

відкрити вікно коду текстового вікна text4, встановити подію KeyPress, а потім – пункт меню Edit → команду Paste.

Остаточний вигляд екранної форми проекту для виконання завдання прикладу 6.1 подається на рис. 6.2.

 

Рис. 6.2. Остаточний вигляд екранної форми виконання завдання з прикладу 6.1

 

8. Відобразити повний програмний код:

' Процедура очищення текстових вікон виведення результатів

Private Sub Command2_Click()

Text3.Text = " "

Text4.Text = " "

Text6.Text = " "

mes.Caption = " "

End Sub

Private Sub VScroll2_Change()

Text4.Text = VScroll2

mes.Caption = " Уведення змінної t в діапазоні –500...500"

End Sub

' Контроль уведення даних

Private Sub text3_KeyPress(KeyAscii As Integer)

Select Case KeyAscii

Case 0, 8, 13, 45, 46, 48 To 57

'0, 8 – Delete, BackSpace, 13 – Enter

'45 – " –", 46 – ".", 48–57 – цифри від 0 до 9

Case Else

KeyAscii = 0

mes.Caption = " Помилка введення – Уведіть число "

End Select

End Sub

' Контроль уведення даних

Private Sub text4_KeyPress(KeyAscii As Integer)

Select Case KeyAscii

Case 0, 8, 13, 45, 46, 48 To 57

'0, 8 - Delete, BackSpace, 13 - Enter

'45 - " -", 46 - ".", 48-57 - цифри від 0 до 9

Case Else

KeyAscii = 0

mes.Caption = " Помилка введення – Уведіть число "

End Select