Excel'de Visual Basic İle Hesap Makinesi Oluşturmak

Bu yazımda excel de visual basic kodlarını ve kontrollerini kullanarak sayfada hesap makinesi oluşturma işlemini anlatacağım.

Bu yazımda excel de visual basic kodlarını ve kontrollerini kullanarak sayfada hesap makinesi oluşturma işlemini anlatacağım.

Formun üzerindeki kontrolleri aşağıdaki gibi oluşturalım.



Caption: Formun üzerindeki kontrollere yazı yazmamızı sağlar.Caption özelliğini kullanarak kontrollari isimlendirelim.





Name:Butonların isimlerini değiştirir.Tüm butonların isimlerini değiştirelim.


Formun üzerindeki butonları tıklayıp.İşlevlerini kodlayalım.

TOPLAM BUTONU


Private Sub TOPLAM_Click()//TOPLAM Butonu Tıklandığında

TextBox3.Value = Val(TextBox1.Text) + Val(TextBox2.Text)//TextBox1'e yazılan değer ile TextBox2'e yazılan değeri topla TextBox3'e değer olarak ata

End Sub



FARKI BUTONU

Private Sub FARKI_Click()//FARKI Butonu Tıklandığında

TextBox4.Value = Val(TextBox1.Text) - Val(TextBox2.Text)//TextBox1'e yazılan değer ile TextBox2'e yazılan değerin farkını al TextBox3'e değer olarak ata

End Sub



ÇARPIMI BUTONU


Private Sub ÇARPIMI_Click()//ÇARPIMI Butonu Tıklandığında

TextBox5.Value = Val(TextBox1.Text) * Val(TextBox2.Text)//TextBox1'e yazılan değer ile TextBox2'e yazılan değeri çarp TextBox3'e değer olarak ata

End Sub




BÖLÜMÜ BUTONU


Private Sub BÖLÜMÜ_Click()//BÖLÜMÜ Butonu Tıklandığında

TextBox6.Value = Val(TextBox1.Text) / Val(TextBox2.Text)//TextBox1'e yazılan değer ile TextBox2'e yazılan değerin bölümünü al TextBox3'e değer olarak ata

End Sub




TEMİZLE BUTONU


Private Sub TEMİZLE_Click()

TextBox1.Text = ""//TextBox1'in içindeki yazılanı siler.

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

TextBox6.Text = ""



End Sub



ÇIKIŞ BUTONU


Private Sub ÇIKIŞ_Click()

UserForm1.Hide//Form1'i gizler.

End Sub



Formu Çalıştıralım.

Hesaplamaları doğru yaptığını görelim.



Temizleme işlemini gerçekleştirdiğini görelim.



Çıkış butonunu tıkladığımızda formu kapatacaktır.
  • Etiketler;
Yorum Yaz

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

Yukarı Git