Как создать калькулятор в visual basic
Перейти к содержимому

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

  • автор:

Как создать простой калькулятор в Visual Basic 6.0

wikiHow работает по принципу вики, а это значит, что многие наши статьи написаны несколькими авторами. При создании этой статьи над ее редактированием и улучшением работали, в том числе анонимно, 12 человек(а).

Количество просмотров этой статьи: 76 397.

В этой статье:

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

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

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

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

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

Step 3 Перетащите метку на.

  • Надпись на метке можно изменить с помощью окна свойств.

Step 4 Создайте текстовое поле справа от первой метки.

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

Step 5 Создайте еще одну.

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

Step 6 Перетащите и создайте четыре командные кнопки ниже этих двух меток.

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

Step 7 Создайте еще одну.

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

Step 8 Чтобы начать кодирование.

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

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

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

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

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

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

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

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

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

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

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

Step 14 Нажмите кнопку запуска.

  • Протестируйте все команды и посмотрите, работает ли ваша программа.

Step 15 Сохраните проект и свою форму.

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

Разработка приложения Калькулятор в среде Visual Basic

Рассмотрим далее реализацию задачи Калькулятор в среде Visual Basic.

Для решения задачи создадим класс MyClass, описывающий выполнение арифметической операции над двумя аргументами.

Чтобы определить в Visual Basic новый класс данных, имеющий свои поля данных и свои методы, необходимо через главное меню среды добавить модуль класса (рис. 4.32).

Добавление модуля класса

Рис. 4.32. Добавление модуля класса

Далее для класса необходимо определить данные, свойства и методы. Алгоритмы обработки аналогичны алгоритмам, примененным при решении подобной задачи в среде Delphi.

Текст модуля класса со всеми разработанными для него свойствами приведен ниже:

Предполагаемый внешний вид формы приложения представлен на рис. 4.33, 1.

Исправим некоторые значения свойств в окне свойств формы Forml (рис. 4.33, 2): изменим свойство Caption — текст заголовка окна формы, задав значение Пример-калькулятор;

Окно для ввода значений аргументов и вывода результата представляет собой визуальный компонент TextBox. Кнопки реализуются с помощью компонентов CommandButton. При разработке формы использовалась возможность создания массивов

Окно программы Калькулятор (/); изменение свойств формы в окне Инспектора Объектов (2); свойства кнопки-элемента массива (2) однотипных кнопок с одной процедурой обработки события

Рис. 4.33. Окно программы Калькулятор (/); изменение свойств формы в окне Инспектора Объектов (2); свойства кнопки-элемента массива (2) однотипных кнопок с одной процедурой обработки события

Приведем описание процедур обработки событий.

Событие Click для сКнопки «Цифра»> вызывает выполнение

Процедура обработки события для СКнопки «Точка»> (SB_Point_Click):

Обработка события Click SB_Oper_Click:

Процедура обработки события Click для сКнопки «Равно»>

Для поддержки событий нажатия на кнопки ( ) и

опишем процедуры SB_Clear_Click и SB_del_Click:

Алгоритмы обработки событий строятся на использовании объекта Ope_Result, поэтому необходимо обеспечить размещение объекта в памяти и освобождение памяти при завершении работы приложения.

Средой Visual Basic сгенерирован текст основной программы и построен модуль MyClass, содержащий описание класса Toperation.

Основной модуль:

Контрольные упражнения

  • 1. Модифицировать приложение Калькулятор (как для Basic, так и для Delphi), добавив операцию (кнопку) возведения в целую степень.
  • 2. Модифицировать приложение Калькулятор, добавив операцию вычисления N.
  • 3. Модифицировать приложение Калькулятор, добавив операцию «возведение в квадрат».
  • 4. Модифицировать приложение Калькулятор, добавив операцию «извлечение квадратного корня».

Как сделать калькулятор в Visual Basic.

