Şekil 1
Şekil 2
Şekil 3
Public Class Form1
Dim vize, final As Integer
Dim gnotu As Double
Dim sonuc, durum As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
vize = InputBox("Not Girişi", "Vize Notu Girişi", 0)
final = InputBox("Not Girişi", "Final Notu Girişi", 0)
gnotu = vize * 0.3 + final * 0.7
Select Case gnotu
Case 90 To 100 : sonuc = "A"
Case 80 To 89 : sonuc = "B"
Case 70 To 79 : sonuc = "C"
Case 60 To 69 : sonuc = "D"
Case Is < 50 : sonuc = "F"
Case 50 To 59 : sonuc = "E"
Case Else
End Select
If gnotu < 60 Then
durum = "KALDINIZ!.."
Else
durum = "GEÇTİNİZ!.."
End If
MsgBox("Not Ortalaması:" & gnotu & Chr(10) & "Puan Dilimi: " & sonuc & Chr(10) & "Durum: " & durum)
End Sub
End Class
Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
Public Class Form1
Dim vize, final As Integer
Dim gnotu As Double
Dim sonuc, durum As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
vize = InputBox("Not Girişi", "Vize Notu Girişi", 0)
final = InputBox("Not Girişi", "Final Notu Girişi", 0)
gnotu = vize * 0.3 + final * 0.7
Select Case gnotu
Case 90 To 100 : sonuc = "A"
Case 80 To 89 : sonuc = "B"
Case 70 To 79 : sonuc = "C"
Case 60 To 69 : sonuc = "D"
Case Is < 50 : sonuc = "F"
Case 50 To 59 : sonuc = "E"
Case Else
End Select
If gnotu < 60 Then
durum = "KALDINIZ!.."
Else
durum = "GEÇTİNİZ!.."
End If
MsgBox("Not Ortalaması:" & gnotu & Chr(10) & "Puan Dilimi: " & sonuc & Chr(10) & "Durum: " & durum)
End Sub
End Class
Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
0 comments:
Yorum Gönder