Калькулятор на VB - это легко!
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: мировая экономика, способ изложения
| Добавил(а) на сайт: Mihalicyn.
Предыдущая страница реферата | 1 2 3 4 5 6 | Следующая страница реферата
Case "вычесть"
Tablo.Caption = pervoe - vtoroe
Case "разделить"
If vtoroe 0 Then
Tablo.Caption = pervoe / vtoroe
Else ' на ноль действительно нельзя делить!
Tablo.Caption = "на ноль не делят!"
End If
Case "умножить"
Tablo.Caption = pervoe * vtoroe
End Select
End Sub
В ней, как видите, результат сразу "выбрасывается" на табло.
О пользе клавиатуры.
И прежде чем подготовиться к последнему желанию пользователя - иметь возможность производить вычисления с клавиатуры, добавим к уже имеющейся части программного кода процедуру обработки нажатия кнопки [С] (сброс в первоначальную) готовность:
Private Sub Sbros_Click()
deystvie = "нет" ' стираем, возможно, указанное действие
Tablo.Caption = "0" ' на табло - ноль
Tablo.Tag = "" ' по умолчанию - вводится целое число
End Sub
Пользователь будет вводить число с клавиатуры используя клавиши с цифрами, клавиши с точкой, а для перемены знака числа клавишу +/=. Редактировать
число с помощью клавиш Backspace и Пробел. Данные действия оперделим в
коде процедуры Form_KeyPress(), используя замечательный аргумент этой
процедуры - KeyAscii.
Поэтому если знать (или узнать) Ascii-коды клавиш, то понимание этой
процедуры не займёт много времени:
Private Sub Form_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8 udalit_Click
Case 42, 43, 45, 47 ' теперь стало ясным почему индексы
Operacia_Click (47 - KeyAscii) ' следуют не по порядку?
Рекомендуем скачать другие рефераты по теме: российские рефераты, реферат по биологии.
Категории:
Предыдущая страница реферата | 1 2 3 4 5 6 | Следующая страница реферата
Главная