Ping Programi

PİNG GÖNDERİCİ

IP yerine istediğiniz web site ve ya ıp yi yazın.

Ms(MiliSaniye) yerine 10000 yazabilirsiniz.

Başlata tıklayın program ping göndermeye başlasın.

GEREKENLER

2 TEXT BOX
2 LABEL
2 BUTTON

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Timer1.Interval = TextBox2.Text
        Timer1.Start()
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Shell("Ping (TextBox1.Text")
        MsgBox("Gönderiliyor")
    End Sub
End Class

Devamını Oku

Bul Ve Renklendir

Bul Ve Renklendir

Programdaki amaç Ara,Bul,Vurgula arayacağınız kelimeyi yazıyorsunuz.

program kelimeyi buluyor ve hangi renk seçerseniz vurguluyor.

Bul Ve Renklendir

PROJEYİ İNDİRMEK İÇİN TIKLA

RAR PASS : www.visualbasicdersleri.com

Devamını Oku

E-Mail Doğrula ve Gönder

E-Mail Doğrula ve Gönder VB.NET

Erdoğan Aslan'ın yaptığı bir çok güzel bir uygulamadan bahsedeceğim.

Uygulamanın amacı başlıktan da belli olduğu üzere Emailinizi Doğrulama yapar

Göndermek istediğiniz mail varsa ek ekleyebilerekte gönderebilirsiniz.

Programın bir güzel yani ise tek gmail sağlayıcısı yok.

gmail dahil 5 E-Posta sağlayıcısı ile e-mail gönderebiliyorsunuz.

Programın kullanımından bahsedecek olursak,

İlk E-posta sağlayıcısı seçilir gönderenin sağlayıcı adresi ve şifresi yazılır

Mail Doğrulama butonuna basılır.

E-mail gönderecek ise bilgileri doldurur gönderim yapar.

E-Mail Doğrula ve Gönder VB.NET

PROJEYİ(KODLARI) İNDİRMEK İÇİN TIKLA

RAR PASS : visualbasicdersleri.com

Devamını Oku

TEKRARLANMAYAN Rastgele Sayı Üretmek

 TEKRARLANMAYAN Rastgele Sayı Üretmek

İstediğimiz kadar sayıyı ListBox ' a ekliyoruz.Button ' a tıkladığımız zaman ListBox daki sayılardan birini TextBox a yazdırıyor ve TextBox ' a yazdırdığı sayıyı ListBox'dan siliyor.Böylece Her seferinde farklı sayılar yazdırıyor.Kodlara geçelim: 

İlk önce formumuza bir adet Button , TextBox ve ListBox ekliyoruz.Button 'un adı "Button1" , TextBox 'ın adı "TextBox1" , ListBox ' ın adı "ListBox1" ve Formumuzun adı "Form1" olsun. 

ListBox1.Visible = False 'ListBox 'zımızı gizliyoruz. 
TextBox1.ReadOnly = True 'TextBox 'zımıza değer girilmesini engelliyoruz. 
For sayilar As Integer = 0 To 10 'ListBox 'zımıza 1 'den 10'na kadar sayı ekliyoruz. 
ListBox1.Items.Add(sayilar) 
Next 

Dim sayi As Integer 
Randomize()
sayi = Int(Rnd(1) * (ListBox1.Items.Count - 1)) 'Rastgele sayı üretiyoruz. 
ListBox1.SelectedIndex = sayi 'Üretilen sayının ListBox'da seçilmesini sağlıyoruz. 
TextBox1.Text = ListBox1.Items.Item(sayi) 'Seçilen İtemin TextBox1' de gösterilmesini sağlıyoruz. 
ListBox1.Items.Remove(ListBox1.SelectedItem) 'Seçilen İtemin silinmesini sağlıyoruz. 

Devamını Oku

TÜM Dosya İşlemleri

Bu derste VB.Net'te nasıl dosya işlemleri yapacağımızı öğreneceğiz.Başlayalım: 

Dosya Taşıma: 

Source Code

1. My.Computer.FileSystem.MoveFile("C:\eski_klasor\dosya.txt", "C:\yeni_klasor\dosya.txt")

Klasör Taşıma: 

Source Code

1. My.Computer.FileSystem.MoveDirectory("C:\eski_klasor", "C:\yeni_klasor")

 

Dosya Yaratma: 

Source Code

1. My.Computer.FileSystem.WriteAllText("C:\Test.txt", String.Empty, False)

 

Klasör Yaratma: 

Source Code

1. My.Computer.FileSystem.CreateDirectory("C:\Yeni_klasor")

Dosya Kopyalama: 

Source Code

1. My.Computer.FileSystem.CopyFile("C:\kaynak.txt", "C:\yeni_klasor\hedef.txt")

Klasör Kopyalama: 

Source Code

1. My.Computer.FileSystem.CopyDirectory("C:\kaynak_klasor", "D:\yeni_klasor")

Sorgulu Dosya Silme: 

Source Code

1. My.Computer.FileSystem.DeleteFile("C:\Test.txt", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)

Sorgulu Klasör Silme: 

Source Code

1. My.Computer.FileSystem.DeleteDirectory("C:\Test", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)

Sorgusuz Dosya Silme: 

Source Code

1. My.Computer.FileSystem.DeleteFile("C:\Test.txt", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)

 

Sorgusuz Klasör Silme: 

Source Code

1. My.Computer.FileSystem.DeleteDirectory("C:\Test", FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.DeletePermanently)

 

Belirtilen Dosya Var mı?: 

Source Code

1. Dim dvarmi As Boolean = My.Computer.FileSystem.FileExists("C:\Test.txt")If dvarmi = True Then
2. MsgBox("Dosya Var")
3. Else
4. MsgBox("Dosya Yok")
5. End If

 

Belirtilen Klasör Var mı?: 

Source Code

1. Dim kvarmi As Boolean = My.Computer.FileSystem.DirectoryExists("C:\hedef_klasor")If kvarmi = True Then
2. MsgBox("Dosya Var")
3. Else
4. MsgBox("Dosya Yok")
5. End If

Belirtilen Dosyanın Boyutu Kaç?: 

Source Code

1. Dim dboyutu As Long = My.Computer.FileSystem.GetFileInfo("C:\dosya.txt").Length

Belirtilen Diskin Boş Boyutunu Ne?: 

Source Code

1. Dim bosalan As Long = My.Computer.FileSystem.GetDriveInfo("C:\").TotalFreeSpace

Belirtilen Dosyadan Metin Okuma: 

Source Code

1. Dim dicerigi As String = My.Computer.FileSystem.ReadAllText("C:\Test.txt")

Dosyayı Yeniden Adlandırma: 

Source Code

1. My.Computer.FileSystem.RenameFile("C:\eski.txt", "yeni.txt")

Klasörü Yeniden Adlandırma: 

Source Code

1. My.Computer.FileSystem.RenameDirectory("C:\eski_klasor", "yeni_klasor")

Devamını Oku