-->

Sponsor Alanı

Slider

İlgi Çeken Videolar

Sağlık

Teknoloji

Sinema

Televizyon

Ne Nedir?

En5 Konular

VB Dersleri
ads

Karakökten Çıkarma - Vb.Net

By: İbrahim Fırat on Çarşamba, Mayıs 29, 2013 / yorum : 0 ,

Bu dersimizde   Visual basic'te  Girilen  sayıyı karekökte çıkaran bir program yapacağız.

Forma; 2 tane TextBox ve 1 Tane Button  ekleyin...

vb.net

Aşağıdaki kodu buttona çift tıklayarak click olayına tek satırlık kodu yazın.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox2.Text = Convert.ToDouble((TextBox1.Text) ^ (1 / 2))
    End Sub

Vb.Net Faktöriyel Hesaplama

By: İbrahim Fırat on Pazar, Mayıs 26, 2013 / yorum : 0 ,

vb.net

Visual basic Dersleri - Faktöriyel Hesaplama

Bu bölümde   Vb.Net ile Faktöriyel Hesaplama kodlarını  paylaşacağım

Forma ekleniz gereken araçlarınız; 

2 Tane TextBox, 1 Tane Button ekleyin,  Button a çift tıklayın ve aşağıdaki kodları ekleyin

 Dim a, b, i As Double
        a = TextBox1.Text
        b = 1
        For i = 1 To a
            b = b * i

        Next
        TextBox2.Text = b

Vb.Net Kopyalama Fonksiyonu Kullanımı

By: İbrahim Fırat on Cumartesi, Mayıs 25, 2013 / yorum : 0 ,

vb.net

Bu bölümde Başlangıç seviyesinde olan kişiler için yararlı olacak paylaşımlarımıza devam ediyoruz. Visual Basic'te TextBox'a yazılan bir metni ListBox'a kopyalamayı öğreneceğiz.

Forma eklemeniz gereken araçlar;

1 tane  Textbox + 1 tane ListBox ve bir  tanede Button ekleyin.

 Buttona çift tıklayın ve click olayına aşağıdaki kodları yazın.

 Kodlar;

 
Dim metin1, kopya As String
        metin1 = TextBox1.Text
        kopya = String.Copy(metin1)
        ListBox1.Items.Add(kopya)


Kopyalama Fonksiyonu Video


Visual Basic StreamWriter ve StreamReader Fonksiyonları

By: İbrahim Fırat on Cumartesi, Mayıs 25, 2013 / yorum : 0 ,

vb.net

StreamWriter ve StreamReader Vb.Net Dersleri


Bu bölümde StreamWriter ve StreamReader fonsiyonlarının kullanımı anlatacağız İsmi geçen bu  fonksiyonlar fso'da CreateTextFile ve OpenTextFile'in visual basic'te kullanış şeklidir.

Bu fonksiyonlar için temel Giriş/Çıkış kütüphaneninizi çağırın.

Imports System.IO

StreamWriter (Dosyaya yazalım)
Dim sw As New StreamWriter("FileName.txt", True)
        sw.WriteLine("ibrahimfirat.net - Bu dosya StreamWriter ile oluşturuldu.")
        sw.WriteLine("2.Satır << ")
        sw.Close()

1.Satırda streamwriter verimizi oluşturuyoruz. Append'i True yaptığımız için dosya yoksa oluşturulacak eğer varsa yazılan diğer veriler alttan eklenecek.

2. ve 3. satırlarda dosyaya metin yazın

4.satırda dosyayı kapatınız
StreamWriter

Dim sr As New StreamReader("FileName.txt")
        Dim icerik As String = sr.ReadToEnd
        MessageBox.Show(icerik)

1.satırda StreamReader'i tanımlayın
2.satırda tüm belgeyi okutunuz.
3.satırda mesaj kutusu içinde gösterin.

Kaynak >>  http://www.sanalkurs.net/vbnet-streamwriter-ve-streamreader-5523.html

Vb.Net Yazılan İki Metni Birleştirmek

By: İbrahim Fırat on Çarşamba, Mayıs 22, 2013 / yorum : 0 ,

Vb.Net

Visual Basic Dersleri 

Bu derste  TextBox'a Yazdıpımız iki metni nasıl birleştireceğiz öğreneceğiz.

Forma şunları ekleyin; 1 tane Button, 1 tane ListBox, 2 tane TextBox ekleyin

