Калькулятор на VB - это легко!

(автор: Есин И. В., email: tofriend@list.ru)

О чём ...

Статья имеет две редакции: для начинающих осваивать язык и для тех у кого не только аббревиатура VB не вызывает вопросов, но и более-менее владеющих им.

В данной редакции от читателя требуется знание VB на достаточно хорошем уровне, что означает владение навыками визуального программирования, событийно-управляемого программирования и конечно
«основных» операторов языка. Предлагается один из способов поиска решения подобных задач.

Первый шаг или интерфейс пользователя

Здесь особо ничего фантазировать не надо, а просто вспомнить, как выглядит обычный калькулятор, какие кнопки у него и каково их назначение.
У меня получилось так:

[pic]

Инструмент CommandButton содержит такие интересующие нас свойство и событие, которые дают нам полную ясность его выбора. Аналогичное можно сказать и про инструмент Label. Декоративный инструмент Line необязателен.

Для понимания моего программного кода вам надо будет согласиться со следующими именами представленных объектов и их свойствами:

0. Форме присвоим имя Calculator.

1. Кнопки с цифрами образуют массив кнопок Knopki индексы, которых совпадают с их надписями.

2. Кнопка точка - это объект с именем Tochka, a кнопка изменения знака числа [+/-] - Plusmin.

3. Кнопки арифметических операций имеют общее имя Operacia, но проиндексированы. Причём кнопка с надписью + имеет индекс 4, кнопка со знаком минус - индекс 2, кнопка "разделить" - 0, а кнопка соответствующая умножению - 5.

4. Кнопка "сброс" [С] - Sbros.

5. Кнопка "очистить" [CE] - Ochistka.

6. Кнопка "удалить" [ 0

Tablo.Caption = "-" & Tablo.Caption

End Select

End Sub

Другая - возможность ввода дробного числа:

Private Sub Tochka_Click()
' если число целое, то разрешаем ввести дробное число:
If Fix(Val(Tablo.Caption)) = Val(Tablo.Caption) Or Ravno.Tag = "второе"
Then Tablo.Tag = "не целое"
' к тому же ... если вводить дробное число после указания операции, то целая его часть - ноль:
If Ravno.Tag = "второе" Then Tablo.Caption = "0"

End Sub

Исправление ошибок ...

Позволим также стирать набранное число и удалять последнюю цифру числа на табло, что обеспечит следующий фрагмент программного кода:

Поделитесь этой записью или добавьте в закладки