Tolga Güyer;in hazirlamis oldugu vb.net uygulamalari isimli pdf dosyasini Vb.Net Örnek Uygulamalar... basliginda 2012-04-18 20:35:30 tarih ve saatinde sitemde paylasmistim. Uygulamalari tekrar konrol ettigimde onlari visual studio programinda kodlayip çalistirayim, hem tekrar olsun hemde programlamaya yeni baslayan arkadaslar için algoritmalarini, kodlari birbirine baglamayi ve sistemin nasil çalistigi hakkinda yardimci kaynak olmasi açisindan iyi olur diye düsündüm. Uygulamalari yazarken hatali yerleri düzeltip hazirladim. Uygulama dosyalarini indirebilirsiniz.
1. Uygulamamiz
Kodlarimiz;
Public Class Form1
Private Sub basma_Click(sender As Object, e As EventArgs) Handles basma.Click
If giris.Text = "" Then ' Eger metin kutusu bos ise
MessageBox.Show("Basmayin demistim", "Uyari", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1) ' Button kirmizi oluyor
Else
basma.BackColor = Color.GreenYellow ' Aksi halde yesile dönüyor
End If
End Sub
End Class
2. Uygulamamiz
Kodlarimiz;
Public Class Form1
Dim vize, final As Integer
Dim gecme As Double
Private Sub Txt_AraS_TextChanged(sender As Object, e As EventArgs) Handles Txt_AraS.TextChanged
If Txt_AraS.Text <> "" And IsNumeric(Txt_AraS.Text) Then
' Eger final metin kutusu dolu ve sayisal veri ise
If Txt_AraS.Text > 100 Then
' Eger girilen vize degeri 100 then büyükse
MessageBox.Show("Vize notu 100;den büyük olamaz", "Hatali giris", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1)
Txt_AraS.Clear()
Else ' Final notu 100 den küçük ise
If Txt_AraS.Text <> "" And IsNumeric(Txt_AraS.Text) Then
vize = 2 * Txt_AraS.Text / 5
' Vizenin % 40;sini aliyoruz
Txt_Final.Enabled = True
' Program çalistiginda veri girisi kapali olan final textbox kontrolumuzu aktif hale getiriyoruz.
End If
End If
Else ' Ya vize alani bos, ya da girilen deger sayisal degil ise;
MessageBox.Show("Final notunuzu hatali girdiniz", "Hatali giris", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1)
Txt_AraS.Clear()
End If
End Sub
Private Sub Txt_GecmeN_TextChanged(sender As Object, e As EventArgs) Handles Txt_GecmeN.TextChanged
' Geçme notu alani degisirken harf notu hesaplaniyor.
If Txt_GecmeN.Text <> "" Then
If Txt_GecmeN.Text >= 90 Then
Txt_HarfN.Text = "AA"
ElseIf Txt_GecmeN.Text >= 80 Then
Txt_HarfN.Text = "BA"
ElseIf Txt_GecmeN.Text >= 70 Then
Txt_HarfN.Text = "BB"
ElseIf Txt_GecmeN.Text >= 60 Then
Txt_HarfN.Text = "CB"
ElseIf Txt_GecmeN.Text >= 50 Then
Txt_HarfN.Text = "CC"
ElseIf Txt_GecmeN.Text >= 40 Then
Txt_HarfN.Text = "DC"
ElseIf Txt_GecmeN.Text >= 30 Then
Txt_HarfN.Text = "DD"
ElseIf Txt_GecmeN.Text >= 20 Then
Txt_HarfN.Text = "FD"
Else
Txt_HarfN.Text = "FF"
End If
End If
End Sub
Private Sub Txt_Final_TextChanged(sender As Object, e As EventArgs) Handles Txt_Final.TextChanged
'Final notunun girildigi metin kutusu degisirken(TextChanged olayi)
If Txt_Final.Text <> "" And IsNumeric(Txt_Final.Text) Then
' Eger final metin kutusu dolu ve sayisal veri ise
If Txt_Final.Text > 100 Then
' Eger girilen final degeri 100 then büyükse
MessageBox.Show("Final notu 100;den büyük olamaz", "Hatali giris", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1)
Txt_Final.Clear()
Txt_GecmeN.Clear()
Txt_HarfN.Clear()
Txt_GecmeN.BackColor = Color.White
Else ' Final notu 100 den küçük ise
If Txt_AraS.Text <> "" And IsNumeric(Txt_AraS.Text) Then
final = 3 * Txt_Final.Text / 5
' Finalin % 60;sini aliyoruz
gecme = final + vize
' Geçme notumuzu hesapliyoruz
Txt_GecmeN.Text = gecme
' Geçme textbox kontrolune gecme notunu aktariyoruz
End If
End If
Else ' Ya final alani bos, ya da girilen deger sayisal degil ise;
MessageBox.Show("Final notunuzu hatali girdiniz", "Hatali giris", MessageBoxButtons.OK, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1)
Txt_Final.Clear()
End If
End Sub
End Class
3. Uygulamamiz
Kodlarimiz;
Public Class Form1
Private Sub btnveriekle_Click(sender As Object, e As EventArgs) Handles btnveriekle.Click
ListBox1.Items.Add(txtderskodu.Text + " " + txtdersadi.Text)
txtdersadi.Clear()
txtderskodu.Clear()
' Ders kodu ve ders adini birlestirerek ekleme yapiyoruz
End Sub
Private Sub btnssil_Click(sender As Object, e As EventArgs) Handles btnssil.Click
ListBox1.Items.Remove(ListBox1.SelectedItem)
'Liste kutusundan seçili olani siliyoruz
End Sub
Private Sub btnltemizle_Click(sender As Object, e As EventArgs) Handles btnltemizle.Click
ListBox1.Items.Clear()
'Listbox kontrolumuzu temizliyoruz
End Sub
End Class
4. Uygulamamiz
Kodlarimiz;
Public Class Form1
Dim dersin_kodu, dersin_adi, ders As String
Private Sub btnekle_Click(sender As Object, e As EventArgs) Handles btnekle.Click
ders = TextBox1.Text
Dim dizi(1) As String ' 2 boyutlu dizi tanimladik
dizi = ders.Split(" ")
' Split ile cümlemizi 2 parçaya ayirdik. Bosluktan önce ve sonra
ListBox1.Items.Add(dizi(0))
ListBox2.Items.Add(dizi(1).ToUpper)
TextBox1.Clear()
End Sub
End Class
5. Uygulamamiz
Kodlarimiz;
Public Class Form1
Private Sub btnhesapla_Click(sender As Object, e As EventArgs) Handles btnhesapla.Click
Dim notu As Integer = 0
Dim yil As Integer = 0
Dim fak, numara As String
yil = DateTime.Now.ToString("yyyy")
Dim rastgele As New Random
' Ögrenci numarasi için rastgele sayilar ürettik
numara = yil.ToString.Substring(2) & rastgele.Next(0, 999999999)
' Ögrenci numarasinin basina yilin son iki hanesini ekledik 18 yani
txtnum.Text = numara
If ComboBox1.SelectedIndex = 0 Then
fak = "Mühendislik Fakültesi"
listfakulte.Items.Clear()
listfakulte.Items.Add(fak)
ElseIf ComboBox1.SelectedIndex = 1 Then
fak = "Egitim Fakültesi"
listfakulte.Items.Clear()
listfakulte.Items.Add(fak)
ElseIf ComboBox1.SelectedIndex = 2 Then
fak = "Iletisim Fakültesi"
listfakulte.Items.Clear()
listfakulte.Items.Add(fak)
End If
' Combobox içinde degerlerin index numarasina göre fakülte isimlerini aldik.
listname.Items.Add(txtad.Text & " " & txtsoyad.Text)
' Listname isimli listemize ad ve soyad girisi yapiyoruz
listgiris.Items.Add(yil)
' Listgiris isimli listemize yil girisimizi yapiyoruz
notu = txtvize.Text * 0.4 + txtfinal.Text * 0.6
listgnotu.Items.Add(notu)
If notu <= 100 And notu > 89 Then
listhnotu.Items.Clear()
listhnotu.Items.Add("AA")
ElseIf notu > 84 Then
listhnotu.Items.Clear()
listhnotu.Items.Add("BA")
ElseIf notu > 79 Then
listhnotu.Items.Clear()
listhnotu.Items.Add("BB")
ElseIf notu > 74 Then
listhnotu.Items.Clear()
listhnotu.Items.Add("CB")
ElseIf notu > 69 Then
listhnotu.Items.Clear()
listhnotu.Items.Add("CC")
ElseIf notu > 64 Then
listhnotu.Items.Clear()
listhnotu.Items.Add("DC")
ElseIf notu > 59 Then
listhnotu.Items.Clear()
listhnotu.Items.Add("DD")
ElseIf notu > 49 Then
listhnotu.Items.Clear()
listhnotu.Items.Add("FD")
ElseIf notu < 50 Then
listhnotu.Items.Clear()
listhnotu.Items.Add("FF")
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
txtnum.Text = "Otomatik Olusacaktir"
ComboBox1.Text = "Birini Seçiniz"
' Program açilisinda combobox basligini belirtiyoruz
ComboBox1.Items.Add("Mühendislik Fakültesi")
ComboBox1.Items.Add("Egitim Fakültesi")
ComboBox1.Items.Add("Iletisim Fakültesi")
' Program açilisinda combobox degerlerini yüklüyoruz
End Sub
End Class