Merhaba arkadaşlar bu makalemizde Console da Array e örnek vereceğiz. Bu örnekte diziye eklediğimiz yazar isimlerine göre konsolda arama yapacağız.
İlk olarak Solution Explorer da projeye sağ tıklayıp Add > New Item den projeye Class dosyası ekleyin ve sonra aşağıdaki kodu yazın.
Screenshot
Şekil 1
Program.vb
Imports System
Module Program
Sub Main(args As String())
Dim bul As String
Dim i As Integer
Dim array As ArrayList = New ArrayList()
array.Add("Fyodor Mihailoviç Dostoyevski")
array.Add("Honere de Balzac")
array.Add("Viktor Hugo")
array.Add("John Steinbeck")
array.Add("Jane Austen")
array.Add("Honere de Balzac")
array.Add("Lev Nikolayeviç Tolstoy")
array.Add("Gustave Flaubert")
array.Add("Ernest Hemingway")
array.Add("Maksim Gorki")
Console.Write("Aranacak yazar girin : ")
bul = Console.ReadLine()
i = array.LastIndexOf(bul)
'If liste.Contains(ara) = True Then
If i = -1 Then
Console.WriteLine("Yazar sistemde kayıtlı değil!")
Else
Console.WriteLine("Aranan yazar ismi sistemde kayıtlı! Kayıt Id : {0}", i)
End If
Console.ReadKey()
End Sub
End Module
Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
0 comments:
Yorum Gönder