Visual Basic 2010 Hesap Makinası Yapma

[Berkay Tosun]

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 AsDouble​

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 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 e As 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 e As 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 e As 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.​