Visual Basic 6.0 является языком программирования, разработанный Microsoft, который может легко изучить и использовать новичок, а также опытные программисты. Хотя он больше не поддерживается корпорацией Microsoft, тысячи приложений еще работают на нем и многое другое программное обеспечение все еще разрабатывается. Это руководство покажет вам, как создать простой калькулятор в Visual Basic 6.0.

Шаги

1. Откройте Visual Basic 6.0 и создайте новый проект Standard EXE Project.

   Проекты Standard EXE дают вам несколько команд и инструментов, полезных для разработки простых, а также полу-сложных программ.

   • Вы также можете выбрать проект VB Enterprise Edition Project, который даст вам намного больше инструментов для работы. Для начинающего программиста предлагается использовать Standard EXE Project.
2. Рассмотрите окно проекта.

   В центре экрана будет поле с большим количеством точек. Это ваша форма.Форма — это место, куда вы будете добавлять различные элементы (кнопки команд, картинки, текстовые поля и т.д.) к вашей программе.

   • Слева от окна находится панель инструментов. Панель инструментов содержит различные определенные заранее элементы любой программы. Вы можете перетащить эти элементы на форму.
   • В нижней правой части окна находится макет формы. Это определяет, где ваша программа будет отображаться на экране после того, как проект будет завершен и выполнен.
   • Посередине правее находится окно свойств, которые определяют свойство любого элемента, выбранного в форме. Вы можете изменять различные свойства, используя его. Если не выбран ни один элемент, оно отображает свойства формы.
   • В правом верхнем углу находится Project Explorer. Оно показывает различные конструкции, формы, которые включены в проект.
   • Если любой из этих полей отсутствует, вы можете добавить их, нажав на кнопку «View» на панели меню Menu.
3. Перетащите метку на форму, и измените заголовок метки на «Enter first number».
   • Надпись на метке можно изменить с помощью окна свойств.
4. 

   Создайте текстовое поле справа от первой метки. Удалите текст, который появляется внутри текстового поля, изменив пустующее поле «Text» в окне свойств.

5. 

   Создайте еще одну метку и измените заголовок на «Enter second number», и создайте еще одно текстовое поле для нее справа.

6. 

   Перетащите и создайте четыре командные кнопки ниже этих двух меток. Измените заголовок этих командных кнопок на «Add», «Subtract», «Multiply», «Divide» соответственно.

7. 

   Создайте еще одну метку с надписью «Result» и текстовое поле справа от нее под кнопками четырех команд. Это текстовое поле будет использоваться для отображения результата. При этом ваш проект будет завершен.

8. Чтобы начать кодирование, в Project Explorer нажмите на форму, а затем выберите крайнюю левую кнопку.

   Вас перекинет в окно кодирования.

   • Нажмите на список в верхнем левом углу окна кодирования. Один за другим нажимайте на все команды (Command1, Command2, и т.д.), таким образом план кодирования из них будет виден вам в вашем окне кодирования.
9. Объявите переменные.

   Чтобы объявить:

   • Dim a, b, r as Integer
   • a является величиной, введенной в первом текстовом поле, b является величиной , введенной во втором текстовом поле и r является результатом. Вы можете использовать любые другие переменные тоже.
10. Запустите кодирование для команды добавления (Command1).

    Код будет выглядеть следующим образом:

    • Private Sub Command1_Click()
      a = Val(Text1.Text)
      b = Val(Text2.Text)
      r = a + b
      Text3.Text = r
      End Sub
11. Код для команды вычитания (Command2).

    Код будет выглядеть следующим образом:

    • Private Sub Command2_Click()
      a = Val(Text1.Text)
      b = Val(Text2.Text)
      r = a — b
      Text3.Text = r
      End Sub
12. Код для команды умножения (Command3).

    Кодирование будет выглядеть следующим образом:

    • Private Sub Command3_Click()
      a = Val(Text1.Text)
      b = Val(Text2.Text)
      r = a * b
      Text3.Text = r
      End Sub
