Visual Basic de Grafik İşlemleri

Line komutundaki parametreler bir arada kullanılabilirler.
Kullanılması :
Line (x1,y1),(x2,y2),Renk,BF
Örnekler :

Private Sub Command1_Click()
x1=5
y1=100
x2=500
y2=900
Line (x1,y1)-(x2,y2),rgb(20,20,255),BF
End Sub

Circle (Daire) : Verilen koordinatları merkez kabul sayarak verilen
yarıçapta bir daire çizilmesini sağlar. Bu dairenin rengini belirleme
parametresi mevcuttur.
Kullanılması :
Circle (x1,y1),r,Renk
Örnekler :

Private Sub Command1_Click()
X1 = 250
Y1 = 200
r = 180
Circle (X1, Y1), r, RGB(250, 20, 20)
End Sub

Pset (Nokta Koymak) : Verilen koordinata nokta konulmasını sağlar.
Kullanılması :
Pset (x1,y1),Renk
Örnekler :

Private Sub Command1_Click()
X1 = 250
Y1 = 200
Pset (X1,Y1),rgb(255,0,0)
End Sub

Point (Renk Okuma) : Verilen koordinatlarındaki rengin okunmasını
sağlar.
Kullanılması :
Renk=Point (x1,y1)
Örnekler :

Private Sub Command1_Click()
X1 = 5
Y1 = 100
X2 = 500
Y2 = 900
Line (X1, Y1)-(X2, Y2), , BF
Renk = Point(50, 50)
MsgBox Renk
End Sub

Visual Basic'te Diziler (Array)

Dizi, bellekte aynı isim altında toplamış değişkenler kümesine verilen
isimdir. Dizinin kullanım alanlarına gelince ise, aynı türe ait
bilgileri bellekte tutmak istediğimizde örneğin bir veri gurubunu
sıralamak istediğimizde ya da verilere ait bazı istatiksel bilgilerin
hesaplanmasında bize yardımcı olur. VB 'de diziler;

DiziAdi(ElemanSayisi)

Şeklinde gösterilir. Bir örnek verecek olursak
Sayilar(20)
Ucgen(2)
Kare(3)
Yukarda ki örneklerde Sayilar isminde 0 dan 20 ye kadar toplam 21
elemanlı bir dizi tanımlanmıştır.
VB 'de iki farklı dizi türü vardır bunlar;

1) STATİK DİZİLER:
Bu tip dizilerde dizinin eleman sayısı önceden belirlenir ve eleman
sayısı sabittir. Örneğin programımızda Dim Sayilar(20) as Integer diye
bir kod yazarsanız projenizde toplam 21 elamanlı ve sayısal bir veri
türünü tutacak bir dizi tanımlamış olursunuz. Eğer dizimizin 20
elamanlı yani Sayilar(1) 'den başlamasını istiyorsak Form 'un veya
Modülün General/Declarations kısmına Option Base 1 deyimini
kullanmamız gerekecekti Option Base 0 ise dizinin ilk elemanının 0
'dan başlayacağını bildirir ki zaten bu da standart(default) biçimidir
dolaysıyla kullanmaya gerek yoktur.

2.) DİNAMİK DİZİLER:
Bu tip dizilerde ise dizinin eleman sayısını program akışı içerisinde
kontrol edebiliyoruz bunu ise diziyi Dim Sayilar() as Integer şeklinde
dizinin eleman sayısı hakkında herhangi bir değer vermeden
belirttikten sonra ReDim Sayilar(10) as Integer şeklinde dizinin
eleman sayısını program akışı esnasında tanımlıyoruz. Ancak diziyi
yeniden boyutlandırırken unutulmaması gereken nokta dizinin içindeki
verilerin silineceğidir. Eğer verilerin silinmemesini istiyorsak
diziyi yeninden boyutlandırırken ReDim Preserve Sayilar(10) As Integer
şeklinde belirtmemiz gerekir.

Örnek 1: Girilen 10 tane sayının toplamını ve ortalamasını veren örnek
program


Yukarıdaki resimlerden de anlaşılacağı üzere 10 adet sayıyı teker
teker girdiğimizde programımız bize bu sayıların toplamını ve
ortalamasını verecektir.

Birden Fazla Boyutlu Diziler :
VB 'de istenirse birden fazla boyutta dizilerde tanımlanabilir.
Örneğin;
Dim Tablo(4,3) As Integer
Dim DersSonuçları(3,3,1) As Integer
Yukarda ki tanımlama ile çok boyutlu diziler yaratmış olduk Dikkat
ettiyseniz her boyuta ait index numarası birbirinden virgülle
ayrılarak diziler boyutlandırılabiliyor.
Örnek :

Bileşenleri formumuza yukarda ki gibi yerleştirdikten sonra Matematik
dersi için koyduğumuz 3 tane "Text Box" 'ın adını VB 'nin sol
tarafındaki "Properties" Penceresinde ki "(Name)" değerini
değiştirerek sırası ile "Matematik1", "Matematik2" ve "Matematik3"
yapalım bu işlemi diğer dersler içinde tekrarlayalım daha sonra
"Ortalaması" başlıklı Labellerimizin hepsinede "Ortalama" adını
verelim bu sırada VB bize "You have already a control named
'Ortalama'. Do you want to create a control array?" diyerek bir
kontrol dizisi oluşmak isteyip istemediğimizi soracak bu soruyu "Evet"
diye cevaplandırarak bir kontrol dizisi oluşturalım(*) "Ortalama"
başlıklı düğmemize çift tıklayarak aşağıda ki kodları yazalım.

Yukarda ki örneğimizde derslere ait notlar dizimize aktarılıyor daha
sonra ise dizimizde ki notları "For ...Next" döngüsü ile kod tekrarı
yapmadan ortalamasını alıp bunu Ortalama isimli kontrol dizimizde ki
Etiketlerimiz de (Label) görüntülüyoruz.

Dizi İçin Sınırlar :
VB 'de dizi için alt ve üst sınırlar belirleyebiliriz bu sınır 0 ve
pozitif sayılar olabileceği gibi negatif sayılarda olabilir. Örneğin
Dim Dizi1(1 To 20) As Integer
Dim Dizi2(0 To 5) As String
Dim Dizi2(-10 To 10) As Byte

LBOUND ve UBOUND Fonksiyonları :
İstenilen bir dizinin belirtilen boyutunun alt ve üst sınırlarının ne
olduğunu öğrenmemize yarar. Örneğin;
Private Sub Command1_Click()
Dim Dizi(-5 To 15, -10 To 20) AsInteger

Print "Dizinin ;"
Print "-------------------------------------------"
Print "1. Boyutunun Alt Sınırı : " & LBound(Dizi, 1)
Print "1. Boyutunun Üst Sınırı : " & UBound(Dizi, 1)
Print "-------------------------------------------"
Print "2. Boyutunun Alt Sınırı : " & LBound(Dizi, 2)
Print "2. Boyutunun Üst Sınırı : " & UBound(Dizi, 2)
End Sub

Bilgisayarda Büyük ünlü uyumunu uygulamak


Public Function BüyükÜnlüUyumu(ByVal sözcük As String) As Boolean
'Büyük Ünlü Uyumunun Yapılışı
Dim KalınÜ(3), İnce(3) As String, x(1), y As Integer, kelime As String, karakter(1) As String

Dim ince_b, kalın_b As Boolean

kelime = sözcük.ToString 'Kontrol edilecek sözcük belirleniyor...

KalınÜ(0) = "a" ''''''''''''''''''''''''''''''''''''''''
KalınÜ(1) = "ı" ' '
KalınÜ(2) = "u" ' '
KalınÜ(3) = "o" ' Kalın ünlüler tanıtılıyor... '
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''

İnce(0) = "e" ''''''''''''''''''''''''''''''''''''''''
İnce(1) = "i" ' '
İnce(2) = "ü" ' '
İnce(3) = "ö" ' İnce ünlüler tanıtılıyor.... '
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''

x(1) = kelime.Length
For x(0) = 0 To 3
For y = 1 To x(1)
karakter(0) = Mid(kelime, y, 1)
karakter(1) = Mid(kelime, y, 1)
If LCase(karakter(0)) = LCase(KalınÜ(x(0))) Then kalın_b = True
If LCase(karakter(1)) = LCase(İnce(x(0))) Then ince_b = True
If kalın_b = True And ince_b = True Then
BüyükÜnlüUyumu = False
Else
BüyükÜnlüUyumu = True
End If
Next y
Next x(0)
'Writing by BEJO© 2003-2004'
End Function

================================================== ========
'''Bunu bir Tuşa Eklemek

Private Sub Başlat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Başlat.Click

If BüyükÜnlüUyumu("FORUMEX") = True Then
MsgBox("Büyük ünlü uyumuna Uyuyor")
Else
MsgBox("Büyük ünlü uyumuna Uymuyor")

End If
End Sub

Database işlemlerinde kullanışlı bir fonksiyon


Private Function cevir(ceviri As String) As String
'küçük harfi büyük harfe ceviren fonksiyon kullanımı türkçe karakter destekli
'text1=cevir(text1) şeklindedir
ceviri = Replace(UCase(ceviri), "i", "I")
ceviri = Replace(UCase(ceviri), "İ", "I")
ceviri = Replace(UCase(ceviri), "ı", "I")
ceviri = Replace(UCase(ceviri), "ğ", "G")
ceviri = Replace(UCase(ceviri), "ü", "U")
ceviri = Replace(UCase(ceviri), "ş", "S")
ceviri = Replace(UCase(ceviri), "ö", "O")
ceviri = Replace(UCase(ceviri), "ç", "C")
ceviri = Replace(UCase(ceviri), "Ğ", "G")
ceviri = Replace(UCase(ceviri), "Ü", "U")
ceviri = Replace(UCase(ceviri), "Ş", "S")
ceviri = Replace(UCase(ceviri), "Ö", "O")
ceviri = Replace(UCase(ceviri), "Ç", "C")
cevir = ceviri
End Function