Пришло время создать свой первый калькулятор  на Visual Basic.NET

Начнем! Создадим новый проект, добавим на форму шесть кнопок (Button), три текстовых полях(TextBox) и один Label1

Изменим текст кнопок :

  • У button1 - изменим свойства Text на +
  • У button2 - изменим свойства Text на -
  • У button3 - изменим свойства Text на *
  • У button4 - изменим свойства Text на /
  • У button5 - изменим свойства Text на Корень
  • У button6 - изменим свойства Text на Sin(синус)
  • У button7 - изменим свойства Text на Cos(косинус)
  • У Label1 - изменим свойства Text на Ответ

Вот что должно быть

yrokcalc Калькулятор на VB.NET

Полный код проекта:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text) ' Сложение
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text) ' Вычитание
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text) ' Умножение
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text) ' Деление
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox3.Text = Math.Sqrt(TextBox1.Text + TextBox2.Text) ' Корень
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox3.Text = Math.Sin(TextBox1.Text + TextBox2.Text) ' Синус
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox3.Text = Math.Cos(TextBox1.Text + TextBox2.Text) ' Косинус
    End Sub
End Class

Урок №2 - Переменные VB.NET   | Содержание | Урок №4 - Математические функции на VB.NET