Case İle Hesap Makinası Yapımı

Bu dersimizde Case Yapısı İle Hesap Makinası Yapımını Göstereceğiz .









Gerekli İtemler :
3 adet Textbox
1 Adet Combobox = Özelliklerinde İtem Bölümüne "Topla", "Çıkar", "Böl", "Çarp" Yazın .(Tırnak İşareti Olmadan)

1 Tane Daha Button Ekleyip Buttona Şu Kodları Girin !!!

Dim sayi1, sayi2, sayi3 As Double
        Dim islem As String
        sayi1 = TextBox1.Text
        sayi2 = TextBox2.Text
        islem = ComboBox1.Text
        Select Case islem
            Case "Topla"
                sayi3 = sayi1 + sayi2
            Case "cıkar"
                sayi3 = sayi1 - sayi2
            Case "Carp"
                sayi3 = sayi1 * sayi2
            Case "Böl"
                sayi3 = sayi1 / sayi2

        End Select
        TextBox3.Text = sayi3

Ogun Baysal