13. Код для команды деления (Command4).

    Кодирование будет выглядеть следующим образом:

    • Private Sub Command4_Click()
      a = Val(Text1.Text)
      b = Val(Text2.Text)
      r = a / b
      Text3.Text = r
      End Sub
14. Нажмите кнопку запуска или нажмите F5, чтобы выполнить свою программу.
    • Протестируйте все команды и посмотрите, работает ли ваша программа.
15. 

    Сохраните проект и свою форму. Создайте свой проект и сохраните его в виде .exe файла на своем компьютере; запустите его, когда вы хотите!

Советы

• Вы можете создавать различные вариации простого калькулятора. Попробуйте использовать окно опций вместо командных кнопок.
• Добавьте цвета на форму и текстовые поля, используя окно свойств, чтобы они выглядели красочно!
• Если есть ошибка, научитесь отлаживать программу.

Информация о статье

Эту страницу просматривали 35 159 раза.

Была ли эта статья полезной?

Для постоянных пользователей Excel не секрет, что в этой программе можно производить различные математические, инженерные и финансовые расчеты. Данная возможность реализуется путем применения различных формул и функций. Но, если Эксель постоянно использовать для проведения подобных расчетов, то актуальным становится вопрос организации необходимых для этого инструментов прямо на листе, что значительно повысит скорость вычислений и уровень удобства для пользователя. Давайте выясним, как сделать подобный калькулятор в Экселе.

Процедура создания калькулятора

Особенно насущной данная задача становится в случае необходимости постоянно проводить однотипные вычисления и расчеты, связанные с определенным видом деятельности. В целом все калькуляторы в Excel можно разделить на две группы: универсальные (используются для общих математических вычислений) и узкопрофильные. Последняя группа делится на множество видов: инженерные, финансовые, кредитные инвестиционные и т.д. Именно от функциональных возможностей калькулятора, в первую очередь, зависит выбор алгоритма его создания.

Способ 1: использование макросов

Прежде всего, рассмотрим алгоритмы создания пользовательских калькуляторов. Начнем с создания простейшего универсального калькулятора. Данный инструмент будет выполнять элементарные арифметические действия: сложение, умножение вычитание, деление и т. д. Он реализован с помощью макроса. Поэтому прежде, чем приступить к процедуре создания, нужно удостовериться, что у вас включены макросы и панель разработчика. Если это не так, то обязательно следует активировать работу макросов.

1. После того, как указанные выше предварительные настройки выполнены, перемещаемся во вкладку «Разработчик». Жмем на иконку «Visual Basic», которая размещена на ленте в блоке инструментов «Код».
2. Запускается окно редактора VBA. Если центральная область у вас отобразилась серым цветом, а не белым, то это означает, что поле введения кода отсутствует. Для включения его отображения переходим в пункт меню «View» и жмем по надписи «Code» в появившемся списке. Можно вместо этих манипуляций нажать функциональную клавишу F7. В любом случае поле для ввода кода появится.
3. Тут в центральной области нам нужно записать сам код макроса. Он имеет следующий вид:

   Sub Calculator()
Dim strExpr As String
' Введение данных для расчета
strExpr = InputBox("Введите данные")
' Вычисление результата
MsgBox strExpr & " = " & Application.Evaluate(strExpr)
End Sub


   Вместо словосочетания «Введите данные» вы можете записать любое другое более приемлемое для вас. Именно оно будет располагаться над полем введения выражения.

   После того, как код введен, файл нужно перезаписать. При этом его следует сохранить в формате с поддержкой макросов. Жмем на иконку в виде дискеты на панели инструментов редактора VBA.

