Visual Basic Örnekleri - Tasarım Kodlama

Bir dili öğrenmenin en iyi yolu o dil ile ilgili büyük ve küçük örnekler yapmaktadır. Lise düzeyi okullarda ve üniversitelerin giriş seviyesi eğitimlerinde Visual Basic dili ile programlama eğitimlerine katkı olması için bu içeriği hazırladık.

Algoritma ve programlama eğitiminde Visual Basic ilk öğrenilen programlama dillerinden bir tanesidir. Ofis programlarında macro oluştururken, küçük işletmeler için form uygulamaları yazarken sıklıkla tercih ederiz. Bu yazıda basit ve zor olmak üzere çeşitli zorluk seviyelerinde Visual Basic Örnekleri sunduk.

Visual Basic Örnekleri

Örnek : Visual Basic dört işlem

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text) End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text) End Sub End Class

1234567891011121314151617181920

PublicClassForm1 PrivateSubButton1_Click(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickTextBox3.Text=Val(TextBox1.Text)+Val(TextBox2.Text)EndSub PrivateSubButton2_Click(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickTextBox3.Text=Val(TextBox1.Text)-Val(TextBox2.Text)EndSub PrivateSubButton3_Click(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.ClickTextBox3.Text=Val(TextBox1.Text)*Val(TextBox2.Text)EndSub PrivateSubButton4_Click(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.ClickTextBox3.Text=Val(TextBox1.Text)/Val(TextBox2.Text)EndSubEndClass

Örnek :Visual Basic üç sayıdan en büyüğü ve en küçüğünü bulan program

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Val(TextBox1.Text) > Val(TextBox2.Text) And Val(TextBox1.Text) > Val(TextBox3.Text) Then TextBox4.Text = TextBox1.Text End If If Val(TextBox2.Text) > Val(TextBox1.Text) And Val(TextBox2.Text) > Val(TextBox3.Text) Then TextBox4.Text = TextBox2.Text End If If Val(TextBox3.Text) > Val(TextBox1.Text) And Val(TextBox3.Text) > Val(TextBox2.Text) Then TextBox4.Text = TextBox3.Text End If If Val(TextBox1.Text) < Val(TextBox2.Text) And Val(TextBox1.Text) < Val(TextBox3.Text) Then TextBox5.Text = TextBox1.Text End If If Val(TextBox2.Text) < Val(TextBox1.Text) And Val(TextBox2.Text) < Val(TextBox3.Text) Then TextBox5.Text = TextBox2.Text End If If Val(TextBox3.Text) < Val(TextBox1.Text) And Val(TextBox3.Text) < Val(TextBox2.Text) Then TextBox5.Text = TextBox3.Text End If End Sub End Class

12345678910111213141516171819202122232425

PublicClassForm1 PrivateSubButton1_Click(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickIfVal(TextBox1.Text)>Val(TextBox2.Text)AndVal(TextBox1.Text)>Val(TextBox3.Text)ThenTextBox4.Text=TextBox1.TextEndIfIfVal(TextBox2.Text)>Val(TextBox1.Text)AndVal(TextBox2.Text)>Val(TextBox3.Text)ThenTextBox4.Text=TextBox2.TextEndIfIfVal(TextBox3.Text)>Val(TextBox1.Text)AndVal(TextBox3.Text)>Val(TextBox2.Text)ThenTextBox4.Text=TextBox3.TextEndIfIfVal(TextBox1.Text)<Val(TextBox2.Text)AndVal(TextBox1.Text)<Val(TextBox3.Text)ThenTextBox5.Text=TextBox1.TextEndIfIfVal(TextBox2.Text)<Val(TextBox1.Text)AndVal(TextBox2.Text)<Val(TextBox3.Text)ThenTextBox5.Text=TextBox2.TextEndIfIfVal(TextBox3.Text)<Val(TextBox1.Text)AndVal(TextBox3.Text)<Val(TextBox2.Text)ThenTextBox5.Text=TextBox3.TextEndIfEndSubEndClass

Örnek :Visual Basic iki sayıdan büyüğünü bulan program

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Val(TextBox1.Text) > Val(TextBox2.Text) Then TextBox3.Text = TextBox1.Text TextBox4.Text = TextBox2.Text Else TextBox4.Text = TextBox1.Text TextBox3.Text = TextBox2.Text End If End Sub End Class

1234567891011121314

PublicClassForm1 PrivateSubButton1_Click(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickIfVal(TextBox1.Text)>Val(TextBox2.Text)ThenTextBox3.Text=TextBox1.TextTextBox4.Text=TextBox2.TextElseTextBox4.Text=TextBox1.TextTextBox3.Text=TextBox2.TextEndIfEndSubEndClass

Örnek :Visual Basic Sayısal Loto Programı

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sayilar(5) As Integer 'sayısal lotoda 6 sayı üretildiği için 6 elemanlı dizi oluşturuldu. Dim rsayi, sayac As Integer sayac = 0 While sayac < 6 'sayac 6 dan küçük olduğu zaman rsayi = Int(Rnd() * 49 + 1) '1 ile 49 arasında rastgele sayı üretiliyor If (Array.IndexOf(sayilar, rsayi) = -1) Then 'dizinin içinde aynı sayı yoksa sayilar(sayac) = rsayi 'üretilen rastgele sayiyi dizinin sayac kaç ise o elemanına ata sayac = sayac + 1 ' sayacı bir artır End If End While Array.Sort(sayilar) Label1.Text = sayilar(0) 'label1 e sayilar dizisinin 1.elemanını yaz Label2.Text = sayilar(1) 'label2 e sayilar dizisinin 2.elemanını yaz Label3.Text = sayilar(2) 'label3 e sayilar dizisinin 3.elemanını yaz Label4.Text = sayilar(3) 'label4 e sayilar dizisinin 4.elemanını yaz Label5.Text = sayilar(4) 'label5 e sayilar dizisinin 5.elemanını yaz Label6.Text = sayilar(5) 'label6 e sayilar dizisinin 6.elemanını yaz End Sub End Class

12345678910111213141516171819202122232425

PublicClassForm1 PrivateSubButton1_Click(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimsayilar(5)AsInteger'sayısal lotoda 6 sayı üretildiği için 6 elemanlı dizi oluşturuldu.Dimrsayi,sayac AsIntegersayac=0Whilesayac<6'sayac 6 dan küçük olduğu zamanrsayi=Int(Rnd()*49+1)'1 ile 49 arasında rastgele sayı üretiliyorIf(Array.IndexOf(sayilar,rsayi)=-1)Then'dizinin içinde aynı sayı yoksasayilar(sayac)=rsayi'üretilen rastgele sayiyi dizinin sayac kaç ise o elemanına atasayac=sayac+1' sayacı bir artırEndIfEndWhile Array.Sort(sayilar)Label1.Text=sayilar(0)'label1 e sayilar dizisinin 1.elemanını yazLabel2.Text=sayilar(1)'label2 e sayilar dizisinin 2.elemanını yazLabel3.Text=sayilar(2)'label3 e sayilar dizisinin 3.elemanını yazLabel4.Text=sayilar(3)'label4 e sayilar dizisinin 4.elemanını yazLabel5.Text=sayilar(4)'label5 e sayilar dizisinin 5.elemanını yazLabel6.Text=sayilar(5)'label6 e sayilar dizisinin 6.elemanını yazEndSubEndClass

Örnek :Visual Basic Combobox ile Rastgele Sayı Üretme Programı

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ComboBox1.Items.Clear() Dim sayi, i As Integer Randomize() For i = 1 To 10 sayi = Int(Rnd() * (100 - 0) + 0) ComboBox1.Items.Add(sayi) Next i End Sub End Class

1234567891011121314

PublicClassForm1 PrivateSubButton1_Click(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickComboBox1.Items.Clear()Dimsayi,iAsIntegerRandomize()Fori=1To10sayi=Int(Rnd()*(100-0)+0)ComboBox1.Items.Add(sayi)NextiEndSubEndClass

Örnek :Visual Basic Vize Final Notuna Göre Sonuç Hesaplama

Public Class Form1 'www.tasarimkodlama.com Dim vize, final As Integer Dim gecme As Double Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'www.tasarimkodlama.com End Sub Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged 'Final notunun girildiği metin kutusu değişirken… If Txt_Final.Text <> "" And IsNumeric(Txt_Final.Text) Then 'Eğer final metin kutusu dolu ve sayısal veri ise… If Txt_Final.Text > 100 Then 'Eğer girilen final değeri 100 den büyük ise… MsgBox("Hatalı Giriş!") Txt_Final.Clear() TxtGecme.Clear() TxtHarf.Clear() TxtGecme.BackColor = Color.White Else 'Aksi halde, yani final 100 den küçük… If Txt_Vize.Text <> "" And IsNumeric(Txt_Vize.Text) Then vize = Txt_Vize.Text final = Txt_Final.Text gecme = 2 * vize / 5 + 3 * final / 5 'vizenin %40’ı + finalin %60’ı TxtGecme.Text = gecme If gecme >= 50 Then TxtGecme.BackColor = Color.GreenYellow Else TxtGecme.BackColor = Color.Red End If End If Else 'Ya final alanı boş, ya da girilen değer sayısal değil. TxtGecme.Clear() TxtHarf.Clear() TxtGecme.BackColor = Color.White End If End Sub Private Sub Txt_Vize_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Txt_Vize.TextChanged 'Aynı şeyler vize notu için de yapılıyor. If Txt_Vize.Text <> "" And IsNumeric(Txt_Vize.Text) Then If Txt_Vize.Text > 100 Then MsgBox("Hatalı Giriş!") Txt_Vize.Clear() TxtGecme.Clear() TxtHarf.Clear() TxtGecme.BackColor = Color.White Else If Txt_Final.Text <> "" And IsNumeric(Txt_Final.Text) Then vize = Txt_Vize.Text final = Txt_Final.Text gecme = 2 * vize / 5 + 3 * final / 5 TxtGecme.Text = gecme If gecme >= 50 Then TxtGecme.BackColor = Color.GreenYellow Else TxtGecme.BackColor = Color.Red End If End If Else TxtGecme.Clear() TxtHarf.Clear() TxtGecme.BackColor = Color.White End If 'www.tasarimkodlama.com End Sub Private Sub TxtGecme_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtGecme.TextChanged 'Geçme notu alanı değişirken harf notu hesaplanıyor. If TxtGecme.Text <> "" Then If TxtGecme.Text >= 90 Then TxtHarf.Text = "AA" ElseIf TxtGecme.Text >= 80 Then TxtHarf.Text = "BA" ElseIf TxtGecme.Text >= 70 Then TxtHarf.Text = "BB" ElseIf TxtGecme.Text >= 60 Then TxtHarf.Text = "CB" ElseIf TxtGecme.Text >= 50 Then TxtHarf.Text = "CC" ElseIf TxtGecme.Text >= 40 Then TxtHarf.Text = "DC" ElseIf TxtGecme.Text >= 30 Then TxtHarf.Text = "DD" ElseIf TxtGecme.Text >= 20 Then TxtHarf.Text = "FD" Else TxtHarf.Text = "FF" End If End If 'www.tasarimkodlama.com End Sub End Class

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101

PublicClassForm1 'www.tasarimkodlama.com Dimvize,finalAsIntegerDimgecme AsDouble PrivateSubForm1_Load(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load 'www.tasarimkodlama.com EndSub PrivateSubTextBox5_TextChanged(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox5.TextChanged 'Final notunun girildiği metin kutusu değişirken…IfTxt_Final.Text<>""AndIsNumeric(Txt_Final.Text)Then'Eğer final metin kutusu dolu ve sayısal veri ise…IfTxt_Final.Text>100Then'Eğer girilen final değeri 100 den büyük ise…MsgBox("Hatalı Giriş!")Txt_Final.Clear()TxtGecme.Clear()TxtHarf.Clear()TxtGecme.BackColor=Color.WhiteElse'Aksi halde, yani final 100 den küçük…IfTxt_Vize.Text<>""AndIsNumeric(Txt_Vize.Text)Thenvize=Txt_Vize.Textfinal=Txt_Final.Textgecme=2*vize/5+3*final/5'vizenin %40’ı + finalin %60’ıTxtGecme.Text=gecmeIfgecme>=50ThenTxtGecme.BackColor=Color.GreenYellow ElseTxtGecme.BackColor=Color.RedEndIfEndIfElse'Ya final alanı boş, ya da girilen değer sayısal değil.TxtGecme.Clear()TxtHarf.Clear()TxtGecme.BackColor=Color.WhiteEndIfEndSub PrivateSubTxt_Vize_TextChanged(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)HandlesTxt_Vize.TextChanged'Aynı şeyler vize notu için de yapılıyor.IfTxt_Vize.Text<>""AndIsNumeric(Txt_Vize.Text)ThenIfTxt_Vize.Text>100ThenMsgBox("Hatalı Giriş!")Txt_Vize.Clear()TxtGecme.Clear()TxtHarf.Clear()TxtGecme.BackColor=Color.WhiteElseIfTxt_Final.Text<>""AndIsNumeric(Txt_Final.Text)Thenvize=Txt_Vize.Textfinal=Txt_Final.Textgecme=2*vize/5+3*final/5TxtGecme.Text=gecmeIfgecme>=50ThenTxtGecme.BackColor=Color.GreenYellow ElseTxtGecme.BackColor=Color.RedEndIfEndIfElseTxtGecme.Clear()TxtHarf.Clear()TxtGecme.BackColor=Color.WhiteEndIf 'www.tasarimkodlama.com EndSub PrivateSubTxtGecme_TextChanged(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)HandlesTxtGecme.TextChanged'Geçme notu alanı değişirken harf notu hesaplanıyor.IfTxtGecme.Text<>""ThenIfTxtGecme.Text>=90ThenTxtHarf.Text="AA"ElseIfTxtGecme.Text>=80ThenTxtHarf.Text="BA"ElseIfTxtGecme.Text>=70ThenTxtHarf.Text="BB"ElseIfTxtGecme.Text>=60ThenTxtHarf.Text="CB"ElseIfTxtGecme.Text>=50ThenTxtHarf.Text="CC"ElseIfTxtGecme.Text>=40ThenTxtHarf.Text="DC"ElseIfTxtGecme.Text>=30ThenTxtHarf.Text="DD"ElseIfTxtGecme.Text>=20ThenTxtHarf.Text="FD"ElseTxtHarf.Text="FF"EndIfEndIf 'www.tasarimkodlama.com EndSubEndClass

Örnek :Visual Basic Vücut Kitle Endeksi Hesaplama

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TxtVki.Text = TxtKilo.Text / (TxtBoy.Text * TxtBoy.Text) 'Vücut kitle indeksi=ağırlık (kg) / boyun (m) karesi. 'www.tasarimkodlama.com If TxtVki.Text <= 19 Then TxtSonuc.Text = "Zayıf" PictureBox1.ImageLocation = "zayif.jpg" End If 'www.tasarimkodlama.com If TxtVki.Text >= 20 And TxtVki.Text < 25 Then TxtSonuc.Text = "İdeal sınırlarda" PictureBox1.ImageLocation = "ideal.jpg" End If If TxtVki.Text >= 25 And TxtVki.Text < 30 Then TxtSonuc.Text = "Hafif şişman" PictureBox1.ImageLocation = "hafif-sisman.jpg" End If 'www.tasarimkodlama.com If TxtVki.Text >= 30 And TxtVki.Text < 35 Then TxtSonuc.Text = "Şişman" PictureBox1.ImageLocation = "sisman.jpg" End If If TxtVki.Text >= 35 And TxtVki.Text < 45 Then TxtSonuc.Text = "Sağlık açısından önemli" PictureBox1.ImageLocation = "tehlike.jpg" End If 'www.tasarimkodlama.com If TxtVki.Text >= 45 And TxtVki.Text < 50 Then TxtSonuc.Text = "Aşırı şişman" PictureBox1.ImageLocation = "cok-sisman.jpg" End If If TxtVki.Text >= 50 Then TxtSonuc.Text = "Morbid (ölümcül) şişman" PictureBox1.ImageLocation = "morbid.jpg" End If End Sub End Class

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849

PublicClassForm1 PrivateSubButton1_Click(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickTxtVki.Text=TxtKilo.Text/(TxtBoy.Text*TxtBoy.Text) 'Vücut kitle indeksi=ağırlık (kg) / boyun (m) karesi. 'www.tasarimkodlama.comIfTxtVki.Text<=19ThenTxtSonuc.Text="Zayıf"PictureBox1.ImageLocation="zayif.jpg"EndIf 'www.tasarimkodlama.comIfTxtVki.Text>=20AndTxtVki.Text<25ThenTxtSonuc.Text="İdeal sınırlarda"PictureBox1.ImageLocation="ideal.jpg"EndIf IfTxtVki.Text>=25AndTxtVki.Text<30ThenTxtSonuc.Text="Hafif şişman"PictureBox1.ImageLocation="hafif-sisman.jpg"EndIf 'www.tasarimkodlama.comIfTxtVki.Text>=30AndTxtVki.Text<35ThenTxtSonuc.Text="Şişman"PictureBox1.ImageLocation="sisman.jpg"EndIf IfTxtVki.Text>=35AndTxtVki.Text<45ThenTxtSonuc.Text="Sağlık açısından önemli"PictureBox1.ImageLocation="tehlike.jpg"EndIf 'www.tasarimkodlama.comIfTxtVki.Text>=45AndTxtVki.Text<50ThenTxtSonuc.Text="Aşırı şişman"PictureBox1.ImageLocation="cok-sisman.jpg"EndIf IfTxtVki.Text>=50ThenTxtSonuc.Text="Morbid (ölümcül) şişman"PictureBox1.ImageLocation="morbid.jpg"EndIfEndSubEndClass

Örnek :Visual Basic DateTimePicker İle Burçları Bulan Program

Public Class Form1 Dim gun, ay As Integer Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged gun = DateTimePicker1.Value.Day 'Sadece gün bilgisi alınıyor. ay = DateTimePicker1.Value.Month 'Sadece ay bilgisi alınıyor. 'www.tasarimkodlama.com If (ay = 12 And gun >= 23) Or (ay = 1 And gun <= 20) Then TxtBurc.Text = "OĞLAK" PictureBox1.ImageLocation = "oglak.jpg" End If If (ay = 9 And gun >= 22) Or (ay = 10 And gun <= 23) Then TxtBurc.Text = "TERAZİ" PictureBox1.ImageLocation = "terazi.jpg" End If If (ay = 1 And gun >= 21) Or (ay = 2 And gun <= 19) Then TxtBurc.Text = "KOVA" PictureBox1.ImageLocation = "kova.jpg" End If If (ay = 2 And gun >= 20) Or (ay = 3 And gun <= 20) Then TxtBurc.Text = "BALIK" PictureBox1.ImageLocation = "balik.jpg" End If 'www.tasarimkodlama.com If (ay = 3 And gun >= 21) Or (ay = 4 And gun <= 20) Then TxtBurc.Text = "KOÇ" PictureBox1.ImageLocation = "koc.jpg" End If If (ay = 4 And gun >= 21) Or (ay = 5 And gun <= 21) Then TxtBurc.Text = "BOĞA" PictureBox1.ImageLocation = "boga.jpg" End If If (ay = 5 And gun >= 22) Or (ay = 6 And gun <= 21) Then TxtBurc.Text = "İKİZLER" PictureBox1.ImageLocation = "ikizler.jpg" End If If (ay = 6 And gun >= 22) Or (ay = 7 And gun <= 23) Then TxtBurc.Text = "YENGEÇ" PictureBox1.ImageLocation = "yengec.jpg" End If 'www.tasarimkodlama.com If (ay = 7 And gun >= 24) Or (ay = 8 And gun <= 23) Then TxtBurc.Text = "ASLAN" PictureBox1.ImageLocation = "aslan.jpg" End If If (ay = 8 And gun >= 24) Or (ay = 9 And gun <= 23) Then TxtBurc.Text = "BAŞAK" PictureBox1.ImageLocation = "basak.jpg" End If If (ay = 10 And gun >= 23) Or (ay = 11 And gun <= 22) Then TxtBurc.Text = "AKREP" PictureBox1.ImageLocation = "akrep.jpg" End If 'www.tasarimkodlama.com If (ay = 11 And gun >= 23) Or (ay = 12 And gun <= 22) Then TxtBurc.Text = "YAY" PictureBox1.ImageLocation = "yay.jpg" End If End Sub End Class

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879

PublicClassForm1Dimgun,ay AsIntegerPrivateSubDateTimePicker1_ValueChanged(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)HandlesDateTimePicker1.ValueChanged gun=DateTimePicker1.Value.Day'Sadece gün bilgisi alınıyor.ay=DateTimePicker1.Value.Month'Sadece ay bilgisi alınıyor. 'www.tasarimkodlama.com If(ay=12Andgun>=23)Or(ay=1Andgun<=20)ThenTxtBurc.Text="OĞLAK"PictureBox1.ImageLocation="oglak.jpg"EndIf If(ay=9Andgun>=22)Or(ay=10Andgun<=23)ThenTxtBurc.Text="TERAZİ"PictureBox1.ImageLocation="terazi.jpg"EndIf If(ay=1Andgun>=21)Or(ay=2Andgun<=19)ThenTxtBurc.Text="KOVA"PictureBox1.ImageLocation="kova.jpg"EndIf If(ay=2Andgun>=20)Or(ay=3Andgun<=20)ThenTxtBurc.Text="BALIK"PictureBox1.ImageLocation="balik.jpg"EndIf 'www.tasarimkodlama.com If(ay=3Andgun>=21)Or(ay=4Andgun<=20)ThenTxtBurc.Text="KOÇ"PictureBox1.ImageLocation="koc.jpg"EndIf If(ay=4Andgun>=21)Or(ay=5Andgun<=21)ThenTxtBurc.Text="BOĞA"PictureBox1.ImageLocation="boga.jpg"EndIf If(ay=5Andgun>=22)Or(ay=6Andgun<=21)ThenTxtBurc.Text="İKİZLER"PictureBox1.ImageLocation="ikizler.jpg"EndIf If(ay=6Andgun>=22)Or(ay=7Andgun<=23)ThenTxtBurc.Text="YENGEÇ"PictureBox1.ImageLocation="yengec.jpg"EndIf 'www.tasarimkodlama.com If(ay=7Andgun>=24)Or(ay=8Andgun<=23)ThenTxtBurc.Text="ASLAN"PictureBox1.ImageLocation="aslan.jpg"EndIf If(ay=8Andgun>=24)Or(ay=9Andgun<=23)ThenTxtBurc.Text="BAŞAK"PictureBox1.ImageLocation="basak.jpg"EndIf If(ay=10Andgun>=23)Or(ay=11Andgun<=22)ThenTxtBurc.Text="AKREP"PictureBox1.ImageLocation="akrep.jpg"EndIf 'www.tasarimkodlama.com If(ay=11Andgun>=23)Or(ay=12Andgun<=22)ThenTxtBurc.Text="YAY"PictureBox1.ImageLocation="yay.jpg"EndIf EndSubEndClass

Örnek :Visual Basic ListBox Ekleme Silme Örneği

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ListBox1.Items.Add(TextBox1.Text + " " + TextBox2.Text) 'Ders kodu ve adı metinleri birleştirilerek liste kutusuna aktarılıyor. End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ListBox1.Items.Remove(ListBox1.SelectedItem) 'Liste kutusundan seçili olan seçenek siliniyor. End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click ListBox1.Items.Clear() End Sub End Class

123456789101112131415161718192021222324

PublicClassForm1 PrivateSubButton1_Click(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click ListBox1.Items.Add(TextBox1.Text+" "+TextBox2.Text)'Ders kodu ve adı metinleri birleştirilerek liste kutusuna aktarılıyor. EndSub PrivateSubButton2_Click(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click ListBox1.Items.Remove(ListBox1.SelectedItem)'Liste kutusundan seçili olan seçenek siliniyor. EndSub PrivateSubButton3_Click(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click ListBox1.Items.Clear() EndSubEndClass

Örnek :Visual Basic Listbox İle Öğrenci Notu Hesaplama

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'www.tasarimkodlama.com Dim Notu As Integer Dim Yil As String Dim Fak, numara As String Yil = Now.Date.Year.ToString 'Eğer giriş yılının son iki hanesi 50’den küçükse 2000’li yıllar 'olduğunu anla ve başına 20 ekle. Aksi halde başına 19 ekle: ListBox1.Items.Add(Yil) numara = TextBox1.Text Fak = Strings.Mid(numara, 3, 2) If Fak = "01" Then ListBox2.Items.Add("Mühendislik") ElseIf Fak = "02" Then ListBox2.Items.Add("Eğitim Bil.") ElseIf Fak = "03" Then ListBox2.Items.Add("Hukuk") ElseIf Fak = "04" Then ListBox2.Items.Add("iletişim") Else ListBox2.Items.Add("Diğerleri") End If 'www.tasarimkodlama.com ListBox3.Items.Add(TextBox2.Text + " " + TextBox3.Text) Notu = (TextBox4.Text * 0.4) + (TextBox5.Text * 0.6) ListBox4.Items.Add(Notu) If Notu <= 100 And Notu > 89 Then ListBox5.Items.Add("AA") ElseIf Notu > 84 Then ListBox5.Items.Add("BA") ElseIf Notu > 79 Then ListBox5.Items.Add("BB") ElseIf Notu > 74 Then ListBox5.Items.Add("CB") ElseIf Notu > 69 Then ListBox5.Items.Add("CC") ElseIf Notu > 64 Then ListBox5.Items.Add("DC") ElseIf Notu > 59 Then ListBox5.Items.Add("DD") ElseIf Notu > 49 Then ListBox5.Items.Add("FD") ElseIf Notu < 50 Then ListBox5.Items.Add("FF") End If 'www.tasarimkodlama.com TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" TextBox5.Text = "" TextBox1.Focus() End Sub End Class

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364

PublicClassForm1 PrivateSubButton1_Click(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click'www.tasarimkodlama.comDimNotu AsIntegerDimYil AsStringDimFak,numara AsStringYil=Now.Date.Year.ToString 'Eğer giriş yılının son iki hanesi 50’den küçükse 2000’li yıllar'olduğunu anla ve başına 20 ekle. Aksi halde başına 19 ekle: ListBox1.Items.Add(Yil)numara=TextBox1.TextFak=Strings.Mid(numara,3,2)IfFak="01"ThenListBox2.Items.Add("Mühendislik")ElseIfFak="02"ThenListBox2.Items.Add("Eğitim Bil.")ElseIfFak="03"ThenListBox2.Items.Add("Hukuk")ElseIfFak="04"ThenListBox2.Items.Add("iletişim")ElseListBox2.Items.Add("Diğerleri")EndIf 'www.tasarimkodlama.comListBox3.Items.Add(TextBox2.Text+" "+TextBox3.Text)Notu=(TextBox4.Text*0.4)+(TextBox5.Text*0.6)ListBox4.Items.Add(Notu)IfNotu<=100AndNotu>89ThenListBox5.Items.Add("AA")ElseIfNotu>84ThenListBox5.Items.Add("BA")ElseIfNotu>79ThenListBox5.Items.Add("BB")ElseIfNotu>74ThenListBox5.Items.Add("CB")ElseIfNotu>69ThenListBox5.Items.Add("CC")ElseIfNotu>64ThenListBox5.Items.Add("DC")ElseIfNotu>59ThenListBox5.Items.Add("DD")ElseIfNotu>49ThenListBox5.Items.Add("FD")ElseIfNotu<50ThenListBox5.Items.Add("FF")EndIf 'www.tasarimkodlama.comTextBox1.Text=""TextBox2.Text=""TextBox3.Text=""TextBox4.Text=""TextBox5.Text=""TextBox1.Focus() EndSubEndClass

Örnek :Visual Basic Combobox Nesnesi Kullanımı Örneği

Public Class Form1 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged 'www.tasarimkodlama.com ComboBox2.Items.Clear() If ComboBox1.Text = "ANKARA" Then ComboBox2.Items.Add("Çankaya") ComboBox2.Items.Add("Etimesgut") ComboBox2.Items.Add("Keçiören") ComboBox2.Items.Add("Yenimahalle") ComboBox2.Items.Add("Mamak") 'www.tasarimkodlama.com ElseIf ComboBox1.Text = "İSTANBUL" Then ComboBox2.Items.Add("Beşiktaş") ComboBox2.Items.Add("Şişli") ComboBox2.Items.Add("Eminönü") ComboBox2.Items.Add("Beykoz") ComboBox2.Items.Add("Adalar") 'www.tasarimkodlama.com ElseIf ComboBox1.Text = "İZMİR" Then ComboBox2.Items.Add("Karşıyaka") ComboBox2.Items.Add("Bornova") ComboBox2.Items.Add("Güzelyalı") ComboBox2.Items.Add("Buca") ComboBox2.Items.Add("Konak") End If End Sub End Class

123456789101112131415161718192021222324252627282930313233

PublicClassForm1 PrivateSubComboBox1_SelectedIndexChanged(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)HandlesComboBox1.SelectedIndexChanged 'www.tasarimkodlama.comComboBox2.Items.Clear()IfComboBox1.Text="ANKARA"ThenComboBox2.Items.Add("Çankaya")ComboBox2.Items.Add("Etimesgut")ComboBox2.Items.Add("Keçiören")ComboBox2.Items.Add("Yenimahalle")ComboBox2.Items.Add("Mamak") 'www.tasarimkodlama.comElseIfComboBox1.Text="İSTANBUL"ThenComboBox2.Items.Add("Beşiktaş")ComboBox2.Items.Add("Şişli")ComboBox2.Items.Add("Eminönü")ComboBox2.Items.Add("Beykoz")ComboBox2.Items.Add("Adalar") 'www.tasarimkodlama.comElseIfComboBox1.Text="İZMİR"ThenComboBox2.Items.Add("Karşıyaka")ComboBox2.Items.Add("Bornova")ComboBox2.Items.Add("Güzelyalı")ComboBox2.Items.Add("Buca")ComboBox2.Items.Add("Konak")EndIfEndSubEndClass

Örnek :Visual Basic Radiobutton-Checkbox-Listbox Kullanımı

Public Class Form1 Dim i As Byte Private Sub secenek1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles secenek1.Click ListBox1.Items.Add(secenek1.Text + " seçildi") End Sub Private Sub secenek2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles secenek2.Click ListBox1.Items.Add(secenek2.Text + " seçildi") End Sub Private Sub secim1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles secim1.Click If secim1.Checked = True Then ListBox1.Items.Add(secim1.Text + " işaretlendi") Else ListBox1.Items.Add(secim1.Text + " işareti kaldırıldı") End If End Sub Private Sub secim2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles secim2.Click If secim2.Checked = True Then ListBox1.Items.Add(secim2.Text + " işaretlendi") Else ListBox1.Items.Add(secim2.Text + " işareti kaldırıldı") End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If ListBox1.SelectedItems.Count <> 0 Then 'En az bir seçilmiş seçenek varsa. For i = 0 To ListBox1.SelectedItems.Count - 1 ListBox1.Items.Remove(ListBox1.SelectedItem) Next End If End Sub End Class

123456789101112131415161718192021222324252627282930313233343536373839

PublicClassForm1 DimiAsByte PrivateSubsecenek1_Click(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)Handlessecenek1.ClickListBox1.Items.Add(secenek1.Text+" seçildi")EndSub PrivateSubsecenek2_Click(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)Handlessecenek2.ClickListBox1.Items.Add(secenek2.Text+" seçildi")EndSub PrivateSubsecim1_Click(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)Handlessecim1.ClickIfsecim1.Checked=TrueThenListBox1.Items.Add(secim1.Text+" işaretlendi")ElseListBox1.Items.Add(secim1.Text+" işareti kaldırıldı")EndIfEndSub PrivateSubsecim2_Click(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)Handlessecim2.ClickIfsecim2.Checked=TrueThenListBox1.Items.Add(secim2.Text+" işaretlendi")ElseListBox1.Items.Add(secim2.Text+" işareti kaldırıldı")EndIfEndSub PrivateSubButton1_Click(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickIfListBox1.SelectedItems.Count<>0Then'En az bir seçilmiş seçenek varsa.Fori=0ToListBox1.SelectedItems.Count-1ListBox1.Items.Remove(ListBox1.SelectedItem)NextEndIfEndSubEndClass

Örnek :Visual Basic Radio Button İle Dört İşlem

Public Class Form1 Dim s1, s2 As Integer Dim s As Double Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'https://www.tasarimkodlama.com s1 = sayi1.Text s2 = sayi2.Text If topla.Checked = True Then s = s1 + s2 ElseIf cikar.Checked = True Then s = s1 - s2 ElseIf carp.Checked = True Then s = s1 * s2 ElseIf bol.Checked = True And s2 <> 0 Then 'Sıfıra bölme yapmasın. s = s1 / s2 End If sonuc.Text = s End Sub End Class

12345678910111213141516171819202122232425

PublicClassForm1 Dims1,s2 AsIntegerDimsAsDouble PrivateSubButton1_Click(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click 'https://www.tasarimkodlama.coms1=sayi1.Texts2=sayi2.TextIftopla.Checked=TrueThens=s1+s2ElseIfcikar.Checked=TrueThens=s1-s2ElseIfcarp.Checked=TrueThens=s1*s2ElseIfbol.Checked=TrueAnds2<>0Then'Sıfıra bölme yapmasın.s=s1/s2EndIfsonuc.Text=s EndSubEndClass

Örnek :Visual Basic For Döngüsü İki Sayı Arasındaki Sayıların Toplamı

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'www.tasarimkodlama.com Dim sayac, toplam As Integer toplam = 0 For sayac = TxtBaslangic.Text To TxtBitis.Text toplam = toplam + sayac Next Label4.Text = toplam End Sub End Class

123456789101112131415161718

PublicClassForm1 PrivateSubButton1_Click(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click 'www.tasarimkodlama.comDimsayac,toplam AsIntegertoplam=0 Forsayac=TxtBaslangic.Text ToTxtBitis.Texttoplam=toplam+sayacNext Label4.Text=toplam EndSubEndClass

Örnek :Visual Basic For Döngüsü İle Sayaç Oluşturma

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click For basamak1 = 0 To 9 LblB1.Text = basamak1 For bekle = 0 To 10000000 'Her adımda beklemeyi sağlar. Next LblB1.Refresh() 'Etiketin (Label) tazelenmesi. Yeni sayıyı her adımda göstermesi için gereklidir. For basamak2 = 0 To 9 LblB2.Text = basamak2 For bekle = 0 To 10000000 Next LblB2.Refresh() For basamak3 = 0 To 9 LblB3.Text = basamak3 For bekle = 0 To 10000000 Next LblB3.Refresh() Next Next Next End Sub End Class

12345678910111213141516171819202122232425

PublicClassForm1 PrivateSubButton1_Click(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickForbasamak1=0To9LblB1.Text=basamak1Forbekle=0To10000000'Her adımda beklemeyi sağlar.NextLblB1.Refresh()'Etiketin (Label) tazelenmesi. Yeni sayıyı her adımda göstermesi için gereklidir.Forbasamak2=0To9LblB2.Text=basamak2Forbekle=0To10000000NextLblB2.Refresh()Forbasamak3=0To9LblB3.Text=basamak3Forbekle=0To10000000NextLblB3.Refresh()NextNextNextEndSubEndClass

Örnek :Visual Basic Girilen Sayının Kuvveti ve Faktoriyelini Hesaplama

Public Class Form1 Dim sayi, kuvvet As Integer Dim sonuc As Long Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click sayi = txtsayi.Text kuvvet = txtkuvvet.Text sonuc = 1 For sayac = 1 To kuvvet sonuc = sayi * sonuc 'Sayı, kuvvet defa kendisi ile çarpılıyor. Next (sayac) txtsonuc.Text = sonuc End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click sayi = txtsayi.Text sonuc = 1 For sayac = 1 To sayi sonuc = sayac * sonuc 'Sayıya kadar olan bütün sayılar çarpılıyor. Next (sayac) txtfaktor.Text = sonuc End Sub End Class

123456789101112131415161718192021222324

PublicClassForm1Dimsayi,kuvvet AsIntegerDimsonuc AsLongPrivateSubButton1_Click(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Clicksayi=txtsayi.Textkuvvet=txtkuvvet.Textsonuc=1Forsayac=1Tokuvvetsonuc=sayi*sonuc'Sayı, kuvvet defa kendisi ile çarpılıyor.Next(sayac)txtsonuc.Text=sonucEndSub PrivateSubButton2_Click(ByValsender AsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Clicksayi=txtsayi.Textsonuc=1Forsayac=1Tosayisonuc=sayac*sonuc'Sayıya kadar olan bütün sayılar çarpılıyor.Next(sayac)txtfaktor.Text=sonucEndSubEndClass

EtiketlerBasit Visual Basic Örnekleri Zor Visual Basic Örnekleri