vb hesap makinesi kodları arşivleri - Ertan Dönmez Ertan Dönmez Kişisel Blog Sitesi. Sun, 28 Mar 2010 16:17:36 +0000 tr hourly 1 https://wordpress.org/?v=7.0.2 VB Basit Bir Hesap Makinesi https://www.ertandonmez.org/vb-basit-bir-hesap-makinesi/ https://www.ertandonmez.org/vb-basit-bir-hesap-makinesi/#respond Sun, 28 Mar 2010 16:17:36 +0000 https://www.ertandonmez.org/?p=253 BASIT BIR HESAP MAKINESI VB’de program yazarken bilmeniz gereken temel ögelerden biride matematiksel operatörlerdir.Simdi basit bir hesap makinesi uygulamasi yaparak operatörlerin kullanim Sekillerini görebiliriz.Bu program vb’nin mantigini kavramaniza yardimci olacaktir.Programi yazmaya baslamadan önce forma 2 textbox,5 adet command button ve 1 label ekleyin gerekiyor.Buttonlarin caption özelliklerini sirasiyla topla,cikar,carp,bol ve kapat olarak degistirin. Sira geldi kodlari […]

VB Basit Bir Hesap Makinesi yazısı ilk önce Ertan Dönmez üzerinde ortaya çıktı.

]]> vb logo
BASIT BIR HESAP MAKINESI
VB’de program yazarken bilmeniz gereken temel ögelerden biride matematiksel operatörlerdir.Simdi basit bir hesap makinesi uygulamasi yaparak operatörlerin kullanim Sekillerini görebiliriz.Bu program vb’nin mantigini kavramaniza yardimci olacaktir.Programi yazmaya baslamadan önce forma 2 textbox,5 adet command button ve 1 label ekleyin gerekiyor.Buttonlarin caption özelliklerini sirasiyla topla,cikar,carp,bol ve kapat olarak degistirin. Sira geldi kodlari yazmaya….Buradan sonrasini kopyalayin:
Private Sub Command1_Click()
Dim ilk As Long
Dim son As Long ‘ilk ve son adli iki degisken tanimladik Dim sonuc As Long
ilk = Text1.Text
son = Text2.Text
sonuc = ilk + son ‘”+” verilen iki degiskeni toplar
Label1.Caption = sonuc
End Sub
Private Sub Command2_Click()
Dim ilk As Long
Dim son As Long
Dim sonuc As Long
ilk = Text1.Text
son = Text2.Text
sonuc = ilk – son ‘”-” cikarma operatörü
Label1.Caption = sonuc
End Sub
Private Sub Command3_Click()
Dim ilk As Long
Dim son As Long
Dim sonuc As Long
ilk = Text1.Text
son = Text2.Text
sonuc = ilk * son ‘*operatörü verilen iki degiskeni carpar
Label1.Caption = sonuc
End Sub
Private Sub Command4_Click()
Dim ilk ‘burada degiskenlerin türünü belirtmedim.bunu yapsaydım vb bütün bölme islemlerinde tam sonuç verecekti.Yani 5/2=2,5 değil 2 olacakti.
Dim son
Dim sonuc
ilk = Text1.Text
son = Text2.Text
sonuc = ilk / son ‘”/”bölme operatörü
Label1.Caption = sonuc
End Sub
Private Sub Command5_Click()
End
End Sub
Aslinda degiskenleri form load kismina
ekledigimiz taktirde formdaki her nesne bu degiskenleri tanir.Fakat bu sekilde yaptigimiz zaman sadece hangi nesnede tanimlanmissa o nesnede calisir.Yani bu degiskenleri command2 de tanimlamasaydik
command2nin bir islevi olmazdi.Daha anlasilir olmasi icin her nesnede ayri değisken tanimladim.
Program calistirilinca textboxlar bosken herhangi bir buttona basarsaniz program cökecektir.Bunu basit bir kodla giderebiliriz. Orasıda sizin programcılığınıza kalmış 😛

VB Basit Bir Hesap Makinesi yazısı ilk önce Ertan Dönmez üzerinde ortaya çıktı.

]]> https://www.ertandonmez.org/vb-basit-bir-hesap-makinesi/feed/ 0