APKOM 4

LATIHAN 1

Public Class Latihan_01_46110055

    Private Sub hitung46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hitung46110055.Click
        tbg146110055.Text = Val(umur46110055.Text) + Val(sd46110055.Text) + Val(smp46110055.Text) + Val(sma46110055.Text) + Val(kul46110055.Text)
        tbg246110055.Text = Val(sd46110055.Text) + Val(smp46110055.Text) + Val(sma46110055.Text) + Val(kul46110055.Text)
        tbg346110055.Text = Val(tbg246110055.Text) / Val(tbg146110055.Text) * 100


    End Sub


Private Sub kosong46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kosong46110055.Click
        umur46110055.Text = ""
        sd46110055.Text = ""
        smp46110055.Text = ""
        sma46110055.Text = ""
        kul46110055.Text = ""
        tbg146110055.Text = ""
        tbg246110055.Text = ""
        tbg346110055.Text = ""

    End Sub
End Class


LATIHAN 2


Public Class Latihan_02_46110055

    Private Sub kisah46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kisah46110055.Click
        isi46110055.Text = "Nama saya adalah " & nama46110055.Text & ", saya adalah cowok/cewek berusia 20 Tahun, sekarang ini saya tinggal di " & alamat46110055.Text & ". Orang tua saya bernama " & ayah46110055.Text & " dan " & ibu46110055.Text & ", mereka berdua mengharapkan saya untuk tetap belajar keras demi masa depan yang lebih baik. Saya telah mengenyam pendidikan selama puluhan tahun mulai dari sekolah dasar hingga di Politeknik, selama mengenyam pendidikan tersebut saya memiliki beberapa teman terbaik. Di sekolah dasar saya memiliki teman yang sangat baik bernama " & sd46110055.Text & ", setelah lulus di sekolah dasar " & sd46110055.Text & " melanjutkan pendidikan di sekolah yang berbeda dengan saya, saya melanjutkan pendidikan di SLTP Favorit dan " & sd46110055.Text & " pindah ke Jakarta. Di SLTP tempat saya belajar terdapat teman yang selalu membantu memberi saya semangat hingga saya lulus sama-sama di sekolah, namanya adalah " & smp46110055.Text & ". Setelah selesai di SLTP kami sama-melanjutkan   di sebuah SLTA, namun ketika di SLTA si " & smp46110055.Text & " memilih Jurusan IPA dan saya sendiri di jurusan IPS, di kelas saya terdapat seorang perempuan yang sangat pintar dan orangnya baik pada saya namanya adalah " & sma46110055.Text & ", dia tidak pernah tidak menduduki peringkat I. Di Politeknik juga ada teman baik mesti tidak satu kelas dengan saya, namanya ialah " & kul46110055.Text & ". Hingga semester ini saya masih berteman baik dengan si " & kul46110055.Text & "."
   
 End Sub


Private Sub sekian46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sekian46110055.Click
        nama46110055.Text = ""
        alamat46110055.Text = ""
        ayah46110055.Text = ""
        ibu46110055.Text = ""
        sd46110055.Text = ""
        smp46110055.Text = ""
        sma46110055.Text = ""
        kul46110055.Text = ""
        isi46110055.Text = ""
    End Sub
End Class


LATIHAN 3


Public Class Latihan_03_46110055

    Private Sub tb146110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb146110055.Enter
        tb146110055.Text = Val(masuksd46110055.Text) + Val(sd46110055.Text) + Val(smp46110055.Text) + Val(sma46110055.Text) + Val(kul46110055.Text)

    End Sub


Private Sub tb246110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb246110055.Enter
        tb246110055.Text = Val(sd46110055.Text) + Val(smp46110055.Text) + Val(sma46110055.Text) + Val(kul46110055.Text)

    End Sub


Private Sub tb346110055_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tb346110055.Enter
        tb346110055.Text = Val(tb246110055.Text) / Val(tb146110055.Text) * 100
    End Sub


Private Sub kosong46110055_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kosong46110055.Click
        masuksd46110055.Text = ""
        sd46110055.Text = ""
        smp46110055.Text = ""
        sma46110055.Text = ""
        kul46110055.Text = ""
        tb146110055.Text = ""
        tb246110055.Text = ""
        tb346110055.Text = ""
    End Sub
End Class