Visual Basic 2010 Hesap Makinası Yapma
Visual Basic 2010 Hesap Makinası Yapma
DERS 4
Arkadaşlar bu dersimizde Küçük bir hesap makinası yapacağız. Önceki derslerimizde açıkladığımız konuları tekrar açıklamak istemiyorum. 2 sayının toplamında farkı olarak bu derste değişkenlerimizi en üstte tanımladık ve Veri tiplerini Double olarak belirledik. Bunu yapmamızın sebebi her buton Click olayında tekrar tekrar değişken tanımlamadan kurtulmaktır.. Tek seferde aşağıda görüldüğü gibi tanımlaya biliriz.
Formumuz Şu şekilde düzenledik.
Kodlarımız şu şekildedir. Her butona tıklandığında neler yapması gerektiğini o butonun click olayına yazıyoruz.
----------------------------------------------------------------------
Public Class Form1
Dim sayi1, sayi2 As Double
Private Sub Button1_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles Button1.Click
sayi1 = TextBox1.Text
sayi2 = TextBox2.Text
TextBox3.Text = sayi1 + sayi2
Label6.Text = "Toplama İşlemi Yaptın"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles Button2.Click
sayi1 = TextBox1.Text
sayi2 = TextBox2.Text
TextBox3.Text = sayi1 - sayi2
Label6.Text = "Çıkarma İşlemi Yaptın"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles Button3.Click
sayi1 = TextBox1.Text
sayi2 = TextBox2.Text
TextBox3.Text = sayi1 * sayi2
Label6.Text = "Çarpma İşlemi Yaptın"
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles Button4.Click
sayi1 = TextBox1.Text
sayi2 = TextBox2.Text
TextBox3.Text = sayi1 / sayi2
Label6.Text = "Bölme İşlemi Yaptın"
End Sub
End Class
----------------------------------------------------------------------
Burda farklı olarak Label ekledik ve her butona tıklandığında label.text özelliğini değiştirdik. hepsi bu.
Sonucumuza bakalım. Programı F5 tuşuyla çalıştıralım..
İyi çalışmalar.