Как сделать калькулятор в visual basic

Калькулятор на 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 = "Введите число!"

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

Исходный код калькулятора на языке Visual Basic

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

Ну, давайте начнем, конечно же, у Вас должна уже быть установлена среда программирования Microsoft Visual Basic v 6.0. Запускаем среду, перед Вами окно выбора проекта, выбираем «standard.exe» и нажимаем открыть. Сейчас перед вами форма нашей с Вами программы и давайте ее наполнять.

Для начала сделайте вот что, справа в окне свойств найдите такую строку «StartUpPosition» и выберите там 1-centerowner, это для того чтобы наша программа запускалась по центру нашего монитора.

Далее давайте наполним внешний интерфейс, для этого уже слева в окне выбора объектов выберите «CommandButton», добавьте его на форму, и сделайте это 4 раза, т.е. добавьте 4 кнопки и расположите их слева направо, итого должно получиться так: Command1, Command2, Command3, Command4. Теперь давайте мы зададим им название, делается это снова в окне свойств (справа) строка Caption. Для этого щелкните по кнопке Command1 (она выделится) и в строке Caption окна свойств сотрите Command1 и напишите «сложение», потом щелкните (выделите) Command2 и напишите умножение, далее Command3 будет у нас деление, а Command4 вычитание.

С кнопками мы с Вами разобрались, теперь добавим 3 текстовых поля, делается также в окне добавления объекта (слева), выберите TextBox и добавьте 3 штуки, а расположите их так: Text1 и Text2 сверху, а Text3 чуть ниже. Теперь в окне свойств (которое справа) изменим, значение поля Text, т.е. как и раньше с кнопками, выбирайте по очереди каждое текстовое поле и в окне свойств меняйте значение строки text на, да просто сотрите, что там есть и ничего не пишите. Значение этого свойства отображается по умолчанию в текстовых полях.

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

А теперь осталось добавить сам код программы, для этого нажмите 2 раза в пустом месте формы и у Вас появится что-то вроде этого:

Вы просто сотрите это и вставьте следующее:

Вот такая незамысловатая программа, теперь ее нужно проверить, в верхнем меню найдите такую кнопочку (иконку) как «start» и нажмите, если Вы все сделали правильно, то у Вас запустится программа, где будет 3 текстовых поля и 4 кнопки. Вы можете в верхние 2 поля вставить, например: в правое 50, а в левое 10 и можете проверить действие программы, нажимая на все кнопки, только учтите, она выполняет все действия только с целыми числами.

Когда мы все проверили ее можно скомпилировать в exe файл, для этого нажмите меню «файл» «Компилировать проект», потом просто укажите путь, куда его сохранить. После компиляции запустите нашу с Вами программу, и можете пробовать посчитать некоторые числа. В этой программе мы не прописывали никаких условий, поэтому строго соблюдайте, чтобы в текстовых полях были только целые числа. Вот мы и написали первую программу на Visual Basic в среде программирования Microsoft Visual Basic v 6.0. В следующих уроках мы уже будем писать программы немного посложней.

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

Microsoft Visual Basic — это язык программирования, основанный на языке BASIC, изначально разработанный для облегчения изучения программирования. Visual Basic принимает знакомые команды BASIC и добавляет объектно-ориентированные инструменты и интерфейсы для разработки WYSIWYG-подобных приложений Windows и веб-элементов управления, а также многие другие улучшения. Одним из относительно простых обучающих проектов для Visual Basic является создание калькулятора Windows.

Новый проект с бланком (Violet Mabe)

Откройте Visual Basic 6 и выберите «Стандартный EXE» в меню нового проекта. Вы увидите пустую форму на экране.

Окно списка и свойств проекта (Violet Mabe)

Переименуйте свой проект и свою форму, нажав «Project1» в правой части экрана в списке проектов и введя новое имя в строке «Имя» окна «Свойства», которое должно появиться под списком проектов с помощью дефолт. Нажмите «Enter», чтобы принять новое имя. Сделайте то же самое для вашей формы (предлагаемое имя формы — «CalculatorUI»), убедитесь, что вы также ввели аналогичное имя в свойстве «Заголовок», что изменит текст в верхней панели формы. Сохраните проект в новой папке на вашем компьютере.

Создание текстового поля в вашей форме (Violet Mabe)

Добавьте кнопки и текстовое поле в форму. Сначала добавьте текстовое поле, в котором будут отображаться числа, введенные в калькулятор, а также результаты расчетов. Сделайте это, выбрав кнопку TextBox на панели инструментов в левой части экрана, а затем перетащив мышью нужный размер и местоположение для TextBox. После размещения TextBox вы можете изменить размер и местоположение, перетащив его в другое место формы или перетащив маркеры (маленькие квадраты) вдоль границы TextBox. Обязательно измените следующие строки в окне «Свойства», выбрав TextBox: «(Имя)» = tbResult, «Выравнивание» = 1 — Правое выравнивание, «Формат данных» = (нажмите кнопку «…», чтобы выберите) Number, «Locked» = True и «Text» = 0.

Расположение кнопок для программы калькулятора (Violet Mabe)

Выберите значок CommandButton на панели инструментов и создайте первую кнопку так же, как вы создали TextBox для добавления кнопок. Для справки используйте калькулятор Windows в стандартном представлении («Программы»> «Стандартные»> «Калькулятор») в качестве основы для своего макета калькулятора, не используя кнопки «MC», «MR», «MS» и «M +». На каждой кнопке измените следующие свойства (используя кнопку «+» в качестве примера): «(Имя)» = btnPlus, «Заголовок» = +. Сделайте то же самое для остальных кнопок калькулятора, а затем сохраните свою работу. Ваша форма должна теперь напоминать пример, показанный здесь.

