Bir program yazalım

[celal_gozlek]

ArkadaÅŸlar,
Diyelim ki,yakınlarımızın doğum günlerini isimleriyle beraber kaydetip sonra da baktığımızda kimin doğum günüymüş öğreneceğiz.
Ä°ÅŸte basit bir program.
Basic'te standart bir form açıyoruz.
Formumuza iki tane CommandButton,bir tane Label ve bir tane de ListBox ekliyoruz.

Formda:
Label1 (Program açılınca otomatik olarak tarih yazıyor)
Textbox1 (ad)
Textbox2 (soyad)
Textbox3 DoÄŸum tarihi)
List1 (Bu listede hem kayıtlı olan kişileri görebilirsinz,hem de doğum günü olan kişilerin adve soyadlarını görebilirsiniz.)
Command1 (Kayıt yapmanı sağlar)
Command2 (Doğum günü olan kişileri listelemenizi sağlar)

Ä°ÅŸte tam olarak kodlar:

Private Sub Form_Load()
Label1.Caption = Date
Open "C:\dosya1.txt" For Append As #1
Close #1
List1.Clear
Open "C:\dosya1.txt" For Input As #1
Do While Not EOF(1)
Input #1, ad, soyad, tarih
List1.AddItem ad + "-" + soyad
Loop
Close #1
End Sub
Private Sub Command1_Click()
ad = Text1
soyad = Text2
tarih = Text3
Open "C:\dosya1.txt" For Append As #1
Write #1, ad, soyad, tarih
Close #1
List1.Clear
Open "C:\dosya1.txt" For Input As #1
Do While Not EOF(1)
Input #1, ad, soyad, tarih
List1.AddItem ad + "-" + soyad
Loop
Close #1
End Sub

Private Sub Command2_Click()
List1.Clear
Open "C:\dosya1.txt" For Input As #1
Do While Not EOF(1)
Input #1, ad, soyad, tarih
If tarih = Label1 Then
List1.AddItem ad + "-" + soyad
End If
Loop
Close #1
End Sub

Umarım üzerinde alıştırmalar yaparsınız.Kolay gelsin.

[ahmetdemirci73]

saloasın ellerin dert görmesin
_________________
<marquee width="570" height="26"> [FONT="Comic Sans MS"][SIZE="5"]***** BÄ°LGÄ° PAYLAÅžILDIKCA BÃœYÃœR****[/SIZE][/FONT]</marquee>