Full Versiyonu Görmek İçin Tıklayınız ---> Hesap Makinesi

Yardım Arama Üye Listesi Msn Al

Private Sub Command1_Click()


Label4.Caption = "+" 'Labelin ismini değiştiriyoruz'


Text3.Text = Val(Text1) + Val(Text2) 'İşlemi yaptırıyoruz'


End Sub

Private Sub Command2_Click()


Label4.Caption = "-" 'Labelin ismini değiştiriyoruz'


Text3.Text = Val(Text1) - Val(Text2) 'İşlemi yaptırıyoruz'


End Sub

Private Sub Command3_Click()


Label4.Caption = "*" 'Labelin ismini değiştiriyoruz'


Text3.Text = Val(Text1) * Val(Text2) 'İşlemi yaptırıyoruz'


End Sub
Private Sub Command4_Click()


If Val(Text2) = 0 Then 'Burada text2 kontrol ediliyor eğer 0 ise hata mesajı veriyor değilse işlemi yapıyor'


MsgBox "Veri Hatası", , "Sıfıra Bölünme Hatası"


Else


Label4.Caption = "/" 'Labelin ismini değiştiriyoruz'


Text3.Text = Val(Text1) / Val(Text2) 'İşlemi yaptırıyoruz'


End If


End Sub
Private Sub Command5_Click()


Text1.Text = ""


Text2.Text = ""


Text3.Text = ""


Label4.Caption = ""


End Sub