VBNET

VB.Net Örnek Uygulamalar 

Tolga GÜYER 

02.11.2011


2 Kasım 2011 

İçindekiler 

Uygulama No: 1 – Buraya Basmayın! ...................................................................................................... 4 

Uygulama No: 2 – Vücut-Kitle İndeksi ..................................................................................................... 5 

Uygulama No: 3 – Burçlar ........................................................................................................................ 7 

Uygulama No: 4 – Not Hesapla................................................................................................................ 9 

Uygulama No: 5 – Ders Ekle .................................................................................................................. 11 

Uygulama No: 6 – Ders Kodu ................................................................................................................. 12 

Uygulama No: 7 – Geçme Notu ............................................................................................................. 13 

Uygulama No: 8 – Numara Oluştur ....................................................................................................... 15 

Uygulama No: 9 – İl ve İlçe .................................................................................................................... 17 

Uygulama No: 10 – Kimlik Ekle .............................................................................................................. 18 

Uygulama No: 11 – E-Posta Adresi Oluşturma ...................................................................................... 20 

Uygulama No: 12 – Olaylar-1 ................................................................................................................. 21 

Uygulama No: 13 – Dört İşlem .............................................................................................................. 23 

Uygulama No: 14 – Ardışık Sayıların Toplamı ........................................................................................ 24 

Uygulama No: 15 – Mekanik Sayaç ....................................................................................................... 25 

Uygulama No: 16 – Asal Sayı Testi ......................................................................................................... 26 

Uygulama No: 17 – Pi Sayısının Yaklaşık Hesabı .................................................................................... 27 

Uygulama No: 18 – Kuvvet ve Faktöriyel Hesabı ................................................................................... 29 

Uygulama No: 19 – İç İçe Döngü ........................................................................................................... 30 

Uygulama No: 20 – 153 Sayısı ............................................................................................................... 31 

Uygulama No: 21 – Pisagor Üçlüleri ...................................................................................................... 32 

Uygulama No: 22 – Collatz Problemi ..................................................................................................... 33 

Uygulama No: 23 – Kaprekar Sayıları .................................................................................................... 35 

Uygulama No: 24 – Kaprekar Sabiti ....................................................................................................... 37 

Uygulama No: 25 – Mükemmel Sayılar ................................................................................................. 39 

Uygulama No: 26 – Aritmetik Ortalama ve Standart Sapma ................................................................. 40 

Uygulama No: 27 – Renk Aktarımı......................................................................................................... 42 

Uygulama No: 28 – Fonksiyon Kullanımı 1 ............................................................................................ 44 

Uygulama No: 29 – Fonksiyon Kullanımı 2 ............................................................................................ 45 

Uygulama No: 30 – Palindrom ............................................................................................................... 48 

Uygulama No: 31 – Palindrom/Liste ...................................................................................................... 49 

Tolga GÜYER Sayfa 2


2 Kasım 2011 

Uygulama No: 32 – Metin İstatistikleri .................................................................................................. 50 

Uygulama No: 33 – Anahtarlı Metin Şifreleme ..................................................................................... 52 

Uygulama No: 34 – Anahtarlı Metin Şifre Çözme .................................................................................. 54 

Uygulama No: 35 – Veritabanı Uygulaması 1 ........................................................................................ 55 






VERİTABANI UYGULAMALARI HAKKINDA ÖZET BİLGİ ........................................................................... 75 



Uygulama No: 43 – Anket ...................................................................................................................... 85 

Uygulama No: 44 – Anket Göster .......................................................................................................... 88 


Uygulama No: 46 – Veritabanı Uygulaması 10 ...................................................................................... 97 

Uygulama No: 47 – Veritabanı Uygulaması 11 .................................................................................... 100 



2 Kasım 2011 

Uygulama No: 1 – Buraya Basmayın! 

Açıklama : Metin kutusuna herhangi bir metin girilmemiş ise butona 

basıldığında tepki veriliyor. 

Ekran Görüntüsü 

Public Class Form1 

Açıklamalı Kodlar 

Private Sub basma_Click(ByVal sender As Object, ByVal e As 

System.EventArgs) Handles basma.Click 

If giris.Text = "" Then ‘Eğer metin kutusu boş ise… 

MsgBox("Basmayın demiştim") 

basma.BackColor = Color.Red ‘Buton kırmızı oluyor. 

Else 

basma.BackColor = Color.GreenYellow ‘Aksi halde yeşile dönüyor. 

End If 

End Sub 

End Class 



2 Kasım 2011 

Uygulama No: 2 – Vücut-Kitle İndeksi 

Açıklama : Girilen ağırlık ve boy verilerine göre vücut-kitle indeksi 

belirleniyor ve kişinin girdiği ağırlık sınıfı görsel destekle 

sunuluyor. 




Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles Button1.Click 

TxtVki.Text = TxtKilo.Text / (TxtBoy.Text * TxtBoy.Text) 

‘Vücut kitle indeksi=ağırlık (kg) / boyun (m) karesi. 

If TxtVki.Text

End Sub 

End Class 


2 Kasım 2011 

If TxtVki.Text >= 20 And TxtVki.Text < 25 Then 

TxtSonuc.Text = "İdeal sınırlarda" 

PictureBox1.ImageLocation = "ideal.jpg" 

End If 


TxtSonuc.Text = "Hafif şişman" 

PictureBox1.ImageLocation = "hafif_sisman.jpg" 

End If 


TxtSonuc.Text = "Şişman" 

PictureBox1.ImageLocation = "sisman.jpg" 

End If 


TxtSonuc.Text = "Sağlık açısından önemli" 

PictureBox1.ImageLocation = "saglik_acisindan_tehlike.jpg" 

End If 


TxtSonuc.Text = "Aşırı şişman" 

PictureBox1.ImageLocation = "cok_sisman.jpg" 

End If 

If TxtVki.Text >= 50 Then 

TxtSonuc.Text = "Morbid (ölümcül) şişman" 

PictureBox1.ImageLocation = "morbid.jpg" 

End If 



2 Kasım 2011 

Uygulama No: 3 – Burçlar 

Açıklama : Date-Time Picker kontrolünden seçilen tarihe göre kişinin 

burcunun ne olduğu belirleniyor ve görsel destekle 

sunuluyor. 




Dim gun, ay As Integer 

Private Sub DateTimePicker1_ValueChanged(ByVal sender As Object, ByVal e As 

System.EventArgs) Handles DateTimePicker1.ValueChanged 

gun = DateTimePicker1.Value.Day ‘Sadece gün bilgisi alınıyor. 

ay = DateTimePicker1.Value.Month ‘Sadece ay bilgisi alınıyor. 

