Tugas APKOM 4 (latihan 1, 2 , dan 3

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

YONGSEO COUPLE :D

Buat para readers, sudah tak asing lagi kan dengan pasangan leader CNBlue Jung Yonghwa dan maknae SNSD Seo Joohyun. Biasa para fans mereka menyebut dengan YongSeo Couple (singkatan dariYonghwa & Seohyun) atau Goguma Couple (Pasangan Ubi, ubi adalah makanan kesukaan Seohyun dan akhirnya mejadi makanan andalan mereka ketika sedang kencan). Mereka meresmikan hubungan mereka pada 11 Februari 2010, atau sekitar 2 tahun yang lalu. Dan untuk para fans pasangan ini, ini ada beberapa foto dari Yongseo Couple

1. Di Foto ini, ketika Yonghwa dan Seohyun pergi ke dorm CNBlue untuk membuat Kimchi pertama mereka, dan ternyata hasilnya tidak enak karena terlalu banyak garam. Akhirnya mereka memberikanya ke personil CNBlue lainya. Setelah kenyang makan, Seohyun dan Yonghwa pergi ke tempat biliard bersama.

2. Foto dibawah diambil ketika Seohyun dan Yonghwa pergi ke Sauna bersama, terlihat mereka sedang bergandengan tangan ketika sedang dipijat ^^

 3. Foto ini diambil di tempat latihan CNBlue, Seohyun sedang mengunjungi personil CNBlue yang sedang latihan, kemudian Yonghwa dan Seohyun bernyanyi bersama "I don't know you, but I want you, all the more for that.." setelah itu Yonghwa mempersembahkan lagu untuk Seohyun "I want you in my life..."

4. Di foto ini, mereka sedang pemotretan bersama, Seohyun memakai mini dress berwarna pink pastel dan Yonghwa memakai Tuxedo ditambah dasi kupu kupu yang senada dengan warna dress yang dipakai Seohyun.

5. Foto dibawah ketika mereka sedang mengikuti games di variety show WGM bersama 2 pasangan lainya, f(x) Victoria & 2PM Nickhkun serta BEG Gain & 2AM Jokwon. Mereka bertanding mulai dari kekuatan fisik yang dimenangkan pasangan Nickhun Victoria, dilanjutkan dengan gulat yang dimenangkan pasangan Yonghwa Seohyun, kemudian lomba lari yang dimenangkan pasangan Nickhun Victoria dan yang terakhir misi Rumah Hantu yang dimenangkan pasangan Jokwon Gain.

 

6. Foto ini diambil di tempat peristirahatan snowboarding. Setelah capek bermain snowboarding, Seohyun dan Yonghwa beristirahat. Disini, Seohyun meminta 1 permintaan yaitu untuk mempercantik Yonghwa dengan bermake up. Setelah itu mereka berlomba  makan samgyupsal dengan bawang dan cabai yang super banyak sehingga membuat bau nafas mereka tidak enak. wkwkwk

 

7. Ini dia waktu jalan bersama habis pemotretan di suatu studio, Seohyun memberikan surprise kepada Yonghwa dengan memberikannya syal hasil rajutannya sendiri. Yonghwa sangat senang dan memberikan pelukan untuk seohyun atas ucapan terimakasihnya.

 

8. Ini ketika Yonghwa dan Seohyun bermain Snowboarding bersama. Dengan sabar Yonghwa mengajari Seohyun bagaimana cara snowboarding karena Seohyun sama sekali tidak bisa. Meskipun berkali-kali jatuh, Seohyun tak patah semangat dan terus berlatih :)

 

9. Karena kesibukan mereka masing masing, mereka jadi loss contact selama 3 bulan. Seohyun yang tau sudah 3 bulan Yonghwa sama sekali tidak menelpon Seohyun mengirimkan pesan suara ke Yonghwa yang isinya "Asal kamu tahu, aku berpegangan tangan dengan Kyuhyun oppa ketika konser !". Setelah beberapa hari Yonghwa menerima pesan itu, ia langsung mengunjungi Seohyun dan menjelaskan kenapa dia tidak menghubungi Seohyun selama 3 bulan. Dan pada hari itu juga, mereka mendapat job untuk bernyanyi bersama di suatu konser. Akhirnya mereka memutuskan untuk bernyanyi lagu "Run Devil Run dan Love Light". Dan mereka mulai berlatih, di gedung MBC, di dorm, di backstage dan dimana-mana :D

 

10. Foto ini diambil ketika Yonghwa sedang mengunjungi Seohyun dan Seohyun membuatkan banana shake untuk Yonghwa, seperti biasa mereka pergi ke tempat biliard setelah itu.

11. Karena Yonghwa menghilangkan syal yang diberikan Seohyun ketika ia konser di Jepang. Dia meminta maaf dengan mengajak Seohyun makan malam bersama, pergi ke pasar malam, dan bermain ice skating bersama.

 

12. Setelah berlatih keras beberapa hari, akhirnya Seohyun dan Yonghwa bernyanyi dalam 1 panggung untuk pertama kali. Dan akhirnya penampilan mereka berlangsung sukses dengan bernyanyi "You better run run run run run...." dan"Gedeuye Darling.."