Latihan_01_46110027

 1. Langkah-langkah Penyelesaian
Public Class Latihan_01_46110027

    Private Sub umursd_46110027_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles umursd_46110027.TextChanged

    End Sub

    Private Sub hitung_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung_46110027.Click
        setelahselesai_46110027.Text = Val(umursd_46110027.Text) + Val(lamasd_46110027.Text) + Val(lamasltp_46110027.Text) + Val(lamaslta_46110027.Text) + Val(lamapoliteknik_46110027.Text)
        lamabelajar_46110027.Text = Val(lamasd_46110027.Text) + Val(lamasltp_46110027.Text) + Val(lamaslta_46110027.Text) + Val(lamapoliteknik_46110027.Text)
        persentase_46110027.Text = Val(lamabelajar_46110027.Text) / Val(setelahselesai_46110027.Text) * 100

    End Sub

    Private Sub kosong_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kosong_46110027.Click
        umursd_46110027.Text = ""
        lamasd_46110027.Text = ""
        lamasltp_46110027.Text = ""
        lamaslta_46110027.Text = ""
        lamapoliteknik_46110027.Text = ""
        setelahselesai_46110027.Text = ""
        lamabelajar_46110027.Text = ""
        persentase_46110027.Text = ""

    End Sub
End Class





2. Komentar
1.setelahselesai_46110027.Text = Val(umursd_46110027.Text) + Val(lamasd_46110027.Text) + Val(lamasltp_46110027.Text) + Val(lamaslta_46110027.Text) + Val(lamapoliteknik_46110027.Text)
        lamabelajar_46110027.Text = Val(lamasd_46110027.Text) + Val(lamasltp_46110027.Text) + Val(lamaslta_46110027.Text) + Val(lamapoliteknik_46110027.Text) => scribt  ini berfungsi untuk menjumlahkan umur,lama belajar dari sd hingga kuliah dan dihasilkan lama belajar. agar hasil yang muncul merupakan benar" penjumlahan dari  nilai yang dimasukkan maka digunakan "val".

2. Private Sub kosong_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kosong_46110027.Click
        umursd_46110027.Text = "" => scribt ini berfungsi untuk mengosongkan kembali textbox yg sebelumnya sudah berisi nilai  untuk itu digunakan tanda petik dua ("")