Kamis, 28 April 2011

Dong YI

Wah.. ada film bagus lagi nie.. Mirip kaya film jewel in the palace (jang geum). Janggeum ceritanya tentang masak memasak ma pengobatan (ada penyelidikan juga). tapi kalo dong yi ini tentang penyelidikan pembunuhan atau kasus-kasus yang bikin geger kerajaan.(kaya detective gitu)... Pokonya seru dech.. Nah.. Saya cari'in ni sinopsisnya. biar ga usah cape-cepe serching hehe.. Silahkan Membaca. ^_^


Dong yi Episode 1Dong yi Episode 16Dong yi Episode 31Dong yi Episode 46
Dong yi Episode 2Dong yi Episode 17Dong yi Episode 32Dong yi Episode 47
Dong yi Episode 3Dong yi Episode 18Dong yi Episode 33Dong yi Episode 48
Dong yi Episode 4Dong yi Episode 19Dong yi Episode 34Dong yi Episode 49
Dong yi Episode 5Dong yi Episode 20Dong yi Episode 35Dong yi Episode 50
Dong yi Episode 6Dong yi Episode 21Dong yi Episode 36Dong yi Episode 51
Dong yi Episode 7Dong yi Episode 22Dong yi Episode 37Dong yi Episode 52
Dong yi Episode 8Dong yi Episode 23Dong yi Episode 38Dong yi Episode 53
Dong yi Episode 9Dong yi Episode 24Dong yi Episode 39Dong yi Episode 54
Dong yi Episode 10Dong yi Episode 25Dong yi Episode 40Dong yi Episode 55
Dong yi Episode 11Dong yi Episode 26Dong yi Episode 41Dong yi Episode 56
Dong yi Episode 12Dong yi Episode 27Dong yi Episode 42Dong yi Episode 57
Dong yi Episode 13Dong yi Episode 28Dong yi Episode 43Dong yi Episode 58
Dong yi Episode 14Dong yi Episode 29Dong yi Episode 44Dong yi Episode 59
Dong yi Episode 15Dong yi Episode 30Dong yi Episode 45Dong yi  60 Final  

Minggu, 03 April 2011

Konversi Nominal menggunakan kode Macro Excel

Waktu ada temen yang nanyain cara nampilin nominal di excel, aku jadi penasaran gimana cara bikinnya. aku coba browsing dan nemuin artikelnya di http://aurino.com/wordpress/?p=8. Disini aku tambahkan kode agar dapat membaca angka minus.

Berikut cara membuat fungsi Terbilang pada macro excel :

Masukkan Kode dalam listing vba function dengan cara mengcopy seluruh kode
ke dalam module Vba dalam suatu worksheet.

1. Pilih Tool – Macro – Visual Basic Editor atau Alt-F11
2. Insert – Module
3. Copy kode macro berikut ini

'******************************************************************'

Public Function terbilang(y As Currency)
Dim triliun As Currency
Dim milyar As Currency
Dim juta As Currency
Dim ribu As Currency
Dim satu As Currency
Dim sen As Currency
Dim baca As String

x = y

If x > 1E+15 Then
terbilang = ""
Exit Function
End If

'R.A :)

'cek bilangan negatif
If Left(x, 1) = "-" Then
x = Mid(x, 2, 100)
End If

'jika x adalah 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
'pisah masing-masing bagian untuk triliun,milyar,dll
triliun = Int(x / 1000 ^ 4)
milyar = Int((x - triliun * 1000 ^ 4) / 1000 ^ 3)
juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)
ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)
satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)
sen = Int((x - Int(x)) * 100)

'baca bag triliun + ditambah akhiran triliun
If triliun > 0 Then
baca = ratus(triliun, 5) + "triliun "
End If

'baca bag milyar + ditambah akhiran milyar
If milyar > 0 Then
baca = baca + ratus(milyar, 4) + "milyar "
End If

'baca bag juta + ditambah akhiran juta
If juta > 0 Then
baca = baca + ratus(juta, 3) + "juta "
End If

'baca bag ribu + ditambah akhiran ribu
If ribu > 0 Then
baca = baca + ratus(ribu, 2) + "ribu "
End If

'baca bag satuan + ditambah akhiran satuan
If satu > 0 Then
baca = baca + ratus(satu, 1)
End If

'baca bag sen + ditambah akhiran sen
If sen > 0 Then
baca = baca + "rupiah " + ratus(sen, 0) + "sen "
Else
baca = baca + "rupiah "
End If
End If

'jika bilangan negatif
If Left(y, 1) = "-" Then
terbilang = "# Minus " + UCase(Left(baca, 1)) & LCase(Mid(baca, 2)) + "#"
Else
'jika bilangan positif
terbilang = "# " + UCase(Left(baca, 1)) & LCase(Mid(baca, 2)) + "#"
End If


End Function



Function ratus(x As Currency, posisi As Integer) As String
Dim a100 As Integer, a10 As Integer, a1 As Integer
Dim baca As String
a100 = Int(x * 0.01)
a10 = Int((x - a100 * 100) * 0.1)
a1 = Int(x - a100 * 100 - a10 * 10)

'baca bag ratus
If a100 = 1 Then
baca = "Seratus "
Else
If a100 > 0 Then
baca = angka(a100, 2) + "ratus "
End If
End If

'baca bag puluh + satuan
If a10 = 1 Then
baca = baca + angka(a10 * 10 + a1, 2)
Else
If a10 > 0 Then
baca = baca + angka(a10, 2) + "puluh "
End If
If a1 > 0 Then
If posisi = 2 And a100 = 0 And a10 = 0 Then
baca = baca + angka(a1, 1)
Else
baca = baca + angka(a1, 2)
End If
End If
End If
ratus = baca
End Function

Function angka(x As Integer, posisi As Integer)
Select Case x
Case 0: angka = "Nol "
Case 1:
If posisi = 2 Then
angka = "Satu "
Else
angka = "Se"
End If
Case 2: angka = "Dua "
Case 3: angka = "Tiga "
Case 4: angka = "Empat "
Case 5: angka = "Lima "
Case 6: angka = "Enam "
Case 7: angka = "Tujuh "
Case 8: angka = "Delapan "
Case 9: angka = "Sembilan "
Case 10: angka = "Sepuluh "
Case 11: angka = "Sebelas "
Case 12: angka = "Dua belas "
Case 13: angka = "Tiga belas "
Case 14: angka = "Empat belas "
Case 15: angka = "Lima belas "
Case 16: angka = "Enam belas "
Case 17: angka = "Tujuh belas "
Case 18: angka = "Delapan belas "
Case 19: angka = "Sembilan belas "
End Select
End Function

'******************************************************************'

4. klik File Save dan selesai.

untuk mencobanya silahkan kembali ke tampilan microsoft excel atau tekan alt+F11

lalu masukan nominal dan formula =terbilang()
contoh:


catatan:
Agar tiap huruf depan besar pada tiap kata maka gunakan rumus =PROPER(terbilang(A3))
Agar semua huruf besar gunakan =UPPER(terbilang(A5))

Ingat security harus dalam keadaaan medium atau low
Caranya
1 Menu Tools pilih tab Security lalu
2 Tekan tombol Macro Security pilih option Medium tekan Ok
3 Tutup Microsoft Excell dan Exit dari Excell
4 Buka Microsoft Excell
5 Mulai

SELAMAT MENCOBA :)

Senin, 28 Maret 2011

5 Tanda Dia Bukan Tipe Pasangan Terbaik

SEBELUM memutuskan seseorang menjadi pasangan Anda, sebaiknya kenali lebih dalam tentang dirinya. Ini penting agar Anda tak menyesal di kemudian hari.

Mungkin dari Anda saat ini sedang menjalani pendekatan dengan beberapa pria dan masih bingung untuk memutuskan siapakah sosok yang sesuai untuk Anda. Jangan dulu tergesa-gesa memutuskan. Mengenali sosok seseorang memang membutuhkan waktu yang tak singkat, apalagi yang menyangkut pilihan hati. Tentu ini bukan hal main-main untuk memutuskannya.

Nah, agar Anda tidak bingung menentukan apakah si dia tipe yang buruk untuk Anda, kenali tandanya berikut ini seperti dilansir Idiva.
  • Tagihan pembayaran telepon, internet, dan perjalanan lainnya lebih banyak dari Anda.
  • Anda jadi sering menangis. Sosoknya tak bisa menenangkan Anda, sementara Anda adalah orang yang takut dengan kesunyian.
  • Anda jadi minim bertemu dengan teman-teman dan keluarga selama berminggu-minggu karena hampir semua waktu Anda dilewatkan bersama dia.
  • Kebanyakan teman-teman Anda mengatakan kalau dia adalah sosok yang tak layak untuk Anda.Anda sering jatuh sakit.
Cara terbaik untuk sebuah perubahan :
Jauh di lubuk hati mungkin Anda sadar bahwa orang ini tidak baik untuk Anda. Nah, sudah saatnya bagi Anda untuk menghadapi ketakutan ini dan memunculkan keberanian Anda untuk menemukan sosok yang terbaik untuk Anda. Ingat, kendali cinta bukan dipegang oleh orang lain, tetapi oleh Anda sendiri yang menentukannya sejak awal. Kalaupun saat ini dia bukanlah sosok terbaik, jangan lekas memaksakan. Percayalah bahwa cinta sejati akan hadir dan indah pada waktunya.

Sumber : Okezone

Kamis, 17 Maret 2011

4 Tips Sehat Saat Duduk Lama di depan Komputer.

Duduk terlalu lama di depan komputer dapat mengakibatkan masalah postur tubuh, bahkan berdampak pada kesehatan tubuh keseluruhan. Untuk menghindari terjadi masalah kesehatan, seorang pakar kesehatan, dr Helen Lee, DC, memberikan berbagai tips untuk memperbaiki postur tubuh Anda.

Dr Lee menjelaskan postur duduk yang buruk dapat menyebabkan kesehatan yang buruk juga. "Duduk dalam waktu yang lama, tahun demi tahun dapat membuat sirkulasi tubuh menurun, memperlambat metabolisme, ketidakseimbangan gula darah dan berpengaruh pada keseimbangan postur otot," tutur dr Lee.

Seperti dikutip dari she knows, dr Lee memberikan pendekatan holistik untuk postur tubuh yang sehat.

1. Menaruh bantal kecil
Dr Lee menyarankan taruh bantal kecil di belakang punggung bawah Anda. Agar sekitar pinggang dan bokong dapat nyaman dan beristirahat.

2. Postur Tubuh
Memiliki kursi sebaik apapun jika cara duduk Anda salah maka tidak akan memperbaiki postur tubuh Anda. Hindari membungkuk, terlalu dekat dengan keyboard komputer dan menyilangkan kaki.
Berikut cara duduk yang tepat:

  • Kedua kaki diletakkan lurus di lantai dengan lutut sedikit lebih tingi daripada pinggul atau bangku.
  • Siku nyaman di samping atau diletakkan di sandaran kursi dan bahu tetap lurus rileks.
  • Kepala memandang lurus ke depan
  • Fokus pada pernapasan perut untuk meningkatkan oksigen ke tubuh. Pernapasan perut juga membuat tubuh tetap santai.

3. Banyak minum air
Dehidrasi dapat membuat Anda mudah lelah dan cara duduk cenderung merosot saat Anda kekurangan air dalam tubuh. Minumlah air putih, teh atau jus agar terhindar dari dehidrasi.

4. Bergerak
Hindari duduk seharian di kursi. Bergeraklah secar teratur dengan bangun setiap 15 sampai 30 menit sekali untuk meregangkan otot. Anda juga bisa berjalan-jalan untuk meningkatkan energi.

Sumber : wolipop

Jumat, 04 Maret 2011

Sinopsis Dream High

Wah, ada film bagus lagi nie.. tapi belum ada di telivisi :( saya pun cuma baca sinipsisnya aja.. :D Yah..meskipun cuma baca yang penting ngerti ceritanya. kaya dengerin radio aja gitu dan filmnya kita bayangin z hehe..Seru lho film ini menceritakan tentang murid-murid sekolah kesenian yang ingin mencapai mimpinya. Dalam film ini menceritakan persahabatan, pengkhianatan, percintaan tentunya dan lain-lain. Pokonya baca aja dech ya... Insya allloh ceritanya sama bagusnya kaya BLD ^_^



Sinopsis Dream High 1
Sinopsis Dream High 2
Sinopsis Dream High 3
Sinopsis Dream High 4
Sinopsis Dream High 5
Sinopsis Dream High 6
Sinopsis Dream High 7
Sinopsis Dream High 8
Sinopsis Dream High 9
Sinopsis Dream High 10
Sinopsis Dream High 11
Sinopsis Dream High 12
Sinopsis Dream High 13
Sinopsis Dream High 14
Sinopsis Dream High 15
Sinopsis Dream High 16(final Episode)

Selamat Membaca ^_^