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