Vb.NET Desktop

Telefon Rehberi Programını Sıralı Dosya İle Oluşturan Programı VbNet (Windows Console) İle Kodlayınız

Yeni bir Programlama Temelleri dersi makalesi ile birlikteyiz.

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

İlgili Makaleler
Telefon Rehberi Programını Sıralı Dosya İle Oluşturan Programı VbNet (Windows Console) İle Kodlayınız
Girilen Üç Sayıyı Vb.Net Console Uygulamasında Sıralama İşlemi
Faktöriyel Hesabı Yapan Vb.Net Windows Form Uygulaması
Formun Üzerine Çizgi ve Dikdörtgen Çizen Vb.Net Uygulamasını Yapınız
Tetris Oyununu Vb.NET Dilini Kullanarak Form Sayfasında Kodlama3
Tombala Oyunu Yapan Uygulamayı Vb.Net İle Kodlayınız
Rastgele Farklı Karakterlerde Vb.Net Console Uygulamasında Şifre Oluşturma
Girilen Ayın Hangi Mevsime Ait Olduğunu Vb.Net Console Uygulamasını Yapma
Girilen İki Sayıyı Vb.Net Console Uygulamasında Toplama İşlemi
Local IP Adresini ve Bilgisayar Adını Bulan Vb.Net Uygulaması
İlk 10 Karakteri Dikkate Alarak Şifre Oluşturan Vb.Net Console Uygulaması
İsmi artan harfler şeklinde aynadaki görüntüsü gibi yazdıran Vb.Net Console Uygulaması
Zar Atma Oyununu Yapan Vb.Net Console Uygulaması
1 ile 10 Arasındaki Sayıyı Do Döngüsüyle Gösteren Vb.Net Console Uygulaması
Kelime içinde belirli bir harften kaç adet olduğunu bulan Vb.Net Console Uygulaması
Metin içinde aranan harfin kaç defa geçtiğinin bulan Vb.Net Console Uygulaması
Seçilen Resmi Arkaplan Resmi Olarak Düzenleyen Vb.Net Uygulaması
Girilen İsmin Başına Merhaba Ekleyen Vb.Net Console Uygulamasında Mesaj Görüntüleme
Girilen İki Sayıya Göre Ayrıntılı Hesap Makinesi Oluşturan Vb.Net Uygulamasını Yapınız
Rastgele Seçilen Üç Hayvanı Yarıştıran Vb.Net Uygulamasını Yapınız

Yorum Ekle
   
Kötü İyi