Basit hesap makinesi yapımı örnek (Visual Basic örnek) VB 6.0

Visual Basic de basit bir hesap makinesi yapımı.

00

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;

[code=’VB’]Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Label1.Caption = “+”[/code]

Çarp butonuna yazılacak kodlar ; 

[code=’VB’]Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Label1.Caption = “*”[/code]

Çıkar butonuna yazılacak kodlar;

[code=’VB’]Text3.Text = Val(Text1.Text) – Val(Text2.Text)
Label1.Caption = “-” [/code]

Böl butonuna yazılacak kodlar;

[code=’VB’]Text3.Text = Val(Text1.Text) / Val(Text2.Text)
Label1.Caption = “/” [/code]

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;

[code=’VB’]Text3.Text = Sqr(Val(Text3.Text))[/code]

Yorumlar 39

Bir yanıt yazın

E-posta adresiniz yayınlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir