Programcılığa İlk Adım

[celal_gozlek]

PROGRAMCILIGA ILK ADIM

Öncelikle Visual Basic programini CD den bilgisayarimiza kurariz. Programi açtigimizda karsimiza Standart seçeneginin isaretli oldugu bir pencere gelir. Bu bizim standart bir form açmamizi saglar. Sol tarafta ise formumuzda kullanabilecegimiz araçlar görürsünüz. Bu araçlardan bize gerekli olan eleman üzerinde tiklayip formumuzun üzerinde faremiz ile istedigimiz bir alana tiklayip bir kare veya dikdörtgen çizeriz. Formumuzun üzerinde elemanimizin olustugunu görürüz. Artik formumuzda bir elemanimiz vardir ve biz kod yazarak bu formumuzu kullanabiliriz. Diger elemanlari da ayni sekilde olusturabiliriz.

Programimizin nasil göründügünü görmek için yukarida araç çubuklarinda Run seçenegini görürsünüz. Tikladiginizda hazirladiginiz form (Yani program) çalismaya baslar. Isterseniz kaydedersiniz. Kaydettikten daha sonra da ayni programi açip içine kod yazabilirsiniz.

BERABER BIR PROGRAM YAZALIM :

Öncelikle nasil bir program yapacagimizi belirlememiz gerekiyor.
Biz bir okuldaki ögrencilerin bilgilerini yazabilecegimiz bir program yazalim.
Programimizda:
1) Okul numarasi
2) Ögrencinin sinifi
3) Adi
4) Soyadi
5) Baba Adi
6) Ana Adi
7) Adresi
T.C. Kimlik numarasi
olacak diyelim.
Biz ögrencilerimizin bilgilerini hem kaydedelim görelim, hem de silelim.
Bunun için önce:
Visiual Basic Programimizi çalistiralim.
1) Standart EXE seçili bir form açalim.

2) Formumuzu Mouse ile köseden tutup çekerek biraz genisletelim.

3) Formumuzun üstüne yukaridaki bilgileri girebilecegimiz 8 tane TextBox koyalim.(Form üzerine elemanlari koymak için önce Mouse ile eleman üzerine tiklayin.Daha sonra da form üzerine Mouse un sol tusu ile basili tutup çekin.Tipki alan tarar gibi.)

4) Formumuzun üzerine (kayit yapmak, listelemek, silmek, için)3 tane CommandButton ekleyelim. (Yine ayni sekilde Mouse ile çekerek.)

5) Formumuzun üzerine bir tane ListBox koyalim.(Bilgileri listelemek için)

6) Form üzerine koydugumuz TextBox lari ve CommandButton lari birbirleri üzerine gelmeyecek sekilde yerlestirelim.

7) Yerlestirdigimiz Buttonlarin üzerinde CommandButton1 gibi yazilarin oldugunu görürsünüz.Bu yazilar ve rakamlar o elemanin kimlik bilgisi gibidir.Biz CommandButton1 üzerine çift tiklarsak karsimiza kodlari yazabilecegimiz bir alan çikar.Bizim için önemli olan burasidir.Eleman üzerine tikladigimiz için karsimiza söyle bir yazi çikmistir:

Private Sub Command1_Click()
Bizim kod alanimiz.
End Sub

Evet.Programimiz bizim kod yazmamizi bekliyor demektir.
Bu Command1 bizim kayit tusumuz olsun. (Yani bu tusa bastigimizda bilgiler bilgisayarimiza kaydedilsin.)
Kayit yapabilmemiz için bir yer,bir dosya adi vermemiz gerekir. Biz C: sürücüsü içine okul1 adinda bir dosya olusturalim.

Peki bu nasil olur?
Kod alanimiza su kodu yazalim:
Open “C:\okul1.txt” For Append As #1
Bu kod C:sürücüsü içinde okul1 adli bir metin sayfasi olusturur. (Eger orada varsa onu kullanir.) Ve kayit yapmak için açar.
Simdi bu dosya içine bilgilerimizi kaydetmek için hazirlik yapalim.
a) TextBox1 okul numarasi,
b) TextBox2 ögrencinin sinifi,
c) TextBox3 adi,
d) TextBox4 soyadi,
e) TextBox5 babaadi,
f) TextBox6 anaadi
g) TextBox7 adresi
h) TextBox8 kimlik no
alanlarimiz olsun. Biz bu alanlari kayit yapmak için tanitalim.Kod alanimizin tamami:
Private Sub Command1_Click()
numara=Text1
sinif=Text2
adi=Text3
soyadi=Text4
babaadi=Text5
anaadi=Text6
adres=Text7
kimlik=Text7
Open “C:\okul1.txt” For Append As #1
Write #1,numara,sinif,adi,soyadi,babaadi,anaadi,adres,kimlik
Close #1
End Sub
Seklinde yazdigimizda :
Dosya açilip TextBox içindeki yazilar kaydedilmis ve dosya kapatilmis olur. Biz kayit tusunun görevini belirlemis olduk. Yani dosya açip kayit yaptik.

Simdi de kaydettigimiz bilgileri listeleyelim. Bizim 2 numarali buttonumuz listeleme tusumuz olsun. Bu tusa form üzerinde yine çift tiklarsak yeni bir kod alani açilir. Söyle:
Private Sub Command2_Click()

End Sub

Biz ayni sekilde kod alanimiza asagidaki kodu yazarsak daha önce kaydettigimiz bilgiler listelenir.
Private Sub Command2_Click()
Open “C:\okul1.txt” For Input As #1
Do While Not EOF(1)
Input #1,numara,sinif,adi,soyadi,babaadi,anaadi,adres,kimlik
List1.AddItem adi + “-“ + soyadi
Loop
Close #1
End Sub

Burada dikkatinizi çekerse önceki kodumuzda For Append diye yazmistik. Oysa burada
For Input diye yazdik. Çünkü: Önce yazmak için açtik, simdi ise okumak için açtik.

List1.AddItem ad + “-“ + soyad kodu ile de listemizde ad-soyadin görünmesini sagladik.
Ben sadece ad-soyad olarak yazdim. Siz diger bilgilerden sinifini da ekleyebilirsiniz.

Tabi ki aralarinda + isaretinin olmasina dikkat etmelisiniz.

Buraya kadar kayit ve listeleme islemini yaptik. Simdi de listemizden seçecegimiz bir ismin ayrintili bilgilerini görelim.

Bunun için List1’i çift tiklayalim.

Karsimiza:

Private Sub List1_Click()

End Sub

Diye yeni bir kod alanimiz çikti.Buraya asagidaki kodu yazalim.

Private Sub List1_Click()
Open “C:\okul1.txt” For Input As #1
Do While Not EOF(1)
Input #1,numara,sinif,adi,soyadi,babaadi,anaadi,adres,kimlik
If List1= adi + “-“ + soyadi Then
Text1= numara
Text2= sinif
Text3= adi
Text4= soyadi
Text5= babaadi
Text6= anaadi
Text7= adres
Text7= kimlik
End If
Loop
Close #1
End Sub

Yukaridaki kodlarla listemizden seçtigimiz bir ismi dosyadaki isimle karsilastirip TextBox lara aktardik.

If List1= adi + “-“ + soyadi Then kodu karsilastirma yapmamizi sagliyor. Neyi karsilastiracaksak If ……. Then arasina yaziyoruz.

Biz örnegin liste ile dosyadaki adi ve soyadi karsilastirdik. ( List1= adi + “-“ + soyadi)

Aslinda okul numaralari her ögrenci için farkli olacagi için onu yazabilirdim.Daha kolay olurdu. Fakat ben numaralar disindaki ihtimalleri de düsünerek size kod ögretmek istedim.

Simdi de seçilen bir kaydin nasil silindigini görelim:


Bunun için CommandButton3 ü kullanalim.Ve kod alanimiza:

Private Sub Command3_Click()
Open “C:\okul1.txt” For Input As #1
Open “C:\geçiciokul2.txt” For Output As #2
While EOF(1) = False
Input #1,numara,sinif,adi,soyadi,babaadi,anaadi,adres,kimlik
If Text1<>numara Then
Write #2, numara,sinif,adi,soyadi,babaadi,anaadi,adres,kimlik
End If
Wend
Close #1
Close #2
Kill “C:\okul1.txt”
Name “C:\geçiciokul2.txt” As “C:\okul1.txt”
End Sub

Seklinde kod yazalim. Burada Open “C:\geçiciokul2.txt” For Output As #2 seklinde kod var.
Bunun özelligi For Output tan kaynaklaniyor.Dosyayi içinde ne varsa silerek açmaya yariyor.
Dikkat ederseniz önce yazmak, okumak için açtik.
Burada olan olay sudur:
Dosya açilir, okunur listeye aktarilir, listeden seçilip TextBox lara aktarilir. TextBox ile dosya karsilastirilir, farkli olanlar geçici olarak bos bir dosyaya kaydedilir, önceki dosya silinir ve geçici olan dosyanin adi degistirilir. Tam olarak yapilan is ve mantigi budur.
Kisacasi seçtigimizin disindakiler baska bir dosyaya kaydedilir.

If Text1<>numara Then buradan da görebilirsiniz.<> isareti farkli demektir.

Kill “C:\okul1.txt” (Dosyanin silinmesini sagliyor)
Name “C:\geçiciokul2.txt” As “C:\okul1.txt”(Geçici olarak olusturulan dosyanin adi degistiriliyor.)

Programin kodlarini Birlestirirsek:

Private Sub Command1_Click()
numara=Text1
sinif=Text2
adi=Text3
soyadi=Text4
babaadi=Text5
anaadi=Text6
adres=Text7
kimlik=Text7
Open “C:\okul1.txt” For Append As #1
Write #1,numara,sinif,adi,soyadi,babaadi,anaadi,adres,kimlik
Close #1
End Sub

Private Sub Command2_Click()
Open “C:\okul1.txt” For Input As #1
Do While Not EOF(1)
Input #1,numara,sinif,adi,soyadi,babaadi,anaadi,adres,kimlik
List1.AddItem adi + “-“ + soyadi
Loop
Close #1
End Sub

Private Sub List1_Click()
Open “C:\okul1.txt” For Input As #1
Do While Not EOF(1)
Input #1,numara,sinif,adi,soyadi,babaadi,anaadi,adres,kimlik
If List1= adi + “-“ + soyadi Then
Text1= numara
Text2= sinif
Text3= adi
Text4= soyadi
Text5= babaadi
Text6= anaadi
Text7= adres
Text7= kimlik
End If
Loop
Close #1
End Sub

Private Sub Command3_Click()
Open “C:\okul1.txt” For Input As #1
Open “C:\geçiciokul2.txt” For Output As #2
While EOF(1) = False
Input #1,numara,sinif,adi,soyadi,babaadi,anaadi,adres,kimlik
If Text1<>numara Then
Write #2, numara,sinif,adi,soyadi,babaadi,anaadi,adres,kimlik
End If
Wend
Close #1
Close #2
Kill “C:\okul1.txt”
Name “C:\geçiciokul2.txt” As “C:\okul1.txt”
End Sub

Artik Araç çubuklarindaki Start tusuna basip programinizi çalistirabilirsiniz. Programi exe dosyasi haline getirmek için File menüsündeki Make_Project seçenegini kullanin. Istediginiz yere uygulama dosyasi olarak kaydedecektir. Oradan da alip baska bir bilgisayarda bile kullanabilirsiniz. Unutmayin, programcilik zevklidir. Ilerletmeniz kendi elinizdedir.