If (ay = 12 And gun >= 23) Or (ay = 1 And gun = 22) Or (ay = 10 And gun = 21) Or (ay = 2 And gun = 20) Or (ay = 3 And gun


2 Kasım 2011 

If (ay = 3 And gun >= 21) Or (ay = 4 And gun = 21) Or (ay = 5 And gun = 22) Or (ay = 6 And gun = 22) Or (ay = 7 And gun = 24) Or (ay = 8 And gun = 24) Or (ay = 9 And gun = 23) Or (ay = 11 And gun = 23) Or (ay = 12 And gun

Uygulama No: 4 – Not Hesapla 


2 Kasım 2011 

Açıklama : Girilen ara sınav ve genel sınav notları kullanılarak geçme 

notu hesaplanıyor ve bu geçme notuna karşılık gelen harf 

notu belirleniyor. 



Dim vize, final As Integer 

Dim gecme As Double 


Private Sub Txt_Final_TextChanged(ByVal sender As Object, ByVal e As 

System.EventArgs) Handles Txt_Final.TextChanged 

‘Final notunun girildiği metin kutusu değişirken… 

If Txt_Final.Text "" And IsNumeric(Txt_Final.Text) Then 

‘Eğer final metin kutusu dolu ve sayısal veri ise… 

If Txt_Final.Text > 100 Then 

‘Eğer girilen final değeri 100 den büyük ise… 

MsgBox("Hatalı Giriş!") 

Txt_Final.Clear() 

TxtGecme.Clear() 

TxtHarf.Clear() 

TxtGecme.BackColor = Color.White 

Else ‘Aksi halde, yani final 100 den küçük… 

If Txt_Vize.Text "" And IsNumeric(Txt_Vize.Text) Then 

vize = Txt_Vize.Text 

final = Txt_Final.Text 

gecme = 2 * vize / 5 + 3 * final / 5 

‘vizenin %40’ı + finalin %60’ı 

TxtGecme.Text = gecme 

If gecme >= 50 Then TxtGecme.BackColor = 

Color.GreenYellow Else TxtGecme.BackColor = Color.Red 

End If 

End If 

Else ‘Ya final alanı boş, ya da girilen değer sayısal değil. 




2 Kasım 2011 



End If 

End Sub 

Private Sub Txt_Vize_TextChanged(ByVal sender As Object, ByVal e As 

System.EventArgs) Handles Txt_Vize.TextChanged 

‘Aynı şeyler vize notu için de yapılıyor. 

If Txt_Vize.Text "" And IsNumeric(Txt_Vize.Text) Then 

If Txt_Vize.Text > 100 Then 

MsgBox("Hatalı Giriş!") 

Txt_Vize.Clear() 




Else 

If Txt_Final.Text "" And IsNumeric(Txt_Final.Text) Then 

vize = Txt_Vize.Text 

final = Txt_Final.Text 

gecme = 2 * vize / 5 + 3 * final / 5 

TxtGecme.Text = gecme 

If gecme >= 50 Then TxtGecme.BackColor = 

Color.GreenYellow Else TxtGecme.BackColor = Color.Red 

End If 

End If 

Else 




End If 

End Sub 

Private Sub TxtGecme_TextChanged(ByVal sender As Object, ByVal e As 

System.EventArgs) Handles TxtGecme.TextChanged 

‘Geçme notu alanı değişirken harf notu hesaplanıyor. 

If TxtGecme.Text "" Then 

If TxtGecme.Text >= 90 Then 

TxtHarf.Text = "AA" 

ElseIf TxtGecme.Text >= 80 Then 

TxtHarf.Text = "BA" 


TxtHarf.Text = "BB" 


TxtHarf.Text = "CB" 


TxtHarf.Text = "CC" 


TxtHarf.Text = "DC" 


TxtHarf.Text = "DD" 


TxtHarf.Text = "FD" 

Else 

TxtHarf.Text = "FF" 

End If 

End If 

End Sub 

End Class 


Uygulama No: 5 – Ders Ekle 


2 Kasım 2011 

Açıklama : İki adet metin kutusundan alınan bilgilerle oluşturulan 

ders kodu ve adı liste kutusuna ekleniyor. Daha sonra 

liste kutusundan seçilen ders silinebiliyor. 






ListBox1.Items.Add(TextBox1.Text + " " + TextBox2.Text) 

‘Ders kodu ve adı metinleri birleştirilerek liste kutusuna 

aktarılıyor. 

End Sub 



ListBox1.Items.Clear() 

End Sub 



ListBox1.Items.Remove(ListBox1.SelectedItem) ‘Liste kutusundan 

seçili olan seçenek siliniyor. 

End Sub 

End Class 


Uygulama No: 6 – Ders Kodu 


2 Kasım 2011 

Açıklama : Metin kutusuna girilen ders kodu ve adı ayrıştırılarak iki ayrı liste 

kutusuna ekleniyor. 




Dim dersin_kodu, dersin_adi, ders As String 



ders = TextBox1.Text 

dersin_kodu = Strings.UCase(Strings.Left(ders, 6)) 

‘Ders kodu, büyük harfe dönüştürülen metnin soldan 6 karakteri 

alınarak ayrıştırılıyor. 

dersin_adi = Strings.Right(ders, Strings.Len(ders) - 6) 

‘Ders adı, metnin sağdan uzunluğu-6 karakteri alınarak 

ayrıştırılıyor. 

ListBox1.Items.Add(dersin_kodu) 

ListBox2.Items.Add(dersin_adi) 

TextBox1.Clear() 

End Sub 

End Class 


Uygulama No: 7 – Geçme Notu 


2 Kasım 2011 

Açıklama : Metin kutusuna girilen numara bilgisi kullanılarak öğrencinin giriş 

yılı ve fakültesi belirleniyor. Arasınav ve Final notları kullanılarak 

geçme notu ve bu nota karşılık gelen harf notu hesaplanıyor. 






Dim Notu As Integer 

Dim Yil As String 

Dim Fak, numara As String 

Yil = Strings.Left(TextBox1.Text, 2) 

‘Eğer giriş yılının son iki hanesi 50’den küçükse 2000’li yıllar 

olduğunu anla ve başına 20 ekle. Aksi halde başına 19 ekle: 

If Yil < 50 Then 

ListBox1.Items.Add("20" + Yil) 

Else 

ListBox1.Items.Add("19" + Yil) 

End If 

numara = TextBox1.Text 

Fak = Strings.Mid(numara, 3, 2) 

If Fak = "01" Then 

ListBox2.Items.Add("Mühendislik") 

ElseIf Fak = "02" Then 

ListBox2.Items.Add("Eğitim Bil.") 


ListBox2.Items.Add("Hukuk") 


ListBox2.Items.Add("iletişim") 

Else 

ListBox2.Items.Add("Diğerleri") 

End If 

ListBox3.Items.Add(TextBox2.Text + " " + TextBox3.Text) 

Notu = (TextBox4.Text * 0.4) + (TextBox5.Text * 0.6) 


End Sub 

End Class 


2 Kasım 2011 

ListBox4.Items.Add(Notu) 

If Notu 89 Then 

ListBox5.Items.Add("AA") 

ElseIf Notu > 84 Then 

ListBox5.Items.Add("BA") 


ListBox5.Items.Add("BB") 


ListBox5.Items.Add("CB") 


ListBox5.Items.Add("CC") 


ListBox5.Items.Add("DC") 


ListBox5.Items.Add("DD") 


ListBox5.Items.Add("FD") 

ElseIf Notu < 50 Then 

ListBox5.Items.Add("FF") 

End If 

TextBox1.Text = "" 





TextBox1.Focus() 


Uygulama No: 8 – Numara Oluştur 


2 Kasım 2011 

Açıklama : Açılan kutudan (ComboBox) seçilen fakülteye göre öğrenci numarası 

oluşturuluyor. Giriş yılı sistem zamanından alınıyor ve her fakülte için sıra 

numaraları ayrı sayaçlarda tutuluyor. 




Dim fakulte_adi, fakulte_kodu, sira, numara As String 

Dim egt_sayac, muh_sayac, huk_sayac, tip_sayac, sayac As Integer 

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, 

ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged 

fakulte_adi = ComboBox1.Text 

If fakulte_adi = "Eğitim Bilimleri Fakültesi" Then 

fakulte_kodu = "04" 

egt_sayac = egt_sayac + 1 

sayac = egt_sayac 

ElseIf fakulte_adi = "Mühendislik Fakültesi" Then 


muh_sayac = muh_sayac + 1 

sayac = muh_sayac 

ElseIf fakulte_adi = "Hukuk Fakültesi" Then 


huk_sayac = huk_sayac + 1 

sayac = huk_sayac 

ElseIf fakulte_adi = "Tıp Fakültesi" Then 


tip_sayac = tip_sayac + 1 

sayac = tip_sayac 

End If 

‘Sıra numarasının basamak sayısına göre başına ekleyeceği sıfır 

sayısına karar veriyor: 

If Strings.Len(sayac.ToString) = 1 Then 

sira = "000" + sayac.ToString 

ElseIf Strings.Len(sayac.ToString) = 2 Then 


ElseIf Strings.Len(sayac.ToString) = 3 Then 


Else 

sira = sayac.ToString 



2 Kasım 2011 

End If 

numara = Strings.Right(System.DateTime.Today.Year, 2) + 

fakulte_kodu + sira ‘Sistem saatinden bugünün tarihinin yılı alınıyor ve 

bunun sağdan iki basamağı ayrıştırılıyor. 

TextBox3.Text = numara 

End Sub 






TextBox1.Focus() 

End Sub 

End Class 


Uygulama No: 9 – İl ve İlçe 


2 Kasım 2011 

Açıklama : İl için tanımlanan açılan kutudan seçilen il adına göre ilçe için tanımlanan açılan 

kutunun içeriği otomatik olarak dolduruluyor. 




Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, 

ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged 

ComboBox2.Items.Clear() 

If ComboBox1.Text = "Ankara" Then 

ComboBox2.Items.Add("Çankaya") 

ComboBox2.Items.Add("Etimesgut") 

ComboBox2.Items.Add("Keçiören") 

ComboBox2.Items.Add("Yenimahalle") 

ComboBox2.Items.Add("Mamak") 

ElseIf ComboBox1.Text = "İstanbul" Then 

ComboBox2.Items.Add("Beşiktaş") 

ComboBox2.Items.Add("Şişli") 

ComboBox2.Items.Add("Eminönü") 

ComboBox2.Items.Add("Beykoz") 

ComboBox2.Items.Add("Adalar") 

ElseIf ComboBox1.Text = "İzmir" Then 

ComboBox2.Items.Add("Karşıyaka") 

ComboBox2.Items.Add("Bornova") 

ComboBox2.Items.Add("Güzelyalı") 

ComboBox2.Items.Add("Buca") 

ComboBox2.Items.Add("Konak") 

End If 

End Sub 

End Class 


Uygulama No: 10 – Kimlik Ekle 


2 Kasım 2011 

Uygulama No : 08 

Uygulama Adı : Kimlik Ekle 

Açıklama : 1. Alanların her üçünün de girilmiş olması gerekiyor. Aksi halde uyarı mesajı 

veriliyor. 

2. Kimlik numarası 11 hane olmazsa uyarı mesajı veriliyor. 

3. Cinsiyet Kadın seçilirse Askerlik Durumu pasif konuma geçiyor. 

4. Bilgileri Ekle butonuna basıldığında bilgiler liste kutusuna alt alta ekleniyor. 




Dim cinsiyet, ask As String 

Private Sub Radio_kadin_Click(ByVal sender As Object, ByVal e As 

System.EventArgs) Handles Radio_kadin.Click 

GroupBox2.Enabled = False ‘Grup kutusu pasifize ediliyor. 

Dolayısıyla üzerindeki radyo düğmeleri de pasif hale gelmiş oluyor. 

End Sub 

Private Sub Radio_erkek_Click(ByVal sender As Object, ByVal e As 

System.EventArgs) Handles Radio_erkek.Click 

GroupBox2.Enabled = True 

End Sub 

Private Sub Btn_ekle_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles Btn_ekle.Click 

If Strings.Trim(Txt_ad.Text) "" And 

Strings.Trim(Txt_soyad.Text) "" And Strings.Trim(Txt_kimlik.Text) "" 

Then 

If Strings.Trim(Strings.Len(Txt_kimlik.Text)) 11 Then 

MsgBox("Kimlik Numarası uygun girilmedi") 

Exit Sub 

End If 



2 Kasım 2011 

ListBox1.Items.Add("Adı Soyadı: " + Txt_ad.Text + " " + 

Txt_soyad.Text) 

ListBox1.Items.Add("Kimlik No : " + Txt_kimlik.Text) 

If Radio_erkek.Checked = True Then 

cinsiyet = "Erkek" 

Else 

cinsiyet = "Kadın" 

End If 

ListBox1.Items.Add("Cinsiyeti : " + cinsiyet) 

If Radio_erkek.Checked = True Then 

If Radio_as1.Checked = True Then 

ask = "Yapmış" 

ElseIf Radio_as2.Checked = True Then 

ask = "Tecilli" 

Else 

ask = "Muaf" 

End If 

ListBox1.Items.Add("Askerlik Durumu : " + ask) 

End If 

ListBox1.Items.Add("********************************************") 

Txt_ad.Clear() 

Txt_kimlik.Clear() 

Txt_soyad.Clear() 

Txt_ad.Focus() 

Else 

MsgBox("Alanların hepsi girilmemiş!") 

End If 

End Sub 

End Class 



2 Kasım 2011 

Uygulama No: 11 – E-Posta Adresi Oluşturma 

Açıklama : Butona basıldığında kişinin adının ilk harfi ile soyadı birleştiriliyor, 

ComboBox’dan seçilen üniversiteye göre e-posta adresi otomatik olarak 

oluşturuluyor. 




Dim eposta, alan As String 

Dim k As Byte 



k = Strings.InStr(Cmb_universite.Text, " ") 'Üniversite adındaki 

ilk boşluğun konumu. 

alan = Strings.Mid(Cmb_universite.Text, 1, k - 1) 

eposta = Strings.LCase(Strings.Left(Txt_ad.Text, 1) & "." & 

Txt_soyad.Text & "@" & alan & ".edu.tr") 

'Aşağıda, metin içersinden Türkçe harfler dönüştürülüyor. 

'Örneğin çetin => cetin gibi. 

eposta = Strings.Replace(eposta, "ş", "s", 1) 

eposta = Strings.Replace(eposta, "ğ", "g", 1) 

eposta = Strings.Replace(eposta, "ö", "o", 1) 

eposta = Strings.Replace(eposta, "ü", "u", 1) 

eposta = Strings.Replace(eposta, "ç", "c", 1) 

eposta = Strings.Replace(eposta, "ı", "i", 1) 

Txt_eposta.Text = eposta 

End Sub 

End Class 


Uygulama No: 12 – Olaylar-1 


2 Kasım 2011 

Açıklama : Radyo düğmelerinin ve işaretleme kutularının tıklama olayları liste kutusuna 

ekleniyor. Sil butonu, liste kutusundan seçilen kayıt(lar)ı siliyor. 




Dim i As Byte 

Private Sub secenek1_Click(ByVal sender As Object, ByVal e As 

System.EventArgs) Handles secenek1.Click 

ListBox1.Items.Add(secenek1.Text + " seçildi") 

End Sub 

Private Sub secenek2_Click(ByVal sender As Object, ByVal e As 

System.EventArgs) Handles secenek2.Click 

ListBox1.Items.Add(secenek2.Text + " seçildi") 

End Sub 


System.EventArgs) Handles BtnSil.Click 

If ListBox1.SelectedItems.Count 0 Then ‘En az bir seçilmiş 

seçenek varsa. 

For i = 0 To ListBox1.SelectedItems.Count - 1 

ListBox1.Items.Remove(ListBox1.SelectedItem) 

Next 

End If 

End Sub 

Private Sub secim1_Click(ByVal sender As Object, ByVal e As 

System.EventArgs) Handles secim1.Click 

If secim1.Checked = True Then 

ListBox1.Items.Add(secim1.Text + " işaretlendi") 

Else 

ListBox1.Items.Add(secim1.Text + " işareti kaldırıldı") 

End If 

End Sub 



2 Kasım 2011 

Private Sub secim2_Click(ByVal sender As Object, ByVal e As 

System.EventArgs) Handles secim2.Click 

If secim2.Checked = True Then 

ListBox1.Items.Add(secim2.Text + " işaretlendi") 

Else 

ListBox1.Items.Add(secim2.Text + " işareti kaldırıldı") 

End If 

End Sub 

End Class 


Uygulama No: 13 – Dört İşlem 


2 Kasım 2011 

Açıklama : İki sayı için seçilen işleme göre hesap yapılıyor. 



Dim s1, s2 As Integer 

Dim s As Double 


Private Sub hesapla_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles hesapla.Click 

s1 = sayi1.Text 

s2 = sayi2.Text 

If topla.Checked = True Then 

s = s1 + s2 

ElseIf cikar.Checked = True Then 

s = s1 - s2 

ElseIf carp.Checked = True Then 

s = s1 * s2 

ElseIf bol.Checked = True And s2 0 Then ‘Sıfıra bölme yapmasın. 

s = s1 / s2 

End If 

sonuc.Text = s 

End Sub 

End Class 



2 Kasım 2011 

Uygulama No: 14 – Ardışık Sayıların Toplamı 

Açıklama : For-Next döngüsünün kullanımına ilişkin basit bir örnek. 




Private Sub BtnToplam_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnToplam.Click 

Dim sayac, toplam As Integer 

toplam = 0 

For sayac = TxtBaslangic.Text To TxtBitis.Text 

toplam = toplam + sayac 

Next 

MsgBox(toplam) 

End Sub 

End Class 


Uygulama No: 15 – Mekanik Sayaç 


2 Kasım 2011 

Açıklama : For-Next döngüsünün iç içe kullanımına ilişkin basit bir örnek. 




Private Sub BtnBaslat_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnBaslat.Click 

For basamak1 = 0 To 9 

LblB1.Text = basamak1 

For bekle = 0 To 10000000 ‘Her adımda beklemeyi sağlar. 

Next 

LblB1.Refresh()‘Etiketin (Label) tazelenmesi. Yeni sayıyı her 

adımda göstermesi için gereklidir. 



For bekle = 0 To 10000000 

Next 

LblB2.Refresh() 



For bekle = 0 To 10000000 

Next 

LblB3.Refresh() 

Next 

Next 

Next 

End Sub 

End Class 


Uygulama No: 16 – Asal Sayı Testi 


2 Kasım 2011 

Açıklama : Sayı asal ise “Asaldır” mesajı veriliyor. Aksi halde sayının ilk böleni gösteriliyor. 




Private Sub BtnAsalmi_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnAsalmi.Click 

Dim asalmi As Boolean = True 

Dim say As UInt64 ‘En büyük tamsayı türü. 

For say = 2 To TxtSayi.Text / 2 ‘Sayının yarısına kadar bölen 

araştırılacak. 

If TxtSayi.Text Mod say = 0 Then ‘Eğer tam bölüyor ise… 

asalmi = False 

Exit For ‘Daha fazla araştırmaya gerek yok. 

End If 

Next 

If asalmi = True Then ‘Demekki yukarıdaki koşula hiç girmemiş. 

MsgBox("ASALDIR") 

Else : MsgBox("ASAL DEĞİLDİR. " & say & " sayısı bu sayıyı 

böler.") 

End If 

End Sub 

End Class 



2 Kasım 2011 

Uygulama No: 17 – Pi Sayısının Yaklaşık Hesabı 

Açıklama : Girilen yaklaşım değerine bağlı olarak aşağıdaki toplam formülü ile Pi sayısı 

yaklaşık olarak hesaplanıyor. 






Dim toplam As Double = 1 

Dim k, i, faktor, faktor1 As Long 

If Strings.Trim(TxtYaklasim.Text) "" Then ‘Boş text 

istemiyoruz. 

If IsNumeric(TxtYaklasim.Text) Then ‘Sayısal olmayan veri de 

istemiyoruz. 

If TxtYaklasim.Text > 0 And TxtYaklasim.Text < 10 Then 

‘Bir de yaklaşım sayısı 1 il 9 arasında olacak. 

For k = 1 To TxtYaklasim.Text 

'k faktöriyel hesaplanıyor: 

faktor = 1 

For i = 1 To k 

faktor = faktor * i 

Next 

'2k+1 faktöriyel hesaplanıyor: 

faktor1 = 1 

For i = 1 To 2 * k + 1 

faktor1 = faktor1 * i 

Next 

'Toplam hesaplanıyor: 

toplam = toplam + ((2 ^ k) * (faktor ^ 2)) / 

faktor1 

Next 

LblSonuc.Text = 2 * toplam 

Else 

MsgBox("Yaklaşım sayısı 1-9 arasında olmalıdır!") 

End If 



2 Kasım 2011 

Else 

MsgBox("Lütfen sayısal veri giriniz!") 

End If 

Else 

MsgBox("İlgili alana veri girişi yapınız!") 

End If 

End Sub 

End Class 



2 Kasım 2011 

Uygulama No: 18 – Kuvvet ve Faktöriyel Hesabı 

Açıklama : Girilen sayının istenilen kuvveti ve faktöriyeli hesaplanıyor. “For-Next” döngü 

yapısının kullanımına ilişkin bir örnektir. 




Dim sayi, kuvvet As Integer 

Dim sonuc As Long 

Private Sub btnhesapla_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles btnhesapla.Click 

sayi = txtsayi.Text 

kuvvet = txtkuvvet.Text 

sonuc = 1 

For sayac = 1 To kuvvet 

sonuc = sayi * sonuc ‘Sayı, kuvvet defa kendisi ile 

çarpılıyor. 

Next sayac 

txtsonuc.Text = sonuc 

End Sub 

Private Sub btnfaktor_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles btnfaktor.Click 


sonuc = 1 

For sayac = 1 To sayi 

sonuc = sayac * sonuc ‘Sayıya kadar olan bütün sayılar 

çarpılıyor. 

Next sayac 

txtfaktor.Text = sonuc 

End Sub 

End Class 


Uygulama No: 19 – İç İçe Döngü 


2 Kasım 2011 

Açıklama : 000 ile 999 arasındaki sayılar iç içe düzenlenmiş üç for-next döngü yapısı 

kullanılarak oluşturuluyor. Kod içersinde yer alan 

“System.Threading.Thread.Sleep(10)” ifadesi, her adımda bekleme 

işlevini gerçekleştiriyor. Dolayısıyla sayaçların değişimi gözlenebiliyor. 




Dim sayi As Integer 

Dim k As Long 

Private Sub btnbaslat_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles btnbaslat.Click 

For sayac1 = 0 To 9 



lstsayi.Items.Add(sayac1.ToString + sayac2.ToString + 

sayac3.ToString) 

txtsayi3.Text = sayac3 



txtsayi3.Refresh() 



System.Threading.Thread.Sleep(10) ‘Her adımda 10 ms 

bekle. 

Next sayac3 

Next sayac2 

Next sayac1 

End Sub 

End Class 


Uygulama No: 20 – 153 Sayısı 


2 Kasım 2011 

Açıklama : 153 Sayısı şöyle bir özelliğe sahiptir: 153 = 1 3 + 5 3 + 3 3 . Acaba 100 ile 999 

arasında bu özelliği sağlayan, yani basamaklarının küplerinin toplamına eşit olan 

başka sayı ya da sayılar var mıdır? 




Dim sayi As Integer 

Private Sub Form1_Load(ByVal sender As Object, ByVal e As 

System.EventArgs) Handles Me.Load 

For yuzler = 1 To 9 

For onlar = 0 To 9 

For birler = 0 To 9 

sayi = 100 * yuzler + 10 * onlar + birler 

If sayi = yuzler ^ 3 + onlar ^ 3 + birler ^ 3 Then 

ListBox1.Items.Add(sayi) 

Next birler 

Next onlar 

Next yuzler 

End Sub 

End Class 


Uygulama No: 21 – Pisagor Üçlüleri 


2 Kasım 2011 

Açıklama : a 2 + b 2 = c 2 özelliğini sağlayan sayılar, dik üçgenin kenar uzunluklarını gösterirler 

ve Pisagor üçlüleri olarak anılırlar. 1 ile 99 arasındaki doğal sayılardan bu eşitliği 

sağlayanlar hangileri olabilir? 






For a = 1 To 99 

For b = 1 To 99 

For c = 1 To 99 

If (c ^ 2 = a ^ 2 + b ^ 2) And (a < b) Then 

ListBox1.Items.Add(a.ToString + " - " + b.ToString + " - " + c.ToString) 

Next c 

Next b 

Next a 

End Sub 

End Class 



2 Kasım 2011 

Uygulama No: 22 – Collatz Problemi 

Açıklama : Dolu tanesi sayıları olarak da bilinen problem, girilecek bir pozitif tamsayı ile 

başlayan bir sayı dizisi oluşturmaya dayanır. Dizinin her bir elemanı, bir önceki 

sayı kullanılarak şu kural dahilinde hesaplanır: Eğer sayı çift ise bir sonraki sayı 

bu sayının yarısı, tek ise üç katının bir fazlası olacaktır. Böylece ilk sayısı verilen 

bir sayı dizisi oluşturulur. 

Örneğin, ilk sayı 7 ise dizi şu şekilde oluşacaktır: 

7, 22, 11, 34, 17, 52, 26, 13, 40, 20, 10, 5, 16, 8, 4, 2, 1, 4, 2, 1, 4, 2, 1,... 

Ya da ilk sayı 21 ise, 

21, 64, 32, 16, 8, 4, 2, 1, ... 

Görüldüğü gibi dizi 1 sayısına ulaştığı anda sonsuz döngüye girmektedir. Aslında 

başlangıç sayısı olarak ne girersek girelim dizi her zaman 1 sayısına ulaşmaktadır, 

ama bu durum henüz matematiksel olarak kanıtlanamamıştır... 




2 Kasım 2011 



Dim sayi, sayac, enbuyuk As Long 

Private Sub btnbaslat_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles btnbaslat.Click 


lstdizi.Items.Clear() 

sayac = 0 

enbuyuk = 0 

Do 

lstdizi.Items.Add(sayi) 

If sayi Mod 2 = 0 Then ‘Sayı çift ise. 

sayi = sayi / 2 

Else 

‘Sayı tek ise. 

sayi = sayi * 3 + 1 

End If 

sayac = sayac + 1 

If sayi > enbuyuk Then enbuyuk = sayi ‘sayi enbuyuk’ten daha 

büyük ise yeni enbuyuk değeri sayi olsun. 

Loop Until sayi = 1 

lstdizi.Items.Add(1) 

lbladimsayisi.Text = sayac + 1 

lblenbuyuk.Text = enbuyuk 

End Sub 

End Class 



2 Kasım 2011 

Uygulama No: 23 – Kaprekar Sayıları 

Açıklama : Kaprekar sayıları , 1949 yılında Hintli matematikçi Kaprekar tarafından tariflenen 

sayılardır. 

n basamaklı bir t Kaprekar sayısının karesi alınıp sağdaki n basamağı solda kalan 

n-1 basamağa eklendiğinde sonuç yine t sayısını verir. 

Örnek: 

55 , iki basamaklı bir sayıdır. 

552 = 3025 , sağdan iki basamak 25 , soldan iki basamak 30. 

Bu iki sayının toplamı 30+25=55 yani sayının kendisidir. 

1, 9, 45, 55, 99, 297, 703, 999, 2223, 2728, 4879 sayıları da diğer bazı Kaprekar 

sayılarıdır. 




Dim sayi, uz, sayi_kare, sagtaraf, soltaraf, basla, bitir, 

sagtaraf_uzunluk, sayi_kare_uzunluk As Long 


System.EventArgs) Handles BtnHesapla.Click 

LstSayi.Items.Clear() 



2 Kasım 2011 

basla = TxtBaslangic.Text ' Bu sayı aralığın başlangıç sayısı ve 

en az 9 girilmeli 

bitir = TxtBitis.Text 

For sayi = basla To bitir 

uz = Strings.Len(sayi.ToString) 

sayi_kare = sayi * sayi 

sagtaraf = Strings.Right(sayi_kare.ToString, uz) 

sayi_kare_uzunluk = Strings.Len(sayi_kare.ToString) 

sagtaraf_uzunluk = Strings.Len(sagtaraf.ToString) 

soltaraf = Strings.Left(sayi_kare.ToString, sayi_kare_uzunluk 

- sagtaraf_uzunluk) 

If sagtaraf + soltaraf = sayi And sayi 10 Then 

LstSayi.Items.Add(sayi) 

End If 

Next 

End Sub 

End Class 


Uygulama No: 24 – Kaprekar Sabiti 


2 Kasım 2011 

Açıklama : Hintli matematikçi Kaprekar (1905-1986) tarafından tanımlanan , dört basamaklı 

sayılara en fazla yedi kez aşağıdaki işlemler uygulandığında ortaya çıkan sabit 

6174 sayısı. 

İşlemler , tüm basamakları aynı sayıdan oluşmayan (2222 gibi - ilk adımda sıfır 

sonucunu verecektir) ve herhangi üç basamağındaki sayılar aynı olup kalan bir 

basamaktaki sayı bu sayıdan bir büyük ya da bir küçük olmayan (1112, 5565 

veya 8788 gibi - ilk adımda 999 sayısını verecektir) dört basamaklı sayılara 

uygulandığında en fazla yedi adımda sıfır veya 6174 sabit sayısını verir. 

Yukarıdaki şartlara uygun dört basamaklı bir sayı alınır. 

Sayının basamaklarını büyükten küçüğe ve küçükten büyüğe doğru sıralayarak 

iki adet dört basamaklı sayı elde edilir. 

Elden edilen sayılardan büyükten küçüğü çıkarılır. 

2. adım tekrar edilir. 

En fazla yedi adımda sıfır ya da 6174 sabit sayısı elde edilecek ve kısır döngüye 

girilecektir. 

Örnek: 

6544 − 4456 = 2088 

8820 − 0288 = 8532 

8532 − 2358 = 6174 

7641 − 1467 = 6174 




Dim Tmp, Loop1, Loop2, Pos As Byte 

Dim enkucuksayi, enbuyuksayi, fark As Integer 

Dim sayilar(0 To 3) 

Private Sub BtnSirala_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnSirala.Click 

LstBuyukKucuk.Items.Clear() 

sayilar(0) = TxtSayi1.Text 



2 Kasım 2011 




‘Sıralama algoritması kullanılarak sayilar dizisi küçükten büyüğe 

doğru sıralanıyor: 

Do 

For Loop1 = 0 To 3 

Pos = Loop1 

For Loop2 = Loop1 + 1 To 3 

If sayilar(Loop2) < sayilar(Pos) Then 

Pos = Loop2 

End If 

Next Loop2 

If Pos Loop1 Then 

Tmp = sayilar(Pos) 

sayilar(Pos) = sayilar(Loop1) 

sayilar(Loop1) = Tmp 

End If 

Next Loop1 

enkucuksayi = 1000 * sayilar(0) + 100 * sayilar(1) + 10 * 

sayilar(2) + sayilar(3) 

enbuyuksayi = 1000 * sayilar(3) + 100 * sayilar(2) + 10 * 

sayilar(1) + sayilar(0) 

fark = enbuyuksayi - enkucuksayi 

LstBuyukKucuk.Items.Add(enbuyuksayi.ToString + "-" + 

enkucuksayi.ToString + "=" + fark.ToString) 

End Sub 

End Class 

sayilar(0) = Strings.Mid(fark.ToString, 1, 1) 




Loop Until fark = 6174 



2 Kasım 2011 

Uygulama No: 25 – Mükemmel Sayılar 

Açıklama : 1 dahil, kendisi hariç olmak üzere bölenlerinin toplamına eşit olan sayılara 

mükemmel sayı adı verilir. 

Örneğin 6=1+2+3 olduğundan bir mükemmel sayıdır. 

Bir sonraki mükemmel sayı 28’dir. Çünkü 28=1+2+4+7+14 olur. 

Geliştirdiğimiz uygulama, kullanıcı tarafından girilecek bir sayının mükemmel 

olup olmadığını test etmekte, değil ise bir sonraki mükemmel sayıyı 

hesaplamaktadır. 




Dim sayi, sayi1, toplam, k As Long 

Private Sub BtnKontrol_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnKontrol.Click 

sayi = TxtSayi.Text 

toplam = 0 

For k = 2 To sayi / 2 

If sayi Mod k = 0 Then toplam = toplam + k 

Next 

If toplam + 1 = sayi Then 

MsgBox("MÜKEMMEL!") 

Else ‘Sayı mükemmel değil ise bir sonrakini ara: 

sayi1 = sayi 

Do 

toplam = 0 

sayi1 = sayi1 + 1 

For k = 2 To sayi1 / 2 

If sayi1 Mod k = 0 Then toplam = toplam + k 

Next 

Loop Until toplam + 1 = sayi1 

MsgBox(sayi1) 

End If 

End Sub 

End Class 



2 Kasım 2011 

Uygulama No: 26 – Aritmetik Ortalama ve Standart Sapma 

Açıklama : Liste kutusuna aktarılan sayıların aritmetik ortalama ve standart sapmaları 

hesaplanıyor. 




Dim toplam1, toplam2 As Integer 

Dim ort, StdSapma As Double 


System.EventArgs) Handles BtnEkle.Click 

LstSayilar.Items.Add(TxtSayi.Text) 

TxtSayi.Clear() 

TxtSayi.Focus() 

End Sub 

Private Sub BtnCikis_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnCikis.Click 

End 

End Sub 

Private Sub BtnOrtalama_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnOrtalama.Click 

toplam1 = 0 

For k = 0 To LstSayilar.Items.Count - 1 

toplam1 = toplam1 + LstSayilar.Items.Item(k) 'liste kutusundaki 

sayılar toplanıyor. 

Next 

ort = toplam1 / LstSayilar.Items.Count 'Toplamın say adetine oranı. 

MsgBox(ort) 

End Sub 

Private Sub BtnStdSapma_Click(ByVal sender As System.Object, ByVal e As 



2 Kasım 2011 

System.EventArgs) Handles BtnStdSapma.Click 

toplam2 = 0 

For k As Integer = 0 To LstSayilar.Items.Count - 1 

toplam2 = toplam2 + (LstSayilar.Items(k) - ort) ^ 2 'Liste 

kutusundaki sayıların her biri ile ortalama arasındaki farkların kareleri 

toplamı. 

Next 

StdSapma = Math.Sqrt(toplam2 / (LstSayilar.Items.Count - 1)) 'Kareler 

toplamının sayı adetinin bir eksiğine oranının karekökü. 