Шаг 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, вводится правая сторона.

Шаг 6

Инициализируйте переменную bLeft. Мы делаем это, создавая подпрограмму Form_Load, которую вы можете либо ввести, как указано здесь, либо автоматически создать, дважды щелкнув мышью на любой части формы, не покрытой кнопкой или текстовым полем. Внутри функции нам нужно установить bLeft в True, потому что первое введенное число будет левой частью:

Частный Sub Form_Load () bLeft = True End Sub

Список кодов после шага 7 (Violet Mabe)

Создайте подпрограмму, которая будет обрабатывать нажатие любой из цифровых кнопок. Мы создаем это как подпрограмму, потому что мы используем идентичный код для каждой кнопки, а использование подпрограммы означает, что нет необходимости повторять один и тот же код десять раз. Введите следующее под строкой End Sub подпрограммы Form_Load:

Private Sub AddNumber (sNumber As String) Если bLeft, то sLeft = sLeft + sNumber tbResult.Text = sLeft Остальное sRight = sRight + sNumber tbResult.Text = sRight End If End Sub

Как видите, эта функция принимает строковый параметр sNumber, который будет содержать число, на которое щелкнул пользователь. Если bLeft имеет значение true, этот номер добавляется к строке, представляющей вводимый номер, sLeft, и текстовое поле tbResult обновляется для отображения нового номера. Если bLeft имеет значение false, та же операция выполняется с использованием sRight.

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

Private Sub btn0_Click () AddNumber ("0") End Sub

Аналогично, для одной кнопки ваш код будет выглядеть так:

Private Sub btn1_Click () AddNumber ("1") End Sub

Шаг 8

Обрабатывать операторы: плюс, минус, раз и делить. Мы сделаем это подобно последнему шагу, создав подпрограмму, которая вызывается в событиях Click для кнопок оператора. Подпрограмма будет выглядеть следующим образом:

Private Sub AddOperator (sNewOperator As String) Если bLeft, то sOperator = sNewOperator bLeft = False Else btnEquals_Click sOperator = sNewOperator sRight = "" bLeft = False End If End Sub

Если bLeft имеет значение true, то есть пользователь только что ввел левую часть вычисления, эта подпрограмма устанавливает переменную sOperator, которую мы создали на шаге 5, равной введенному оператору, который передается в AddOperator в виде строки sNewOperator. Второй шаг — установить bLeft в False, потому что ввод оператора означает, что пользователь завершил ввод левой части уравнения. Для обработки записей, которые объединяют несколько операторов, например, 9 3 2 * 6, нам также нужно проверить, имеет ли значение bLeft значение false, что означает, что пользователь ввел оператор, в котором мы ожидали равенства. Сначала мы вызываем событие Click для кнопки равенства (описанной на следующем шаге), которая выполняет расчет и устанавливает tbResult для результата того, что уже было введено. Затем мы очищаем sRight, чтобы пользователь мог ввести следующий номер, и устанавливаем bLeft в False, чтобы программа знала, что мы входим в правую часть следующего вычисления.

Наконец, добавьте вызов AddOperator к событию Click каждой кнопки оператора, используя тот же метод, который мы использовали в шаге 7 для создания событий Click для цифровых кнопок. Ваш код для кнопки «плюс» будет выглядеть так:

Private Sub btnPlus_Click () AddOperator ("+") End Sub

Аналогично, код кнопки минус будет выглядеть так:

Приватная саб btnMinus_Click () AddOperator ("-") End Sub

Шаг 9

Создайте событие Click для кнопки equals, которая является наиболее сложным кодом в этой программе. Создайте структуру подпрограммы, как вы делали для других кнопок, дважды щелкнув по кнопке «равно» на форме. Ваша подпрограмма будет выглядеть следующим образом, когда вы введете код:

Private Sub btnEquals_Click () If sLeft <> "" And sRight = "" And sOperator <> "" Тогда sRight = sLeft End If

Первые три строки кода проверяют, введены ли обе стороны расчета вместе с оператором. Если введены только левая сторона и оператор, значение левой стороны копируется вправо, поэтому мы можем имитировать стандартное поведение калькулятора для обработки записи, такой как 9 * =, которая умножает 9 на себя, чтобы получить результат 81. Остальная часть кода будет выполняться только в том случае, если введены левый, правый и оператор, и начнется с копирования строк чисел в переменные двойного типа iLeft и iRight, которые могут выполнять реальные вычисления. Оператор Select Case позволяет нам запускать другой код в зависимости от того, какой оператор был введен, и выполняет фактические вычисления, помещая результат в iResult. Наконец, мы обновляем текстовое поле с результатом, копируем результат в sLeft, сбрасываем sRight и устанавливаем bLeft = True. Эти последние строки позволяют нам взять результат вычисления и использовать его для выполнения другого вычисления.

Шаг 10

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

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

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

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

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

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

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

Шаг 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

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

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

Как конвертировать QBasic в Visual Basic

Простой язык программирования QBasic поставлялся с каждым компьютером DOS в 1980-х и начале 90-х. Язык Microsoft Visual Basic с тех пор заменил его, позволяя .

Могу ли я сделать приложения для Android с помощью Visual Basic?

Могу ли я сделать приложения для Android с помощью Visual Basic?

Растущая популярность смартфонов создала большой рынок для профессиональных программистов и любителей, чтобы создавать маленькие, умные и визуально привлекательные приложения. Сотни.

Как писать простые коды Visual Basic

Как писать простые коды Visual Basic

Написание простого компьютерного кода на Visual Basic — это использование готовых фрагментов кода, которые входят в состав разработчика Visual Basic Express или Visual Studio .NET .

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *