Belajar Menghitung Rata-Rata dengan Visual Basic. Net

Langsung simak aja ya teman - teman ....... Nah lihat di bawah ini ......

1.  Pertama tama kita membuat tampilan form, seperti tampilan di bawah ini.....



2. Nah setelah selesai kita membuat tampilan dalam form, lalu kita membuat source code nya....

Public Class Form1
    Inherits System.Windows.Forms.Form

       Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        jmlmkn.Text = 0
        hrgmkn.Text = 0
        jmlmnm.Text = 0
        hrgmnm.Text = 0
    End Sub

    Private Sub ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ok.Click
        Dim hrg1 As Integer
        Dim hrg2 As Integer
        Dim rata As Single
        Dim total As Integer
        hrg1 = hrgmkn.Text
        hrg2 = hrgmnm.Text
        rata = (hrg1 + hrg2) / 2
        total = ((jmlmkn.Text * hrgmkn.Text) + (jmlmnm.Text * hrgmnm.Text))

        lblrata.Text = rata
        lbltotal.Text = total
    End Sub
End Class
 Sebelah ini tampilan setelah program di jalankan......

  SELAMAT MENCOBA YA  ......!!!!!!!!!!!!!!!