Üç Yazılı, Bir Sözlünün Ortalamasını Hesaplayan Örnek Program (Visual Basic örnek) VB 6.0
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"
[/code]
Program çalıştıktan sonraki yüzü:
