Kodlar burada beyler:

Toolboxlar.
4 label
3 textbox
2 button
1 combobox



Kod:
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("Lutfen yapacağınız işlemi seciniz", "UYARI") End If If TextBox1.Text = "" Then MessageBox.Show("Lutfen birinci sayıyı giriniz...", "UYARI") End If If TextBox2.Text = "" Then MessageBox.Show("Lutfen 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

__________________