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:
[code=’VB.Net’]
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"
[/code]
Program çalıştıktan sonraki yüzü:
