VBNET

VB.Net Örnek Uygulamalar
2 Kasım 2011
TxtHarf.Clear()
TxtGecme.BackColor = Color.White
End If
End Sub
Private Sub Txt_Vize_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Txt_Vize.TextChanged
‘Aynı şeyler vize notu için de yapılıyor.
If Txt_Vize.Text "" And IsNumeric(Txt_Vize.Text) Then
If Txt_Vize.Text > 100 Then
MsgBox("Hatalı Giriş!")
Txt_Vize.Clear()
TxtGecme.Clear()
TxtHarf.Clear()
TxtGecme.BackColor = Color.White
Else
If Txt_Final.Text "" And IsNumeric(Txt_Final.Text) Then
vize = Txt_Vize.Text
final = Txt_Final.Text
gecme = 2 * vize / 5 + 3 * final / 5
TxtGecme.Text = gecme
If gecme >= 50 Then TxtGecme.BackColor =
Color.GreenYellow Else TxtGecme.BackColor = Color.Red
End If
End If
Else
TxtGecme.Clear()
TxtHarf.Clear()
TxtGecme.BackColor = Color.White
End If
End Sub
Private Sub TxtGecme_TextChanged(ByVal sender As Object, ByVal e As
System.EventArgs) Handles TxtGecme.TextChanged
‘Geçme notu alanı değişirken harf notu hesaplanıyor.
If TxtGecme.Text "" Then
If TxtGecme.Text >= 90 Then
TxtHarf.Text = "AA"
ElseIf TxtGecme.Text >= 80 Then
TxtHarf.Text = "BA"
ElseIf TxtGecme.Text >= 70 Then
TxtHarf.Text = "BB"
ElseIf TxtGecme.Text >= 60 Then
TxtHarf.Text = "CB"
ElseIf TxtGecme.Text >= 50 Then
TxtHarf.Text = "CC"
ElseIf TxtGecme.Text >= 40 Then
TxtHarf.Text = "DC"
ElseIf TxtGecme.Text >= 30 Then
TxtHarf.Text = "DD"
ElseIf TxtGecme.Text >= 20 Then
TxtHarf.Text = "FD"
Else
TxtHarf.Text = "FF"
End If
End If
End Sub
End Class
Tolga GÜYER Sayfa 10