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

Butona tıklayınca ProgressBar Dolsun

GEREKENLER

2 TANE BUTTON

TİMER

PROGRESS BAR

Public Class Form1
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(2)
        If ProgressBar1.Value = ProgressBar1.Maximum Then
        End If
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Process.Start("chrome.exe", "http://www.visualbasicdersleri.com/")
        Process.Start("iexplore.exe", "http://www.visualbasicdersleri.com/")
        Process.Start("browser.exe", "http://www.visualbasicdersleri.com/")
    End Sub
End Class

Devamını Oku

Örnek Uygulama Kodları

Örnek uygulama kodları

Public Class Form1
    Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        mciExecute("Set CDAudio door Open")
    End Sub
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        mciExecute("Set CDAudio door closed")
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Beep()
    End Sub

    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        Call Shell("notepad.exe", 1)
    End Sub

    Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        Call Shell("calc.exe", 1)
    End Sub
End Class

Devamını Oku

Programınızı Demo Yapın

Programınızı Demo Yapın

Aşagıdaki kodda 3 kullanım hakkı verilmiştir.

kullanıcı 3 defa açtıktan sonra program kullanım hakkın bitti diye uyarı verip kapanacaktır.

"Microsoft.Win32.Registry.CurrentUser" de kendi isminde yer acmaktadır.

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim kalan As Integer
        kalan = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Visual Basic").GetValue("Dersleri", 3)
        Label1.Text = kalan & " Kullanım Hakkın Kaldı"
    kalan -= 1
    If kalan < 0 Then
            MsgBox("Kullanım Hakkın Sona Erdi")
            Application.Exit()
    Else
            Microsoft.Win32.Registry.CurrentUser.CreateSubKey("Visual Basic").SetValue("Dersleri", kalan)
    End If
    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

Deneme Sürümü Oluşturmak

Deneme Sürümü Oluşturma VB.NET

Projenizi oluşturdunuz başkasına atmak istiyorsunuz ama tamını atmak istemiyorsanız

deneme sürümü oluşturup istediğiniz kadar kullanım hakkı verebilirsiniz.

kullanım hakkı dolduğunda program bir daha o bilgisayarda açılmayacaktır.

Deneme sürümünde

Microsoft.Win32.Registry.CurrentUser.CreateSubKey den kendine yer oluşturmaktadır.

Yer oluşturduğunda kendine kullanım hakkı belirler.

program her açıldıkça kullanım hakkından düşer.

kullanım hakkı bitince ise program bir daha açılmaz(sadece o bilgisayarda)

Deneme Sürümü Oluşturma VB.NET

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim kalan As Integer
        kalan = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("wwww.visualbasicdersleri.com").GetValue("vbnet", 5) 'www.visualbasicdersleri.com
        Label1.Text = kalan & " Kullanım Hakkınız Kaldı"
        kalan -= 1
        If kalan < 0 Then
            MsgBox("Kullanım Hakkınız Sona Erdi")
            Application.Exit()
        Else
            Microsoft.Win32.Registry.CurrentUser.CreateSubKey("wwww.visualbasicdersleri.com").SetValue("vbnet", kalan)
        End If
    End Sub
End Class

Devamını Oku

System bilgilerini bulma

Sistem Bilgilerini bulma VB.NET

Başlığın isminden de anlaşılacağı gibi bu programda

bilgisayarınızın özelliklerini göstermektedir.

İşe yarayacak bir programdır.

kendinizi kodlamalara bakarak geliştirebilecek bir proje.

Sistem Bilgilerini bulma VB.NET

PROJEYİ İNDİRMEK İÇİN TIKLA

RAR PASS :www.visualbasicdersleri.com

Devamını Oku

Programınız Başlangıçta Çalıştırmak

Programınız Başlangıçta Çalıştırmak VB.NET

Başlıktan da anlaşılacağı gibi bilgisayar açıldığı zaman

sizin de yaptığınız program açılsın isterseniz kodları programınıza

eklemeniz yeterlidir.

Public Class Form1
    Public Shared Sub AddStartup(ByVal Name As String, ByVal Path As String)
        Dim Registry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
        Dim Key As Microsoft.Win32.RegistryKey = Registry.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
        Key.SetValue(Name, Path, Microsoft.Win32.RegistryValueKind.String)
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        AddStartup(Me.Text, Application.ExecutablePath)
    End Sub
End Class

Devamını Oku