Visual Basic ile Vize ve final notlarını hesaplayan program yapımı
Aşağıda verilmiş olan kodları form'da eklediğiniz Buttonun içine ekleyiniz.
Private Sub Command2_Click()
Dim V, y, f
V = InputBox("Vize değerinizi girin", " işte vize notunuz", "0")
f = InputBox("Final notu girin", "işte final notunuz", "0")
y = (V * 0.3) + (f * 0.7)
MsgBox y
Select Case y
Case 0: MsgBox ("çok Kötü")
Case 1 To 24: MsgBox (" az Kötü")
Case 25 To 44: MsgBox ("Fena sayılmaz")
Case 45 To 54: MsgBox (" Geçerli not")
Case 55 To 69: MsgBox (" Az Fena Değil")
Case 70 To 84: MsgBox (" Normal")
Case 85 To 100: MsgBox ("tebrikler süper")
Case Else: MsgBox ("Yanlış not girdiniz")
End Select
End Sub
Aşağıda verilmiş olan kodları form'da eklediğiniz Buttonun içine ekleyiniz.
Private Sub Command2_Click()
Dim V, y, f
V = InputBox("Vize değerinizi girin", " işte vize notunuz", "0")
f = InputBox("Final notu girin", "işte final notunuz", "0")
y = (V * 0.3) + (f * 0.7)
MsgBox y
Select Case y
Case 0: MsgBox ("çok Kötü")
Case 1 To 24: MsgBox (" az Kötü")
Case 25 To 44: MsgBox ("Fena sayılmaz")
Case 45 To 54: MsgBox (" Geçerli not")
Case 55 To 69: MsgBox (" Az Fena Değil")
Case 70 To 84: MsgBox (" Normal")
Case 85 To 100: MsgBox ("tebrikler süper")
Case Else: MsgBox ("Yanlış not girdiniz")
End Select
End Sub
ads
Hiç yorum yok: