|
Sıralı dosyada kayıt ekleme, kayıt listeleme, kayıt arama, kayıt silme işlemlerini menü yardımı ile gerçekleştirmek amacıyla telefon rehberi programını yapalım. Telefon rehberi için Ad, Soyad ve Telefon Numarası bilgilerini saklayacaktır.
Şimdi uygulamaya ait kodları yazalım.
Module Module1
Sub Main()
Dim cevap As Integer
Dim ad, soy As String
Dim Xad, Xsoy As String
Dim tel As String
Do
Console.Clear()
Console.WriteLine("TELEFON REHBERİ")
Console.WriteLine("1 - Yeni Kayıt Ekle")
Console.WriteLine("2 - Arama")
Console.WriteLine("3 - Listeleme")
Console.WriteLine("4 - Kayıt Silme")
Console.WriteLine("5 - ÇIKIŞ")
cevap = Console.ReadLine()
Select Case cevap
Case 1
'kayıt ekleme
FileOpen(1, "rehber.txt", OpenMode.Append)
Do
Console.Write(" isim : ")
ad = Console.ReadLine()
If ad = "" Then Exit Do
Console.Write(" soyad : ")
soy = Console.ReadLine()
Console.Write(" telefon numarası : ")
tel = Console.ReadLine()
Write(1, ad)
Write(1, soy)
WriteLine(1, tel)
Loop
FileClose(1)
Case 2
'kayıt arama
FileOpen(1, "rehber.txt", OpenMode.Input)
Console.Write(" isim : ")
Xad = Console.ReadLine()
Console.Write(" soyad : ")
Xsoy = Console.ReadLine()
Do Until EOF(1)
Input(1, ad)
Input(1, soy)
Input(1, tel)
If Len(Xad) > 0 Then
If InStr(1, ad, Xad) > 0 Then
Console.WriteLine("{0} {1} {2}", ad, soy, tel)
End If
End If
If Len(Xsoy) > 0 Then
If InStr(1, soy, Xsoy) > 0 Then
Console.WriteLine("{0} {1} {2}", ad, soy, tel)
End If
End If
Loop
Console.ReadLine()
FileClose(1)
Case 3
'Listeleme
FileOpen(1, "rehber.txt", OpenMode.Input)
Do Until EOF(1)
Input(1, ad)
Input(1, soy)
Input(1, tel)
Console.WriteLine("{0} {1} {2}", ad, soy, tel)
Loop
Console.ReadLine()
FileClose(1)
Case 4
Case 5
Exit Do
Case Else
Console.WriteLine("hatalı giriş")
End Select
Loop
FileOpen(1, "rehber.txt", OpenMode.Append)
End Sub
End Module
|