Hesap Makinesi

Formumuza 3 tane textbox ve 1 tane combobox,3 tane label ve 2 tanede buton ekliyoruz.Label'ın birine 1.sayı diğerine 2.sayı ve üçüncüsünede işlem yazıyoruz.1. sayı yazan textbox1'in üst kısmına 2.sayı yazantextbox2'nin üst kısmına diğerini de combobox'ın üst kısmına yerleştiriyoruz. 1.Butona hesapla 2.butonada temizle yazıyoruz.
Public Class Form1
Dim sayi, sayi1 As Double

Public Class Form1
Dim sayi, sayi1 As Double
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sayi = Val(TextBox1.Text)
sayi1 = Val(TextBox2.Text)
If ComboBox1.Text = "+" Then
TextBox3.Text = sayi + sayi1
End If
If ComboBox1.Text = "-" Then
TextBox3.Text = sayi - sayi1
End If
If ComboBox1.Text = "*" Then
TextBox3.Text = sayi * sayi1
End If
If ComboBox1.Text = "/" Then
TextBox3.Text = sayi / sayi1
End If
If ComboBox1.Text = "" Then
MessageBox.Show("Lütfen yapacağınız işlemi seçiniz", "UYARI")
End If
If TextBox1.Text = "" Then
MessageBox.Show("Lütfen birinci sayıyı giriniz...", "UYARI")
End If
If TextBox2.Text = "" Then
MessageBox.Show("Lütfen ikinci sayıyı giriniz...", "UYARI")
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add("+")
ComboBox1.Items.Add("-")
ComboBox1.Items.Add("*")
ComboBox1.Items.Add("/")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
ComboBox1.Text = ""
End Sub
End Class