Case yapısıyla hesap makinesi yapma

Bu dersimizde Case yapısıyla hesap makinesi yapmayı öğreneceğiz.

Bu dersimizde Case yapısıyla hesap makinesi yapmayı öğreneceğiz.

3 textbox ve 1 adet combobox ekleyin. Ve combobox Item özelliğine girin, Topla, Çıkar, Çarp, Böl yazın.

Bir de button ekleyin ve butona şu kodu yazın:


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

  • Etiketler;
Azad.bilal Azad.bilal
Sanalkurs.net
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

[b]Paylasım ıcn teskkur ederz elınze saglık ama denedım textbox3 e deger 0 yazıyor neden sızce ? [/b][i][/i]
işlemleri doğru yaptığından emin misin?
ben yaptım hiç hata yok

Yukarı Git