Visual Basic’te Textlere girilen yazılı notlarının ve sözlünün ortalmasını alan,  karne notunu hesaplayan ve 45′den büyükse geçti küçükse kaldı yazan program. Formumuzun görünümü:

Sonra hesapla buttonumuzun click’ine aşağıdaki kodları yazıyoruz:

Text5.Text = (Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text)) / 4
If Val(Text5.Text) < 45 Then Text6.Text = "kaldı"
If Val(Text5.Text) >= 45 Then Text6.Text = “geçti”
If (Text5.Text >= 0 And Text5.Text <= 24) Then Text7.Text = "0"
If (Text5.Text >= 25 And Text5.Text <= 44) Then Text7.Text = "1"
If (Text5.Text >= 45 And Text5.Text <= 54) Then Text7.Text = "2"
If (Text5.Text >= 55 And Text5.Text <= 69) Then Text7.Text = "3"
If (Text5.Text >= 70 And Text5.Text <= 84) Then Text7.Text = "4"
If (Text5.Text >= 85 And Text5.Text <= 100) Then Text7.Text = "5"

Program çalıştıktan sonraki yüzü:

Rica: Sitemizin Google'da Ön Sıralarda Çıkması İçin Lütfen Alttaki Google+ Butonuna Tıklayınız , Sayfamızı Facebookta Beğeniniz veya yazıları Twitter,Facebookta paylaşınız.