В данной статье я расскажу вам как сделать проект «Обычный калькулятор» . Основные математические действия будут производиться над целыми десятичными числами. Но нам будет необходимо преобразовать строковое значение с число. Это можно сделать с помощью функции Val, аргументом которой является строка, а значение — число: Val (Строка$).

Для создания графического интерфейса на форме размести пять кнопок с названиями сложение, вычитание, деление, умножение, выход; три текстовых поля (два для ввода и одно для вывода) .

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

Private Sub Text1_Change () ‘Происходит при изменении текстового поля
If Len (Text1.Text)>16 Then MsgBox “Много знаков” ‘Если Text1>16, то выводим сообщение
End Sub

Private Sub Text2_Change ()
If Len (Text2.Text)>16 Then MsgBox “Много знаков”
End Sub

Теперь напишем код для сложения, вычитания и умножения:

Private Sub Command1_Click () ‘Сложение
Text3.Text=Val (Text1.Text) + Val (Text2.Text)
End Sub

Private Sub Command2_Click () ‘Вычитание
Text3.Text=Val (Text1.Text) – Val (Text2.Text)
End Sub

Private Sub Command3_Click () ‘Умножение
Text3.Text=Val (Text1.Text) * Val (Text2.Text)
End Sub

С кодом для деления придётся немного пораздумать. Когда во втором текстовом поле будет ноль или там не будет текста, то будут выскакивать ошибка. Для её предотвращения придётся создать условие:

Private Sub Command4_Click () ‘Деление
If Text2.Text =”” Then MsgBox “Деление на ноль”
If Text2.Text = 0 Then MsgBox “Деление на ноль”
If Text2.Text<>”” Then Text3.Text=Val(Text1.Text)/Val(Text2.Text)
If Text2.Text<>0 Then Text3.Text=Val(Text1.Text)/Val(Text2.Text)
End Sub

Осталось написать процедуру для кнопки «Выход» :

Private Sub Command5_Click () ‘Выход
End
End Sub

Для создания других операций с числами можно воспользоваться обозначениями функций:
Sqr (число) – служит для извлечения квадратного корня
Например: Sqr (16) = 4

Основание ^ степень – возведение числа в степень
Например: 6 ^ 2 = 36

Sin (число) – синус числа
Например: Sin (60) = -0, 304810621102217

Cos (число) – косинус числа
Например: Cos (60) = -0, 952412980415156

Tan (число) –тангенс числа
Например: Tan (60) = 0,320040389379563

Элеонора ФинкельштейнУченик (130) 7 лет назад
Спасибо Вам огромнейшее, очень помогли! Статья информативная и удобная для использования! СПАСИБО!

Dim op As String
Dim num1 As Integer
Dim num2 As Integer

Private Sub Command1_Click()
Text1.Text = «»
End Sub

Private Sub Command10_Click()
Text1.Text = Text1.Text + «9»
End Sub

Private Sub Command11_Click(Index As Integer)
Text1.Text = Text1.Text + «0»
End Sub

Private Sub Command12_Click(Index As Integer)
num1 = Text1.Text
Text1.Text = «»
op = «+»
End Sub

Private Sub Command13_Click(Index As Integer)
num1 = Text1.Text
Text1.Text = «»
op = «-»
End Sub

Private Sub Command14_Click(Index As Integer)
num1 = Text1.Text
Text1.Text = «»
op = «/»
End Sub

Private Sub Command15_Click(Index As Integer)
num1 = Text1.Text
Text1.Text = «»
op = «*»
End Sub

Private Sub Command16_Click(Index As Integer)
num2 = Text1.Text
If op = «+» Then
Text1.Text = num1 + num2
ElseIf op = «-» Then
Text1.Text = num1 — num2
ElseIf op = «*» Then
Text1.Text = num1 * num2
ElseIf op = «/» Then
Text1.Text = num1 / num2
End If
End Sub

Private Sub Command17_Click()
End
End Sub

Private Sub Command2_Click()
Text1.Text = Text1.Text + «1»
End Sub

Private Sub Command3_Click()
Text1.Text = Text1.Text + «2»
End Sub