Buttona çift tıklayın, click olayına aşağıdaki kodu yazın.

Dim metin1, metin2, birlestir As String
        metin1 = TextBox1.Text
        metin2 = TextBox2.Text
        birlestir = String.Concat(metin1, " ", metin2)
        ListBox1.Items.Add(birlestir)

VİDEO

Vb.Net Metni Büyük Harf Yapmak

By: İbrahim Fırat on Çarşamba, Mayıs 22, 2013 / yorum : 0 ,

vb.net

Bu derste TextBox'a girilen bir metni büyük harflere çevirmeyi göreceğiz.

Forma eklememiz gereken malzemelerimiz: 1 tane ListBox - 1 tane Button - 1 tane TextBox ekleyin.

Buttona çift  tıklayın içine  şu kodları yazın;


Dim metin1, metin2 As String
        metin1 = TextBox1.Text
        metin2 = metin1.ToUpper()
        ListBox1.Items.Add(metin2)

VİDEO

Vb.Net Yazının Başı ve Sonundaki Boşlukları Silmek

By: İbrahim Fırat on Çarşamba, Mayıs 22, 2013 / yorum : 0 ,

Vb.Net

Visual Basic Dersleri ( Visual Studio )

Vb.Net ile TextBox'a girilen metnin başındaki  ve sonundaki boşlukları göstereceğiz.


Forma eklemeniz gereken nesneler; 1 tane TextBox + 1 tane Button + 1 adet LisBox ekleyiniz.


Dim metin1, metin2 As String
        metin1 = TextBox1.Text
        metin2 = metin1.TrimEnd()
        ListBox1.Items.Add(metin2)


Başındaki Boşluğu Siler

Dim metin1, metin2 As String
        metin1 = TextBox1.Text
        metin2 = metin1.Trim()
        ListBox1.Items.Add(metin2)

Sonundaki boşluğu siler

Vb.Net İle Ters Yazı Yazıdırmak

By: İbrahim Fırat on Çarşamba, Mayıs 22, 2013 / yorum : 0 ,

Vb.Net

Girilen Metni Ters olarak yazdırmak ( Visual Basic Dersleri )

Visual Basic'te  TextBox'a girilen yazıyı ters yazdırma kodunu paylaşacağız.

Forma, 2 tane TextBox, 1 tane Button ekleyin ve buttona çift tıklayın içine aşağıdaki kodu yazın.


TextBox2.Text = StrReverse(TextBox1.Text)


Vb.Net TextBox'a Girilen Metni Ters yazdırmak Video


Visual Basic İle Hesap Makinesi Yapmak

By: İbrahim Fırat on Salı, Mayıs 21, 2013 / yorum : 0 ,

Case yapısı ile visual basic ile basit bir hesap makinesi yapacağız. 

 Forma eklemeniz gereken araçlar:

 3 tane TextBox ekleyin
1 tane Combobox ( Comboboxa Item özelliği olarak şunları girin "topla, çıkar, çarp, böl" ), ekleyin
1 tane button ekleyin.

Buttona çift   tıklayın ve click olayına aşağıdaki kodları yazın:

 Kodlar: 
Dim sayi1, sayi2, sayi3 As Double
        Dim islem As String
        sayi1 = TextBox1.Text
        sayi2 = TextBox2.Text
        islem = ComboBox1.Text
        Select Case islem
            Case "Topla"
                sayi3 = sayi1 + sayi2
            Case "cıkar"
                sayi3 = sayi1 - sayi2
            Case "Carp"
                sayi3 = sayi1 * sayi2
            Case "Böl"
                sayi3 = sayi1 / sayi2

        End Select
        TextBox3.Text = sayi3

vb.net

Case yapısıyla  visual basic ile hesap makinesi yapımı video


Alarm Programı Yapmak ( Visual Basic )

By: İbrahim Fırat on Salı, Mayıs 21, 2013 / yorum : 0 ,

vb.net

Visual Basic'te Alarm Sistemi yapımı

Bu eğitimimizde basit bir alarm sistemi kurulan bir programın yapını  anlatacağın  bir kaç kod parçasından  oluşan bu sistem yapımı  oldukça basit. 

Forma eklemeniz gereken malzemeler:


1  tane Timer Ekleyin ( timerin interval olayını 1000 yapın, enabled özelliğini true yapın )  bir tane TextBox ekleyin bir adet Mediya Player ekleyin (  Media player visual basic 2010 da bulamıyorsanız aşağıdaki  videoyu izleyeniz size yardımcı olacaktır. ) 3 tane label ekleyin.

Timere  çift tıklayın ve tick olayına aşağıdaki kodu yazın. 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Start()
        Timer1.Interval = 1000
        Label1.Text = TimeOfDay
    End Sub

TextBox'a çift tıklayın ve içine aşağıdaki kodları yazın

 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Player.URL = ("d:UsersDidemDesktopHistoria_De_Un_Amor.mp3")
        End If
    End Sub

Media Player İçin Video

Visual Basic Dersleri - Metin Ekleme

By: İbrahim Fırat on Salı, Mayıs 21, 2013 / yorum : 0 ,

vb.net

Vb.Net ile Yazdığınız herhangi bir metine farklı bir karakter veya metin eklemeyi göreceğiz

Forma eklemeniz gereken  nesnelerimiz:

1 tane textbox, 1tane button ve 1 tane listbox ekleyin.

Buttona  çift çıklayın ve clik olayına aşağıdaki kodları yazın.


Dim metin, sonmetin As String
        metin = TextBox1.Text
        sonmetin = metin.Insert(7, "-")
        ListBox1.Items.Add(sonmetin)

TextBox Ve Form Rengini Değiştirmek ( Randomize )

By: İbrahim Fırat on Salı, Mayıs 21, 2013 / yorum : 0 ,

Randomize ile form rengini ve TextBox rengini değiştirmeyi öğreneceğiz.

Forma eklemeniz gereken araçlar:

1 Tane Combobox + 1 Tane TextBox + 2 Radobutton  >>  Comboboxun  içine  başla ve durdur  seçenekleriniz ekleyin.

vb.net

Kodlar:

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Timer1.Start()
        Timer1.Interval = 1000
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        Timer1.Start()
        Timer1.Interval = 1000
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim a, b, c As String
        If RadioButton1.Checked Then
            Randomize()
            a = Rnd() * 255
            b = Rnd() * 255
            c = Rnd() * 255
            Me.BackColor = Color.FromArgb(a, b, c)

        End If
        Dim d, f, g As String
        If RadioButton2.Checked Then
            Randomize()
            d = Rnd() * 255
            f = Rnd() * 255
            g = Rnd() * 255
            TextBox1.BackColor = Color.FromArgb(d, f, g)

        End If
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "Başla" Then
            Timer1.Start()
        End If
        If ComboBox1.Text = "Durdur" Then
            Timer1.Stop()
        End If
    End Sub

Videolu Ders İzle

PictureBox Ve ComboBox Kullanımı

By: İbrahim Fırat on Pazartesi, Mayıs 20, 2013 / yorum : 0 ,

vb.net
Combobox İle PictureBox Kullanımı -  Combobox'tan seçilen öğenin görüntüsünü PictureBox'a aktarmak

Forma eklemeniz gereken nesnelerimiz.
4 Tane PictureBox + 1 tane Combobox. Eklediğiniz PictureBoxların Visible değerlerini false yapın  ve forma dizin nesneleri.

kodlar:

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "ibrahimfirat.net" Then
            PictureBox4.Visible = True
            PictureBox1.Visible = False
            PictureBox2.Visible = False
            PictureBox3.Visible = False
        End If
        If ComboBox1.Text = "seo" Then
            PictureBox2.Visible = True
            PictureBox1.Visible = False
            PictureBox4.Visible = False
            PictureBox3.Visible = False
        End If
        If ComboBox1.Text = "vb.net" Then
            PictureBox3.Visible = True
            PictureBox1.Visible = False
            PictureBox2.Visible = False
            PictureBox4.Visible = False
        End If
        If ComboBox1.Text = "webmaste" Then
            PictureBox1.Visible = True
            PictureBox4.Visible = False
            PictureBox2.Visible = False
            PictureBox3.Visible = False
        End If
      
    End Sub

Combobox İle Seçilen Bir Nesneyi Listbox'da Açıklamak

By: İbrahim Fırat on Pazartesi, Mayıs 20, 2013 / yorum : 0 ,

vb.net
Bu konumuzda visual basic de Combobox'ta seçilen bir  Itemin  açıklamasını Listbox'a ekleyeceğiz. 

Forma eklemeniz gereken araçlar:

4 tane PictureBox - Visible bölümünü False olarak ayarlayın,  1 tane Combobox ve 1 Listbox ekleyin. 

 
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "ibrahimfirat.net" Then
            PictureBox4.Visible = True
            PictureBox1.Visible = False
            PictureBox2.Visible = False
            PictureBox3.Visible = False
            ListBox1.Items.Clear()
            ListBox1.items.add("Genel Bilgi Portalır.")
        End If
        If ComboBox1.Text = "gökyüzü" Then
            PictureBox2.Visible = True
            PictureBox1.Visible = False
            PictureBox4.Visible = False
            PictureBox3.Visible = False
            ListBox1.Items.Clear()
            ListBox1.Items.Add("Gökyüzü  Masmavi Hiç Bulut Yok.")
        End If
        If ComboBox1.Text = "Kuşlar" Then
            PictureBox3.Visible = True
            PictureBox1.Visible = False
            PictureBox2.Visible = False
            PictureBox4.Visible = False
            ListBox1.Items.Clear()
            ListBox1.items.add("Kartallar Yükseklerde uçar")
        End If
        If ComboBox1.Text = "Balık" Then
            PictureBox1.Visible = True
            PictureBox4.Visible = False
            PictureBox2.Visible = False
            PictureBox3.Visible = False
            ListBox1.Items.Clear()
            ListBox1.Items.Add("balıkların hafızası 3 saniyedir")
        End If
      
    End Sub

Vb.Net World Dosyasını Şifreleme

By: İbrahim Fırat on Pazartesi, Mayıs 20, 2013 / yorum : 0 ,

vb.net
Bu konumuzda  Visual Basic ile  world   dosyasını şifreleme ve şifre ile açmayı göreceğiz.

Forma eklemeniz gereken  araçlarımız şunlar:

2 Adet TextBox +  3 Adet Label  ve 1 Adet Button Ekleyin

Kodlar:

Public Class Form1
    Dim i As Byte
    Dim hak As Byte
    Dim objdocument As Object
    Dim objword As Object
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        hak = 3
        If TextBox1.Text = "iF" And TextBox2.Text = "123456" Then
            objdocument = objword.documents.add()
            MsgBox("Welcome İF!")
            objword.visible = True
            Close()
        Else
            TextBox1.Text = ""
            TextBox2.Text = ""
            MsgBox("Hatalı Kullanıcı Adı Veya Şifre")
            i = i + 1
            Label3.Text = (hak - i & " Yanlış Girme Hakkınız kaldı")

        End If
        If Label3.Text = (0 & " Yanlış Girme Hakkınız Var") Then
            Close()
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        objword = CreateObject("Word.Application")
    End Sub
End Class


Visual Basic - Oyun Yapalım ( Zıplayan Top )

By: İbrahim Fırat on Pazartesi, Mayıs 20, 2013 / yorum : 0 ,

vb.net
Vb.Net ile  zıplayan top yapımını   göreceğiz.  Kendini yeni geliştiren programcı adayları için   oldukça  faydalı olacak bir dersi işleyeceğiz.

Forma eklemeniz gereken araçlarımız:

1 tane shape
1 tane timer

 Timer1'in interval özelliğini 10 olarak  ayarlayın
Shape1'in shape özelliğini circle olarak ayarlayın

Private Sub Timer1_Timer()
Static ax, ay
If IsEmpty(ax) Then
ax = 50
ay = 50
End If
If Shape1.Top <= 0 Or Shape1.Top >= Form1.ScaleHeight - Shape1.Height Then
ay = -ay
Beep
End If
If Shape1.Left <= 0 Or Shape1.Left >= Form1.ScaleWidth - Shape1.Width Then
ax = -ax
Beep
End If
Shape1.Left = Shape1.Left + ax
Shape1.Top = Shape1.Top + ay
End Sub

Karakter Güvenlik Fonksiyonu SQL

By: İbrahim Fırat on Pazartesi, Mayıs 20, 2013 / yorum : 0 ,

