Final ve Vize Notlarının Hesaplanması

[ßyMesMes]

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.