Nesneye dayali programlama...Dos tabanli yazilimlar gelistirdigimiz tarihlerde elimizde sadece degiskenlerimiz mevcuttu.String, integer .... Simdi ise arti olarak nesnelerimiz
mevcut.
Farki daha iyi anlatabilmek icin nesneye dayali yazilimlar’in akis diyagrami ile dos tabanli yazilimlarin akis diyagram’inin calisma farkina deginmek isterim.
Sema’da goruldugu gibi dos tabanli yazilimlarda yorumlama tek duzende gitmektedir, nesneye dayali yazilimda ise her obje icin bir akis diyagrami mevcuttur.Burada bahsettigimiz objeler ise commandbutton, label , textbox gibi objelerdir.
Nesneye dayali programlama 3 ana temel uzerine kurulmustur.
Property (ozellik) – Event (olay) – Method (islev)
Bir textbox’i ele alalim.
Textbox’in belli basli property’leri ...
Text : Textbox’in icine yazilacak deger.
Left : Textbox’in uzerinde bulundugu formun en sol kenarindan, textbox’in en sol kenarina olan uzaklik
Width : Textbox’in genisligi
Height : Textbox’in yuksekligi
Textbox’in belli basli event’leri ...
Click : Textbox uzerine mouse ile clicklendiginde calisir.
MouseMove : Textbox uzerinde mouse ile gezinildiginde calisir.
Textbox’in belli basli method’lari ...
Move : Textbox’i form uzerinde verilen koordinatlara konumlandirir.
Setfocus : Imleci textbox uzerine konumlandirir.
Iste nesneye dayali programlama tamamen bu objeler uzerine kurulmustur.
Vb’de kod baslica sub ve function’lar altina yazilir.Ornek olarak
Private Sub Text1_Click()
MsgBox "Textbox'a tikladiniz."
End Sub
Private sub’lar yazildigi modul icerisinde ,
Public sub’lar ise butun proje genelinde gecerlidir.
Bu kural functionlar icin de gecerlidir.
Isterseniz ikinci ornegimizi yapalim.
Bir hesap makinesi yazalim
Bunun icin kullanacagimiz objeler label,textbox,line ve commandbutton
Standart bir exe projesi acin.
Formun uzerine 3 label 3 textbox 1 line ve 1 command button objesi yerlestirin.
Objeleri asagidaki semada goruldugu gibi yerlestirin.
Formun Load sub’ina asagidaki kodu yazalim.
Private Sub Form_Load()
Form1.Caption = "Hesap makinesi"
Label1.Caption = "1.deger"
Label2.Caption = "2.deger"
Label3.Caption = "Toplam"
Command1.Caption = "Hesapla"
End Sub
Boylece form yuklenirken formun basligi “Hesap makinesi”, label’lar “1.deger” “2.deger” “toplam” ve commandbutton’un basligi “Hesapla” olarak atanacaktir.
Burada yapmamiz gereken islem Hesapla butonuna basildiginda text1 ve text2 textboxlari icindeki degerleri toplayip text3’e atamak.
Dolayisi ile kodumuzu command1_click altina yazacagiz
Private Sub Command1_Click()
Dim lngDeger1 As Long
Dim lngDeger2 As Long
Dim lngSonuc As Long
lngDeger1 = Val(Text1.Text)
lngDeger2 = Val(Text2.Text)
lngSonuc = lngDeger1 + lngDeger2
Text3.Text = lngSonuc
End Sub
Burada Command1_click sub’i icerisinde gecerli olacak 3 degisken tanimladik.
Ilk degerimize text1 icerisine girilen degeri atadik.
Ikinci degerimize de text2’ye girilen degeri atadik.
Dikkat ederseniz atama isleminde val fonksiyonunu kullandik.Val fonksiyonu
gonderilen string degeri numerik olarak geri dondurur.
Sonra text3’un text degerine lngdeger1 ve lngdeger2’nin toplamini atadik.
Evet hesap makinemiz hazir.
Bir sonraki dersimizde nesnelerin ozelliklerine ve belli basli vb fonksiyonlarina deginecegiz
0 yorum:
Yorum Gönder