MsgBox(StdSapma) 

End Sub 

Private Sub BtnSil_Click(ByVal sender As System.Object, ByVal e As 


LstSayilar.Items.Clear() 

TxtSayi.Focus() 

End Sub 

End Class 


Uygulama No: 27 – Renk Aktarımı 


2 Kasım 2011 

Açıklama : Label (etiket) nesneleri kullanarak oluşturulmuş bir renk paletinin kullanımı. 




Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles Label1.Click 

If RBtnForm.Checked Then ‘Eğer formun rengi opsiyonu seçili ise 

Me.BackColor = Label1.BackColor 

Else 

TextBox1.BackColor = Label1.BackColor 

End If 

End Sub 



If RBtnForm.Checked Then 


Else 


End If 

End Sub 





Else 


End If 

End Sub 





Else 


End If 



2 Kasım 2011 

End Sub 





Else 


End If 

End Sub 

End Class 



2 Kasım 2011 

Uygulama No: 28 – Fonksiyon Kullanımı 1 

Açıklama : Fonksiyon kullanılarak dört işlem hesabı. 




Function islem(ByVal kod As Char, ByVal s1 As Integer, ByVal s2 As 

Integer) As Double 

Select Case kod 

Case "+" : Return (s1 + s2) 

Case "-" : Return (s1 - s2) 

Case "*" : Return (s1 * s2) 

Case "/" : Return (s1 / s2) 

End Select 

End Function 

Private Sub RadioTopla_CheckedChanged(ByVal sender As System.Object, 

ByVal e As System.EventArgs) Handles RadioTopla.CheckedChanged 

TxtSonuc.Text = islem("+", CInt(TxtSayi1.Text), 

CInt(TxtSayi2.Text)) 

End Sub 

Private Sub RadioCikar_CheckedChanged(ByVal sender As System.Object, 

ByVal e As System.EventArgs) Handles RadioCikar.CheckedChanged 

TxtSonuc.Text = islem("-", CInt(TxtSayi1.Text), 


End Sub 

Private Sub RadioCarp_CheckedChanged(ByVal sender As System.Object, 

ByVal e As System.EventArgs) Handles RadioCarp.CheckedChanged 

TxtSonuc.Text = islem("*", CInt(TxtSayi1.Text), 


End Sub 

Private Sub RadioBol_CheckedChanged(ByVal sender As System.Object, 

ByVal e As System.EventArgs) Handles RadioBol.CheckedChanged 

TxtSonuc.Text = islem("/", CInt(TxtSayi1.Text), 


End Sub 

End Class 



2 Kasım 2011 

Uygulama No: 29 – Fonksiyon Kullanımı 2 

Açıklama : Fonksiyon kullanılarak maaş hesabı. 




Function cocuk_yardimi(ByVal m As Integer, ByVal c As Byte) As Double 

If c = 2 Then 

Return (c * m / 100) 

ElseIf c = 3 Then 

Return (2 * c * m / 100) 

ElseIf c > 3 Then 

Return (5 * c * m / 100) 

Else : Return 0 

End If 

End Function 

Function aile_yardimi(ByVal kod As Byte) As Integer 

If kod = 1 Then 

Return (22) 

ElseIf kod = 2 Then 

Return (48) 

Else : Return 0 

End If 

End Function 

Function yabanci_dil(ByVal kod As Byte) As Integer 

If kod = 1 Then 



2 Kasım 2011 

Return 125 


Return 55 


Return 25 

Else 

Return 0 

End If 

End Function 

Function kidem(ByVal m As Integer, ByVal kod As Byte) As Double 

Return (kod * m / 100) 

End Function 

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As 

System.Object, ByVal e As System.EventArgs) Handles 

ComboBox1.SelectedIndexChanged 

If ComboBox1.Text = "Bekar" Then 

ComboBox2.Enabled = False 

RadioButton1.Enabled = False 


RadioButton1.Checked = False 


ElseIf ComboBox1.Text = "Boşanmış/Dul" Then 

ComboBox2.Enabled = True 





Else 

ComboBox2.Enabled = True 

RadioButton1.Enabled = True 

RadioButton2.Enabled = True 

End If 

End Sub 



Dim m_gosterge As Integer = TextBox1.Text 

Dim maas As Double 

Dim kod As Byte = 0 

Dim cocuk_sayisi As Byte 

If ComboBox2.Text = ">3" Then 

cocuk_sayisi = 4 

Else 

cocuk_sayisi = CInt(ComboBox2.Text) 

End If 

maas = m_gosterge + cocuk_yardimi(m_gosterge, cocuk_sayisi) 

If RadioButton1.Checked Then kod = 1 

If RadioButton2.Checked Then kod = 2 

maas = maas + aile_yardimi(kod) 

kod = 0 

If ComboBox3.Text = "90-100" Then kod = 1 



maas = maas + yabanci_dil(kod) 



2 Kasım 2011 

kod = 0 

If ComboBox4.Text = "Lise" Then kod = 1 

If ComboBox4.Text = "Üniversite" Then kod = 2 

If ComboBox4.Text = "Yüksek Lisans" Then kod = 3 

If ComboBox4.Text = "Doktora" Then kod = 4 

maas = maas + kidem(m_gosterge, kod) 

Label5.Text = maas 

End Sub 

End Class 


Uygulama No: 30 – Palindrom 


2 Kasım 2011 

Açıklama : Girilen metnin palindrom (tersten de aynı şekilde okunan) olup olmadığının test 

edilmesi. 






Dim metin As String = TextBox1.Text 

Dim metin_ters As String = "" 

For k = Len(metin) - 1 To 0 Step -1 

metin_ters = metin_ters & metin(k) 

Next 

If metin = metin_ters Then MsgBox("TAMAM") 

End Sub 

End Class 



2 Kasım 2011 

Uygulama No: 31 – Palindrom/Liste 

Açıklama : Girilen metnin içerisinde yer alan palindrom kelimeler ayıklanarak liste kutusuna 

aktarılıyor. 






Dim metin As String = TextBox1.Text & " " 

Dim kelime, kelime_ters As String 

Dim p As Integer = 1 

ListBox1.Items.Clear() 

For k = 0 To Len(metin) - 1 

If metin(k) = " " Then 

kelime = Trim(Strings.Mid(metin, p, k - p + 1)) 

kelime_ters = "" 

For j = Len(kelime) - 1 To 0 Step -1 

kelime_ters = kelime_ters & kelime(j) 

Next 

If kelime = kelime_ters Then ListBox1.Items.Add(kelime) 

p = p + Len(kelime) + 1 

End If 

Next 

End Sub 

End Class 



2 Kasım 2011 

Uygulama No: 32 – Metin İstatistikleri 

Açıklama : Çok-satırlı bir metin kutusuna girilen metnin hece, kelime ve cümle sayıları 

hesaplanıyor ve girilen bir anahtar kelimenin metin içersinde geçme sayısı 

bulunuyor. 




Dim metin, anahtar, sonkarakter As String 

Dim kelime_sayisi, cumle_sayisi, hece_sayisi, p, konum, sayac As Integer 

Private Sub BtnHesapla_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnHesapla.Click 

metin = TxtMetin.Text + " " 

kelime_sayisi = 0 

cumle_sayisi = 0 

hece_sayisi = 0 

For k = 0 To Strings.Len(metin) - 1 'Metni sonuna kadar karakter 

karakter tarıyor. 

If metin(k) = " " Then kelime_sayisi = kelime_sayisi + 1 'Kelime 

sayısı=boşluk sayısı. Çünkü yukarıda fazladan bir boşluk eklemiştik. 

If k = Strings.Len(metin) - 1 Then Exit For 'Aşağıdaki koşulda son 

karakterden sonra (k+1) arama yapmasın 



2 Kasım 2011 

If (metin(k) = "." And (metin(k + 1) = " " Or Strings.Asc(metin(k + 

1)) = 13)) Or metin(k) = "?" Or metin(k) = "!" Then cumle_sayisi = cumle_sayisi + 

1 

'Hece sayısı=sesli harf sayısı: 

If metin(k) = "a" Or metin(k) = "e" Or metin(k) = "ı" Or metin(k) = 

"i" Or metin(k) = "o" Or metin(k) = "ö" Or metin(k) = "u" Or metin(k) = "ü" Then 

hece_sayisi = hece_sayisi + 1 

Next 

LblCumleSayisi.Text = cumle_sayisi 

LblKelimeSayisi.Text = kelime_sayisi 

LblHeceSayisi.Text = hece_sayisi 

End Sub 

Private Sub BtnBul_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnBul.Click 

metin = TxtMetin.Text 

If RadioButton1.Checked Then 'Serbest arama. Yani "masa" aranırken 

"masal" da bulunur. 

anahtar = TxtAnahtarKelime.Text 

Else 

anahtar = " " + TxtAnahtarKelime.Text + " " 'Tam eşitlik arama. 

"masa" aranırken, "masal" bulunmaz. 

End If 

sayac = 0 

konum = 1 

Do 

p = Strings.InStr(konum, metin, anahtar) '"anahtar" kelime "metin" 

içersinde "konum"dan başlayarak aranıyor. 

If p 0 Then sayac = sayac + 1 

konum = p + Strings.Len(anahtar) 'Bulunca aramaya yeni konumdan 

devam et. 

Loop Until p = 0 

LblSayi.Text = sayac 

End Sub 

End Class 



2 Kasım 2011 

Uygulama No: 33 – Anahtarlı Metin Şifreleme 

Açıklama : 

Çok-satırlı bir metin kutusuna girilen bir metin, anahtar 

kelime kullanılarak şifreleniyor. Şifreleme, metnin her bir 

karakterinin ASCII koduna, anahtar kelimenin her bir 

karakterinin ASCII kodunun eklenmesi ile gerçekleştiriliyor. 

Aşağıda, örnek üzerinden şifreleme algoritmasının 

açıklaması yapılmıştır: 

Ek Açıklama 

Metin = “Bilgisayar ve Öğretim” 

Anahtar = “okul” 

B 254 İ 60 l 254 g 254 i 254 s a y a r v e Ö ğ r 

o 50 k 50 u 255 l 254 o 253 k u l o k u l o k u l o 

, 

Toplam=304 

Mod 255=49 

Ü 

110 

110 

# 

509 

254 

^ 

508 

253 

? 

507 

252 

h 8 9 d 6 , i 2 1 m * } 

, 49 Ü # 254 ^ 253 ? 252 h 8 9 d 6 , i 2 1 m * } 

110 

o 50 k 50 u 255 l 254 o 253 k u l o k u l o k u l o 

Fark=-1 

Fark


2 Kasım 2011 



Private Sub BtnSifrele_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnSifrele.Click 

Dim metin As String = TxtMetin.Text 

Dim anahtar As String = InputBox("Anahtar kelimeyi giriniz:") 

Dim sifreli_metin As String = "" 

Dim j As Byte = 0 

For k = 0 To Strings.Len(metin) - 1 'Metni karakter karakter sonuna 

kadar tara. 

sifreli_metin = sifreli_metin + Strings.Chr((Strings.Asc(metin(k)) + 

Strings.Asc(anahtar(j))) Mod 255) 

'Şifreli metni, her bir karakterinin koduna anahtar kelimenin 

sıradaki karakterinin kodunu ekleyerek bul. 

'Neden Mod 255? Çünkü toplam 255 değerini aşabilir. 

j = j + 1 

If j = Strings.Len(anahtar) Then j = 0 'Anahtar kelimenin indisi 

ayrı tutulmalı. Yoksa indisde değer aşımı olur. 

Next 

TxtSifreliMetin.Text = sifreli_metin 

End Sub 

End Class 



2 Kasım 2011 

Uygulama No: 34 – Anahtarlı Metin Şifre Çözme 

Açıklama : Önceki uygulamada gerçekleştirilen şifrelemeyi, aynı anahtarın girilmesi şartıyla 

ters algoritma kullanarak çözen uygulama. 




Private Sub BtnSifrecoz_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnSifrecoz.Click 

Dim sifreli_metin As String = TxtSifreliMetin.Text 

Dim anahtar As String = InputBox("Anahtar kelimeyi giriniz:") 

Dim metin As String = "" 

Dim kod As Integer 

Dim j As Byte = 0 

For k = 0 To Strings.Len(sifreli_metin) - 1 

kod = Strings.Asc(sifreli_metin(k)) - Strings.Asc(anahtar(j)) 

If kod


2 Kasım 2011 

Uygulama No: 35 – Veritabanı Uygulaması 1 

Açıklama : Veritabanı ile bağlantı kurulması ve veri okunması. 




Private Sub BtnTamam_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnTamam.Click 

Dim baglanti_metni1, baglanti_metni2 As String 

baglanti_metni1 = "Provider=Microsoft.ACE.OLEDB.12.0; Data 

Source=|DataDirectory|\vt1.accdb; Persist Security Info=False;" 

baglanti_metni2 = "Provider=Microsoft.Jet.OLEDB.4.0; Data 

Source=|DataDirectory|\vt1.mdb; Persist Security Info=False;" 

‘Bu bağlantı metinlerinden birisi kullanılacaktır. 

‘MS.ACE.OLEDB motoru 64 bit işletim sistemlerinde sorun çıkarabiliyor. 

‘Bu durumda MS.Jet.OLEDB motorunun ve mdb formatının kullanılması tavsiye 

edilir. 

Dim baglanti1 As New Data.OleDb.OleDbConnection(baglanti_metni2) 

baglanti1.Open() 

‘Bağlantı metni kullanılarak yeni bir bağlantı tanımlanıyor ve açılıyor. 

Dim sql1 As String 

sql1 = "select * from tablo1 where klnad='" & TxtKlnAd.Text & "' 

and sifre='" & TxtSifre.Text & "'" 

‘Formdaki alanların değerleri kullanılarak veri seçme işlevine sahip bir 

SQL cümlesi oluşturuluyor. 

Dim komut1 As New System.Data.OleDb.OleDbCommand(sql1, baglanti1) 

‘Bağlantı ve SQL cümlesi kullanılarak yeni bir veritabanı komutu 

tanımlanıyor. 

Dim veri_okuyucu1 As Data.OleDb.OleDbDataReader 

veri_okuyucu1 = komut1.ExecuteReader 

‘Tanımlanan veritabanı komutu üzerinden bir veri okuyucusu tanımlanıyor ve 

çalıştırılıyor. 

If veri_okuyucu1.HasRows = True Then ‘Eğer veri okuyucusunda veri 

varsa 

MsgBox("Kullanıcı kayıtlı.") 


End Sub 

End Class 


2 Kasım 2011 

Else 

MsgBox("Kullanıcı kayıtlı değil.") 

End If 

baglanti1.Close() 



2 Kasım 2011 


Açıklama : Veritabanı ile bağlantı kurulması ve veri okunması. 




Private Sub BtnTamam_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnTamam.Click 






‘Bu bağlantı metinlerinden birisi kullanılacaktır. 

‘MS.ACE.OLEDB motoru 64 bit işletim sistemlerinde sorun çıkarabiliyor. 

‘Bu durumda MS.Jet.OLEDB motorunun ve mdb formatının kullanılması tavsiye 

edilir. 



‘Bağlantı metni kullanılarak yeni bir bağlantı tanımlanıyor ve açılıyor. 


sql1 = "select * from tablo1 where klnad='" & TxtKlnAd.Text & "' 

and sifre='" & TxtSifre.Text & "'" 

‘Formdaki alanların değerleri kullanılarak veri seçme işlevine sahip bir 

SQL cümlesi oluşturuluyor. 


‘Bağlantı ve SQL cümlesi kullanılarak yeni bir veritabanı komutu 

tanımlanıyor. 



‘Tanımlanan veritabanı komutu üzerinden bir veri okuyucusu tanımlanıyor ve 

çalıştırılıyor. 

If veri_okuyucu1.HasRows = True Then ‘Eğer veri okuyucusunda veri 

varsa 

veri_okuyucu1.Read() 



2 Kasım 2011 

MsgBox("Merhaba " & veri_okuyucu1("ad") & " " & 

veri_okuyucu1("soyad") & ". MATRIX'e hoşgeldin...") ‘Veri okuyucusu 

kullanılarak istenilen alana ulaşmak mümkün. 

Else 

MsgBox("Kullanıcı kayıtlı değil.") 

End If 


End Sub 

End Class 



2 Kasım 2011 


Açıklama : Veritabanına kayıt eklenmesi. 




Private Sub BtnKaydet_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnKaydet.Click 









sql1 = "insert into anatablo (ad,soyad,fakulte,bolum) values ('" + 

TxtAd.Text + "','" + TxtSoyad.Text + "','" + CmbFakulte.Text + "','" + 

CmbBolum.Text + "')" 

‘Veritabanı tablosuna satır eklemek için kullanılacak SQL cümlesi 

End Sub 

End Class 


komut1.ExecuteNonQuery()‘SQL sorgusu burada çalıştırılıyor. 


MsgBox("Veriler Kaydedildi") 

TxtAd.Clear() 

TxtSoyad.Clear() 

TxtAd.Focus() 

CmbBolum.ResetText() 

CmbFakulte.ResetText() 



2 Kasım 2011 


Açıklama : Veritabanına kayıt eklenmesi. 








Source=|DataDirectory|\sinema.accdb; Persist Security Info=False;" 


Source=|DataDirectory|\sinema.mdb; Persist Security Info=False;" 




sql1 = "insert into filmler (film_adi,yonetmen,yili,yildiz,yorum) 

values ('" + TxtFilmAdi.Text + "','" + TxtYonetmen.Text + "'," & 

CInt(CmbYili.Text) & "," & CInt(CmbYildiz.Text) & ",'" & TxtYorum.Text + 

"')" 

‘Dikkat: insert cümlesinde veritabanında sayı türünde tanımlanmış alanlar 

için tek tırnak işareti kullanılmaz. 


komut1.ExecuteNonQuery() 


MsgBox("Veriler Kaydedildi") 

TxtFilmAdi.Clear() 

TxtYonetmen.Clear() 


End Sub 

TxtYorum.Clear() 

TxtFilmAdi.Focus() 

CmbYildiz.ResetText() 

CmbYili.ResetText() 


2 Kasım 2011 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles MyBase.Load 

For k = 1900 To 2010 

CmbYili.Items.Add(k) 

Next 

End Sub 

End Class 



2 Kasım 2011 


Açıklama : Veritabanına kayıt eklenmesi – Resim uygulamalı. 




Dim b1, b2, b3, b4, b5, yildiz As Byte 





Source=|DataDirectory|\sinema.accdb; Persist Security Info=False;" 


Source=|DataDirectory|\sinema.mdb; Persist Security Info=False;" 




sql1 = "insert into filmler (film_adi,yonetmen,yili,yildiz,yorum) 

values ('" + TxtFilmAdi.Text + "','" + TxtYonetmen.Text + "'," & 

CInt(CmbYili.Text) & "," & yildiz & ",'" & TxtYorum.Text + "')" 




TxtFilmAdi.Clear() 

TxtYonetmen.Clear() 




2 Kasım 2011 

End Sub 

TxtFilmAdi.Focus() 

CmbYili.ResetText() 

PictureBox1.ImageLocation = "bos_yildiz.bmp" 

PictureBox1.Load() 









b1 = 0 

b2 = 0 

b3 = 0 

b4 = 0 

b5 = 0 

yildiz = 0 



For k = 1900 To 2010 ‘ComboBox bu döngü ile dolduruluyor. 

CmbYili.Items.Add(k) 

Next 

yildiz = 0 ‘Filmin yıldız toplamını tutacak değişken; başlangıçta 

sıfırlanıyor. 

End Sub 

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e 

As System.EventArgs) Handles PictureBox1.Click 

If b1 = 0 Then ‘Eğer ilk defa tıklandı ise 

PictureBox1.ImageLocation = "dolu_yildiz.bmp" ‘Resim dosyası 

PictureBox1.Load()‘Resmi yükle 

b1 = 1 

yildiz = yildiz + 1 ‘Her sarı yıldız resmi için yıldız puanını 

bir artır. 

Else ‘Eğer ikinci defa tıklandı ise 



b1 = 0 

yildiz = yildiz – 1 ‘Her beyaz yıldız resmi için yıldız 

puanını bir azalt. 

End If 

End Sub 



If b2 = 0 Then 

PictureBox2.ImageLocation = "dolu_yildiz.bmp" 


b2 = 1 

yildiz = yildiz + 1 

Else 



b2 = 0 

yildiz = yildiz - 1 



2 Kasım 2011 

End If 

End Sub 






b3 = 1 


Else 



b3 = 0 


End If 

End Sub 






b4 = 1 


Else 



b4 = 0 


End If 

End Sub 






b5 = 1 


Else 



b5 = 0 


End If 

End Sub 

Private Sub BtnKapat_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnKapat.Click 

End 

End Sub 

End Class 



2 Kasım 2011 


Açıklama : Veritabanına kayıt ekleme, kayıt düzeltme, kayıt silme ve dinamik 

ComboBox denetimi 

Ekran Görüntüsü – Form3 (Menü) 



Private Sub BtnGiris_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnGiris.Click 

Form1.ShowDialog()‘Form1 in açılmasını sağlar. Show metodundan 

farkı, form açıldığında arkada kalan diğer uygulama pencerelerinin 

çalışmasına izin vermemesidir. 

End Sub 

Private Sub BtnAra_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnAra.Click 

Form2.ShowDialog() 

End Sub 



End 

End Sub 

End Class 



2 Kasım 2011 

Ekran Görüntüsü – Form1 (Veri Girişi) 



Dim baglanti As New 

Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; 

DataSource=|DataDirectory|\meteor.mdb; Persist Security Info=False;") 



baglanti.Open() 

If CmbBolge.Text = "SEÇİNİZ" Then ‘Bölge seçmeden olmaz… 

MsgBox("Bölge Seçiniz!") 

ElseIf Cmbil.Text = "SEÇİNİZ" Then ‘İl seçmeden olmaz… 

MsgBox("İl Seçiniz!") 

Else 

Dim sql, hava_durumu As String 

Dim hava_durumu_kodu As Byte 

If rdb_gunesli_1.Checked Then ‘Eğer güneşli resminin yanındaki 

radyo düğmesi işaretli ise bu durumda hava durumu kodu ve haca durumu 

değişkenlerine uygun değerler aktarılıyor. 

hava_durumu_kodu = 1 

hava_durumu = "Güneşli" 

ElseIf rdb_azbulutlu_2.Checked Then 



2 Kasım 2011 


hava_durumu = "Az Bulutlu" 

ElseIf rdb_bulutlu_3.Checked Then 


hava_durumu = "Bulutlu" 

ElseIf rdb_gokgurultulu_4.Checked Then 


hava_durumu = "Gök Gürültülü ve Sağanak Yağışlı" 

ElseIf rdb_karlakar_5.Checked Then 


hava_durumu = "Karla Karışık Yağmurlu" 

ElseIf rdb_kar_6.Checked Then 


hava_durumu = "Kar Yağışlı" 

ElseIf rdb_parcali_7.Checked Then 


hava_durumu = "Parçalı Bulutlu" 

ElseIf rdb_saganak_8.Checked Then 


hava_durumu = "Sağanak Yağışlı" 

ElseIf rdb_sis_9.Checked Then 


hava_durumu = "Sisli" 

ElseIf rdb_yeryeryagmur_10.Checked Then 


hava_durumu = "Yer Yer Yağmurlu" 

End If 

sql = "insert into ana_tablo 

(bolge,il,hava_durumu_kodu,hava_durumu,yorum,tarih) values ('" & 

CmbBolge.Text & "','" & Cmbil.Text & "'," & hava_durumu_kodu & ",'" & 

hava_durumu & "','" & TxtYorum.Text & "','" & Tarih.Value.Date & "')" 

Dim komut As New System.Data.OleDb.OleDbCommand(sql, baglanti) 

komut.ExecuteNonQuery() 

MsgBox("Bilgiler Veritabanına Kaydedilmiştir.") 

CmbBolge.Text = "SEÇİNİZ" ‘Kayıttan sora ekran ilk haline 

getiriliyor. 

Cmbil.Text = "SEÇİNİZ" 

Cmbil.Items.Clear() 


rdb_gunesli_1.Checked = False 

rdb_azbulutlu_2.Checked = False 

rdb_bulutlu_3.Checked = False 

rdb_gokgurultulu_4.Checked = False 

rdb_karlakar_5.Checked = False 

rdb_kar_6.Checked = False 

rdb_parcali_7.Checked = False 

rdb_saganak_8.Checked = False 

rdb_sis_9.Checked = False 

rdb_yeryeryagmur_10.Checked = False 

CmbBolge.Focus() 

End If 

baglanti.Close() 

End Sub 





2 Kasım 2011 


Dim sql As String 

sql = "select bolge from bolge_il group by bolge" ‘Form yüklenirken 

veritabanındaki bolge_il tablosundan coğrafi bölgeler alınıyor. 


Dim veri_okuyucu As Data.OleDb.OleDbDataReader 

veri_okuyucu = komut.ExecuteReader 

While (veri_okuyucu.Read())‘Bu döngü çekilen veriyi (bölgeler) 

taramak için kullanılıyor. 

CmbBolge.Items.Add(veri_okuyucu("bolge")) ‘Bölgeler ilgili 

ComboBox a seçenek olarak ekleniyor. 

End While 


End Sub 




End 

End Sub 

Private Sub CmbBolge_SelectedIndexChanged(ByVal sender As 


CmbBolge.SelectedIndexChanged 





sql = "select il from bolge_il where bolge = '" & CmbBolge.Text & 

"'" 

‘Seçilen bölge altında yer alan iller seçiliyor ve ilgili ComboBox a 

seçenek olarak ekleniyor. 




While (veri_okuyucu.Read()) 

Cmbil.Items.Add(veri_okuyucu("il")) 

End While 


End Sub 

End Class 



2 Kasım 2011 

Ekran Görüntüsü – Form2 (Veri Arama/Düzeltme/Silme) 




Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data 

Source=|DataDirectory|\meteor.mdb; Persist Security Info=False;") 





sql = "select bolge from bolge_il group by bolge" 





CmbBolge.Items.Add(veri_okuyucu("bolge")) 

End While 


End Sub 

Private Sub CmbBolge_SelectedIndexChanged(ByVal sender As 


CmbBolge.SelectedIndexChanged 





2 Kasım 2011 

"'" 



sql = "select il from bolge_il where bolge = '" & CmbBolge.Text & 





Cmbil.Items.Add(veri_okuyucu("il")) 

End While 


End Sub 




Me.Close() 

End Sub 

Private Sub BtnAra_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnAra.Click 



sql = "select hava_durumu_kodu,yorum from ana_tablo where il = '" & 

Cmbil.Text & "' and tarih like '" & Tarih.Value.Date & "'" 

‘il ve tarih değeri tutan kayıt aranıyor. 




ise… 

If Not veri_okuyucu.HasRows Then ‘Eğer veri oluyucu kayıt içermiyor 

MsgBox("Bu bilgiyi içeren herhangi bir kayıt bulunamadı...") 

Else 


If veri_okuyucu("hava_durumu_kodu") = 1 Then 

rdb_gunesli_1.Checked = True 

ElseIf veri_okuyucu("hava_durumu_kodu") = 2 Then 

rdb_azbulutlu_2.Checked = True 


rdb_bulutlu_3.Checked = True 


rdb_gokgurultulu_4.Checked = True 


rdb_karlakar_5.Checked = True 


rdb_kar_6.Checked = True 


rdb_parcali_7.Checked = True 


rdb_saganak_8.Checked = True 


rdb_sis_9.Checked = True 

Else 

rdb_yeryeryagmur_10.Checked = True 

End If 


End Sub 


2 Kasım 2011 

TxtYorum.Text = veri_okuyucu("yorum") 

End While 

End If 





If CmbBolge.Text = "SEÇİNİZ" Then 


ElseIf Cmbil.Text = "SEÇİNİZ" Then 


Else 

Dim sql, hava_durumu As String 

Dim hava_durumu_kodu As Byte 

If rdb_gunesli_1.Checked Then 


hava_durumu = "Güneşli" 

ElseIf rdb_azbulutlu_2.Checked Then 


hava_durumu = "Az Bulutlu" 

ElseIf rdb_bulutlu_3.Checked Then 


hava_durumu = "Bulutlu" 

ElseIf rdb_gokgurultulu_4.Checked Then 


hava_durumu = "Gök Gürültülü ve Sağanak Yağışlı" 

ElseIf rdb_karlakar_5.Checked Then 


hava_durumu = "Karla Karışık Yağmurlu" 

ElseIf rdb_kar_6.Checked Then 


hava_durumu = "Kar Yağışlı" 

ElseIf rdb_parcali_7.Checked Then 


hava_durumu = "Parçalı Bulutlu" 

ElseIf rdb_saganak_8.Checked Then 


hava_durumu = "Sağanak Yağışlı" 

ElseIf rdb_sis_9.Checked Then 


hava_durumu = "Sisli" 

ElseIf rdb_yeryeryagmur_10.Checked Then 


hava_durumu = "Yer Yer Yağmurlu" 

End If 

sql = "update ana_tablo set hava_durumu_kodu = " & 

hava_durumu_kodu & ",hava_durumu = '" & hava_durumu & "',yorum = '" & 

TxtYorum.Text & "' where il = '" & Cmbil.Text & "' and tarih like '" & 

Tarih.Value.Date & "'" 

‘Veritabanında güncelleme işlemi gerçekleştiriliyor. 



MsgBox("Bilgiler Veritabanında Güncellenmiştir.") 



2 Kasım 2011 

End If 


End Sub 

Private Sub BtnSil_Click(ByVal sender As System.Object, ByVal e As 



If CmbBolge.Text = "SEÇİNİZ" Then 


ElseIf Cmbil.Text = "SEÇİNİZ" Then 


Else 


sql = "delete from ana_tablo where il = '" & Cmbil.Text & "' 

and tarih like '" & Tarih.Value.Date & "'" 

‘Veritabanından formda bilgileri bulunan kayıt siliniyor. 



End Sub 

End Class 

MsgBox("Bilgiler Veritabanından Silinmiştir.") 

End If 


CmbBolge.Text = "SEÇİNİZ" 




rdb_gunesli_1.Checked = False 

rdb_azbulutlu_2.Checked = False 

rdb_bulutlu_3.Checked = False 

rdb_gokgurultulu_4.Checked = False 

rdb_karlakar_5.Checked = False 

rdb_kar_6.Checked = False 

rdb_parcali_7.Checked = False 

rdb_saganak_8.Checked = False 

rdb_sis_9.Checked = False 

rdb_yeryeryagmur_10.Checked = False 

CmbBolge.Focus() 



2 Kasım 2011 

Veritabanı Tasarımı (meteor.mdb) 



2 Kasım 2011 



2 Kasım 2011 

VERİTABANI UYGULAMALARI HAKKINDA ÖZET BİLGİ 

VB.Net uygulamasından bir Access veritabanına nasıl bağlanırım? 

Bunun için ilk yapmamız gereken, bir bağlantı cümlesi kurmaktır. Aşağıda iki farklı durum için örnekler 

verilmiştir: 


baglanti_metni1 = "Provider=Microsoft.ACE.OLEDB.12.0; 

DataSource=|DataDirectory|\vt1.accdb; Persist Security Info=False;" 

baglanti_metni2 = "Provider=Microsoft.Jet.OLEDB.4.0; 

DataSource=|DataDirectory|\vt1.mdb; Persist Security Info=False;" 

İlk cümlede (baglanti_metni1) bağlanılan veritabanı dosyası Access 2007 sürümüne aittir. Dolayısıyla 

accdb formatındadır. 

İkinci cümlede ise (baglanti_metni2) bağlanılan veritabanı dosyası Access 2003 sürümüne ait bir mdb 

dosyasıdır. 

Bu cümlelerden uygun olanı seçilerek bağlantı kurulur: 



Bağlandığım veritabanında bir tabloya nasıl veri girebilirim? 

Öncelikle buna uygun bir SQL cümlesi oluşturmamız gerekir: 

sql1 = "insert into anatablo (numarasi, adi, soyadi, fakultesi, bolumu) 

values (10909299, ‘Salih’, ‘Baran’, ‘Eğitim Bilimleri’, ‘BÖTE’)" 

İkinci olarak, bu SQL cümlesi ve daha önce tanımladığımız bağlantı (baglanti1) kullanılarak bir komut 

tanımlanması ve bu komutun çalıştırılması gerekir: 



Ve artık bilgiler veritabanımızın anatablo isimli tablosunda… 

Bağlantımızı kapatabiliriz: 


Peki ya bilgileri form üzerinden almak istersem? 

Yukarıdaki kodlarda yapacağımız tek değişiklik, SQL cümlesinde olacaktır: 

sql1 = "insert into anatablo (numarasi, adi, soyadi, fakultesi, bolumu) 

values (“ & TxtNumara.Text & “,‘” & TxtAd.Text & “’,‘” & TxtSoyad.Text & 

“’,‘” & TxtFakulte.Text & “’,‘” & TxtBolum.Text “’)" 



2 Kasım 2011 

Veritabanındaki bir tablodan nasıl veri çekebilirim? 

Daha önce tanımladığımız bağlantımızı açarak başlayalım: 


Şimdi bu bağlantı üzerinden şu SQL cümlesini çalıştıracağız: 

sql2 = “select * from anatablo” 


Şimdi bu komut üzerinden yeni bir nesne olan veri okuyucuyu çalıştıracağız: 



Artık anatablo içindeki veriler veri_okuyucu nesnesi içersinde. Son olarak bu nesnenin içerdiği 

bilgilerin nasıl görüntülenebileceğine bakalım: 


LstBilgiler.Items.Add(veri_okuyucu("numarasi") & “ “ & veri_okuyucu("adi") 

& “ “ & veri_okuyucu("soyadi")) 

End While 

Ve bağlantımızı kapatalım: 


Ya sadece belirli alanları çekmek İstersem? 

Sadece SQL cümlemizde değişiklik yapacağız: 

sql2 = “select numarasi, adi, soyadi from anatablo” 

Peki “soyadı A harfi ile başlayan” gibi bir koşul koymak istersem? 

Yine SQL cümlemizi değiştirmek yeterli olacaktır: 

sql2 = “select numarasi, adi, soyadi from anatablo where adi like ‘A%’” 

Veritabanındaki bir tablonun istediğim bir kaydını nasıl güncellerim? 

Öncelikle şu SQL cümlesinin oluşturulması gerekir: 

sql1 = "update anatablo set adi=’“ & TxtAd.Text & “’,soyadi=’” & 

TxtSoyad.Text & “’ where numarasi=" & TxtNumara.Text 

Bundan sonraki adım, kayıt ekleme ile aynı olacaktır: 







2 Kasım 2011 

Veritabanındaki bir tablonun istediğim bir kaydını nasıl silebilirim? 

Öncelikle SQL cümlemizi yazalım: 

sql1 = "delete from anatablo where numarasi=" & TxtNumara.Text 

Bundan sonraki adım, kayıt ekleme ve güncelleme ile aynı olacaktır: 







2 Kasım 2011 


Açıklama : Veritabanı bağlantılı Dinamik ComboBox kullanımı 






Source=|DataDirectory|\ogrenci.mdb; Persist Security Info=False;") 

Dim flag As Byte 





‘ Fakülteler form yüklenirken veritabanından gelsin 

sql = "select fakulte from fakulte_bolum group by fakulte" 

‘group by kullanılıyor çünkü fakülte adları fakulte_bolum 

tablosunda tekrar ediyor. 





CmbFakulte.Items.Add(veri_okuyucu("Fakulte")) 

End While 


End Sub 

Private Sub CmbFakulte_SelectedIndexChanged(ByVal sender As 




2 Kasım 2011 

CmbFakulte.SelectedIndexChanged 

If flag = 0 Then baglanti.Open() 

CmbBolum.Items.Clear() 

CmbBolum.Text = "SEÇİNİZ" 


sql = "select Bolum from fakulte_bolum where fakulte = '" & 

CmbFakulte.Text & "'" 




‘Veritabanından seçilen fakülte altında yer alan bölümler 

çekiliyor 


CmbBolum.Items.Add(veri_okuyucu("bolum")) 

End While 

If flag = 0 Then baglanti.Close() 

End Sub 

Private Sub BtnBilgiGetir_Click(ByVal sender As System.Object, ByVal e 

As System.EventArgs) Handles BtnBilgiGetir.Click 

flag = 1 



sql = "select * from ana_tablo where Ogrencino = '" & 

TxtOgrenciNo.Text & "'" 



veri_okuyucu1 = komut.ExecuteReader 

If Not veri_okuyucu1.HasRows Then 

‘ Eğer veri okuyucu boş dönmüş ise… 

MsgBox("Bu bilgiyi içeren herhangi bir kayıt bulunamadı...") 

Else 

While (veri_okuyucu1.Read()) 

TextAd.Text = veri_okuyucu1("adi") 

TextSoyad.Text = veri_okuyucu1("soyadi") 

TextBabaAd.Text = veri_okuyucu1("babaadi") 

TextGun.Text = veri_okuyucu1("gun") 

TextAy.Text = veri_okuyucu1("ay") 

TextYil.Text = veri_okuyucu1("yil") 

CmbFakulte.SelectedItem = veri_okuyucu1("fakulte") 

CmbBolum.SelectedItem = veri_okuyucu1("bolum") 

End While 

End If 


flag = 0 

End Sub 





If CmbFakulte.Text = "SEÇİNİZ" Then 

MsgBox("Fakülte Seçiniz!") 

ElseIf CmbBolum.Text = "SEÇİNİZ" Then 

MsgBox("Bölüm Seçiniz!") 

Else 

sql = "update ana_tablo set fakulte = '" & CmbFakulte.Text & 

"', bolum='" & CmbBolum.Text & "',adi = '" & TextAd.Text & "',soyadi='" & 

TextSoyad.Text & "',babaadi = '" & TextBabaAd.Text & "',gun=" & 

TextGun.Text & ",ay=" & TextAy.Text & ",yil=" & TextYil.Text & " where 



2 Kasım 2011 

ogrencino = '" & TxtOgrenciNo.Text & "'" 



‘Veritabanında ana_tablo üzerinde düzeltme yapıldı. 

MsgBox("Bilgiler Veritabanında Güncellenmiştir.") 

End If 


End Sub 

End Class 



2 Kasım 2011 


Açıklama : Veritabanı bağlantılı web tarayıcısı uygulaması 

Ekran Görüntüsü – Form1 





Source=|DataDirectory|\webadres.mdb; Persist Security Info=False;") 

Private Sub BtnGit_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnGit.Click 

If Trim(CmbAdres.Text) "" Then 

Dim adresTXT As String = CmbAdres.Text 

If Strings.Left(adresTXT, 7) "http://" And CmbAdres.Text 

"about:blank" Then 

adresTXT = "http://" & adresTXT 

End If 

Dim adresURL As New Uri(adresTXT) 

WebBrowser1.Url = adresURL 

CmbAdres.Text = adresTXT 

'Adresi veritabanına ekle: 


Dim Sql As String = "insert into tablo1 (url,tarih) values ('" 

& adresTXT & "','" & Date.Now & "')" 

Dim komut As New System.Data.OleDb.OleDbCommand(Sql, baglanti) 





2 Kasım 2011 

'Adresi adres çubuğuna ekle: 

CmbAdres.Items.Add(adresTXT) 

End If 

End Sub 

Private Sub CmbAdres_KeyPress(ByVal sender As Object, ByVal e As 

System.Windows.Forms.KeyPressEventArgs) Handles CmbAdres.KeyPress 

'Enter tuşuna basıldığında Git butonuna bas: 

If e.KeyChar = Chr(13) Then 

BtnGit.PerformClick() 

End If 

End Sub 

Private Sub CmbAdres_SelectedIndexChanged(ByVal sender As 


CmbAdres.SelectedIndexChanged 

'Adres çubuğundan yeni adres seçilir seçilmez git: 

Dim adresURL As New Uri(CmbAdres.Text) 

WebBrowser1.Url = adresURL 

End Sub 

Private Sub WebBrowser1_Navigated(ByVal sender As Object, ByVal e As 

System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles 

WebBrowser1.Navigated 

'Gezinilen adresleri da göster: 

CmbAdres.Text = WebBrowser1.Url.ToString 

End Sub 

Private Sub KapatToolStripMenuItem_Click(ByVal sender As System.Object, 

ByVal e As System.EventArgs) Handles KapatToolStripMenuItem.Click 

End 

End Sub 

Private Sub BtnAdres_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnAdres.Click 

Dim adresURL As New Uri(CmbAdres.Text) 

MsgBox(adresURL.AbsoluteUri) 

End Sub 

Private Sub SıkKullanılanlaraEkleToolStripMenuItem_Click(ByVal sender 

As System.Object, ByVal e As System.EventArgs) Handles 

SıkKullanılanlaraEkleToolStripMenuItem.Click 

SıkKullanılanlarToolStripMenuItem.DropDownItems.Add(WebBrowser1.Url.ToStrin 

g) 

End Sub 

Private Sub BtnGeri_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnGeri.Click 

WebBrowser1.GoBack() 

End Sub 

Private Sub BtnIleri_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnIleri.Click 

WebBrowser1.GoForward() 

End Sub 

Private Sub BtnGiris_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnGiris.Click 

WebBrowser1.GoHome() 



2 Kasım 2011 

End Sub 

Private Sub BtnArama_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnArama.Click 

WebBrowser1.GoSearch() 

End Sub 

Private Sub GeçmişZiyaretlerToolStripMenuItem_Click(ByVal sender As 


GeçmişZiyaretlerToolStripMenuItem.Click 

Form2.Show() 

End Sub 

Private Sub İnternetSeçenekleriToolStripMenuItem_Click(ByVal sender As 


İnternetSeçenekleriToolStripMenuItem.Click 

Form3.Show() 

End Sub 

End Class 






Me.Tablo1TableAdapter.Fill(Me.WebadresDataSet4.Tablo1) 

End Sub 

Private Sub DataGridView1_CellContentDoubleClick(ByVal sender As 



2 Kasım 2011 

Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 

DataGridView1.CellContentDoubleClick 

Form1.CmbAdres.Text = DataGridView1.CurrentCell.Value 

Form1.BtnGit.PerformClick() ‘Git butonuna bastırıyoruz. 

Me.Close() 

End Sub 

End Class 

Veritabanı Yapısı 



2 Kasım 2011 

Uygulama No: 43 – Anket 

Açıklama : Veritabanı bağlantılı anket oluşturma uygulaması. 

Soru Tipleri 

1. Açık uçlu soru 

2. Çok seçimli 

3. Tek seçimli 

Soru No İfadesi Soru tipi 

1 ….nedir? 1 

2 …hangileri? 2 

3 …? 3 

no Soru no Seçenek ifadesi 

1 2 Astronomi 

2 2 Edebiyat 

3 2 Sinema 

4 3 100-500 

5 3 500-1000 






Source=|DataDirectory|\anket.mdb; Persist Security Info=False;") 



2 Kasım 2011 

Dim soruno As Byte = 0 

Private Sub CmbSoruTipi_SelectedIndexChanged(ByVal sender As 


CmbSoruTipi.SelectedIndexChanged 

'Seçmeli soru tipi ise seçenek girme araçları görünsün: 

If CmbSoruTipi.Text = "2" Or CmbSoruTipi.Text = "3" Then 

GroupBox1.Visible = True 

Else 

GroupBox1.Visible = False 

End If 

End Sub 

Private Sub BtnSoruKaydet_Click(ByVal sender As System.Object, ByVal e 

As System.EventArgs) Handles BtnSoruKaydet.Click 

If Strings.Trim(TxtSoruIfade.Text) "" And CmbSoruTipi.Text "" 

Then 


Dim Sql As String = "insert into Sorular (soru,sorutipi) values 

('" & TxtSoruIfade.Text & "'," & CmbSoruTipi.Text & ")" 



'Kaydedilen en son soru numarası alınıyor: 

Dim komut1 As New System.Data.OleDb.OleDbCommand("select soruno 

from Sorular", baglanti) 


veri_okuyucu = komut1.ExecuteReader 


soruno = veri_okuyucu("soruno") 

End While 

'Döngü bittiğinde soruno değişkeninin içinde kaydedilen en son 

soru numarası olacaktır. 


If CmbSoruTipi.Text = "1" Then 

TxtSoruIfade.Clear() 

CmbSoruTipi.Text = "" 

TxtSoruIfade.Focus() 

End If 

Else 

MsgBox("Soru ifadesini ve soru tipini giriniz.") 


End If 

End Sub 

Private Sub BtnSecenekKaydet_Click(ByVal sender As System.Object, ByVal 

e As System.EventArgs) Handles BtnSecenekKaydet.Click 

If soruno 0 Then 'Demek ki soruyu kaydetmiş. 


Dim Sql As String = "insert into Secenekler (soruno,secenek) 

values (" & soruno & ",'" & TxtSecenekIfade.Text & "')" 




TxtSecenekIfade.Clear() 

TxtSecenekIfade.Focus() 

Else 

MsgBox("Önce seçenek ekleyeceğiniz soruyu kaydediniz.") 

End If 

End Sub 



2 Kasım 2011 

Private Sub BtnYeniSoru_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnYeniSoru.Click 

GroupBox1.Visible = False 

TxtSoruIfade.Clear() 

CmbSoruTipi.Text = "" 


soruno = 0 'Seçenek eklenecek soru numarası yeniden sıfırlanıyor. 

End Sub 



End 

End Sub 

End Class 


Uygulama No: 44 – Anket Göster 


2 Kasım 2011 

Açıklama : Bir önceki uygulamada hazırlanan anketin kullanıcı temelli olarak 

uygulanması. 







Private Sub BtnGir_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnGir.Click 


Dim sql As String = "select * from kln where kln='" & TxtKln.Text & 

"' and sfr='" & TxtSfr.Text & "'" 




If veri_okuyucu.HasRows = True Then 

kln = TxtKln.Text 'Kullanıcıyı form2 ye aktarmak için. 

Form2.ShowDialog() 

Me.Hide() 

Else 

MsgBox("Kullanıcı adı ya da şifre hatalı!") 

TxtKln.Focus() 

End If 


End Sub 

End Class 



2 Kasım 2011 







Dim komut1 As New System.Data.OleDb.OleDbCommand("select * from 

Sorular", baglanti) 


Dim cevap, soru_no As String 

Private Function temizle() 

TxtSoru.Clear() 

TxtCevap.Clear() 

Grp1.Visible = False 



cevap = "" 

Return Nothing 'Fonksiyon değer döndürmüyor uyarısı için. 

End Function 

Private Function ekran() 

Dim sql1 As String = "insert into kln_cevap (kln,soruno,cevap) 

values ('" + kln + "'," + soru_no + ",'" & cevap & "')" 

Dim komut3 As New System.Data.OleDb.OleDbCommand(sql1, baglanti) 


If veri_okuyucu1.Read() Then 

temizle() 

TxtSoru.Text = veri_okuyucu1("soru") 

soru_no = veri_okuyucu1("soruno") 

If veri_okuyucu1("sorutipi") = 1 Then 



2 Kasım 2011 

Grp1.Visible = True 



ElseIf veri_okuyucu1("sorutipi") = 2 Then 




Else 




End If 

If veri_okuyucu1("sorutipi") = 2 Or veri_okuyucu1("sorutipi") = 

3 Then 

Dim sql As String = "select secenek from Secenekler where 

soruno=" & soru_no 

Dim komut2 As New System.Data.OleDb.OleDbCommand(sql, 

baglanti) 




Dim kontrol As Control 


For Each kontrol In Grp2.Controls 

kontrol.Visible = True 

kontrol.Text = veri_okuyucu2("secenek") 

If Not veri_okuyucu2.Read() Then Exit For 

Next 

Else 





Next 

End If 

End If 

Else 

MsgBox("Sorular Bitti...") 

End If 

Return Nothing 'Fonksiyon değer döndürmüyor uyarısı için. 

End Function 

Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As 

System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing 

End 'Arkada açık kalan kullanıcı giriş formunu da sonlandırmak 

için. 

End Sub 





If veri_okuyucu1.Read() Then 

soru_no = veri_okuyucu1("soruno") 

TxtSoru.Text = veri_okuyucu1("soru") 





ElseIf veri_okuyucu1("sorutipi") = 2 Then 





2 Kasım 2011 


Else 




End If 

If veri_okuyucu1("sorutipi") = 2 Or veri_okuyucu1("sorutipi") = 

3 Then 

Dim soru_no As String = veri_okuyucu1("soruno") 

Dim sql As String = "select secenek from Secenekler where 

soruno=" & soru_no 

Dim komut2 As New System.Data.OleDb.OleDbCommand(sql, 

baglanti) 




Dim kontrol As Control 






Next 

Else 





Next 

End If 

End If 

Else 

MsgBox("Sorular Bitti...") 


End If 

End Sub 

Private Sub BtnSonraki_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnSonraki.Click 

ekran() 

End Sub 

Private Sub RadioButton8_CheckedChanged(ByVal sender As System.Object, 

ByVal e As System.EventArgs) Handles RadioButton8.CheckedChanged 

cevap = RadioButton8.Text 

End Sub 




End Sub 




End Sub 






2 Kasım 2011 

End Sub 




End Sub 




End Sub 




End Sub 




End Sub 

Private Sub CheckBox8_CheckedChanged(ByVal sender As System.Object, 

ByVal e As System.EventArgs) Handles CheckBox8.CheckedChanged 

cevap = cevap & ";" & CheckBox8.Text 

End Sub 




End Sub 




End Sub 




End Sub 




End Sub 




End Sub 




End Sub 






2 Kasım 2011 

End Sub 

Private Sub TxtCevap_TextChanged(ByVal sender As System.Object, ByVal e 

As System.EventArgs) Handles TxtCevap.TextChanged 

cevap = TxtCevap.Text 

End Sub 

End Class 

Modül 

Module Module1 

Public kln As String 

End Module 

‘ Modül ne işe yarar? 

Projenin tamamında kullanacağımız bütün tanımlamalar (burada kullanıcı 

adını form1 den form2 ye geçirmek istedik) modülde yapılır. 




2 Kasım 2011 



2 Kasım 2011 


Açıklama : Veritabanından koşullu sorgulama gerçekleştirilen uygulama. 




Dim baglanti_metni As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data 

Source=|DataDirectory|\ihracat.mdb; Persist Security Info=False;" 

Dim baglanti As New Data.OleDb.OleDbConnection(baglanti_metni) 



'Veritabanı ile bağlantı sağlanıyor: 


'Yıllar ComboBox dolduruluyor: 

Dim sql As String = "select yil from Anatablo group by yil" 





CmbYil.Items.Add(veri_okuyucu("yil")) 

End While 

'Sektörler ComboBox dolduruluyor: 

Dim sql1 As String = "select sektor from Anatablo group by sektor" 





CmbSektor.Items.Add(veri_okuyucu1("sektor")) 

End While 

End Sub 

Private Sub BtnGuncelle_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnGuncelle.Click 

Dim sql As String = "select tutar from Anatablo where sektor='" & 

CmbSektor.Text & "'" 



Dim toplam As Integer = 0 



2 Kasım 2011 



toplam = toplam + veri_okuyucu("tutar") 

End While 

LblToplam.Text = toplam 

End Sub 

Private Sub BtnTutar_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnTutar.Click 

Dim sql As String = "select tutar from Anatablo where yil=" & 

CInt(CmbYil.Text) & " and sektor='" & CmbSektor.Text & "'" 




If veri_okuyucu.HasRows = True Then 

veri_okuyucu.Read() 

LblIhracatTutar.Text = veri_okuyucu("tutar") 

End If 

End Sub 

Private Sub CmbSektor_SelectedIndexChanged(ByVal sender As 


CmbSektor.SelectedIndexChanged 

LblSektor.Text = CmbSektor.Text 

End Sub 

End Class 




2 Kasım 2011 


Açıklama : Veritabanından gerçekleştirilen ikinci el otomobil sorgulaması. 




Dim baglanti_metni As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data 

Source=|DataDirectory|\otomobil.mdb; Persist Security Info=False;" 

Dim baglanti As New Data.OleDb.OleDbConnection(baglanti_metni) 



'Veritabanı ile bağlantı sağlanıyor: 


'Marka ComboBox'ı dolduruluyor: 

Dim sql As String = "select marka from oto_bilgi group by marka" 





CmbMarka.Items.Add(veri_okuyucu("marka")) 



2 Kasım 2011 

End While 

'Yil ComboBox'ı dolduruluyor: 

Dim sql1 As String = "select yil from oto_bilgi group by yil" 





CmbYil.Items.Add(veri_okuyucu1("yil")) 

End While 

'Renk ComboBox'ı dolduruluyor: 

Dim sql2 As String = "select renk from oto_bilgi group by renk" 





CmbRenk.Items.Add(veri_okuyucu2("renk")) 

End While 

'Yakıt Türü ComboBox'ı dolduruluyor: 

Dim sql3 As String = "select yakit_turu from oto_bilgi group by 

yakit_turu" 





CmbYakitTuru.Items.Add(veri_okuyucu3("yakit_turu")) 

End While 

End Sub 

'Vites ComboBox'ı dolduruluyor: 

Dim sql4 As String = "select vites from oto_bilgi group by vites" 





CmbVites.Items.Add(veri_okuyucu4("vites")) 

End While 

Private Sub CmbMarka_SelectedIndexChanged(ByVal sender As 


CmbMarka.SelectedIndexChanged 

CmbModel.Text = "" 

CmbModel.Items.Clear() 

'Marka ComboBox'ına bağlı olarak Model ComboBox'ı dolduruluyor: 

Dim sql As String = "select model from oto_bilgi where marka='" & 

CmbMarka.Text & "' group by model" 





CmbModel.Items.Add(veri_okuyucu("model")) 

End While 

End Sub 

Private Sub BtnBul_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles BtnBul.Click 

LstSonuclar.Items.Clear() 



2 Kasım 2011 

Dim sonuc_metni As String = "" 


If CmbYil.Text = "" Then 

sql = "SELECT * FROM oto_bilgi WHERE marka='" & CmbMarka.Text & 

"' AND model='" & CmbModel.Text & "' AND renk='" & CmbRenk.Text & "' AND 

yakit_turu='" & CmbYakitTuru.Text & "' AND vites='" & CmbVites.Text & "' 

AND (km BETWEEN " & CInt(TxtKilometre1.Text) & " AND " & 

CInt(TxtKilometre2.Text) & ") AND (fiyat BETWEEN " & CInt(TxtFiyat1.Text) & 

" AND " & CInt(TxtFiyat2.Text) & ")" 

Else 

sql = "SELECT * FROM oto_bilgi WHERE marka='" & CmbMarka.Text & 

"' AND model='" & CmbModel.Text & "' AND yil=" & CInt(CmbYil.Text) & " AND 

renk='" & CmbRenk.Text & "' AND yakit_turu='" & CmbYakitTuru.Text & "' AND 

vites='" & CmbVites.Text & "' AND (km BETWEEN " & CInt(TxtKilometre1.Text) 

& " AND " & CInt(TxtKilometre2.Text) & ") AND (fiyat BETWEEN " & 

CInt(TxtFiyat1.Text) & " AND " & CInt(TxtFiyat2.Text) & ")" 

End If 




If veri_okuyucu.HasRows Then 


sonuc_metni = veri_okuyucu("marka") & " " & 

veri_okuyucu("model") & " " & veri_okuyucu("versiyon") & ", " & 

veri_okuyucu("renk") & " renk, fiyatı ise " & veri_okuyucu("fiyat") & " TL" 

LstSonuclar.Items.Add(sonuc_metni) 

End While 

Else 

LstSonuclar.Items.Add("Veritabanımızda bu kriterlere uygun 

kayıt yoktur.") 

End If 

End Sub 

End Class 




2 Kasım 2011 


Açıklama : Basit bir banka (müşteri-hesap) uygulaması. İlişkisel veritabanı 

kullanılmıştır. 




Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles PictureBox1.Click 

FrmYeniHesap.ShowDialog() 

End Sub 

Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As 

System.EventArgs) Handles PictureBox2.Click 

FrmYeniMusteri.ShowDialog() 

End Sub 

End Class 



2 Kasım 2011 

Ekran Görüntüsü – FrmYeniMusteri 

Public Class FrmYeniMusteri 




baglantiAc() 

'Müşteri tanlosuna kaydediliyor: 

Dim musteriTuru As Byte = CByte(Strings.Left(CmbTur.Text, 1)) 

Dim Sql As String = "insert into musteri 

(ad1,ad2,soyad1,soyad2,turu,tel1,tel2,adres) values ('" & TxtAd1.Text & 

"','" & TxtAd2.Text & "','" & TxtSoyad1.Text & "','" & TxtSoyad2.Text & 

"'," & musteriTuru & ",'" & TxtTel1.Text & "','" & TxtTel2.Text & "','" & 

TxtAdres.Text & "')" 



MsgBox("Müşteri bilgileri veritabanına eklenmiştir.") 

TxtAd1.Clear() 

TxtAd2.Clear() 

TxtSoyad1.Clear() 

TxtSoyad2.Clear() 

TxtTel1.Clear() 

TxtTel2.Clear() 

TxtAdres.Clear() 

CmbTur.ResetText() 

TxtAd1.Focus() 

End Sub 

End Class 



2 Kasım 2011 

Ekran Görüntüsü – FrmYeniHesap 


Public Class FrmYeniHesap 

Dim musterino As Integer 

Private Sub FrmYeniHesap_Load(ByVal sender As System.Object, ByVal e As 


baglantiAc() 

Dim sql As String = "select * from musteri" 




CmbSahip.Items.Clear() 

CmbMusteriNo_Gizli.Items.Clear()'Gizli combo, seçilen müşerinin 

numarasını almak için kullanılıyor. 


CmbSahip.Items.Add(veri_okuyucu("ad1") & " " & 

veri_okuyucu("ad2") & " " & veri_okuyucu("soyad1") & " " & 

veri_okuyucu("soyad2") & "-" & veri_okuyucu("no")) 

CmbMusteriNo_Gizli.Items.Add(veri_okuyucu("no")) 

End While 

End Sub 



baglantiAc() 

'Hesap tablosuna kaydediliyor: 

Dim durumu As Byte = CByte(Strings.Left(CmbDurum.Text, 1)) 

Dim turu As Byte = CByte(Strings.Left(CmbTur.Text, 1)) 

Dim Sql As String = "insert into hesap 

(iban,turu,acilma_tarihi,bakiye,durumu,musterino) values ('" & TxtIBAN.Text 

& "'," & turu & ",'" & DateTimePicker1.Value & "'," & TxtBakiye.Text & "," 



2 Kasım 2011 

& durumu & "," & musterino & ")" 



MsgBox("Hesap bilgileri veritabanına eklenmiştir.") 

TxtBakiye.Clear() 

TxtIBAN.Clear() 

CmbDurum.ResetText() 

CmbSahip.ResetText() 

CmbTur.ResetText() 

TxtIBAN.Focus() 

End Sub 

Private Sub CmbSahip_SelectedIndexChanged(ByVal sender As 


CmbSahip.SelectedIndexChanged 

musterino = CInt(CmbMusteriNo_Gizli.Items(CmbSahip.SelectedIndex)) 

End Sub 

End Class 




2 Kasım 2011 

Müşteri tablosunun birincil anahtarı, hesap tablosunda müşteri numarası adıyla yabancı anahtar 

yapılmak suretiyle bu iki tablo ilişkilendirilmiştir. İlişki 1-N tipindedir; yani bir müşterinin birden çok 

sayıda hesabı olabilirken, bir hesap sadece bir müşteriye ait olabilir.

VBNET

Create successful ePaper yourself

Delete template?

Save as template?