Anasayfa > Kodlar > Visual Basic 6 ile Üç notlu bir yazılının ortalamasını almak

Visual Basic 6 ile Üç notlu bir yazılının ortalamasını almak


Arkadaşlar Üç Notlu Bir Yazılının Ortalamasını Alma İşini Gören Bir Program Yeni Başlayanlar İçin Güzel Bir Uygulama Olacağına İnanıyorum

Gerenken Tek Şey Forma Bir Tane Command Tuşu Eklemek Ondan Sonra Kodları Forma Yapıştırın Kolay Gelsin


Private Sub Command1_Click()

Dim not1 As Integer
Dim not2 As Integer
Dim not3 As Integer

isim = InputBox("İSMİNİZİ GİRİNİZ")

not1 = InputBox("NOT1     GİRİNİZ")
If not1 > 100 Then

MsgBox "FURKANIN NOT HESAPLAMA PROGRAMINA 100 DEN BÜYÜK SAYI GİREMEZSİNİZ"

not1 = InputBox("NOT1     GİRİNİZ")

End If
not2 = InputBox("NOT2     GİRİNİZ")
If not2 > 100 Then

MsgBox "FURKANIN NOT HESAPLAMA PROGRAMINA 100 DEN BÜYÜK SAYI GİREMEZSİNİZ"

End If
not3 = InputBox("NOT3     GİRİNİZ")
If not3 > 100 Then

MsgBox "FURKANIN NOT HESAPLAMA PROGRAMINA 100 DEN BÜYÜK SAYI GİREMEZSİNİZ"

End If

sonuc = not1 + not2 + not3

sonuc = sonuc / 3

If sonuc > 44 Then

MsgBox isim & "  FURKANIN HAZIRLAMIS OLDUGU NOT HESAPLAMA PROGRAMI SENİ BAŞARILI BULUYOR"

MsgBox "BASARININ DEVAMINI DİLİYORUM  " & isim & "   NOT ORTALAMAN  " & sonuc

End If

If sonuc < 45 Then

MsgBox isim & "  FURKANIN HAZIRLAMIS OLDUGU NOT HESAPLAMA PROGRAMI SENİ ZAYIF BULUYOR"

MsgBox "DAHA COK CALISMAN LAZIM SANA HAYATINDA BASARILAR DİLİYORUM " & isim & "  NOT ORTALAMAN  " & sonuc

End If

End Sub

Private Sub Command2_Click()
Dim not1 As Integer
Dim not2 As Integer

isim = InputBox("İSMİNİZİ GİRİNİZ")

not1 = InputBox("NOT1     GİRİNİZ")
If not1 > 100 Then

MsgBox "FURKANIN NOT HESAPLAMA PROGRAMINA 100 DEN BÜYÜK SAYI GİREMEZSİNİZ"

not1 = InputBox("NOT1     GİRİNİZ")

End If
not2 = InputBox("NOT2     GİRİNİZ")
If not2 > 100 Then

MsgBox "FURKANIN NOT HESAPLAMA PROGRAMINA 100 DEN BÜYÜK SAYI GİREMEZSİNİZ"

End If

sonuc = not1 + not2

sonuc = sonuc / 2

If sonuc > 44 Then

MsgBox isim & "  FURKANIN HAZIRLAMIS OLDUGU NOT HESAPLAMA PROGRAMI SENİ BAŞARILI BULUYOR"

MsgBox "BASARININ DEVAMINI DİLİYORUM  " & isim & "   NOT ORTALAMAN  " & sonuc

End If

If sonuc < 45 Then

MsgBox isim & "  FURKANIN HAZIRLAMIS OLDUGU NOT HESAPLAMA PROGRAMI SENİ ZAYIF BULUYOR"

MsgBox "DAHA COK CALISMAN LAZIM SANA HAYATINDA BASARILAR DİLİYORUM  " & isim & "  NOT ORTALAMAN  " & sonuc

End If

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: