VB.Net ve VB6 Kodlar

VİSUAL BASİC DERSLERİ:
 

----------------------------------------------------------------------------------------------

LOCAL IP ÖĞRENME:

----------------------------------------------------------------------------------------------
Bu dersimizde Visual Basic ile yaptığımız küçük uygulamada bir butona tıklayarak local IP'mizi öğreneceğiz.

Formumuza Components(Visual Basic 2010 için choose items/Com Components'den) bölümünden winsock ve 1 buton ekleyelim.

Butonun click olayına şu kodu yazalım:

Msgbox(Winsock1.LocalIP)(Visual Basic 2010 için kodumuz bu:MsgBox(AxWinsock1.LocalIP))


Böylelikle butona tıklandığında local IP adresinizi öğrenebileceksiniz.



----------------------------------------------------------------------------------------------

VİSUAL BASİC'TE İNTERNET BAĞLANTISINI KONTROL EDEN PROGRAM YAPMA:

----------------------------------------------------------------------------------------------
Bu dersimizde if yapısıyla internet var mı, yokmu, bunu kontrol eden bir program yapacağız. 

Bir buton ekleyin ve click olayına şu kodları yazın:

 If My.Computer.Network.IsAvailable = True Then
            MsgBox("İnternet Bağlantısı Var")
        Else
            MsgBox("İnternet Bağlantısı Yok")
        End If


----------------------------------------------------------------------------------------------

VİSUAL BASİC 'TE IP BAĞLANTISI AÇ/KAPAT PROGRAMI:

----------------------------------------------------------------------------------------------
Bu Dersimizde ıp bağlantısını açıp kapatmayı öğreneceğiz.

forma 2 buton eklememiz yeterli.

1. buton'un adı "AÇ".

2. buton'un adı "KAPAT" olsun.

Aç butonuna şu kodu yazalım:

Shell("ipconfig /renew")

KAPAT butonuna şu kodu yazalım:
Shell("ipconfig /release")

işte bu kadar.

----------------------------------------------------------------------------------------------

VİSUAL BASİC 'TE NOT DEFTERİ YAPIMI:

----------------------------------------------------------------------------------------------

Bugün sizlerle Visual Basic'te kaydetme ve açma fonksiyonlu bir NotPad, yani Not Defteri yapmayı öğreneceğiz.

İlk olarak formumuza bir Rich Text Box, 9 buton, 1 Save Dialog ve 1 Open Dialog ekleyelim.

Butonlarımızın ismi sırayla şöyle olsun: Kaydet, Aç, Kes, Kopyala, Yapıştır, Temizle, Geri Al, İleri Al, Hepsini Seç.

Kaydet butonuna çift tıklayalım ve kod bölümüne şunları yazalım:

Try
            Dim d1g As SaveFileDialog = New SaveFileDialog
            d1g.Title = "Save"
            d1g.Filter = "Rich Text Files (*.rtf)|*.rtf"
            If d1g.ShowDialog() = Windows.Forms.DialogResult.OK Then
                RichTextBox1.SaveFile(d1g.FileName, RichTextBoxStreamType.RichText)
            End If
        Catch ex As Exception

        End Try


Aç butonuna çift tıklayalım ve kod bölümüne şunları yazalım:

Try
            Dim d1g As OpenFileDialog = New OpenFileDialog
            d1g.Title = "Open"
            d1g.Filter = "Rich Text Files (*.rtf)|*.rtf"
            If d1g.ShowDialog() = Windows.Forms.DialogResult.OK Then
                RichTextBox1.LoadFile(d1g.FileName)
            End If
        Catch ex As Exception

        End Try


Kes butonuna çift tıklayalım ve kod bölümüne şunları yazalım:

RichTextBox1.Cut()


Kopyala butonuna çift tıklayalım ve kod bölümüne şunları yazalım:

RichTextBox1.Copy()


Yapıştır butonuna çift tıklayalım ve kod bölümüne şunları yazalım:

RichTextBox1.Paste()


Temizle butonuna çift tıklayalım ve kod bölümüne şunları yazalım:

RichTextBox1.Clear()


Geri Al butonuna çift tıklayalım ve kod bölümüne şunları yazalım:

RichTextBox1.Undo()


İleri Al butonuna çift tıklayalım ve kod bölümüne şunları yazalım:

RichTextBox1.Redo()


Hepsini Seç butonuna çift tıklayalım ve kod bölümüne şunları yazalım:

RichTextBox1.SelectAll()



----------------------------------------------------------------------------------------------

VİSUAL BASİC 'TE BASİT HESAP MAKİNESİ YAPIMI

----------------------------------------------------------------------------------------------

Formumuza 2 textbox ve 4 adet de buton ekliyoruz.

Butonların adını isterseniz (Topla/Çıkar/Çarp/Böl) yapın istersenizde (+-*/) bu şekilde yapın karar sizin.


Toplama (1.Butonumuza Çift Tıklayarak İçine Yazıyoruz)

Dim sayi1, sayi2, sonuc As Integer
        sayi1 = TextBox1.Text
        sayi2 = TextBox2.Text
        sonuc = Val(TextBox1.Text) + Val(TextBox2.Text)
        MsgBox(sonuc)



Çıkarma (2.Butonumuza Çift Tıklayarak İçine Yazıyoruz)

Dim sayi1, sayi2, sonuc As Integer
        sayi1 = TextBox1.Text
        sayi2 = TextBox2.Text
        sonuc = Val(TextBox1.Text) - Val(TextBox2.Text)
        MsgBox(sonuc)



Çarpma (3.Butonumuza Çift Tıklayarak İçine Yazıyoruz)

Dim sayi1, sayi2, sonuc As Integer
        sayi1 = TextBox1.Text
        sayi2 = TextBox2.Text
        sonuc = Val(TextBox1.Text) * Val(TextBox2.Text)
        MsgBox(sonuc)



Bölme (4.Butonumuza Çift Tıklayarak İçine Yazıyoruz)

 Dim sayi1, sayi2, sonuc As Integer
        sayi1 = TextBox1.Text
        sayi2 = TextBox2.Text
        sonuc = Val(TextBox1.Text) / Val(TextBox2.Text)
        MsgBox(sonuc)


kodlarımız bu kadar kolay gelsin.



----------------------------------------------------------------------------------------------

VİSUAL BASİC 'TE ÇÖP KUTUSU(RECYCLE BİN) BOŞALTMA:

----------------------------------------------------------------------------------------------
 
Bu derste Visual Basic ile geri dönüşüm kutusunu nasıl boşaltacağımızı öğrenelim.

Sadece bir buton eklememiz yeterli olacaktır. Bu kodu formun herhangi bir yerine yapıştırın.


Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hWnd As Int32, ByVal pszRootPath As String, ByVal dwFlags As Int32) As Int32

Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Int32

Private Const SHERB_NOCONFIRMATION = &H1

Private Const SHERB_NOPROGRESSUI = &H2

Private Const SHERB_NOSOUND = &H4

Private Sub EmptyRecycleBin()

SHEmptyRecycleBin(Me.Handle.ToInt32, vbNullString, SHERB_NOCONFIRMATION)

SHUpdateRecycleBinIcon()

End Sub




Bu kodu ise Button1'in Click Event'ine yazın.

EmptyRecycleBin()



----------------------------------------------------------------------------------------------

VİSUAL BASİC 'TE MMS PLAYER YAPIMI:

----------------------------------------------------------------------------------------------

Bu dersimizde Visual Basic 6 kullanarak televizyon programı yapmak için kullandığımız mms kodlarını oynatan bir player yapmayı öğreneceğiz.

Formumuza Eklenecekler:

1. Media Player
2. TextBox(Text)
3. Command buton.

Kodlara geçelim. Kullanacağımız kod çok basit ve bir satırlık bir kod.

Command Buton'un click olayına:

WindowsMediaPlayer1.URL = Text1.Text(Text1.Text yerine kanallar'ın mms olarak adreslerini yazacaksınız.)


----------------------------------------------------------------------------------------------

VİSUAL BASİC 'TE SİTE IP'LERİNİ BULMA:

----------------------------------------------------------------------------------------------

Formumuza 1 adet Winsock,1 adet buton,2 adet TextBox ekleyelim. 

Dizaynını kafanıza göre yapın.

butonun click olayına şu kodu yazalım:

AxWinsock1.Close()
AxWinsock1.Connect(TextBox1.Text, 80)

winsock'a şu kodu yazalım:

TextBox2.Text = AxWinsock1.RemoteHostIP

Bu Kadar.

----------------------------------------------------------------------------------------------

AJANLAR.ORG ©ProSound Not:Alıntılar Mevcuttur :)
----------------------------------------------------------------------------------------------