Как сделать калькулятор с помощью Visual Basic – Вокруг-Дом – 2021

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

Шаги

  1. 1

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

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

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

    Рассмотрите окно проекта.

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

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

    Перетащите метку на форму, и измените заголовок метки на “Enter first number”.
    • Надпись на метке можно изменить с помощью окна свойств.
  4. 4

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

  5. 5

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

  6. 6

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

  7. 7

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

  8. 8

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

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

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

    Объявите переменные.

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

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

    Запустите кодирование для команды добавления (Command1).

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

    • Private Sub Command1_Click()
      a = Val(Text1.Text)
      b = Val(Text2.Text)
      r = a + b
      Text3.Text = r
      End Sub
  11. 11

    Код для команды вычитания (Command2).

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

    • Private Sub Command2_Click()
      a = Val(Text1.Text)
      b = Val(Text2.Text)
      r = a – b
      Text3.Text = r
      End Sub
  12. 12

    Код для команды умножения (Command3).

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

    • Private Sub Command3_Click()
      a = Val(Text1.Text)
      b = Val(Text2.Text)
      r = a * b
      Text3.Text = r
      End Sub
  13. 13

    Код для команды деления (Command4).

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

    • Private Sub Command4_Click()
      a = Val(Text1.Text)
      b = Val(Text2.Text)
      r = a / b
      Text3.Text = r
      End Sub
  14. 14

    Нажмите кнопку запуска или нажмите F5, чтобы выполнить свою программу.
    • Протестируйте все команды и посмотрите, работает ли ваша программа.
  15. 15

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

    Реклама

Шаг 5

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

Dim sLeft As String, sRight As String, sOperator As String Dim iLeft As Double, iRight As Double, iResult как Double Dim bLeft As Boolean

Каждое вычисление состоит из четырех частей: число слева от оператора (sLeft, iLeft), оператор (sOperator), число справа от оператора (sRight, iRight) и результат (iResult). Чтобы отследить, вводит ли пользователь левое или правое число, нам нужно создать логическую переменную bLeft. Если bLeft имеет значение true, вводится левая сторона расчета; если bLeft имеет значение false, вводится правая сторона.

Форматированный ввод в Vb

В этом уроке мы создадим калькулятор на VB, рассмотрим элемент MaskedTextBox. Программа позволит складывать, вычитать, умножать, делить и возводить в степень введённые числа и выводить полученный результат. Чтобы создать программу калькулятор на Vb, мы будем использовать специальные элементы MaskedTextBox 

Создадим интерфейс программы

1 В Toolbox находим элемент MaskedTextBox, размещаем на форме 2 данных элемента.

2  Размещаем кнопки Button для каждой математической операции и называем эти кнопки Сложение, Вычитание, Умножение, Деление, Степень. Для вывода  результата используем объект Label. Подробно о кнопках можно посмотреть на уроке простейшая программа на Vb. В итоге получается следующий интерфейс

Для каждого введённого числа вводим глобальную переменную вещественного типа. Глобальные перменные объявляются сразу после Public Class Form1. Глобальные переменные могут быть изменены и использованы в любой процедуре и функции программы. В нашем случае для первого числа мы ввели перменную first, для второго числа ввели переменную second.

Dim first As Double

Dim second As Double

Настроим элементы для ввода инофрмации MaskedTextBox так, чтобы в эти поля можно было вводить только числа.

Для этого в свойстве Mask элемента MaskedTextBox в параметре нажимаем на кнопку с многоточием

Нажимаем на строку Custom и в поле Mask вводим несколько нулей, нажимаем «ОК». После подобной настройки в поля MaskedTextBox можно будет вводить только числа. Это позволит избежать ситуаций, когда пользователь вводит недопустимые значения, например текст. При нажатии на кнопку с действием выполняется соответствующее математическое действие с введёнными числами. 

Перед выполнением любой операции необходимо проверить, что в оба поля введены числа. Для этого будем использовать условный оператор if.  Если  хотя-бы одно поле пустое, то выводим сообщение «Введите число!». 

If MaskedTextBox1.Text = Nothing Or MaskedTextBox2.Text = Nothing Then

            Label4.Text = “Введите число!”

            Exit Sub

        End If

Если в оба поля введены числа, то запишем в переменные first и second значения из полей MaskedTextBox с помощью обращения к свойству Text. Выполним математическую операцию с переменными и запишем результат в элемент Label3, меняя свойство Text данного элемента.

         first = MaskedTextBox1.Text

        second = MaskedTextBox2.Text

        Label1.Text = “+”

        Label3.Text = first + second

Аналогично для всех действий калькулятора

Полная версия программы калькулятор на vb

Public Class Form1
    Dim first As Double
    Dim second As Double
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label4.Text = “-“
        If MaskedTextBox1.Text = Nothing Or MaskedTextBox2.Text = Nothing Then
            Label4.Text = “Введите число!”
            Exit Sub
        End If
        first = MaskedTextBox1.Text
        second = MaskedTextBox2.Text
        Label1.Text = “+”
        Label3.Text = first + second
    End Sub 

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If MaskedTextBox1.Text = Nothing Or MaskedTextBox2.Text = Nothing Then
            Label4.Text = “Введите число!”
            Exit Sub
        End If
        first = MaskedTextBox1.Text
        second = MaskedTextBox2.Text
        Label1.Text = “-“
        Label3.Text = first – second
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If MaskedTextBox1.Text = Nothing Or MaskedTextBox2.Text = Nothing Then
            Label4.Text = “Введите число!”
            Exit Sub
        End If
        first = MaskedTextBox1.Text
        second = MaskedTextBox2.Text
        Label1.Text = “*”
        Label3.Text = first * second
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If MaskedTextBox1.Text = Nothing Or MaskedTextBox2.Text = Nothing Then
            Label4.Text = “Введите число!”
            Exit Sub
        End If
        first = MaskedTextBox1.Text
        second = MaskedTextBox2.Text
        Label1.Text = “/”
        Label3.Text = first / second
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If MaskedTextBox1.Text = Nothing Or MaskedTextBox2.Text = Nothing Then
            Label4.Text = “Введите число!”
            Exit Sub
        End If
        first = MaskedTextBox1.Text
        second = MaskedTextBox2.Text
        Label1.Text = “^”
        Label3.Text = Math.Pow(first, second)
    End Sub

End Class

 Вернуться к содержанию

Поделиться:

Нет комментариев. Ваш будет первым!

About

Another calculator made with Visual Basic.

Topics

calculator visual-studio visual-basic

Resources

Readme

Советы

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

Реклама

Releases

No releases published

Об этой статье

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

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

Особенно насущной данная задача становится в случае необходимости постоянно проводить однотипные вычисления и расчеты, связанные с определенным видом деятельности. В целом все калькуляторы в 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Переходите во вкладку «Файл».

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

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

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

Жмете на ОК.

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

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

Шаг 10

Обработка последних трех кнопок управления: sqrt,% и 1 / x. Для события Click кнопки квадратного корня ваш код будет выглядеть следующим образом:

Private Sub btnSqrt_Click () If sLeft <> “” Тогда iLeft = sLeft Остальное iLeft = 0 End If

End Sub

Первые 11 строк кода гарантируют, что если мы не введем значение для любой из сторон уравнения, мы подставим ноль вместо попытки скопировать пустую строку в iLeft или iRight, что приведет к ошибке. Средние линии выполняют функцию квадратного корня в текущей части вычисления, влево или вправо. Наконец, мы отменяем проверки, которые мы делали в начале, чтобы ноль копировался как пустая строка обратно в sLeft и sRight.

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

Private Sub btnPercent_Click () Если не bLeft, то если sRight <> “” Тогда iRight = sRight Остальное iRight = 0 End If

End Sub

Наконец, событие клика 1 / x или дроби, которое очень похоже на приведенный выше код:

Private Sub btnFraction_Click () If sLeft <> “” Тогда iLeft = sLeft Остальное iLeft = 0 End If

End Sub

Languages

  • Visual Basic .NET 100.0%

Шаг 11

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

Private Sub btnC_Click () sLeft = “” sRight = “” sOperator = “” tbResult.Text = “0” bLeft = True End Sub

Private Sub btnCE_Click () If bLeft Then sLeft = “” Else sRight = “” End If tbResult.Text = “0” End Sub

how-to-make-a-calculator-with-visual-basic-5.jpg

Законченный калькулятор в действии (Violet Mabe)

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

Рейтинг
( 1 оценка, среднее 5 из 5 )
Загрузка ...