Anasayfa > Kodlar > Visual Basic 6 ile Yazılı notu hesaplamak

Visual Basic 6 ile Yazılı notu hesaplamak


Bu tüm öğrencilere notlarını hesaplamaları içini yaptım

Private Sub Command1_Click()
Text4.Text = Val(((Text1.Text) + Val(Text2.Text) + Val(Text3.Text)) / 3)

If Text4.Text < 45 Then
Text5 = "kaldı"
Else: Text5 = "geçti"
End If
End Sub

Private Sub Command2_Click()
Unload Me
Set cıkıs = Nothing
End Sub

Private Sub Command3_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
End Sub


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Yanıt Bırakın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: