Visual Basic Not Hesaplama

Bu dersimizde Visual Basic de Not Hesaplama programı yapalım...

Bu dersimizde Visual Basic de Not Hesaplama programı yapalım...

Bunun için Form Application uygulaması açalım ve aşağıda bulunan resimdeki gibi dizayn edelim:



Daha sonra btnhesapla_Click olayına aşağıdaki kodları yazalım :


Dim yazili(3) As Integer

        Dim sozlu(2) As Integer

        Dim ort, yazilitop, sozlutop, ytop, stp As Integer

        yazili(0) = Integer.Parse(txty1.Text)

        yazili(1) = Integer.Parse(txty2.Text)

        yazili(2) = Integer.Parse(txty3.Text)

        sozlu(0) = Integer.Parse(txts1.Text)

        sozlu(1) = Integer.Parse(txts2.Text)

        ort = 0

        ytop = 0

        stp = 0

        For k As Integer = 0 To 3



            If yazili(k) > 0 Then

                yazilitop += yazili(k)

                ytop += 1



            End If

        Next

        For j As Integer = 0 To 2



            If sozlu(j) > 0 Then

                sozlutop += sozlu(j)

                stp += 1



            End If

        Next





        ort = (yazilitop + sozlutop) / (ytop + stp)





        txtort.Text = Convert.ToString(Double.Parse(ort))



Sonuç:


  • Etiketler;
Abdullah Akpınar
Kocaeli Üniversitesi Kocaeli Meslek Yüksekokulu'nda okuyorum. Bilgisayarla ilgili (en çok programlama) yeni şeyler öğrenmeyi seviyorum.
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

abdullah akpınar hocam gerçekten güzel anlatım. Ben bunu vize final şeklinde yapmak istiyorum nasıl olcak peki

Yukarı Git