Latihan_01_46110020

1. LANGKAH-LANGKAH PENYELESAIAN 

Public Class Latihan_01_46110020

    Private Sub HITUNG46110020_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles HITUNG46110020.Click

        TB646110020.Text = Val(TB146110020.Text) + Val(TB246110020.Text) + Val(TB346110020.Text) + Val(TB446110020.Text) + Val(TB546110020.Text)

        TB746110020.Text = Val(TB246110020.Text) + Val(TB346110020.Text) + Val(TB446110020.Text) + Val(TB546110020.Text)

        TB846110020.Text = Val(TB746110020.Text) / Val(TB646110020.Text) * 100

    End Sub

    Private Sub KOSONG46110020_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles KOSONG46110020.Click

        TB146110020.Text = ""

        TB246110020.Text = ""

        TB346110020.Text = ""

        TB446110020.Text = ""

        TB546110020.Text = ""

        TB646110020.Text = ""

        TB746110020.Text = ""

        TB846110020.Text = ""

    End Sub

End Class

Script Unik yang terdapat pada  :

 

1.   TB646110020.Text = Val(TB146110020.Text) + Val(TB246110020.Text) + Val(TB346110020.Text) +  Val(TB446110020.Text) + Val(TB546110020.Text

 Tanda (+) yang terdapat pada kode latihan pertama ini berfungsi untuk memberikan hasil penjumlahan yang diinginkan, sedangkan (Val) berfungsi untuk membaca angka. Tanda (/) dan (*) untuk mendapatkan persentasi lama belajar terhadap Umur.

2 2.     Private Sub KOSONG46110020_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles KOSONG46110020.Click

TB146110020.Text = “” Tanda (“”) yang terdapat pada latihan pertama ini berfungsi untuk mengosongkan data atau cara otomatis untuk menhapus data yang ada.