İki Yazılının Ortalamasını Alan örnek Program (Visual Basic) VB 6.0

Visual Basic’te textlere girilen iki yazılının ortalamısını alan ve eğer ortalaması 45 den büyükse labele geçti, küçükse kaldı yazan program. Bunun için 3 tane text, 5 tane label ve 1 tanede button ekliyoruz. Formumuzun görünümü:

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

[code=’VB.net’]
Text3.Text = (Val(Text1.Text) + Val(Text2.Text)) / 2
If Val(Text3.Text) < 45 Then Label4.Caption = ("kaldı") If Val(Text3.Text) >= 45 Then Label4.Caption = (“geçti”)
[/code]

Program çalıştıktan sonraki yüzünü aşağıda görebilirsiniz.