Калькулятор на VB.NET
Пришло время создать свой первый калькулятор на Visual Basic.NET
Начнем! Создадим новый проект, добавим на форму шесть кнопок (Button), три текстовых полях(TextBox) и один Label1
Изменим текст кнопок :
- У button1 - изменим свойства Text на +
- У button2 - изменим свойства Text на -
- У button3 - изменим свойства Text на *
- У button4 - изменим свойства Text на /
- У button5 - изменим свойства Text на Корень
- У button6 - изменим свойства Text на Sin(синус)
- У button7 - изменим свойства Text на Cos(косинус)
- У Label1 - изменим свойства Text на Ответ
Вот что должно быть
Полный код проекта:
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