A
B
C
Ç
D
E
F
G
Ğ
H
I
İ
J
K
L
M
N
O
P
R
S
Ş
T
U
Ü
V
Y
Z
Q
W
X
+ Ekle
Üç Notlu Bir Yazılının Ortalamasını Alma İşini Gören Program

Üç Notlu Bir Yazılının Ortalamasını Alma İşini Gören Program
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



brush





  Ad Soyad
  Yorum