Visual Basic 2010 Hesap Makinası Yapma

05.11.2013 11:56

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.ObjectByVal eAs System.EventArgsHandles 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.ObjectByVal eAs System.EventArgsHandles 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.ObjectByVal eAs System.EventArgsHandles 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.ObjectByVal eAs System.EventArgsHandles 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.