Bu yazımızda asp.net ile basit bir not ortalamatma uygulaması yapacağız. Şimdi ihtiyacımız olan nesneler 3 Textbox – 3 Label ve 1 ButonProjemize başlamadan önce ne yapacağımızı bir anlatalım.3 textboxa girilen notlar

-label1 e not ortalaması yazılacak 100 üzerinden,- label2’ye not ortalamasının 5’lik üzerinden değeri yazılacak,- label3’e ise bu 5’lik değerin alfabetik hali yazılacak.
Şimdi Button1_click olayına aşağıdaki kodları yazıyoruz.
Dim not1 As Integer = TextBox1.TextDim not2 As Integer = TextBox2.TextDim not3 As Integer = TextBox3.TextDim ortalama As Integer = (not1 + not2 + not3) / 3
Şeklinde değişkenler tanımladık. Textbox1’e not1, textbox2’ye not2, textbox3’e not3 dedik. Sonra ortalamamızı oluşturduk.Şimdi Label1’e ortalamamızı yazdıracağız.
Label1.Text = ortalama
İlk aşama tamam. label1’de ortalamayı 100 üzerinden yazdırdık. Şimdi Label2’ye bu 100 üzerinden hesaplanmış olan ortalamayı 5’lik sisteme çevireceğiz. Bunu select case komutu ile yapıyoruz.Select Case ortalamaCase 0 To 24 : Label2.Text = “0”Case 25 To 44 : Label2.Text = “1”Case 45 To 54 : Label2.Text = “2”Case 55 To 69 : Label2.Text = “3”Case 70 To 84 : Label2.Text = “4”Case 84 To 100 : Label2.Text = “5”End SelectKod Açıklaması: eğer ortalama 0 ile 24 arasındaysa label2’ye 0 yaz. … 84 ile 100 Arasında ise label2’ye 5 yaz.

Şimdi Label3’e bu 5’lik sistemin alfabetik değerini yazdıralım
Select Case Label2.TextCase 0 : Label3.Text = “Sıfır”Case 1 : Label3.Text = “Bir”Case 2 : Label3.Text = “İki”Case 3 : Label3.Text = “Üç”Case 4 : Label3.Text = “Dört”Case 5 : Label3.Text = “Beş”End Select
Evet projemiz bu kadar. Şimdi kodlarımızı tamamen bir görelim bakalım.Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.ClickDim not1 As Integer = TextBox1.TextDim not2 As Integer = TextBox2.TextDim not3 As Integer = TextBox3.TextDim ortalama As Integer = (not1 + not2 + not3) / 3Label1.Text = ortalamaSelect Case ortalamaCase 0 To 24 : Label2.Text = “0”Case 25 To 44 : Label2.Text = “1”Case 45 To 54 : Label2.Text = “2”Case 55 To 69 : Label2.Text = “3”Case 70 To 84 : Label2.Text = “4”Case 84 To 100 : Label2.Text = “5”End SelectSelect Case Label2.TextCase 0 : Label3.Text = “Sıfır”Case 1 : Label3.Text = “Bir”Case 2 : Label3.Text = “İki”Case 3 : Label3.Text = “Üç”Case 4 : Label3.Text = “Dört”Case 5 : Label3.Text = “Beş”End SelectEnd Sub
kendi yazım