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
N Adet Sayının Varyansını ve Standart Standart Sapmasını Bulan Programı Vbnet Windows Console İle Kodlayınız
20 adet notun ortalamadan büyük olanları, harf notu dağılımını en büyük notu bulan Vb.Net Console Uygulaması
Faktöriyel Hesabı Yapan Vb.Net Windows Form Uygulaması
Rastgele Farklı Karakterlerde Vb.Net Console Uygulamasında Şifre Oluşturma
Tombala Oyunu Yapan Uygulamayı Vb.Net İle Kodlayınız
Zar Atma Oyununu Yapan Vb.Net Console Uygulaması
Tetris Oyununu Vb.NET Dilini Kullanarak Form Sayfasında Kodlama3
Formun Üzerine Çizgi ve Dikdörtgen Çizen Vb.Net Uygulamasını Yapınız
İsmi artan harfler şeklinde aynadaki görüntüsü gibi yazdıran Vb.Net Console Uygulaması
Verilen İki Matrisi Çarpan Programı VB.NET Dilinde Form Ortamında Yapınız
Girilen İki Sayıyı Vb.Net Console Uygulamasında Toplama İşlemi
Kelime içinde belirli bir harften kaç adet olduğunu bulan Vb.Net Console Uygulaması
1 ile 10 Arasındaki Sayıyı Do Döngüsüyle Gösteren Vb.Net Console Uygulaması
Vb.NET Programında Sıralı Dosyada Dosya Açma İşlemleri
Tetris Oyununu Vb.NET Dilini Kullanarak Form Sayfasında Kodlama4
Girilen Üç Basamaklı Sayının Okunuşunu Yazıya Dönüştüren Alt Programı VbNet (Windows Console) İle Kodlayınız
Tüm Karakterleri İçeren 5 Haneli Şifre Oluşturan Programı VbNet (Windows Console) İle Kodlayınız
Girilen İsmin Başına Merhaba Ekleyen Vb.Net Console Uygulamasında Mesaj Görüntüleme
Girilen notların ortalamasının üstünde yer alan notların listelenmesi işlemini gerçekleştiren Vb.Net Console Uygulaması

Yorum Ekle
   
Kötü
İyi