double arrow

Порядок действий. 1. Разместите на форме объекты в соответствии с тем, как показано на рис

1. Разместите на форме объекты в соответствии с тем, как показано на рис. 12.7.

2. Установите значения свойства Name для текстового поля txtRezult.

3. Установите значения свойства Name для кнопок < = > и <СЕ> — cmdRavno и cmdCE соответственно.

4. Установите значения свойства Name для всех остальных командных кнопок — cmd. Они образуют массив объектов. Значение свойства Index — от 0 до 4 в порядке расположения.

5. Установите значения свойства Caption для формы и кнопок в соответствии с рис. 12.7.

6. Внимательно проанализируйте представленный ниже программный код, а затем наберите его.

Option Explicit

Dim х As Single, у As Single '1-e и 2-е число

Dim RezuIt As Single 'Результат

Dim t As Integer 'Переменная хранит номер(индекс) нажатой кнопки

Private Sub cmd_Click(index As Integer)

t = index

х = Val(txtRezult.Text)

txtRezult.Text = ""

TxtRezult.SetFocus

End Sub

Private Sub cmdCE_Click()

txtRezult.Text = ""

TxtRezult.SetFocus

End Sub

Private Sub cmdRavno_Click()

RezuIt = 0

Select Case t

Case 0 ' Щелкнуть по кнопке < + > (ее номер в массиве равен 0)

RezuIt = х + у

Case 1 ' Щелкнуть по кнопке < - > (ее номер в массиве равен 1)

RezuIt = х - у

Case 2 ' Щелкнуть по кнопке < * > (ее номер в массиве равен 2)

RezuIt = х * у

Case 3 ' Щелкнуть по кнопке < / > (ее номер в массиве равен 3)

If у <> 0 Then

RezuIt = х / у

txtRezult.Text = Str(RezuIt)

Else

txtRezult.Text = "Error! Division by zero"

End If

Case 4 ' Щелкнуть по кнопке < ^ > (ее номер в массиве равен 4)

RezuIt = х ^ у

End Select

If t <> 3 Then txtRezult.Text = Str(RezuIt)

End Sub

Private Sub txtRezult_Change()

у = Val(txtRezult.Text)

End Sub

7. Напишите процедуру, которая контролирует, какие клавиши нажимаются при вводе информации в текстовое поле и блокирует ввод текста при неправильном наборе чисел (проверяются ASCII-коды нажатых клавиш). Проанализируите, а затем наберите представленный ниже код процедуры.

Private Sub txtRezult_KeyPress(KeyAscii As Integer)


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



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