Visual basic калькулятор: visual basic калькулятор

visual basic калькулятор

По просьбе DenJoy«я сегодня мы будем делать калькулятор. Это наверно самое простое, что может быть вBasic»е =), т.к. там используются обычные знаки. Конечно это все легко, но я понимаю DenJoy, когда он не знает, как это делать. Я сам очень недавно был таким. Все хватит ! Приступаем к программированию. Для начала посмотрим вид калькулятора, он должен быть примерно такой:

 В верхнее левое текстовое поле будут писаться цифры. В правое — выбраный знак. Ну и в низу кнопки с цифрами.

Заготовка: 

   1. Два текстовых поля с именамиText1 и Text2. У них свойство Enabled поставьте равным False, чтобы их нельзя было изменять.

 2. Пятнадцать кнопок с их стандартными номерами. Но предупреждаю !!! У меня они

 идут не попорядку, так что лучшескачайте мой калькулятор с исходниками, чтобы посмотреть какой номер у каждой кнопки!

Теперь пишем код:

» Вводим две переменные, для присвоения им значений, которые мы введем на калькуляторе
Dim a As String
Dim b As String

Private Sub Command1_Click()
» При нажа на кнопку с цифрой «1», в текстовом поле появится «1»
Text1. Text = Text1.Text & «1»
End Sub

Private Sub Command11_Click()

» После нажатия на «*», присваиваем переменной «a» число из текстового поля №1

a = Text1.Text

» В маленькое текстовое поле, пишем знак «*»
Text2.Text = «*»

» Отчищаем тексотовое поле №1
Text1.Text = «»
End Sub

 

Private Sub Command12_Click()

» При нажатии на «=», присваиваем переменной «b» второе значение, но тоже из текстового поля №1
b = Text1.Text

» Смотрим, какой знак в текстовом поле №2 и делаем нужное действие
If Text2.Text = «*»Then
Text1.Text = a * b
End If
If Text2.Text = «/» Then
Text1.Text = a / b
End If
If Text2.Text = «-» Then
Text1.Text = a — b
End If
End Sub

 

Private Sub Command13_Click()

» Отчищаем все текстовые поля
Text1.Text = «»
Text2.Text = «»
End Sub

 

Private Sub Command14_Click()
» После нажатия на «-«, присваиваем переменной «a» число из текстового поля №1

a = Text1. Text
Text2.Text = «-«
Text1.Text = «»
End Sub

 

Private Sub Command15_Click()
» После нажатия на «/», присваиваем переменной «a» число из текстового поля №1

a = Text1.Text
Text2.Text = «/»
Text1.Text = «»
End Sub

 

» Все что ниже можно откоментировать одинаково: при нажатии на кнопку с определенной цифрой, она отабражается в текстовом поле №1

 

Private Sub Command2_Click()
Text1.Text = Text1.Text & «5»
End Sub

 

Private Sub Command3_Click()
Text1.Text = Text1.Text & «4»
End Sub

 

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

 

Private Sub Command5_Click()
Text1.Text = Text1.Text & «2»
End Sub

 

Private Sub Command6_Click()
Text1.Text = Text1.Text & «6»
End Sub

 

Private Sub Command7_Click()
Text1. Text = Text1.Text & «0»
End Sub

 

Private Sub Command8_Click()
Text1.Text = Text1.Text & «9»
End Sub

 

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

 

Private Sub Command10_Click()
Text1.Text = Text1.Text & «7»
End Sub

 

 

Вот, в принципе, и все. Калькулятор готов к использованию. Я сделал его минут за 5-7. Так что можете поэкспериментировать, даже если у вас очень мало времени =). Еще раз настоятельно рекомендаюскачать мой калькулятор, чтобы знать какая кнопка, что обозначает.

Исходный код калькулятора на языке Visual Basic | Info-Comp.ru

Всем привет, сегодня в материале мы с Вами напишем маленькую программку на языке программирования 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. В следующих уроках мы уже будем писать программы немного посложней.

Практическое руководство. Вычисление числовых значений — Visual Basic

Обратная связь

Редактировать

Твиттер

LinkedIn