4. Запускается окно сохранения документа. Переходим в ту директорию на жестком диске или съемном носителе, где хотим его сохранить. В поле «Имя файла» присваиваем документу любое желаемое наименование или оставляем то, которое присвоено ему по умолчанию. В обязательном порядке в поле «Тип файла» из всех доступных форматов выбираем наименование «Книга Excel с поддержкой макросов (*.xlsm)». После данного шага клацаем по кнопке «Сохранить» в нижней части окна.
5. После этого можно закрывать окно редактора макросов, просто нажав на стандартный значок закрытия в виде красного квадрата с белым крестиком в его правом верхнем углу.
6. Чтобы запустить вычислительный инструмент при помощи макроса, находясь во вкладке «Разработчик», клацаем по значку «Макросы» на ленте в блоке инструментов «Код».
7. После этого запускается окно макросов. Выбираем наименование того макроса, который мы только что создавали, выделяем его и жмем на кнопку «Выполнить».
8. После выполнения данного действия запускается калькулятор, созданный на основе макроса.
9. Для того, чтобы произвести в нем вычисление, записываем в поле необходимое действие. Удобнее всего использовать для этих целей числовой блок клавиатуры, который расположен справа. После того, как выражение введено, жмем на кнопку «OK».
10. Затем на экране появляется небольшое окошко, которое содержит в себе ответ решения заданного выражения. Для его закрытия жмем на кнопку «OK».
11. Но согласитесь, что довольно неудобно каждый раз, когда потребуется произвести вычислительные действия, переходить в окно макросов. Давайте упростим реализацию запуска окна вычислений. Для этого, находясь во вкладке «Разработчик», щелкаем по уже знакомой нам иконке «Макросы».
12. Затем в окне макросов выбираем наименование нужного объекта. Щелкаем по кнопке «Параметры…».
13. После этого запускается окошко ещё меньше предыдущего. В нем мы можем задать сочетание горячих клавиш, при нажатии на которые будет запускаться калькулятор. Важно, чтобы данное сочетание не использовалось для вызова других процессов. Поэтому первые символы алфавита использовать не рекомендуется. Первую клавишу сочетания задает сама программа Эксель. Это клавиша Ctrl. Следующую клавишу задает пользователь. Пусть это будет клавиша V (хотя вы можете выбрать и другую). Если данная клавиша уже используется программой, то будет автоматически добавлена ещё одна клавиша в комбинацию – Shift. Вписываем выбранный символ в поле «Сочетание клавиш» и жмем на кнопку «OK».
14. Затем закрываем окно макросов, нажав на стандартный значок его закрытия в верхнем правом углу.

Теперь при наборе выбранной комбинации горячих клавиш (в нашем случае Ctrl+Shift+V) будет запускаться окно калькулятора. Согласитесь, это намного быстрее и проще, чем каждый раз вызывать его через окно макросов.

Урок: Как создать макрос в Экселе

Способ 2: применение функций

Теперь давайте рассмотрим вариант создания узкопрофильного калькулятора. Он будет предназначен для выполнения конкретных, специфических задач и размещен непосредственно на листе Excel. Для создания этого инструмента будут применяться встроенные функции Эксель.

Для примера создадим инструмент конвертации величин массы. В процессе его создания нами будет использована функция ПРЕОБР. Данный оператор относится к инженерному блоку встроенных функций Эксель. Его задачей является преобразование величин одной меры измерения в другую. Синтаксис данной функции следующий:

=ПРЕОБР(число;исх_ед_изм;кон_ед_изм)

«Число» — это аргумент, имеющий вид числового значения той величины, которую надо конвертировать в другую меру измерения.

«Исходная единица измерения» — аргумент, который определяет единицу измерения величины, подлежащую конвертации. Он задается специальным кодом, который соответствует определенной единице измерения.

«Конечная единица измерения» — аргумент, определяющий единицу измерения той величины, в которую преобразуется исходное число. Он также задается с помощью специальных кодов.

Нам следует подробнее остановиться на этих кодах, так как они нам понадобятся в дальнейшем при создании калькулятора. Конкретно нам понадобятся коды единиц измерения массы. Вот их перечень:

• g – грамм;
• kg – килограмм;
• mg – миллиграмм;
• lbm – английский фунт;
• ozm – унция;
• sg – слэг;
• u – атомная единица.

Нужно также сказать, что все аргументы данной функции можно задавать, как значениями, так и ссылками на ячейки, где они размещены.

1. Прежде всего, делаем заготовку. У нашего вычислительного инструмента будет четыре поля:
   • Конвертируемая величина;
   • Исходная единица измерения;
   • Результат конвертации;
   • Конечная единица измерения.

   Устанавливаем заголовки, под которыми будут размещаться данные поля, и выделяем их форматированием (заливкой и границами) для более наглядной визуализации.

   В поля «Конвертируемая величина», «Исходная граница измерения» и «Конечная граница измерения» нами будут вводиться данные, а в поле «Результат конвертации» — выводиться конечный результат.

2. Сделаем так, чтобы в поле «Конвертируемая величина» пользователь мог вводить только допустимые значения, а именно числа больше нуля. Выделяем ячейку, в которую будет вноситься преобразуемая величина. Переходим во вкладку «Данные» и в блоке инструментов «Работа с данными» кликаем по значку «Проверка данных».
3. Запускается окошко инструмента «Проверка данных». Прежде всего, выполним настройки во вкладке «Параметры». В поле «Тип данных» из списка выбираем параметр «Действительное». В поле «Значение» также из списка останавливаем выбор на параметре «Больше». В поле «Минимум» устанавливаем значение «0». Таким образом, в данную ячейку можно будет вводить только действительные числа (включая дробные), которые больше нуля.
4. После этого перемещаемся во вкладку того же окна «Сообщение для ввода». Тут можно дать пояснение, что именно нужно вводить пользователю. Он его увидит при выделении ячейки ввода величины. В поле «Сообщение» напишем следующее: «Введите величину массы, которую следует преобразовать».
5. Затем перемещаемся во вкладку «Сообщение об ошибке». В поле «Сообщение» нам следует написать ту рекомендацию, которую увидит пользователь, если введет некорректные данные. Напишем следующее: «Вводимое значение должно быть положительным числом». После этого, чтобы завершить работу в окне проверки вводимых значений и сохранить введенные нами настройки, жмем на кнопку «OK».
6. Как видим, при выделении ячейки появляется подсказка для ввода.
7. Попробуем ввести туда некорректное значение, например, текст или отрицательное число. Как видим, появляется сообщение об ошибке и ввод блокируется. Жмем на кнопку «Отмена».
8. А вот корректная величина вводится без проблем.
9. Теперь переходим к полю «Исходная единица измерения». Тут мы сделаем так, что пользователь будет выбирать значение из списка, состоящего из тех семи величин массы, перечень которых был приведен выше при описании аргументов функции ПРЕОБР. Ввести другие значения не получится.

   Выделяем ячейку, которая находится под наименованием «Исходная единица измерения». Снова клацаем по иконке «Проверка данных».

10. В открывшемся окне проверки данных переходим во вкладку «Параметры». В поле «Тип данных» устанавливаем параметр «Список». В поле «Источник» через точку с запятой (;) перечисляем коды наименований величин массы для функции ПРЕОБР, о которых шел разговор выше. Далее жмем на кнопку «OK».
11. Как видим, теперь, если выделить поле «Исходная единица измерения», то справа от него возникает пиктограмма в виде треугольника. При клике по ней открывается список с наименованиями единиц измерения массы.
12. Абсолютно аналогичную процедуру в окне «Проверка данных» проводим и с ячейкой с наименованием «Конечная единица измерения». В ней тоже получается точно такой же список единиц измерения.
13. После этого переходим к ячейке «Результат конвертации». Именно в ней будет содержаться функция ПРЕОБР и выводить результат вычисления. Выделяем данный элемент листа и жмем на пиктограмму «Вставить функцию».
14. Запускается Мастер функций. Переходим в нем в категорию «Инженерные» и выделяем там наименование «ПРЕОБР». Затем клацаем по кнопке «OK».
15. Происходит открытие окна аргументов оператора ПРЕОБР. В поле «Число» следует ввести координаты ячейки под наименованием «Конвертируемая величина». Для этого ставим в курсор в поле и кликаем левой кнопкой мыши по этой ячейке. Её адрес тут же отображается в поле. Таким же образом вводим координаты в поля «Исходная единица измерения» и «Конечная единица измерения». Только на этот раз кликаем по ячейкам с такими же названиями, как у этих полей.

    После того, как все данные введены, жмем на кнопку «OK».

