----------------------------------
Redim Komutunu Kullanırız.
Örnek:
0 1 2
Dim dizi() As String={"Ali","Ramazan","Veli"}
MsgBox("Dizi Değeri=") & dizi(1)
Redim dizi(o to 6)
dizi.SetValue("Aksaray",5)
MsgBox(dizi(5))
Not:ReDim =Eski Değerleri Hafızada Saklamaz.
---
2-)Dizileri Boyutlandırırken Hafızada Kalmasını İstiyorsak:
--------------------------------------------------------
Dim dizi(2) As String
dizi(0)="Ramazan Günindi"
ReDim Preserve dizi(3)
dizi.SetValue("Aksaray",3)
MsgBox(dizi(0))
Not:Birde Redim Preserve=Array.Resize Komutu Aynıdır Fakat Array Resize Komutu
---
Tek Boyutlu Dizileri Yeniden Boyutlar..
Not-1:Redim Preserve 4--->0,1,2,3,4=5 Eleman
----- Array.Resize 4--->0,1,2,3 =4 Eleman
3-)Dizilerde Nesne Tipini Göndererek Tanıtmak:
----------------------------------------------
NOT:Array Sınıfının CreateInstance Methodu Uygulanır..
---
GetType Methodu:Belirtilen Nesnenin Tipini Gönderir..
Örnek:
-----
Dim dizi As String
dizi=Array.CreateInstance(GetType(String),1)
dizi.SetValue("Ramazan",0)
dizi.SetValue("Günindi",1)
MsgBox("Dizi--->" & dizi(0))
4-)Dizinin Elemanlarına Ulaşmak:
--------------------------------
Not:Dizinin Elemanlarına For Döngüsü İle Ulaşılır..
---
Not-2:Lenght--->Dizinin Eleman Sayısını Verir.
----
Örnek:
------
Dim dizi() As String={"Asp","Php","XSS","Jawa"}
Dim sayac AS integer
For sayac=0 To dizi.Lenght-1
ListBox1.items.Add(dizi(sayac))
Next
5-)Dizinin Elemanlarını Silmek:
-------------------------------
Not:Erase Komutu Dizinin Tüm Elemanlarını Siler.
---
Not-2:Dizinin Bir veya Birden Fazla Elemanını Silmek İçin:Array.Clear() Methodu Uygulanır
-----
Not-3:Array.Clear() Methodunda İstenilen Kısımdan İstediğin Kısma Kadar Silme İşlemi ------
Yapılabilir.
Misal:Array.Clear(dizi,1,3) Burada 1 numaralı diziden 3 numaralı diziye kadar silinir
Örnek:
-----
Dim dizi() As String=NEw String(1){}
dizi.SetValue("Asp",0)
dizi.SetValue("Php",1)
Array.Clear(dizi,1,1)
MsgBox(dizi(1))
Örnek-2:
--------
Dim dizi(2) As String
dizi.SetValue("Ramazan", 0)
dizi.SetValue("Günindi", 1)
dizi.SetValue("Aksaray", 2)
Array.Clear(dizi, 0, 2)
MsgBox(dizi(1))
MsgBox(dizi(2))
------------------------------------------------------------------------------
Deneyim düşüncenin,düşünce ise eylemin çocuğudur...
6-)Dizi Değişkeninin Son Elemanın Sayasını Öğrenme:
--------------------------------------------------
Ubound () Fonksiyonu:
--------------------
Eğer Dizi TEk Boyutlu ise=Ubound(dizi)
**Eğer Dizi Birden Fazla Boyutlu İse:
-------------------------------------
Ubound(dizi,boyut sayısı)
Dim dizi(0 To 6,0 To 8 As Integer
MsgBox("Dizinin Son Eleman Sayısı=" & Ubound(dizi,2))
Örnek:
------
Tek Boyutlu Dizi:
-----------------
Dim dizi(3) As String
MsgBox(UBound(dizi))
----------------------------
Birden Fazla Boyutlu Dizi Örneği:
-------------------------------
Dim diz(0 To 6, 0 To 8) As Integer
MsgBox(UBound(diz, 2))
7-)Dizi Değişkenin İlk Elemanın Numarasını Öğrenme:
--------------------------------------------------
Lbound=Dizinin İlk Elemanın Numarasını Verir..
Dim dizi(0 To 3) As Integer
dizi.SetValue(50, 0)
dizi.SetValue(1000, 1)
MsgBox(LBound(dizi))
Ekran Çıktısı=0 Olacaktır..Çünki İlk diziler 0’dan Başlar...
8-)Dizinin Son Eleman Sayısını Öğrenme:
---------------------------------------
Uygulayacağımız Fonksiyon=GetUpperBound()
Dizi Değişkenimiz Tek Boyutlu ise :
---------------------------------
Son Elemanını = GetUpperBound(0) ile
2 Boyutlu ise = GetUpperBound(1) ile Öğreniriz..
Örnek Kodlama:
--------------
Dim dizi(1) As String
Dim diz(0 To 2, 0 To 3) As String
dizi(0) = "Ramazan"
dizi.SetValue("Günindi", 1)
diz.SetValue("Ramazan", 0, 0)
diz.SetValue("Günindi", 1, 0)
MsgBox(dizi.GetUpperBound(0))
MsgBox(diz.GetUpperBound(1))
9-)Dizinin İlk Eleman Sayısını Öğrenme:
---------------------------------------
KOD=GetLowerBound
Dim dizi(0 to 3) As integer
MsgBox(dizi.GetLowerBound(0))
10-)Dizi Değişkeninin Eleman Sayısını Bulma:
--------------------------------------------
KOD=Length
Dim dizi(2) As String
dizi(0)="Ramazan"
dizi(1)="Günindi"
dizi(2)="Aksaray"
MsgBox(dizi.Length)
11-)Dizi Değişkeninde 2 Boyutlu veya Birden Fazla Boyurlu Eleman Sayısını Bulma:
--------------------------------------------------------------------------------
Dim dizi(0 to 1,0 to 2) As integer
MsgBox(dizi.Length)
Boyut Seçerek Bulma:
--------------------
KOD=GetLength
0 1
Dim dizi(0 to 1,0 to 2) As integer
MsgBox(dizi.GetLength(1))
-----------------------------------------------------------------------------------------
Coşku,Zekadan daha önemlidir...
12-)Dizi Değişkenlerini Küçükten Büyüğe Doğru Sıralama:
-------------------------------------------------------
KOD=Sort()
Sort-->Arrat Sınıfında Kullanılan Methodtur.Küçükten Büyüğe Sıralar..
Örnek Kodlama:
--------------
Dim dizi(0 to 2) As Integer
dizi(0)=20
dizi(1)=10
dizi(2)=50
Array.Sort(dizi)
For sayac AS integer=0 to 2
ListBox1.Items.Add(dizi(sayac))
Next
13-)Dizi Değişkenlerini Tersten Yazma:
--------------------------------------
KOD=Array.Reserve()
Not:Dizi Değişkenlerini ters çevirmek için Array sınıfının Reserve Methodu Kullanılır..
----
Örnek Kodlama:
--------------
Dim dizi(1) As String
dizi.SetValue("Ramazan", 0)
dizi.SetValue("Günindi", 1)
Array.Reverse(dizi)
For sayac As Integer = 0 To 1
MsgBox(dizi(sayac))
Next
-----------------------------------------------------------------------------------------
Yapabileceğimiz Her Şeyi Yapsaydık Buna Kendimiz Bile Şaşırırdık...
DİZİLERDE ARAMA
14-)Array Sınıfının BinarySearch() Methodu:
-------------------------------------------
Array.BinarySearch(dizi,Değer)
[**Aranan Değer Yoksa Geriye -1 Değeri Yollar.]
Örnek Kodlama:
--------------
Dim dizi(0 to 2) As String
dizi(0)="Asp"
dizi(1)="Php"
dizi(2)="Css"
For sayac=dizi.GetLowerBound(0) To dizi.GetUpperBound(0)
ListBox1.items.Add(dizi(sayac))
Next
Array.Sort(dizi)
Dim islem As Integer
islem=Array.BinarySearch(dizi,TextBox1.Text)
if islem<=-1 Then
MsgBox("Aranan Değer Yok")
Else
MsgBox("Aranan Değer " + dizi(islem), , " Bulundu..")
Endif
15-)Sıralı Olmayan Dizi Değişkeninde Arama Yapma:
-------------------------------------------------
Kod=IndexOf
Dim dizi(0 To 2) As String
dizi(0) = "Asp"
dizi(1) = "Php"
dizi(2) = "Css"
For sayac = dizi.GetLowerBound(0) To dizi.GetUpperBound(0)
ListBox1.Items.Add(dizi(sayac))
Next
Array.Sort(dizi)
Dim islem As Integer
islem = Array.IndexOf(dizi, TextBox1.Text)
If islem <= -1 Then
MsgBox("Aranan Değer Yok")
Else
MsgBox("Aranan Değer " + dizi(islem), , " Bulundu..")
End If
--------------------------------------------------------------------
Olumsuz düşüncelerini zihinsel canavarlar halini almadan önce yok edin..
16-)Dizi Değişkeninin Elemanlarını Birleştirme:
-----------------------------------------------
NOT:String sınıfının Join methodu.String.Join
----
Örnek Kodlama:
--------------
Dim dizi(0 To 2) As String
dizi(0) = "Asp"
dizi(1) = "Php"
dizi(2) = "Css"
Dim islem As String
islem = String.Join(">>", dizi)
MsgBox(islem)