Фейсбук

Эл. адрес

  • Статья
  • 2 минуты на чтение

Вы можете вычислять числовые значения с помощью числовых выражений. Числовое выражение — это выражение, содержащее литералы, константы и переменные, представляющие числовые значения, и операторы, действующие на эти значения.

Вычисление числовых значений

Чтобы вычислить числовое значение

  • Объедините один или несколько числовых литералов, констант и переменных в числовое выражение. В следующем примере показаны некоторые допустимые числовые выражения.

    93.217

    System.Math.PI

    счетчик

    4 * (67 + я)

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

    Обратите внимание, что числовое выражение само по себе не образует полный оператор Visual Basic. Вы должны использовать выражение как часть полного оператора.

Чтобы сохранить числовое значение

  • Вы можете использовать оператор присваивания, чтобы присвоить значение, представленное числовым выражением, переменной, как показано в следующем примере.

     Dim i как целое число = 2
Dim j как целое число
j = 4 * (67 + i)

    В предыдущем примере значение выражения в правой части оператора равенства ( = ) присваивается переменной j в левой части оператора, поэтому j оценивается как 276.

    Дополнительные сведения см. в разделе Операторы.

Несколько операторов

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

Для отмены обычного приоритета операций

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

     Dim i As Integer = 2
Dim j, k как целое число
j = 4 * (67 + i)
к = 4 * 67 + я

    В предыдущем примере вычисление j сначала выполняет оператор сложения ( + ), потому что круглые скобки вокруг (67 + i) отменяет обычный приоритет, а значение, присвоенное j , равно 276 (4 раза по 69). Вычисление для k выполняет операторы в их обычном порядке ( * перед + ), а значение, присвоенное k , равно 270 (268 плюс 2).

    Дополнительные сведения см. в разделе Приоритет операторов в Visual Basic.

См. также

  • Операторы и выражения
  • Сравнение значений
  • Заявления
  • Приоритет оператора в Visual Basic
  • Арифметические операторы
  • Эффективная комбинация операторов

Обратная связь

Отправить и просмотреть отзыв для

Этот продукт

Эта страница

Просмотреть все отзывы о странице

Научный калькулятор, созданный с помощью Visual Basic — Учебное пособие по Visual Basic

Назад к кодам примеров VB6

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

Для разработки интерфейса нам просто нужно изменить интерфейс базового калькулятора, который мы создали ранее с помощью Visual Basic 6.  В этом калькуляторе мы добавили еще пять кнопок, это Sin, Cos, Tan, Log и Лн. Общими тригонометрическими функциями в Visual Basic 6 являются Sin, Cos, Tan и Atn.

а) Sin — это функция, которая вычисляет значение синуса угла в радианах.
b) Cos — функция, вычисляющая значение косинуса угла в радианах.
c) Тангенс – это функция, которая вычисляет значение тангенса угла в радианах.
d) Atn — функция, вычисляющая значение арктангенса угла в радианах.

Log вычисляет значение логарифма по основанию 10, в то время как Ln вычисляет значение натурального логарифма.

Угол в градусах необходимо преобразовать в радианы, прежде чем его можно будет вычислить с помощью приведенных выше тригонометрических функций. Из школьной математики мы знаем, что π радиан эквивалентно 180°; что означает, что 1 радиан эквивалентен π, деленному на 180. Следовательно, чтобы преобразовать угол x из градусов в радианы, мы должны умножить x на (π/180). Однако есть небольшая проблема, поскольку получить точное значение π довольно сложно, к счастью, в VB есть способ сделать это. Прежде всего, мы знаем, что арктангенс, равный 1, вернет значение 45°, равное π/4 радиана. Итак, чтобы получить значение π, просто умножьте арктангенс 1 на 4. Теперь мы готовы ввести код для всех вышеперечисленных дополнительных кнопок.

Для кнопки Sin введите следующий код:

Private Sub CmdSin_Click()

sinx = Round(Sin(displayValue * 4 * Atn(1) / 180), 4)
panel.Caption = sinx

End Sub

* Функция Round предназначена для корректировки вывода до определенного количества знаков после запятой.