16. Как только мы выполнили последнее действие, в окошке ячейки «Результат конвертации» тут же отобразился результат преобразования величины, согласно ранее введенным данным.
17. Давайте изменим данные в ячейках «Конвертируемая величина», «Исходная единица измерения» и «Конечная единица измерения». Как видим, функция при изменении параметров автоматически пересчитывает результат. Это говорит о том, что наш калькулятор полностью функционирует.
18. Но мы не сделали одну важную вещь. Ячейки для ввода данных у нас защищены от введения некорректных значений, а вот элемент для вывода данных никак не защищен. А ведь в него вообще нельзя ничего вводить, иначе формула вычисления будет просто удалена и калькулятор придет в нерабочее состояние. По ошибке в эту ячейку можете ввести данные и вы сами, не говоря уже о сторонних пользователях. В этом случае придется заново записывать всю формулу. Нужно заблокировать любой ввод данных сюда.

    Проблема состоит в том, что блокировка устанавливается на лист в целом. Но если мы заблокируем лист, то не сможем вводить данные в поля ввода. Поэтому нам нужно будет в свойствах формата ячеек снять возможность блокировки со всех элементов листа, потом вернуть эту возможность только ячейке для вывода результата и уже после этого заблокировать лист.

    Кликаем левой кнопкой мыши по элементу на пересечении горизонтальной и вертикальной панели координат. При этом выделяется весь лист. Затем кликаем правой кнопкой мыши по выделению. Открывается контекстное меню, в котором выбираем позицию «Формат ячеек…».

19. Запускается окно форматирования. Переходим в нем во вкладку «Защита» и снимаем галочку с параметра «Защищаемая ячейка». Затем клацаем по кнопке «OK».
20. После этого выделяем только ячейку для вывода результата и кликаем по ней правой кнопкой мыши. В контекстном меню клацаем по пункту «Формат ячеек».
21. Снова в окне форматирования переходим во вкладку «Защита», но на этот раз, наоборот, устанавливаем галочку около параметра «Защищаемая ячейка». Затем щелкаем по кнопке «OK».
22. После этого перемещаемся во вкладку «Рецензирование» и жмем на иконку «Защитить лист», которая расположена в блоке инструментов «Изменения».
23. Открывается окно установки защиты листа. В поле «Пароль для отключения защиты листа» вводим пароль, с помощью которого при необходимости в будущем можно будет снять защиту. Остальные настройки можно оставить без изменений. Жмем на кнопку «OK».
24. Затем открывается ещё одно небольшое окошко, в котором следует повторить ввод пароля. Делаем это и жмем на кнопку «OK».
25. После этого при попытке внесения любых изменений в ячейку вывода результата действия будут блокироваться, о чем сообщается в появляющемся диалоговом окне.

Таким образом, мы создали полноценный калькулятор для конвертации величины массы в различные единицы измерения.

Кроме того, в отдельной статье рассказывается о создании ещё одного вида узкопрофильного калькулятора в Экселе для расчета платежей по кредитам.

Урок: Расчет аннуитетного платежа в Экселе

Способ 3: включение встроенного калькулятора Excel

Кроме того, в Экселе имеется собственный встроенный универсальный калькулятор. Правда, по умолчанию кнопка его запуска отсутствует на ленте или на панели быстрого доступа. Рассмотрим, как активировать её.

1. После запуска программы Excel перемещаемся во вкладку «Файл».
2. Далее в открывшемся окне переходим в раздел «Параметры».
3. После запуска окошка параметров Excel перемещаемся в подраздел «Панель быстрого доступа».
4. Перед нами открывается окно, правая часть которого разделена на две области. В правой ее части расположены инструменты, которые уже добавлены на панель быстрого доступа. В левой представлен весь набор инструментов, который доступен в Excel, включая отсутствующие на ленте.

   Над левой областью в поле «Выбрать команды» из перечня выбираем пункт «Команды не на ленте». После этого в списке инструментов левой области ищем наименование «Калькулятор». Найти будет просто, так как все названия расположены в алфавитном порядке. Затем производим выделения данного наименования.

   Над правой областью находится поле «Настройка панели быстрого доступа». Оно имеет два параметра:

   • Для всех документов;
   • Для данной книги.

   По умолчанию происходит настройка для всех документов. Этот параметр рекомендуется оставить без изменений, если нет предпосылок для обратного.

   После того, как все настройки совершены и наименование «Калькулятор» выделено, жмем на кнопку «Добавить», которая расположена между правой и левой областью.

