Шрифт:
Закладка:
Результат.Text = Число1.Text + Число2.Text
Сказано — сделано. Получаем:
Private Sub Кл_сложения_Click()
Результат.Text = Число1.Text + Число2.Text
End Sub
Запускаем проект. Вводим 3 и 2. Щелкаем по кнопке сложения. Результат есть. Но не совсем тот, что мы ожидали. Вместо 5 получилось 32. В чем причина? Дело в том, что Visual Basic привык считать знак + по отношению к содержимому текстовых полей не знаком сложения, а знаком "соединения". Проверьте. Вместо 3 и 2 введите Коро и бочка, в результате получится Коробочка. Недаром текстовые поля называются текстовыми, а не числовыми. То, что мы назвали их Число1 и Число2, делу никак не помогло, потому что Visual Basic не обращает внимания на смысл имен, для него имена — просто бессмысленные сочетания символов.
Что делать? Надо приказать Visual Basic обращаться в данном случае с содержимым текстовых полей не как с текстом, а как с числами. Для этого достаточно записывать их не в таком виде — Число1.Text и Число2.Text, а в таком — Val(Число1.Text) и Val(Число2.Text). Здесь Val — сокращение от Value — величина, численное значение. Теперь наш оператор будет выглядеть так:
Результат.Text = Val(Число1.Text) + Val(Число2.Text)
Кстати, после ввода открывающей скобки Visual Basic услужливо предложит подсказку на тему о том, что должно быть в скобках. Со временем вы научитесь эту подсказку понимать.
Запускаем проект. Вводим два любых целых числа и убеждаемся, что все складывается правильно.
Аналогично программируем три остальные кнопки. Вот как будет выглядеть после этого окно кода:
Private Sub Кл_сложения_Click()
Результат.Text = Val(Число1.Text) + Val(Число2.Text)
End Sub
_____
Private Sub Кл_вычитания_Click()
Результат.Text = Val(Число1.Text) — Val(Число2.Text)
End Sub
_____
Private Sub Кл_умножения_Click()
Результат.Text = Val(Число1.Text) * Val(Число2.Text)
End Sub
_____
Private Sub Кл_деления_Click()
Результат.Text = Val(Число1.Text) / Val(Число2.Text)
End Sub
Пояснения: В языках программирования умножение обозначается звездочкой *, а деление — косой чертой /.
При вводе в текстовые поля десятичных дробей вместо запятой ставьте точку. Результат же будет выводиться с запятой.
Итак, калькулятор готов!
Предостережения: Наш калькулятор пока не защищен от ввода вместо чисел всякой ерунды (например, текста КУ-КУ), от ввода слишком больших или слишком маленьких чисел, от деления на ноль. В таких случаях Visual Basic дает неправильный или неудобочитаемый результат или сообщение об ошибке. Защиту вы найдете в 0.
Задание 1: Создайте кнопку возведения в квадрат числа из верхнего текстового поля.
Указание: Возвести в квадрат — значит умножить само на себя.
Задание 2: На нашем калькуляторе не хватает кнопки СБРОС, которая опустошала бы все три текстовых поля. Создайте ее.
Указание: Для этого вам понадобятся операторы типа Число1.Text = В программах текстовое содержимое текстовых полей должно указываться в кавычках. В данном случае у нас внутри кавычек пусто, что и требовалось.
Кое-какие другие свойства объектов
Начнем в режиме проектирования украшать и усовершенствовать наш калькулятор. Для этого рассмотрим некоторые другие свойства объектов, из которых он сконструирован. Многие из этих свойств имеются у большинства объектов, некоторые — только у одного-двух. Прочтя материал об очередном свойстве, вам надлежит тут же проверить, как его различные значения влияют на вид и поведение формы, кнопок, текстовых полей и меток в режиме [run].
Полезный совет: У объектов очень много не объясненных мной свойств. Природная любознательность толкнет вас "поперед батьки" разобраться, что они значат, придавая им для этого наугад какие-нибудь значения. Нет проблем — ломайте голову на здоровье. Проблема же в том, что кое-кто норовит сохранить проект с измененными значениями неведомых свойств. А потом проект начинает себя вести как-то непонятно. Мораль — "Верни, как было!"
BackColor (цвет объекта) — знакомое свойство. Щелкнем по нему. В поле значения появилась кнопочка с черной треугольной стрелкой. Щелкнем по ней — перед нами появилось окно с двумя закладками. Выберем Palette (палитра) и понравившийся цвет.
ForeColor (цвет текста и линий, рисуемых на объекте).
Appearance (внешний вид) — 3D (трехмерный) или Flat (плоский).
BorderStyle (стиль границы). Здесь 6 вариантов, и заведуют они не только стилем границы, но и количеством кнопок на форме, и возможностью изменять размеры формы в режиме [run].
ToolTipText (всплывающая подсказка). Вы, возможно, привыкли к тому, что когда во время работы в приложениях Windows, таких как Word, вы помешаете курсор мыши на значок какого-нибудь инструмента, то рядом со значком появляется подсказка, поясняющая, зачем этот инструмент нужен.
Введите любой текст в качестве значения свойства ToolTipText. Запустите проект. Поместите курсор мыши на объект. Текст всплыл. Очень приятное свойство.
Mouselcon, MousePointer (значок мыши, указатель мыши). Эти свойства позволяют вам менять внешний вид мышиного курсора. Выберите кнопку и задайте для ее свойства MousePointer значение 2 (крест). Запустите проект. Поместите курсор мыши на объект. Курсор приобрел вид креста.
Если вы зададите вид мышиного курсора для объекта Форма, то он будет иметь заданный вид над всей поверхностью формы и теми объектами на форме, для которых он еще не изменен.
Всего у свойства MousePointer 16 скромных значений. Mouselcon позволяет вам задать более живописный значок для курсора. Для этого предварительно установите значение MousePointer в 99. Затем щелкните по троеточию в Mouselcon и в открывшемся окне проводника найдите значки мышиного курсора в папке WindowsCursors или в папках Cursors и Icons, расположенных в папке Graphics, которая сама расположена в папке, куда установлен ваш Visual Basic.
Поиграли со значками мышиного курсора? А теперь верните все, как было. Не стоит без дела отвыкать от стандартного интерфейса — это рассеивает внимание. Экзотика хороша в экзотических случаях.
Следующие четыре свойства применимы только к форме.
MaxButton (кнопка максимизации — квадратик в правом верхнем углу формы). Сейчас значение этого свойства — True (Правда). Если установить его в False (Ложь), то квадратик пропадет или станет недоступен.
MinButton (кнопка минимизации — горизонтальная черточка в правом верхнем углу формы). Сейчас значение этого свойства — True (Правда). Если
