1. Reklam


    1. bestsro
      joysro
      anafor
      anafor
      viki
      darkroad
      bosalan

Vb.NET Ortalama Alma


  1. Unforgiven

    Unforgiven rank8

    Kayıt:
    13 Temmuz 2009
    Mesajlar:
    3.506
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0

    Bir windows uygulaması oluşturun. Forma 3adet label, 3adet textbox ve 1adet button ekleyin.

    Label1 > 1. Notunuzu Giriniz:
    Label2 > 2. Notunuzu Giriniz:
    Label3 > Ortalamanız:
    Button1 > Hesapla


    olacak şekilde text özelliklerini değiştirin.



    button 1 click olayına girin ve şu kodları yazın

    Kod:
    Dim yazili1, yazili2, ort As Single ' 1. ve 2. yazılı notunu ve ortalamayı single olarak tanımladık yani ondalık sayı olabilir
            yazili1 = Val(TextBox1.Text) '1. yazılı notunun textbox1.text den okutulmasını söyledik
            yazili2 = Val(TextBox2.Text) '2. yazılı notunun textbox2.text den okutulmasını söyledik
            ort = (yazili1 + yazili2) / 2 'ortalamanın 1. ve 2. yazılı notlarının toplamının 2ye bölümü olduğunu söyledik
            TextBox3.Text = ort 'en sonda ortalamanın textbox3'e yazmasını söyledik