Final ve Vize Notlarının Hesaplanması

[ßyMesMes]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Bu dersimizde final ve vize notlarımızı hesaplayan bir program yazacağız.

Aşagıdaki kodları oluşturduğunuz butonun içine de yazabilrsiniz.

Ben butonun içine yazdıgım için command_click kodu yerleşmiştir. Siz isterseniz direkt olarak formun içine de yazabilirsiniz.

Private Sub Command2_Click()
Dim V, y, f
V = InputBox("Lütfen Vize Notunuzu Giriniz", "vize notunuz", "0")
f = InputBox("Lütfen Final Notunuzu Giriniz", "final notunuz", "0")
y = (V * 0.3) + (f * 0.7)
MsgBox y
Select Case y
Case 0: MsgBox (" Hiç birşey bilmiyorsun")
Case 1 To 24: MsgBox (" Kötü")
Case 25 To 44: MsgBox ("Çok iyi Değil")
Case 45 To 54: MsgBox (" Geçer")
Case 55 To 69: MsgBox ("Fena Değil")
Case 70 To 84: MsgBox (" İyi")
Case 85 To 100: MsgBox ("Çok iyisin")
Case Else: MsgBox ("Yanlış veya geçersiz not girdiniz")
End Select
End Sub

 

[turkmmouser03]

Teşşekurler . Kaliteli Bir Konu Olmuş .

 

[Karcemackers]

Paylasım icin tesekkurler.

 

[ßyMesMes]

Rica ederim.

 

[umit99]

Eline sağlık.