VB Kısa Ders Anlatımları

TheConquerer · 6 Eyl 2014

Merhaba arkadaşlar eğer üst rütbelerimiz ve abilerimiz izin verirse hergün veya 2 günde bir burada Vb.net dilinde kısa dersler, küçük uygulamalar, ince detayları sizlerle paylaşacağım. Dersler videolu olarak olmayacaktır. Yazılı ve kodları açık şekilde olacak ( Doğal olarak

) Öncelikle konunun açılmasında herhangi bir sıkıntı yokse üst türbeli arkadaşlar, abiler; bu konu için belirli bir kural varsa belirtir misiniz ? Böyle bir konu açmaya hakkım yok ise konuyu siler misiniz ? Şimdiden teşekkürler.Derslerimiz kimi zaman zor konular üzerinden kimi zamanda kolay uygulamalar üzerinden olacaktır. Evet şimdi geçelim ilk örnek kodlamamıza...

Dosya Arama & Kontrol Etme Programı

Formumuza ;

3 Label ( 1 tanesinin Text'i boş olacak )
2 Buton
1 ListBox
1 TextBox

Ekliyoruz.

Buton1'in Click olayına;

Kod:

If System.IO.File.Exists(TextBox1.Text) = True Then
            Label2.Text = "Aradığınız dosya mevcut"
        Else
            Label2.Text = "MalesefAradığınız dosya mevcut değil"
        End If

Buton2'ye yani Txt Dosyalarını Ara'ya;

Kod:

 For Each bulunan As String In My.Computer.FileSystem.GetFiles( _
         My.Computer.FileSystem.SpecialDirectories.ProgramFiles, _
         FileIO.SearchOption.SearchAllSubDirectories, "*.txt")

            ListBox1.Items.Add(bulunan)
        Next

"*.txt" yazan yeri değiştirebilirsiniz, TextBox'lada ilişkilendirebilirsiniz. Örneğin;
"*.dll" "*.exe" "*.bat"

SpecialDirectories.'dan sonra istediğiniz dizini seçebilirsiniz bknz: resim.

TheConquerer · 6 Eyl 2014

Herkesin merak ettiği bir nesne; ListView

Ders Adı: ListView Kullanımı

Önce ListView'in özelliklerini tanıyalım :

Wiew: Listemizin şeklini belirler.
AllowColumnReorder: Kolonların yerinin değişmesini sağlar.
CheckBoxses: Bildiğimiz Tick kutularıdır. Nesnenin başına eklenir.
Columns: Listedeki öğelerin başlıklarıdır. ( Adı, nicki, yaşı, özellikleri gibi )
FullRowSelect: Bir satıra tıklayınca tüm satırı seçer.

Bunlar sanırım yeterli olacaktır arkadaşlar şimdi formumuza geçelim.

Formumuza;

Kod:

3 Buton ( Ekle,Kaldır,Kaydet )
1 Label
1 ListView
1 TextBox

Önce formumuza istediğimiz şekli veriyoruz ben aşağıdaki gibi verdim. Ardından ListView'in proportiesinden Columns'a gelip ( collection ) 1 veya daha fazla Column ekliyoruz. Daha sonra
Yine properties'den View'ini Details olarak ayarlıyoruz.

Şimdi kodlarımızı söyleyeyim;

önce Public Class Form1'in hemen altına şu kodu yapıştırıyoruz;

Kod:

Private oge As String = Application.StartupPath & "\ogelerim.txt"

Bu kod uygulamamızda kullanacağımız nesnelerimizi kaydetmemizi ve kaydettiğimiz yerden çekmemizi sağlayacaktır.

Ekle Butonuna;

Kod:

 Dim i As ListViewItem
        i = ListView1.Items.Add(TextBox1.Text)

Kaydet Butonuna;

Kod:

Dim myWriter As New IO.StreamWriter(oge)
        For Each myItem As ListViewItem In ListView1.Items
            myWriter.WriteLine(myItem.Text & "#")
        Next
        myWriter.Close()

Kaldır Butonuna;

Kod:

 ListView1.Items.Remove(ListView1.SelectedItems(0))

Formun Loadına;

Kod:

 ListView1.Items.Clear()
        Dim myCoolFileLines() As String = IO.File.ReadAllLines(oge)
        For Each line As String In myCoolFileLines
            Dim lineArray() As String = line.Split("#")
            Dim newItem As New ListViewItem(lineArray(0))
            ListView1.Items.Add(newItem)
        Next

Ve Sonra ListViewimizin üzerine çift tıklıyoruz ve kod yerine şunu yazıyoruz;

Kod:

 If ListView1.SelectedItems.Count > 0 Then

            TextBox1.Text = ListView1.SelectedItems(0).Text
        End If

Bu kod ile seçtiğimiz item TextBox'a gelecektir ve kopyalama şansımız olacaktır.

Unutmayın, ogelerim.txt dosyası programla aynı dizinde olmalı

TheConquerer · 7 Eyl 2014

Ders 3 : Kelime Aratma ve Seçme

Gerekli Nesneler;

1 Buton
1 Label
1 TextBox
1 RichTextBox

Buton'a bu kodu yazıyoruz;

Kod:

Dim SearchWord As String = TextBox1.Text
        Dim SelStart As Integer = InStr(RichTextBox1.Text, SearchWord, CompareMethod.Text)
        If SelStart > 0 Then

        End If
        RichTextBox1.Select(SelStart - 1, SearchWord.Length)
        RichTextBox1.Focus()
        For Each line In RichTextBox1.Lines
         
        Next

Artık RichTextBox'da kelimemizi aratıp seçebilirsiniz.

Ders 4: Kelime Aratma, Değiştirme

Gerekli Olanlar;

2 TextBox
1 Buton
2 Label

Butona;

Kod:

RichTextBox1.Text = RichTextBox1.Text.Replace(TextBox1.Text, TextBox2.Text)

Açıklayalım;
RichTextBox1'in içeriğinde TextBox1.Text'deki yazıyı bulur ve TextBox2.Text'deki yazıyla değiştirir.

TheConquerer · 8 Eyl 2014

Ders 5: FTP Dosya Upload İşlemi

Formumuza şunu ekleyelim;

OpenFileDialog
SaveFileDialog

2 Buton [ 1.nin Adı: Dosya Seç] [ 2.nin Adı: Yükle ]
2 TextBox

Dosya Seç Butonunun kod bölümüne gelip;

Kod:

Dim alltext As String = "", lineoftext As String = ""
        OpenFileDialog1.Filter = "Tüm Dosyalar | *.*"
        OpenFileDialog1.ShowDialog()
        If OpenFileDialog1.FileName <> "" Then

        End If
        Try
            FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)

            Do Until EOF(1)
                lineoftext = LineInput(1)
                alltext = alltext & lineoftext & vbCrLf
            Loop

        Catch
        Finally
            FileClose()
        End Try
        TextBox1.Text = OpenFileDialog1.FileName

Yükle Butonunun kod bölümüne gelip;

Kod:

Dim request As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://ftp.sitenizinadresi/" & TextBox2.Text), System.Net.FtpWebRequest)
        request.Credentials = New System.Net.NetworkCredential("FTP KULLANICI ADI", "FTP ŞİFRE")
        request.Method = System.Net.WebRequestMethods.Ftp.UploadFile

        Dim file() As Byte = System.IO.File.ReadAllBytes(TextBox1.Text)

        Dim strz As System.IO.Stream = request.GetRequestStream()
        strz.Write(file, 0, file.Length)
        strz.Close()
        strz.Dispose()

Hatırlatma

Kod:

TextBox1'in görevi = Seçtiğiniz dosyayı yansıtmak
TextBox2'nin görevi = FTP adresinize kaydedeceğiniz isim.uzantı
' TextBox2'ye yazılan ismin sonunda mutlaka uzantı olmalıdır.   ( .txt .exe .rar gibi )

TheConquerer · 9 Eyl 2014

Ders 6: Programa açılış efekti vermek

Formun Loadına;

Kod:

Timer1.Start()
Timer1.interval=100

Timer1'e;

Kod:

Dim x, y, k As Integer
x = 300
y = 0
For k = 0 To 300
y += 1.1
Me.Size = New System.Drawing.Size(x, y)
Next
Timer1.Stop()

Ders 7: Flood programı yapmak

Gerekenler:

1 TextBox
2 Buton
1 Timer

1. Butona " BAŞLAT " 2. Butona " DURDUR " isimlerini verelim.

1.Butonun koduna;

Kod:

Timer1.Start

2.Butonun koduna;

Kod:

Timer1.Stop

Timer'a;

Kod:

SendKeys.Send("{Enter}")
SendKeys.Send(TextBox1.Text)

VB Kısa Ders Anlatımları

TheConquerer

Katılımcı Üye

TheConquerer

Katılımcı Üye

TheConquerer

Katılımcı Üye

TheConquerer

Katılımcı Üye

TheConquerer

Katılımcı Üye

Sosyal medya sayfalarımız