VBNET

More documents

Recommendations

Info

VB.Net Örnek Uygulamalar 2 Kasım 2011 If (ay = 3 And gun >= 21) Or (ay = 4 And gun = 21) Or (ay = 5 And gun = 22) Or (ay = 6 And gun = 22) Or (ay = 7 And gun = 24) Or (ay = 8 And gun = 24) Or (ay = 9 And gun = 23) Or (ay = 11 And gun = 23) Or (ay = 12 And gun
Uygulama No: 4 – Not Hesapla VB.Net Örnek Uygulamalar 2 Kasım 2011 Açıklama : Girilen ara sınav ve genel sınav notları kullanılarak geçme notu hesaplanıyor ve bu geçme notuna karşılık gelen harf notu belirleniyor. Ekran Görüntüsü Public Class Form1 Dim vize, final As Integer Dim gecme As Double Açıklamalı Kodlar Private Sub Txt_Final_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Txt_Final.TextChanged ‘Final notunun girildiği metin kutusu değişirken… If Txt_Final.Text "" And IsNumeric(Txt_Final.Text) Then ‘Eğer final metin kutusu dolu ve sayısal veri ise… If Txt_Final.Text > 100 Then ‘Eğer girilen final değeri 100 den büyük ise… MsgBox("Hatalı Giriş!") Txt_Final.Clear() TxtGecme.Clear() TxtHarf.Clear() TxtGecme.BackColor = Color.White Else ‘Aksi halde, yani final 100 den küçük… If Txt_Vize.Text "" And IsNumeric(Txt_Vize.Text) Then vize = Txt_Vize.Text final = Txt_Final.Text gecme = 2 * vize / 5 + 3 * final / 5 ‘vizenin %40’ı + finalin %60’ı TxtGecme.Text = gecme If gecme >= 50 Then TxtGecme.BackColor = Color.GreenYellow Else TxtGecme.BackColor = Color.Red End If End If Else ‘Ya final alanı boş, ya da girilen değer sayısal değil. TxtGecme.Clear() Tolga GÜYER Sayfa 9
Page 1 and 2: VB.Net Örnek Uygulamalar Tolga GÜ
Page 3 and 4: VB.Net Örnek Uygulamalar 2 Kasım
Page 7: VB.Net Örnek Uygulamalar 2 Kasım
Page 11 and 12: Uygulama No: 5 - Ders Ekle VB.Net
Page 13 and 14: Uygulama No: 7 - Geçme Notu VB.Net
Page 15 and 16: Uygulama No: 8 - Numara Oluştur VB
Page 17 and 18: Uygulama No: 9 - İl ve İlçe VB.N
Page 21 and 22: Uygulama No: 12 - Olaylar-1 VB.Net
Page 23 and 24: Uygulama No: 13 - Dört İşlem VB.
Page 25 and 26: Uygulama No: 15 - Mekanik Sayaç VB
Page 31 and 32: Uygulama No: 20 - 153 Sayısı VB.N
Page 37 and 38: Uygulama No: 24 - Kaprekar Sabiti V
Page 59 and 60:
VB.Net Örnek Uygulamalar 2 Kasım
Page 61 and 62:
End Sub TxtYorum.Clear() TxtFilmAdi
Page 63 and 64:
Page 65 and 66:
Page 67 and 68:
Page 69 and 70:
Page 71 and 72:
End Sub VB.Net Örnek Uygulamalar 2
Page 73 and 74:
Page 75 and 76:
Page 77 and 78:
Page 79 and 80:
Page 81 and 82:
Page 83 and 84:
Page 85 and 86:
Page 87 and 88:
Page 89 and 90:
Page 91 and 92:
Page 93 and 94:
Page 95 and 96:
Page 97 and 98:
Page 99 and 100:
Page 101 and 102:
Page 103 and 104:
show all

VBNET

Create successful ePaper yourself

Delete template?

Save as template?