Latihan_03_46110024

Public Class Latihan_03_46110024

       

    Private Sub selesai_46110024_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles selesai_46110024.Enter

        selesai_46110024.Text = Val(umur_46110024.Text) + Val(sd_46110024.Text) + Val(sltp_46110024.Text) + Val(slta_46110024.Text) + Val(poltek_46110024.Text)

 

    End Sub

     

    Private Sub lama_46110024_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lama_46110024.Enter

        lama_46110024.Text = Val(sd_46110024.Text) + Val(sltp_46110024.Text) + Val(slta_46110024.Text) + Val(poltek_46110024.Text)

    End Sub

    Private Sub presentase_46110024_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles presentase_46110024.Enter

        presentase_46110024.Text = Val(lama_46110024.Text) / Val(selesai_46110024.Text) * 100

    End Sub

    Private Sub kosong_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kosong_46110024.Click

        umur_46110024.Text = ""

        sd_46110024.Text = ""

        sltp_46110024.Text = ""

        slta_46110024.Text = ""

        poltek_46110024.Text = ""

        selesai_46110024.Text = ""

        lama_46110024.Text = ""

        presentase_46110024.Text = ""

    End Sub

End Class

 KOMENTAR

Design pada latihan 1 dan latihan 3 pada dasarnya sama yang membedakan hanya tidak ada button berupa hitung pada latihan 3 jadi pada setiap textbox yang membutuhkan operasi matematik dibuat scrift

  Private Sub selesai_46110024_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles selesai_46110024.Enter

Sehingga hanya dengan menekan tab  dpat memindahkan kursor sekaligus menampilkan hasil operasi matematiknya.