Yazı tipi ile ilgili özellikleri seçmek ve değiştirmek amaçlı kullanılır.

Bir text kutusu içerisindeki yazının fontunu değiştiren bir örnek yapalım.

Form üzerine bir adet buton, bir adet de textbox ekleyeceğiz.

Kodumuz aşağıdaki gibi olacak:

Public Class Form1

    Private Sub cmdYaziTipi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdYaziTipi.Click

        If FontDialog1.ShowDialog() = DialogResult.OK Then

            TextBox1.Font = FontDialog1.Font

        End If

    End Sub

End Class

Kodumuzu çalıştıralım.  Textbox içerisine yazdığımız yazının ilk hali aşağıdaki gibidir;

Yazı tipi özellikleri butonuna tıklayıp yazı tipi özelliklerini seçelim.

Seçtiğimiz özelliklerin textbox içerisindeki yazıya uygulandığını görürüz.

Mersin çapında yapılan proje tabanlı beceri yarışmasında Bilgi ve İletişim Teknolojilerinde Verimlilik Kategorisinde "Sınav Otomasyon Programı" ile Mersin 3.'sü olduk. Yarışmaya öğrencilerim Mehmet Emrullah İncearık ve Övgü Yoldaş ile katılmıştım.

Yarışma sonuç duyurusunun linki:

http://mersin.meb.gov.tr/ptbyİL%20SONUÇ%20BİLDİRİM%20FORMU%20EK-7_270309.pdf

Örneğimiz bir text kutusuna girilen yazıdaki kelime sayısını bulmaktadır.

Kodumuz aşağıdaki gibi olacak:

Public Class Form1

Dim i As Byte

 Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

Dim bosluksay, i As Byte

For i = 1 To Len(TextBox1.Text)

If Mid(TextBox1.Text, i, 1) = Chr(32) Then bosluksay = bosluksay + 1

Next

If e.KeyChar = Chr(13) Then MsgBox("Cümlenin Kelime Sayısı= " & bosluksay + 1)

End Sub  

End Class

Kelime sayısını bulmak için önce boşluk sayısını bulmalıyız. Kelime sayısı boşluk sayısından bir fazladır. Boşluğun karakter kodu 32 dir. Yazı içerisinde bunu arıyoruz.

Arama için Mid fonksiyonundan yararlanıyoruz. Mid bir yazının içinde bir ya da birden fazla karakteri belirtilen konumdan itibaren arar. Kullanımı şu şekildedir:

Mid(Arama yapılacak metin,başlangıç,uzunluk)

Örneğimizde text kutusu içinde enter tuşuna basılınca kelime sayısı yazılmaktadır. Enter'ın karakter kodu 13'dür.

Beta sürümünün ardından nihayet internet explorer'ın türkçe tam sürümü yayınlandı.

Aşağıdaki linklerden size uygun sürümü indirebilirsiniz.

Windows XP Sürümü

Windows Vista 32 Bit Sürümü

Windows Vista 64 Bit Sürümü

Uzun yıllardır VB ve VB.Net ile meşgul olmam nedeni ile bu alandaki bilgi ve deneyimlerimi aktarabileceğim ve tamamen VB.NET içeriklerini barındıran bir site kurma düşüncesi uzun zamandır zihnimi meşgul ediyordu. Allah'a şükür bir gayretle ve Blogsa ekibinin desteği ile bu siteyi 17 Mart günü açtık.

VB.Net severleri http://www.vbnetnedir.com adresine bekliyorum

Bundan tam 1 yıl önce 19 Mart'da sitemi açmıştım. Yarım yamalak da olsa artık blog açma zamanımın geldiğini düşünerek sitemi açmıştım. O zaman sitemi yavaş yavaş kodlayarak geliştirmiştim. Kısa bir süre önce ise sitemi Blogsa sistemine çevirdim. Gerek görünüm, gerekse de işlevsel olarak daha iyi oldu bana göre. Ama bence önemli olan içerik. Bu yönde de Allah'ın izni ile bilgi ve deneyimlerimi sizlerle paylaşmaya devam edeceğim.

Klasör seçmek amacı ile kullanılır.

Örnek olarak folder browser dialog nesnesi yardımı ile seçilecek bir klasördeki word belgelerini listeleyecek olan bir örnek uygulama yapalım.

Form üzerine bir adet buton, bir adet listbox ve bir adet de folder browser dialog nesnesi ekleyelim.

Kodumuz aşağıdaki gibi olacak;

Public Class Form1

    Private Sub cmdKlasorSec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKlasorSec.Click

        If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then

            Dim dosya

            dosya = Dir(FolderBrowserDialog1.SelectedPath & "\*.doc")

            While dosya <> ""

                ListBox1.Items.Add(dosya.ToString)

                dosya = Dir()

            End While

        End If

    End Sub

End Class

Kodumuzu çalıştırıp klasör seç düğmesine basalım ve bir klasör seçelim. Örneğin ben belgeler klasörünü seçtim.

Daha sonra tamam düğmesine bastığımızda word belgelerinin list box nesnesi içerisine aktarıldığını görürüz.

Proje Dosyasının linki:

http://www.volkanaktas.com/PrgDosya/vbnet/FolderBrowserDialog.rar 

Renk seçme amaçlı olarak kullanılan diyalog penceresidir.

Örneğin bir formun rengini color dialog nesnesi yardımı ile değiştiren örnek bir uygulama yapalım.

Form üzerine bir adet buton ve bir adet color dialog nesnesi ekliyoruz. Kodumuz aşağıdaki gibi olacak:

Public Class Form1

    Private Sub cmdRenkSec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRenkSec.Click

        If ColorDialog1.ShowDialog = DialogResult.OK Then

            Me.BackColor = ColorDialog1.Color

        End If

    End Sub

End Class

Rengimizi seçip tamam düğmesini tıkladığımızda formun renginin seçtiğimiz renkle değiştirildiğini görürüz.

Bir kontrol yapısı ile döngüden çıkış işleminin yapıldığı döngü yapısıdır. Kullanımı şu şekildedir;

Do

            Komutlar

            Kontrol yapısı

            Sayaç değişkeni =Sayaç değişkeni + Artım Değeri

Loop

Örnek olarak yine 0 ile 10 arasındaki sayıları ekranda listeleyen bir konsol uygulamasını Do Loop döngüsü ile yazalım.

Module Module1

    Sub Main()

        Dim i As Byte

        Do

            Console.WriteLine(i)

            If i = 10 Then Exit Do

            i = i + 1

        Loop

        Console.ReadLine()

    End Sub

End Module

Kodumuzda döngünün bitiş değeri olan 10 sayısına gelinip gelinmediğini if i=10 ifadesi ile kontrol edip eğer döngü sonuna gelinmişse Exit Do ifadesi ile döngüden çıkış yapılmasını sağlıyoruz.

Döngü, koşul cümlesi sonucu False olduğu sürece çalıştırılır ve sonuç True olduğunda döngüden çıkılır

Kullanımı şu şekildedir;

DO UNTIL Sayaç değişkeni karşılaştırma operatörü Döngü bitim değeri

            Komutlar

            Sayaç değişkeni =Sayaç değişkeni + Artım Değeri

LOOP

Örnek olarak yine 0 ile 10 arasındaki sayıları ekranda listeleyen bir konsol uygulamasını Do Until Loop döngüsü ile yazalım.

Module Module1

    Sub Main()

        Dim i As Byte

        Do Until i > 10

            Console.WriteLine(i)

            i = i + 1

        Loop

        Console.ReadLine()

    End Sub

End Module

Döngü, koşul cümlesi sonucu True olduğu sürece çalıştırılır ve sonuç False olduğunda döngünün bitmesi sağlanır. Döngü içindeki komutlar mutlaka bir defa icra edilir.

Kullanımı şu şekildedir;

DO WHILE Sayaç değişkeni karşılaştırma operatörü Döngü bitim değeri

            Komutlar

            Sayaç değişkeni =Sayaç değişkeni + Artım Değeri

LOOP

Örneğin daha önce for döngüsü ile yaptığımız 0 ile 10 arasındaki sayıları ekranda listeleyen bir konsol uygulamasını Do While Loop döngüsü ile yazalım.

Module Module1

    Sub Main()

        Dim i As Byte

        Do While i <= 10

            Console.WriteLine(i)

            i = i + 1

        Loop

        Console.ReadLine()

    End Sub

End Module

Kullanımı şu şekildedir;

FOR sayaç değişkeni = başlangıç değeri TO bitiş değeri STEP artış miktarı

            Komutlar

NEXT sayaç değişkeni

Başlangıç değeri ile belirtilen değerden bitiş değeri ile belirtilen değere kadar For ile Next arasındaki komut satırları tekrarlanır. Step parametresi artış değerini belirtmek için kullanılır.  Eğer step parametresi kullanılmazsa varsayılan artış değeri 1’dir.

Örneğin 0 ile 10 arasındaki sayıları ekranda listeleyen bir konsol uygulaması yazalım;

Module Module1

    Sub Main()

        Dim i As Byte

        For i = 0 To 10

            Console.WriteLine(i)

        Next

        Console.ReadLine()

    End Sub

End Module

Step parametresini kullanmadığımız için artış değeri 1’dir.  Döngümüz 0’dan 10’a kadar kurulduğu için i değişkeninin değeri ekrana 10 defa artan şekilde yazılacaktır. Console.Readline ifadesi ile de ekran çıktısını enter tuşuna basılana kadar bekletiyoruz.

Aynı uygulamamızı 0’dan 10’a kadar olan çift sayıları görüntüleyecek şekilde değiştirelim.

Module Module1

    Sub Main()

        Dim i As Byte

        For i = 0 To 10 Step 2

            Console.WriteLine(i)

        Next

        Console.ReadLine()

    End Sub

End Module

Görüldüğü gibi bu defa step parametresini kullanarak artım değerini 2 yaptık. Ekran çıktımız aşağıdaki gibi oldu:

Klavyeden girilen bir sayının faktöriyelini bulacak bir örnek uygulama yapalım;

Mesela 4 sayısının faktöriyeli matematikte şu şekilde bulunur:

4*3*2*1=24

4 sayısının faktöriyeli 24'tür. Buna göre programımızda 1 den klavyeden girilen sayıya kadar bir döngü oluşturacağız. Ve döngü değeri ile çarpım değerini her defasında yeniden çarpacağız. Kodumuz şu şekilde olacak:

Public Class Form1

    Private Sub cmdsayigir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsayigir.Click

        Dim i, sayi, fak As Integer

        fak = 1

        sayi = InputBox("Faktöriyeli bulunacak sayıyı girin")

        For i = 1 To sayi

            fak = fak * i

        Next i

        MsgBox(sayi & " sayısının faktöriyeli = " & fak)

    End Sub

End Class

Kodumuzu çalıştırıp input box ile 4 sayısını girdiğimizde aşağıdaki gibi çıktı alırız;

Dönüşüm işlemleri için birden fazla yöntem kullanabiliriz.

1)İlk yöntemde aşağıdaki metotlar kullanılır;

CStr: Verilen değeri String tipine dönüştürür.

CBool: Verilen değeri Boolean tipine dönüştürür.

CDate: Verilen değeri Date tipine dönüştürür.

CInt: Integer değişken tipinin değer aralıkları arasında girilen sayıları Integer tipine dönüştürür.

CDbl: Double değişken tipinin değer aralıkları arasında girilen sayıları Double tipine dönüştürür.

CLng: Long değişken tipinin değer aralıkları arasında girilen sayıları Long tipine dönüştürür.

CSng: Single değişken tipinin değer aralıkları arasında girilen sayıları Single tipine dönüştürür.

CDec: Decimal değişken tipinin değer aralıkları arasında girilen sayıları Decimal tipine dönüştürür.

String tipteki bir veriyi CDate fonksiyonu ile tarih veri türüne değiştiren bir örnek yapalım.

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim deger As String

        deger = "24/01/2009"

        MsgBox(CDate(deger).ToLongDateString)

    End Sub

End Class

Kodumuzu çalıştırdığımızda yandaki gibi sonuç verecektir:

2) Bu yöntemde ise Convert fonksiyonundan faydalanılarak dönüştürme işlemleri yapılabilir. Convert fonksiyonu şu alt metotlara sahiptir;

Convert.ToBase64String()      :Verilen bir stringi Base64 şifreleme tipine dönüştürür.

Convert.FromBase64String() : Base64 şifreleme tipinden string tipine dönüştürme yapar.

Convert.ToBoolean()              : Booelan tipine dönüştürme yapar.

Convert.ToByte()                    : Byte tipine dönüştürme yapar.       

Convert.ToChar()                   : Char tipine dönüştürme yapar.      

Convert.ToDateTime()           : Tarih ve zaman tiplerine dönüştürme yapar.

Convert.ToDecimal()             : Decimal tipine dönüştürme yapar.

Convert.ToDouble()               : Double tipine dönüştürme yapar.

Convert.ToInt16()                   : Int16 tipine dönüştürme yapar.

Convert.ToInt32()                   : Int32 tipine dönüştürme yapar.

Convert.ToInt64()                   : Int64 tipine dönüştürme yapar.

Convert.ToSByte()                  : Sbyte tipine dönüştürme yapar.

Convert.ToSingle()                 : Single tipine dönüştürme yapar.

Convert.ToString()                 : String tipine dönüştürme yapar.

Convert.ToUInt16()                : UInt16 tipine dönüştürme yapar.

Convert.ToUInt32()                : UInt32 tipine dönüştürme yapar.

Convert.ToInt64()                   : UInt64 tipine dönüştürme yapar.            

Birinci yöntemle yaptığımız String tipteki bir veriyi CDate fonksiyonu ile tarih veri türüne değiştirme işlemini şimdi de ikinci yöntemimize göre Convert.ToDateTime() fonksiyonu ile yapalım.

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim deger As String

        deger = "24/01/2009"

        MsgBox(Convert.ToDateTime(deger).ToLongDateString)

    End Sub

End Class

Yeni tasarım ile karşınızdayım. Bu tasarım değerli arkadaşlarım Selçuk ERMAYA ve Erdem TÜZEN ile birlikte yürüttüğümüz hazır blog sistemi olan BLOGSA sistemine ait. Yeni sisteme geçiş esnasında oluşan yorumların taşınması gibi bazı eksiklikleri de tamamlayacağım inşaAllah.

Bu vesile ile de Blogsa sisteminin beta 3 sürümüne ulaştığını iftiharla bildiririm arkadaşlar.

Bu adresten erişebilirsiniz:

http://www.blogsa.net/