Private Sub Command4_Click()
Text1.Text = Text1.Text + «3»
End Sub

Private Sub Command5_Click()
Text1.Text = Text1.Text + «4»
End Sub

Private Sub Command6_Click()
Text1.Text = Text1.Text + «5»
End Sub

Private Sub Command7_Click()
Text1.Text = Text1.Text + «6»
End Sub

Private Sub Command8_Click()
Text1.Text = Text1.Text + «7»
End Sub

Private Sub Command9_Click()
Text1.Text = Text1.Text + «8»
End Sub

Предлагаю более компактный вариант на Visual Basic 2015 (форма, кнопки b0. b9,zap -имя кнопок запятая, plus-имя кнопки плюс, del-имя кнопки делить, richtextbox1-окно ввода)

Public Class Калькулятор
Dim k As Double : Dim d As Integer
Private Sub обработчик (sender As Object, e As EventArgs) Handles b0.Click, b1.Click, b2.Click, b3.Click, b4.Click, b5.Click, b6.Click, b7.Click, b8.Click, b9.Click, plus.Click, zap.Click, clear.Click
Dim b As Button = sender ‘получить событие нажатой кнопки
If RichTextBox1.Text = «0» Then
RichTextBox1.Text = b.Text
Else
If RichTextBox1.Text = «,» And RichTextBox1.Text = «» Then GoTo m1
RichTextBox1.Text = RichTextBox1.Text + b.Text
If RichTextBox1.Text = «» Then GoTo m1 ‘выход если нет числа
If b.Text = «+» Then d = 1 : k = RichTextBox1.Text : RichTextBox1.Text = «» ‘сложение
If b.Text = «C» Then k = 0 : RichTextBox1.Text = «» ‘сброс
End If
m1: End Sub
Private Sub Вычитание (sender As Object, e As EventArgs) Handles minus.Click
If RichTextBox1.Text = «» Then GoTo m1
d = 2 : k = RichTextBox1.Text : RichTextBox1.Text = «» ‘вычитание
m1: End Sub
Private Sub Умножение (sender As Object, e As EventArgs) Handles ymn.Click
If RichTextBox1.Text = «» Then GoTo m1
d = 3 : k = RichTextBox1.Text : RichTextBox1.Text = «» ‘умножение
m1: End Sub
Private Sub Деление (sender As Object, e As EventArgs) Handles del.Click
If RichTextBox1.Text = «» Then GoTo m1
d = 4 : k = RichTextBox1.Text : RichTextBox1.Text = «» ‘деление
m1: End Sub
Private Sub Ответ (sender As Object, e As EventArgs) Handles Равно. Click
If RichTextBox1.Text = «» Then GoTo m1 ‘выход если нет числа
Select Case d
Case Is = 1 : RichTextBox1.Text = k + RichTextBox1.Text ‘Сложение
Case Is = 2 : RichTextBox1.Text = k — RichTextBox1.Text ‘вычитание
Case Is = 3 : RichTextBox1.Text = k * RichTextBox1.Text ‘умножение
Case Is = 4 : If RichTextBox1.Text <> «» And RichTextBox1.Text <> «0» Then RichTextBox1.Text = k / RichTextBox1.Text ‘деление
End Select
m1: End Sub
End Class

Исходный код калькулятора на языке 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 раза в пустом месте формы и у Вас появится что-то вроде этого:

Private Sub Form_Load() End Sub

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

Private Sub Command1_Click() Dim a As Long Dim b As Long a = Text1.Text b = Text2.Text Text3.Text = a + b End Sub Private Sub Command2_Click() Dim a As Long Dim b As Long a = Text1.Text b = Text2.Text Text3.Text = a * b End Sub Private Sub Command3_Click() Dim a As Long Dim b As Long a = Text1.Text b = Text2.Text Text3.Text = a / b End Sub Private Sub Command4_Click() Dim a As Long Dim b As Long a = Text1.Text b = Text2.Text Text3.Text = a - b End Sub

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

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

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

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