ana sayfa > Görsel Programlama, VB 6.0 > Üç Yazılı, Bir Sözlünün Ortalamasını Hesaplayan Örnek Program (Visual Basic örnek) VB 6.0

Üç Yazılı, Bir Sözlünün Ortalamasını Hesaplayan Örnek Program (Visual Basic örnek) VB 6.0

Perşembe, 04 Haz 2009 yorum ekle yorumlara git




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ü:

13

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ü:

22





Categories: Görsel Programlama, VB 6.0 Tags: , ,
  1. şimdilik yorum yok.
  1. şimdilik geri bağlantı yok