VB 6.0 Hesap Makinesi

Bügünün Yemeği Visual Basic 2008 Hesap Makinesi

Programımızın ön yüzü yukarıdaki gibi olacak

Şimdi teker teker butonlara neler yazılacağını anlatacam ama burda bir ayrıntıda  herhangi bir butona bastığın zaman text1 ile text2 arasındaki labele o işlemin işareti gelecek örneğin;  topla butonuna bastığım zaman iki sayıyı toplayacak ve aynı anda labele “+” işareti koyacak.

Topla butonuna yazılacak kodlar;

Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Label1.Caption = "+" 

Çarp butonuna yazılacak kodlar ; 

Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Label1.Caption = "*"

Çıkar butonuna yazılacak kodlar;

Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Label1.Caption = "-" 

Böl butonuna yazılacak kodlar;

Text3.Text = Val(Text1.Text) / Val(Text2.Text)
Label1.Caption = "/" 

Karekök butonu ise text3 içindeki sayının karekökünü alıp yine text3 e yazdıracak.

Karekök butonuna yazılacak kodlar;

Text3.Text = Sqr(Val(Text3.Text))

Google + Pls Beyler :)