5. После того, как наименование «Калькулятор» отобразилось в правой области окна, жмем на кнопку «OK» внизу.
6. После этого окно параметров Excel будет закрыто. Чтобы запустить калькулятор, нужно кликнуть на одноименный значок, который теперь располагается на панели быстрого доступа.
7. После этого инструмент «Калькулятор» будет запущен. Функционирует он, как обычный физический аналог, только на кнопки нужно нажимать курсором мышки, её левой кнопкой.

Как видим, в Экселе существует очень много вариантов создания калькуляторов для различных нужд. Особенно эта возможность полезна при проведении узкопрофильных вычислений. Ну, а для обычных потребностей можно воспользоваться и встроенным инструментом программы.

Мы рады, что смогли помочь Вам в решении проблемы.

Задайте свой вопрос в комментариях, подробно расписав суть проблемы. Наши специалисты постараются ответить максимально быстро.

Помогла ли вам эта статья?

Да Нет

Использование макросов Заходите во вкладку «Разработчик» и кликаете на иконку «Visual Basic», которая находится на ленте в блоке инструментов «Код».

Далее запускаете окно редактора VBA. При отображении центральной области серым цветом, а не белым, это означает, что поля для введения кода нет. Для того чтобы он отображался, нужно зайти в пункт меню «View» и кликнуть на «Code» в списке, который появится.

В центральной области вводите код макроса:

Sub Calculator()

Dim strExpr As String

‘ Введение данных для расчета

strExpr = InputBox(«Введите данные»)

‘ Вычисление результата

End Sub

Вместо «Введенные данные» можно внести любое другое более подходящее название. Теперь нужно перезаписать файл. Сохраняете его в формате с поддержкой макросов. Нажимаете на иконку в виде дискеты на панели инструментов редактора VBA.

Должно запуститься окно сохранения документа. Переходите туда, куда хотите его сохранить. В строке «Имя файла» вносите то название, которое хочется. Обязательно в строке «Тип файла» выбираете «Книга Excel с поддержкой макросов (*xlcm)». Кликаете на «Сохранить» в нижней части окна.

Закрываете окно редактора макросов нажатием стандартного значка закрытия в виде красного квадрата с белым крестом в правом верхнем углу окна.

Для запуска вычислительного инструмента с помощью макроса, во вкладке «Разработчик» нажимаете на «Макросы» на ленте в блоке инструментов «Код».

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

Должен запуститься калькулятор, который создан на основе макроса.

Для произведения в нем вычислений, нужно записать в поле нужное действие. Лучше всего использовать числовой блок клавиатуры, расположенный справа. Когда выражение будет введено, кликаете на ОК.

На экране отобразится небольшое окно, в котором и будет находиться ответ решения заданного выражения. Нажимаете на Ок.

Чтобы упростить реализацию запуска окна вычислений, нужно во вкладке «Разработчик» нажать на иконку «Макросы».

В окне макросов выбрать нужное наименование и кликнуть на «Параметры…».

Запуститься маленькое окошко, в котором можно вбить сочетание клавиш, при нажатии которых и будет запускаться калькулятор. Вписываете выбранный символ в поле «Сочетание клавиш» и нажимаете ОК.

Закрываете окно макроса.

Включение встроенного калькулятора ExcelПереходите во вкладку «Файл».

Далее в раздел «Параметры».

Затем в подраздел «Панель быстрого доступа».

В поле «Выбрать команды» нажимаете «Команды не на ленте» и ищите «Калькулятор». Кликаете на «Добавить».

Жмете на ОК.

Для запуска калькулятора следует нажать на одноименный значок, который расположен на панели быстрого доступа.

Калькулятор будет запущен. Функционирует он как обычный физический аналог, только на кнопки следует нажимать с помощью курсора мыши (ее левой кнопки).