[Picture] SM artists (TV,SJ,SNSD,SHINee,f(x)) attended their manager’s wedding!

[News] Seungri membuat pemain Running Man kewalahan!

Big Bang Seungri sangat dikenal untuk bakatnya dalam menyanyi, menari, dan selalu terlihat tampan, tapi sang idola ini baru-baru saja menambahkan ‘keahlian’ lain kedalam daftarnya – melarikan diri. Dengan gembira Seungri mengungkapkan kemampuan rahasianya dengan melarikan diri dari 8 orang ‘running men’ di episode minggu ini acara SBS ”Running Man“.
Untuk episode ini, Seungri menggunakan hanbok hanbok dan menghindari member running man didalam museum musik tradisional. Walaupun ia bertemu muka dengan mereka semua, namun ia dengan tenang dapat melewati mereka, menunjukkan saraf bajanya.
Seungri menyamar dalam berbagai kostum selama acara untuk menghindari deteksi, kemanapun ia ditemukan si biang ‘VVIP’ ini menolak untuk menyerah dan terus berlari. Walaupun seungri  berkelahi tapi akhirnya ia ditangkap juga oleh member cast nya.
Para penonton dikatakan sangat disenangkan dengan energi dinamis dan antusiasme Seungri, dan walaupun ia berevolusi menjadi VVIP, mereka bertepuk tangan dan bersorak untuknya, “What a ’strong baby’!”

[TRANS] l Siapa Saja yang Akan Tampil di Dream concert 2011??

Dream Concert 2011 akan diadakan di luar negeri pertama kali di China! 6 agustus di Beijing Workers’ Sports Complex!
Artis yang berpartisipasi:

* SuperJunior
* SNSD
* 2PM
* Lee Hyori
* SHINee
* Rain
* Wonder Girls
* SS501
* JYJ
* Big Bang
* 2NE1
* Son DanBi
* CNBlue
* KARA
* Miss A
* F (x)
* Beast
* T-ara
* MBLAQ
* 4minute
* U-kiss
* ZE: A
* After School
* BEG, and others

[TRANS] Tears Of Heaven’ Kim Junsu, dia seorang ‘Musical Star!’

Junsu dari JYJ(Xiah Junsu) dia telah mengumumkan dengan keloyalannya sebagai bintang musikal yang siap untuk memperluas produksi ‘Tears of Heaven ‘
Kim Junsu bermain sebagai Jun, Seorang tentara Korea di vietnam dalam drama musikal ‘Tears of Heaven’ dimana dimainkan di National Theater pada urutan pertama. Meskipun ia adalah seorang tentara yang jatuh cinta dengan perempuan vietnam , Kim Junsu dapat menunjukkan kharismanya dalam berakting dan menyanyi .
Junsu sudah debut menjadi aktor drama musikal dalam “The Musical Mozart ” tahun lalu . Dengan mutu yang jarang didapat dari pendatang baru, Kim Junsu memenangkan 2 pengahargaan di acara The Musical Awards sebagai the Rookie of the Year award di Korea Musical Awards. Kim Junsu, dia yang sedang mengembangkan bakatnya, telah berjaji untuk tampil setidaknya 1 kali dalam drama musikal setiap tahunnya dimulai dari sekarang. Dia memutuskan Tears Of Heaven sebagai produksi kedua nya .
Aktingnya yang sedikit gugup dan tidak stabil di bagian pertama acara akan stabil dengan sendirinya saat proses show berlangsung . Leluconnya dan keterkenalannya memberikan kesan baru untuk Jun dan Lin. Meskipun ada beberapa yang harus diperbaiki dan ia memberikan kesan yang baik sehingga membuat kita tidak tahu bahwa ini adalah Drama musikalnya yang kedua.
Dibandingkan dengan skill aktingnya yang tidak luar biasa , Kemampuan musikalnya di luar dugaan . Ini bukti mengapa Ia sering disebut-sebut sebagai penyanyi solo yang berbakat. Suarannya yang indah di akting bagian pertama yang dinyanyikan degan Lin dan pada bagian kedua yang dapat membuat mebuat hati sakit, mengikat telinga setiap penonton. Ia berdiri ketika menyayikan lagu solonya ‘Do I have to say’ dan ‘I had to learn’, keduanya menjadi lagu pembuka. Dia juga mendapat tepukan tangan dari penonton saat pembukaan.
Kekuatan tiket Junsu juga harus dicatat. semua 15.000 tempat duduk di baris pertama telah habis terjual dalam 5 menit dan 300 tempat duduk baris kedua habis dalam waktu 3 menit setengah. Saat baris ketiga, diamana yang dibuka pada tanggal 31, habis dalam waktu 2 menit 30 detik. Ia menunjukkan kekuatan tiket yang lebih daripada Jo Seung Woo dari ‘Jekyll and Hyde’. Semua ini mencapai 3 milyar won, beberapa orang mengatakan “ini tidak terbayangkan”

TUGAS (Visual Basic)

TAHUN DALAM ISLAM

 Coding :

Private Sub Command1_Click()

If Combo1.Text = "januari" Then

Label1.Caption = "muharram dan shafar"

ElseIf Combo1.Text = "februari" Then

Label1.Caption = "shafar dan rabiul al-awwal"

ElseIf Combo1.Text = "maret" Then

Label1.Caption = "rabiul al-awal dan rabiul al-akhir"

ElseIf Combo1.Text = "april" Then

Label1.Caption = "rabiul al-akhir dan jumadil al-awwal"

ElseIf Combo1.Text = "mei" Then

Label1.Caption = "jumadil al-awwal dan jumadil al-akhir"

ElseIf Combo1.Text = "juni" Then

Label1.Caption = "jumadil al-akhir dan rajab"

ElseIf Combo1.Text = "juli" Then

Label1.Caption = "rajab dan sya'ban"

ElseIf Combo1.Text = "agustus" Then

Label1.Caption = "ramadhan dan syawwal"

ElseIf Combo1.Text = "september" Then

Label1.Caption = "syawwal dan dzul-qaidah"

ElseIf Combo1.Text = "oktober" Then

Label1.Caption = "dzul-qaidah dan dzul-hijjah"

ElseIf Combo1.Text = "november" Then

Label1.Caption = "dzul-hijjah dan muharram"

ElseIf Combo1.Text = "desember" Then

Label1.Caption = "muharram dan shafar"

End If

End Sub

Private Sub Form_Load()

Combo1.AddItem "januari"

Combo1.AddItem "februari"

Combo1.AddItem "maret"

Combo1.AddItem "april"

Combo1.AddItem "mei"

Combo1.AddItem "juni"

Combo1.AddItem "juli"

Combo1.AddItem "agustus"

Combo1.AddItem "september"

Combo1.AddItem "oktober"

Combo1.AddItem "november"

Combo1.AddItem "desember"

End Sub

 Keterangan :

Label 1 :

                Caption = BULAN DALAM ISLAM

                Font = ARIAL

                Font Style = Black

                Size = 14

Combo Box :

                Caption = BULAN

                Font = MS Sans Serif

                Font Style = Reguler

                Size = 14

Command Button :

                Caption = PROSES

                Font = MS Sans Serif

                Font Style = Reguler

                Size = 18

Label 2 :

                Font = Arial Rounded MT

                Font Style = Bold

                Size = 20

HASIL CODING :

Tugas (Corel)

 

Judul POSTING :  type text ARIAL, besar : 12

TUGAS Visual Basic (Tugas 2)

Membuat Label, klik di menu Tool box.

Membuat Text Box.

Membuat 2 Cummond Button

Membuat warna dengan pada objek dan  pilih  'back color'.

Coding :

Private Sub Command1_Click()
Dim Nilai As Integer
Dim Ket As String
Nilai = Text1.Text
Select Case Nilai
Case 81 To 100
Ket = "A"
Case 65 To 80
Ket = "B"
Case 56 To 65
Ket = "C"
Case 40 To 55
Ket = "D"
Case 0 To 40
Ket = "E"
End Select
Text2 = Ket
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
End Sub



Private Sub Form_Load()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = 13 Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete) Then KeyAscii = 0 MsgBox "Hanya Boleh angka saja" End If End Sub

Hasil Coding :