Visual Basic Not Hesaplama Programı Yapma

ads

ads

Bu derste Visual Basic Not hesaplama programını yapmayı göreceğiz  visual basic de bir forum açın ve aşağıdaki resim  deki  gibi tasarımı yapın.

Bunun hemen ardından  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ç Aşağıdaki gibi olacak:

ads