vb.net
Bugün SQL Fonksiyonlarından injectionu öğreneceğiz.  Genel olarak yazılımcılar injection  fonksiyonunu farklı metodlar  ( ',",% ) kullanarak kaldırma işlemi ile gerçekleştiriyorlar.  Biz ise farklı bir yöntemle  SQL güvenlik fonksiyonunu ( A-Z, 0-9 ) metodu ile    daha güvenli biçimde  halledeceğiz. 

 
Function guvenlik_ad(ByVal data As String) As String
 standart = "oksdalscvbç.-qgwex,.mnbvcopğzxvv_ ."
 son = ""
 If Len(data) = 0 Then
  guvenlik = ""
 Else
  For i = 0 to Len(data)
   For f = 1 To Len(standart)
    karakter = Mid(data,i+1,1)
    If karakter = Mid(standart,f, 1) Then son = son & karakter : Exit For
   Next
  Next
 End If
 data = son
 guvenlik_ad = data
End Function


Data deişkeninin güvenli halini döndürür bu fonksiyon. Örnek olarak "İbrahimFirat Net @ 1" yazdığımızı varsayalım fonksiyon bunu "ibrahimfiratnet1" olarak  döndürür. 

 
degisken = TextBox1.Text ' olsun
If degisken = guvenlik(degisken) Then
      MsgBox("Güvenlik doğrulandı")
Else
     MsgBox("Güvenlik doğrulanamadı")
End If

Visual Basic İle Site Açma Programı

By: İbrahim Fırat on Pazartesi, Mayıs 20, 2013 / yorum : 0 ,

Bu derste basit bir belirlediğiniz herhangi bir siteyi TextBox'a adını girerek tek tuşla açmaya yarayan bir program yapacağız.

Forma eklemeniz gereken malzemeler:

 1 Tane Button + 1 Tane TextBox Ekliyoruz.  Aşağıdaki örnek resimdeki gibi  tasarımınızı yapabilirsiniz.

vb.net

 Buttona çift tıklayın ve Click olayına  aşağıdaki kodları yazınız.

Public Class Form1

     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Select Case TextBox1.Text
            Case "google"
                Shell("explorer http://www.google.com.tr")
            Case "Youtube"
                Shell("explorer http://www.youtube.com")
            Case "iF"
                Shell("explorer http://www.ibrahimfirat.net")
            Case "Site Ekle"
                Shell("explorer http://www.alimvar.com")
            Case "Blogger"
                Shell("explorer http://www.bloggertasarimlari.blogspot.com")
            Case "proxy"
                Shell("explorer http://www.world34.blogspot.com")
            Case "Helal Gıda"
                Shell("explorer http://www.helalmarketim.com")
        End Select
    End Sub
End Class

Vb.Net Yazarak Form Rengini Değiştirmek

By: İbrahim Fırat on Pazartesi, Mayıs 20, 2013 / yorum : 0 ,

vb.net
Visual Basic ile TextBox'a eklediğimiz yazıya göre formun renginde değişiklikler öğreneceğiz.  Örnek olarak:   TextBox'a herhangi bir rengi yazdığımızda    formun rengi belirlediğimiz renkte olacak.  İki  seçenekli bir    kod yazılımı yapacağız.  Birincisi  renk ismi yazarak formun rengini değiştirmek için, ikincisi  renk kodları ile  formun rengini değiştirmek. 

 Forma eklemeniz gereken araçlar:

 1 Tane button bir tane  TextBox ekleyin

 Eklemeniz gereken kodlar:

 
Private Sub Command1_Click()
Command1.Caption = "değiştir"
If Text1.Text = "mavi" Then
Form1.BackColor = &HFF0000
End If
If Text1.Text = "kırmızı" Then
Form1.BackColor = &HFF&
End If
If Text1.Text = "yeşil" Then
Form1.BackColor = &HFF00&
End If
If Text1.Text = "sarı" Then
Form1.BackColor = &HFFFF&
End If
If Text1.Text = "turuncu" Then
Form1.BackColor = &H80FF&
End If
If Text1.Text = "kahverengi" Then
Form1.BackColor = &H40&
End If
If Text1.Text = "siyah" Then
Form1.BackColor = &H0&
End If
If Text1.Text = "turkuaz" Then
Form1.BackColor = &HFFFF00
End If
If Text1.Text = "gri" Then
Form1.BackColor = &H808080
End If
If Text1.Text = "mor" Then
Form1.BackColor = &HFF00FF
End If
If Text1.Text = "pembe" Then
Form1.BackColor = &HFFC0FF
End If
End Sub


Yukarıdaki kodlar yazarak Form rengini değiştirmenizi sağlıyor şimdi renk kodları ile forma renk vermeniz gereken kodlar aşağıdadır.

 
Private Sub Command1_Click()
Form1.BackColor = (Text1.Text)
End Sub
Kaydol: Kayıtlar (Atom)
Copyright © 2012 - Bazı konularımızda insanları kötü alışkanlıklardan çaydırmak ve bilgilendirmek için yazılmıştır.