VB Bir Not Ortalaması Örneği

Programlama dilleri konusunda bilgi paylaşım alanıdır.
Cevapla
Kullanıcı avatarı
mayhemious
Kilobyte4
Kilobyte4
Mesajlar: 711
Kayıt: 17 Kas 2007, 13:14
cinsiyet: Erkek

VB Bir Not Ortalaması Örneği

Mesaj gönderen mayhemious » 06 Oca 2008, 21:40

Öncelikle formumuza Toolbox bölümünden 3 adet Label ekliyoruz.3 adet TextBox ve bir adette Button ekliyoruz.

Labellerin İsimleri; Label1 = 1.not Label2 = 2.not Label3 = 3.not

Button1 = Hesapla olarak adlandırdıktan sonra kod bölümüne gelerek assagıdaki kodları yazıyoruz.

Kod: Tümünü seç

Option Explicit

Dim n1, n2, n3, ort As Integer


Private Sub Command1_Click()
      n1 = Val(Text1.Text)
      n2 = Val(Text2.Text)
      n3 = Val(Text3.Text)
      ort = (n1 + n2 + n3) / 3
      If (ort < 50) Then
          MsgBox (" Kaldınız " & ort)
      Else
          MsgBox (" Geçtiniz " & ort)
      End If
 

End Sub



Cevapla