[font=Verdana, Tahoma,]
[/FONT]
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;
Çarp butonuna yazılacak kodlar ;
Çıkar butonuna yazılacak kodlar;
Böl butonuna yazılacak kodlar;
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;
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;
Bağlantıları görmek için lütfen
Giriş Yap
1
2
Kod:
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Kod:
Label1.Caption =
Kod:
"+"Çarp butonuna yazılacak kodlar ;
Bağlantıları görmek için lütfen
Giriş Yap
1
2
Kod:
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Kod:
Label1.Caption =
Kod:
"*"Çıkar butonuna yazılacak kodlar;
Bağlantıları görmek için lütfen
Giriş Yap
1
2
Kod:
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Kod:
Label1.Caption =
Kod:
"-"Böl butonuna yazılacak kodlar;
Bağlantıları görmek için lütfen
Giriş Yap
1
2
Kod:
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
Kod:
Label1.Caption =
Kod:
"/"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;
Bağlantıları görmek için lütfen
Giriş Yap
1
Kod:
Text3.Text = Sqr(Val(Text3.Text))
