Baru

growing up!!

gplemot.blogspot.com

akan berpindah dan beralih ke....

http://roniwahyu.wordpress.com

kunjungi roniwahyu.wordpress.com

Mutiara Cinta 2

Me.002
Aku mencintai malam daripada siang, dia sangat menyenangkan
dan aku sangat mencintai malam karena dia membawakan cinta padaku
dalam mimpi yang tak pernah berdusta


Me.003
terkadang, disaat seseorang yang kita cintai menghilang, dunia dan seisinya seakan musnah

Me.004
Siang seperti malam, sampai aku melihatmu
Dan malam menjadi terang saat mimpi mempertemukan kita

Jenis Jomblo - [Joke]

Jenis-Jenis Jomblo…………….. J J J


Jomblo Sejati - Jomblo yang satu ini murni belum pernah pacaran , belum mengerti tentang cinta , fokus pikirannya hanya belajar dan belum pernah naksir siapa siapa .

Ciri-cirinya : Kacamata tebal , penampilan tidak terjaga , fashion berantakan dan sering keliatan korek upil didepan umum .


Jomblo Sniper - Jomblo yang ini belum pernah pacaran tetapi sudah ada yang sejak lama ditaksirnya hanya saja blom berani nembak sampe sekarang .

Ciri-cirinya : Sering tidak keliatan di tempat umum karena kurang PD dan nyali , sering mangkal ditempat tempat sepi , kadang membawa teropong untuk mengintai dan terlihat membawa banyak karet gelang untuk nembak cicak didinding .


Jomblo Negatif - Yang satu ini baru jadi jomblo setelah dipecat (dibaca:ditinggal/diputusin) oleh pacarnya dan berada dalam suasana sedih , desprated , dikecewakan , tidak bisa terima kenyataan dan membenci yang namanya cinta .

Ciri-cirinya : Gampang sirik , sering kesel , bad mood , emosional dan membenci film film berbau romantis . So bagi yang lagi mesra mesra nya mohon hindari jomblo yang satu ini apalagi yang sabet mantan pacarnya . VERY…………VERY DANGEROUS !!!!!!!!!!!!!!!


Jomblo Biru - Jomblo yang satu ini baru putus pacaran secara resmi (sama sama merestui) karena uda bosan atau jenuh dan lagi kosong.

Ciri-cirinya : Wajah ceria seperti narapidana yang baru bebas , menikmati hidup dan menemukan kehidupannya kembali , sering terlihat hangout rame rame dan happy happy dan banyak lagi , kesimpulannya MERDEKA !


Jomblo Final - Jomblo yang satu ini uda lagi dekat dekatnya dengan seseorang dan hampir melepas status kejombloannya .

Ciri-cirinya : Setiap hari tidak terlepas dari cermin , make up , fashion update , bodycare , rajin rajin baca zodiak , sering senyum senyum sendiri kalo lagi baca SMS .


Jomblo Hunter - Jomblo yang ini menikmati kehidupan jomblonya dan sering sekali gonta ganti pasangan dan jomblo lagi , hunting lagi , jomblo lagi , hunting lagi dan seterusnya ....jomblo lagi ...

Ciri-cirinya : Punya bakat selebriti , PD abis , daya tarik yang luar biasa , terlihat sering tebar pesona sana sini dan makanan sehari hari : add friend di Friendster .


Jomblo Impossible - Khusus cowok , yang ini berstatus jomblo karena yang ditaksirnya adalah seseorang yang tidak mungkin didekati lagi , seperti selebriti selebriti (Britney , JLo , Maskot Kensington), istri tetangga , pacarnya konglomerat , istri simpanan bos , dll

Ciri-cirinya : Selalu tampil keren 24 jam sehari 7 hari seminggu , kalo berbicara seperti aktor dan merasa dirinya Tom Cruise .


Jomblo Forever - Khusus cewek , yang ini berstatus jomblo karena menunggu dan berharap bisa menikahi pria idaman seperti :Andy lau,Jang Dong Gun,Brad Pitt .

Ciri-cirinya : Terlihat menempel foto , poster idolanya dimana mana , dikamar tidur , kamar mandi , buku tulis , wallpaper handphone dan dalam dompetnya . Dalam doanya : Jadikanlah aku cinderela dan Jang Dong Gun Pangerannya .


Jomblo Error - Jomblo ini belum pernah bisa sukses pacaran karena asal nembak seseorang gagal terus , nembak yang lain ditolak terus dan selalu naksir seseorang yang sudah ada yang punya. Kaciaaaan deh loe .

Ciri-cirinya : Selalu keliatan berapi api , bernafsu ,kalo kenalan langsung tawarin tunangan besoknya langsung ngajak merried . Kata kata pertama sewaktu kenalan : Hi , kenalan nama gue .............. , married yuk !

Mutiara Cinta 1 - Love Quotes

Me.1
"Kamu tahu, setiap kali aku menutup mataku, kau tetap terlihat. karena hatiku yang melihat bukan mataku"

709.
"Suatu malam, sang bulan berkata padaku, Jika dia membuat kamu sakit, menangis dan luka, kenapa kamu tidak meninggalkan dia? Aku memandang bulan dan berkata, "Bulan, apakah engkau pernah meninggalkan langitmu?

772.
"Cinta bukan 50/50, bukan untuk diberikan dan diterima. Dalam cinta setiap pasangan memberikan 100% dan tidak mengharap kembali"

5346.
"Jika Cinta itu dapat diukur dengan inch, cintaku untukmu akan menjadi mil, dan ribuan mil jauhnya"

Fungsi Pembilang Di Microsoft Excel Menggunakan Macro

Pembilang, ini sering kita jumpai pada kuitansi pembayaran, nota dan sebagainya. Dan sebetulnya Microsoft Excel dengan kemampuan makro-nya mampu untuk membuat fungsi seperti itu, contoh: Angka 100.000 akan diterjemahkan menjadi (Seratus Ribu Rupiah) nah supaya bisa membuat seperti itu Berikut adalah langkah-langkah untuk membuat fungsi Pembilang

1. Bukalah program Microsoft Excel
2. Klik menu Tool, Macro, Security
3. Pilih Medium atau Low kemudian lalu klik OK dan tutup program Microsoft Excel
4. Buka kembali program Microsoft Excel-nya
5. Klik menu Tool, Macro, Visual Basic Editor atau bisa langsung teken tombol Alt+F11
6. Setelah muncul jendelanya, klik kanan pada item VBAProject (Book1) yang terdapat pada jendela sebelah kiri
7. Maka akan muncul menu, dari menu tersebut pilihlah Insert, Module
8. Selanjutnya ketik script di bawah ini pada kotak isian modul tersebut (”Book1 - Module1 (Code)”) atau anda tinggal blok/select lalu copy dan paste pada kotak isian modul.

Option Explicit

Public Function UCAPANGKA(x As Double) As String
Dim tampung As Double
Dim teks As String
Dim bagian As String
Dim i As Integer
Dim tanda As Boolean

Dim letak(5)
letak(1) = "ribu "
letak(2) = "juta "
letak(3) = "milyar "
letak(4) = "trilyun "

If (x <>
UCAPANGKA = ""
Exit Function
End If

If (x = 0) Then
UCAPANGKA = "nol"
Exit Function
End If

If (x <>
tanda = True
End If
teks = ""

If (x >= 1E+15) Then
UCAPANGKA = "Nilai terlalu besar"
Exit Function
End If

For i = 4 To 1 Step -1
tampung = Int(x / (10 ^ (3 * i)))
If (tampung > 0) Then
bagian = ratusan(tampung, tanda)
teks = teks & bagian & letak(i)
End If
x = x - tampung * (10 ^ (3 * i))
Next

teks = teks & ratusan(x, False)
UCAPANGKA = teks
End Function

Function ratusan(ByVal y As Double, ByVal flag As Boolean) As String
Dim tmp As Double
Dim bilang As String
Dim bag As String
Dim j As Integer

Dim angka(9)
angka(1) = "se"
angka(2) = "dua "
angka(3) = "tiga "
angka(4) = "empat "
angka(5) = "lima "
angka(6) = "enam "
angka(7) = "tujuh "
angka(8) = "delapan "
angka(9) = "sembilan "

Dim posisi(2)
posisi(1) = "puluh "
posisi(2) = "ratus "

bilang = ""
For j = 2 To 1 Step -1
tmp = Int(y / (10 ^ j))
If (tmp > 0) Then
bag = angka(tmp)
If (j = 1 And tmp = 1) Then
y = y - tmp * 10 ^ j
If (y >= 1) Then
posisi(j) = "belas "
Else
angka(y) = "se"
End If
bilang = bilang & angka(y) & posisi(j)
ratusan = bilang
Exit Function
Else
bilang = bilang & bag & posisi(j)
End If
End If
y = y - tmp * 10 ^ j
Next

If (flag = False) Then
angka(1) = "satu "
End If
bilang = bilang & angka(y)
ratusan = bilang
End Function

Semoga berhasil...


Coba Posting ke Blogger Pake ScribeFire

coba aja posting ke blogger pake ekstensi firefox ScribeFire, lebih enak dink!

Powered by ScribeFire.