KONVERSI ANGKA KE HURUF VISUAL BASIC

'Pake ini aja deh. Enaknya sih ditaruh di module, biar bisa diakses dari
sembarang form.
'Ini kode program untuk mengkonversi angka ke dalam kalimat dalam bahasa
Indonesia.
'Kalo yang ke bahasa Inggris ada di rumah.
'Kalo berminat juga, kirim email aja lagi ke milis ini, biar saya tau.

'Copy-paste aja ke VB. Monggo...

Public Function AngkaIndonesia(nAngka) As String
Dim strJmlHuruf$, intPecahan As Integer
Dim strPecahan$, Urai$, Bil1$, strTot$, Bil2$
Dim X, Y, z As Integer

If nAngka = "" Then Exit Function
If Not IsNumeric(nAngka) Then Exit Function
nAngka = Str(nAngka)

strJmlHuruf = LTrim(nAngka)
intPecahan = Val(Right(Mid(nAngka, 15, 2), 2))

If (intPecahan = 0) Then
strPecahan = ""
Else
strPecahan = LTrim(Str(intPecahan)) + "/100 "
End If

X = 0
Y = 0
Urai = ""
While (X < Len(strJmlHuruf))
X = X + 1
strTot = Mid(strJmlHuruf, X, 1)
Y = Y + Val(strTot)
z = Len(strJmlHuruf) - X + 1
Select Case Val(strTot)
Case 1
If (z = 1 Or z = 7 Or z = 10 Or z = 13) Then
Bil1 = "SATU "
ElseIf (z = 4) Then
If (X = 1) Then
Bil1 = "SE"
Else
Bil1 = "SATU "
End If
ElseIf (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then
X = X + 1
strTot = Mid(strJmlHuruf, X, 1)
z = Len(strJmlHuruf) - X + 1
Bil2 = ""
Select Case Val(strTot)
Case 0
Bil1 = "SEPULUH "
Case 1
Bil1 = "SEBELAS "
Case 2
Bil1 = "DUA BELAS "
Case 3
Bil1 = "TIGA BELAS "
Case 4
Bil1 = "EMPAT BELAS "
Case 5
Bil1 = "LIMA BELAS "
Case 6
Bil1 = "ENAM BELAS "
Case 7
Bil1 = "TUJUH BELAS "
Case 8
Bil1 = "DELAPAN BELAS "
Case 9
Bil1 = "SEMBILAN BELAS "
End Select
Else
Bil1 = "SE"
End If
Case 2
Bil1 = "DUA "
Case 3
Bil1 = "TIGA "
Case 4
Bil1 = "EMPAT "
Case 5
Bil1 = "LIMA "
Case 6
Bil1 = "ENAM "
Case 7
Bil1 = "TUJUH "
Case 8
Bil1 = "DELAPAN "
Case 9
Bil1 = "SEMBILAN "
Case Else
Bil1 = ""
End Select

If (Val(strTot) > 0) Then
If (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then
Bil2 = "PULUH "
ElseIf (z = 3 Or z = 6 Or z = 9 Or z = 12 Or z = 15) Then
Bil2 = "RATUS "
Else
Bil2 = ""
End If
Else
Bil2 = ""
End If
If (Y > 0) Then
Select Case z
Case 4
Bil2 = Bil2 + "RIBU "
Y = 0
Case 7
Bil2 = Bil2 + "JUTA "
Y = 0
Case 10
Bil2 = Bil2 + "MILYAR "
Y = 0
Case 13
Bil2 = Bil2 + "TRILYUN "
Y = 0
End Select
End If
Urai = Urai + Bil1 + Bil2
Wend
Urai = Urai + strPecahan
AngkaIndonesia = Urai
End Function

MYSOURCE

KONVERSI ANGKA KE HURUF dengan VISUAL BASIC

mysource

copykan code ini ke form

Dim baca As String
Private Sub Form_Load()
KONVERSI ("2000")
MsgBox baca
End Sub

'###############3
'by eko cahyono (Ym: eko_matrix)
'mail eko_matrix@yahoo.com
'###################
Sub KONVERSI(INPUTAN As String)
Dim triliun As Currency
Dim milyar As Currency
Dim juta As Currency
Dim ribu As Currency
Dim satu As Currency
Dim sen As Currency
baca = ""
If Not IsNumeric(INPUTAN) Then MsgBox "masukan angka", vbInformation: Text1.Text = "0": Text1.SetFocus: Exit Sub
x = INPUTAN
'Jika x adalah 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
'Pisah masing-masing bagian untuk triliun, milyar, juta, ribu, rupiah, dan sen
triliun = Int(x * 0.001 ^ 4)
milyar = Int((x - triliun * 1000 ^ 4) * 0.001 ^ 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 bagian triliun dan ditambah akhiran triliun
If triliun > 0 Then
baca = ratus(triliun, 5) + "triliun "
End If
'Baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = ratus(milyar, 4) + "milyar "
End If
'Baca bagian juta dan ditambah akhiran juta
If juta > 0 Then
baca = baca + ratus(juta, 3) + "juta "
End If
'Baca bagian ribu dan ditambah akhiran ribu
If ribu > 0 Then
baca = baca + ratus(ribu, 2) + "ribu "
End If
'Baca bagian rupiah dan ditambah akhiran rupiah
If satu > 0 Then
baca = baca + ratus(satu, 1) '+ "rupiah "
End If
'Baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + ratus(sen, 0) + "sen"
End If
End If
If Right(Trim(UCase(Left(baca, 1)) & LCase(Mid(baca, 2))), 4) = "ribu" Then
terbilang = UCase(Left(baca, 1)) & LCase(Mid(baca, 2)) + "rupiah"
Else
terbilang = UCase(Left(baca, 1)) & LCase(Mid(baca, 2)) + "rupiah"
End If
End Sub
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 Bagian Ratus
If a100 = 1 Then
baca = "Seratus "
Else
If a100 > 0 Then
baca = angka(a100, 2) + "ratus "
End If
End If
'Baca Bagian Puluh dan 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 = "Duabelas "
Case 13: angka = "Tigabelas "
Case 14: angka = "Empatbelas "
Case 15: angka = "Limabelas "
Case 16: angka = "Enambelas "
Case 17: angka = "Tujuhbelas "
Case 18: angka = "Delapanbelas "
Case 19: angka = "Sembilanbelas "
End Select
End Function

Selamaat mencoba... :)

Mengatasai "USB Device Not Recognize"

Mungkin sebagian kita pernah mengalami masalah ketika USB flash drive atau media berbasis USB tiba-tiba tidak terdeteksi oleh Windows, dengan muncul pesan “USB Device Not Recognized” atau pesan lainnya. Hal itu bisa disebabkan oleh berbagai hal, berikut beberapa cara yang bisa dicoba untuk memperbaiki masalah tersebut.

Untuk memastikan bahwa bukan USB drive kita yang bermasalah (rusak), sebaiknya dicoba memasang di komputer atau laptop lain jika ada. Jika di komputer lain USB masih terdeteksi dengan normal, berarti komputer (windows) kita yang bermasalah dan beberapa cara berikut bisa dicoba untuk mengatasinya.

Restart Komputer

Cara paling awal yang bisa dilakukan, mungkin hal ini bisa memacahkan masalah tersebut.

Melepas kabel power supply (battery untuk laptop)

Mungkin cara ini memang tidak populer (bisa dikatakan ‘aneh’), tetapi ketika membaca berbagai tanggapan akan permasalahan ini di situs Microsoft, ternyata menggunakan cara ini banyak yang berhasil. Caranya dengan mematikan komputer kemudian melepas kabel power supply (listrik) yang terpasang ke Komputer, kemudian tunggu satu atau beberapa menit dan pasang kembali kabel power tersebut.

Untuk laptop, melepas kabel saja belum cukup, tetapi juga harus melepas battery laptop dan tunggu beberapa menit kemudian pasang kembali. Jika langkah ini berhasil, kemungkinan yang bermasalah di chipset Motherboard komputer tersebut. Dengan melepas power supply, maka motherboard akan melakukan inisialisasi ulang sistem didalamnya.

Gunakan System Restore

Jika System Restore di komputer aktif, kita bisa mengembalikan setting dan konfigurasi sistem komputer ke waktu atau keadaan sebelum USB tidak terdeteksi. Perlu di ingat bahwa dengan sistem restore, maka program atau aplikasi yang ada setelah waktu/tanggal Restore akan hilang (tergantung setting drive mana yang di monitor).

System Restore bisa diakses melalui menu Start > Programs > Accessories > System Tools > System Restore.

Uninstall USB Host Controller melalui Device Manager

Langkah ini juga dilaporkan banyak yang berhasil mengatasi masalah USB Device Not Recognized. Langkah detailnya sebagai berikut :

1. Buka COntrol Panel dan pilih Device Manager. Atau klik kanan My Computer dan pilih Properties, kemudian pilih menu Device Manager. Cara lain ketikkan Devmgmt.msc di meu Run dan klik OK, selanjutnya dari window yang muncul pilih Device Manager
2. Pilih “Universal Serial Bus Controllers” ( biasanya terletak di bagian paling bawah), dan klik dua kali untuk melihat tampilan seperti berikut:
   
3. Klik kanan dari daftar yang ada kata-kata “Host Controller” kemudian pilih Uninstall. Lakukan satu persatu, ingat yang ada kata “Host Controller” saja, kecuali ada masalah dengan port USB lainnya (sesuai dengan di daftar yang ada)
4. Setelah selesai Restart, maka Windows akan otomatis melakukan installasi ulang driver USB di komputer

Jika setelah restart windows tidak melakukan installasi ulang driver USB, buka kembali Device Manager, dan klik kanan “Universal Serial Bus COntrollers” kemudian klik menu “Scan for hardware changes”. Biasanya langkah diatas bisa mengatasi masalah USB tidak terdeteksi.

Gunakan Microsoft FixIt

Mungkin ini cara yang di rekomendasikan, yaitu dengan menggunakan Tools dari Microsoft yang didesain khusus untuk mengatasi masalah USB yang tidak terdeteksi. Kunjungi halaman Diagnose and fix Windows USB problems automatically, selanjutnya klik tombol Run Now, maka ada di download tools kecil FixIt. Setelah selesai jalankan file tersebut (memerlukan koneksi internet untuk menggunakan program ini, karena akan mengunduh file yang lebih besar dari Microsoft).

Alternatifnya download versi Offline yang sudah saya downloadkan dan saya upload ke DropBox berikut FixIt Windows Xp,Vista,7 (26 MB) atau FixIt Windows 7 ( 10 MB). Buka folder FixIt Portable dan jalankan file Launch Fix it.exe.

Mungkin masih ada (banyak) berbagai cara lain yang bisa dicoba, termasuk menggunakan software pihak ketiga. Jika anda mempunyai cara atau alternatif lain, silahkan berbagi melalui komentar.

GIVE FOR RECEIVE

"Apakah akan kau bau semua barang yang telah kaumiliki di dunia ini kedalam kuburmu. Tempat terakhirmu??"

"Seseorang yang mengasihi tidak akan kekurangan dalam hidupnya"

"Menurut saya, memberi adalah satu tindakan yang paling tepat untuk mengucapkan syukur"

"Apakah ini barang termahal dalam hidupmu?"

"Jangan samakan aku dengan kemewahan, jangan percayakan hidupmu pada apa yang kau dapat (barang mewah)"

"Barang yang dikumpulkan di dunia ini bukanlah tujuan dari hidup."

"Dimana hartamu berada disitu hatimu berada."

 "Jagalah hati jangan kau nodai, jagalah hati lentera hidup ini"

"Memberikan yang terbaik adalah sesuatu yang jelas dan sangat berfungsi. Bukan sebuah kerugian."

Membuat Penampilan Terlihat Tinggi

Tips Terlihat Tinggi MYSOURCE

Bagi Anda yang memiliki tubuh mungil atau tinggi badan yang tidak terlalu tinggi namun ingin lebih percaya diri, Anda bisa membuat tubuh terlihat lebih tinggi. Untuk membuat tubuh terlihat tinggi, beberapa tips fashion berikut ini dapat Anda lakukan.

• Jangan menggunakan rok atau celana yang terlalu panjang

  Hal ini dapat membuat Anda terlihat tenggelam dalam pakaian Anda sehingga semakin membuat Anda terlihat lebih pendek. Untuk celana panjang, maksimal yang panjangnya tidak melewati hak alas kaki yang akan digunakan. Bila ingin menggunakan rok, pilih rok yang panjangnya selutut atau gunakan rok mini untuk membuat kaki Anda terlihat panjang.

• Memilih atasan dan bawahan dengan warna senada

  Dengan menggunakan atasan dan bawahan yang warnanya senada akan menyulitkan melihat batas antara bagian atas tubuh dan bagian bawah, hasilnya tubuh Anda akan terlihat lebih tinggi.

• Menggunakan pakaian dengan motif vertikal

  Pakaian dengan garis-garis vertikal telah lama diketahui untuk membuat tubuh terlihat tinggi dan ramping. Efek ini memang akan Anda dapatkan saat Anda menerapkannya pada atasan atau bawahan. Bila akan menggunakan atasan atau bawahan sebaiknya memilih yang bermotif kecil, misalnya bunga-bunga kecil, bulatan kecil, dan motif lainnya.

• Gunakan pakaian dengan warna gelap

  Menggunakan pakaian berwarna gelap akan membuat Anda terlihat lebih tinggi serta bonus tubuh terlihat langsing karena warna gelap menyerap cahaya.

• Pilih Model Atasan yang Cocok

  Untuk pakaian atasan, Anda dapat memilih atasan dengan leher berbetuk V yang akan membuat leher terlihat lebih jenjang dan tubuh bagian atas terlihat lebih tinggi. Anda juga dapat memasukkan atasan ke dalam celana atau rok agar bagian kaki terlihat lebih panjang. Bila hendak menggunakan jaket atau jas, sebaiknya dipilih yang beukuran pendek sehingga tubuh bagian atas terlihat lebih tinggi. Bisa pula menggunakan pakaian yang bahannya ringan dan halus agar tubuh tidak terlihat kaku.

• Pilih Model Celana yang sesuai

  Selain tidak boleh menggunakan celana yang terlalu panjang, ada beberapa model celana yang dapat membut kaki terlihat pendek, misalnya celana kapri, baggy, atau cut bray yang akan membuat orang terfokus pada kaki Anda sehingga kaki terlihat pendek. Yang baik digunakan adalah menggunakan celana model lurus.

• Pilih Model Rok yang Sesuai

  Agar kaki terlihat lebih tinggi, Anda dapat menggunakan rok dengan pinggang yang tinggi, ini berlaku juga untuk celana yang ingin digunakan.

• Gunakan Aksesoris yang Cocok

  Bila ingin menggunakan aksesoris pada leher, waspadai agar tidk menggunakan secara berlebihan atau terlalu banyak sehingga leher tertutup aksesoris. Bila ingin menggunakan ikat pinggang, sebaiknya menggunakan ikat pinggang yang tipis agar batas tubuh bagian atas dan bawah tidak terlihat batas yang jelas. Untuk memberi kesan tinggi, Anda dapat pula menggunakan aksesoris seperti sepatu, anting-anting, tas, atau aksesoris lain dengan warna senada.

• Sepatu high heels

  Sepatu dengan hak tinggi (high heels) merupakan salah satu cara ampuh untuk menambah tinggi badan. Tetapi, perhatikan juga situasi saat menggunakan sepatu hak agar kaki Anda tidak menjadi korban karena terlalu lama memakai sepatu ini tidak baik untuk kesehatan.

Anda juga dapat berkreasi dengan memadupadankan model pakaian sesuai gaya Anda sehingga Anda tetap dapat mengekspresikan diri dengan pakaian. Memang tubuh mungil bukan berarti tidak bisa tampil modis dan menarik. Dengan trik busana yang tepat, Anda bisa menutupinya dan terlihat lebih tinggi.

Daftar Paket Internet Smart

Hai Sobat, internet sekarang lagi populer banget kan, bikin semua yang kita lakukan gak afdol kalo belum berhubungan sama internet. Jangan sampai lupa ya.. Eh maksudnya, jangan sampai lupa daftar paket, supaya dapat berselancar dengan lebih efisien dan terjangkau. Dibanding boros-borosan ngeluarin uang, mending kita daftar paket yakan... Nahhhh... ini aku kasi tau cara daftar paket SMART caranya :

Paket Internet Smart unlimeted Regular
Harian : tidak ada
Mingguan : tidak ada
Bulanan :
Registrasi short code *123*3*3*30*0
Registrasi SMS Data(spasi)R30

Paket Internet Smart unlimeted Premium
Harian :
Registrasi short code *123*3*2*1
Registrasi SMS Data(spasi)unl1

Mingguan :
Registrasi short code *123*3*2*7
Registrasi SMS Data(spasi)unl7

Bulanan :
Registrasi short code *123*3*2*30
Registrasi SMS Data(spasi)unl30

(more info smart)**

(source)

catatan : jika masa berlaku habis, akan dikenakan tarif regular sesuai daftar layanan data.

Dana Negara Mendarat Dimana?

"Kalo menurut saya ya pak orang seperti itu jangan dikasih ampun pak, karena orang yang susah itu adalah orang kecil."

Demikianlah salah satu perkataan seseorang yang diwawancarai saat ditanyai seputar uang negara yang dikorupsi, atau disalah gunakan sehingga tidak jelas kemana dana tersebut mendarat. Demikian banyak pihak yang meminta kejelasan aliran dana pajak pembangunan maupun dana masyarakat yang digunakan bagi kepentingan negara perlu diutarakan secara transparant tanpa ada pengurangan atau kecurangan di dalamnya. Begitu banyak hal yang berkaitan dengan dana tersebut sehingga perlu ditindak lanjuti jangan sampai berangsur-angsur hilang dan semakin tidak jelas.

BELAJAR DASAR PIANO

Bermain piano sangat menyenangkan jika sudah bisa memainkannya terutama kunci-kuncinya. Nah ini aku beri latihan dasar bermain piano.. enjoy it.

Belajar Dasar Piano 2

Ini yang kedua .. saat ini mari lanjutkan.

Just show it..

Mengatasi Masalah Jerawat Masa Puber

Masa remaja adalah masa yang menyenangkan tetapi juga sering membuat GALAU para remaja dikarenakan hormon pertumbuhan yang sedang bekerja secara maksimal. Melalui perubahan hormon tersebut banyak remaja yang kurang nyaman terhadap perubahan dalam dirinya. Salah satunya adalah jerawat. Maka dari itu hal yang satu ini yang sering dieluh-eluhkan oleh sebagian besar remaja. Namun melalui pengalaman yang sering dilakukan dan sangat membantu, maka ada beberapa solusi untuk mengatasi permasalah puber tersebut.

Kategori jerawat batu: Jerawat yang tumbuh banyak pada kulit berminyak dan sangat tidak nyaman karena tumbuh dengan banyak.

ini adalah salah satu contoh jerawat batu yang sangat mengganggu dikalangan remaja.
Cara mengatasi jerawat batu ini adalah :

1. Rajin mencuci muka dengan sabun yang tidak terlalu keras. Yang penting adalah kondisi muka kamu itu bersih dari kotoran.
2. Kurangi makanan yang membuat jerawatan :kacang, cokelat, gorangan, manisan, dll.
3. Jangan memecahkan jerawat, biarkan hingga kering sendiri.
4. Apabila jerawat mau tumbuh, olesi dengan jeruk nipis agar jerawatnya kering.
5. Banyak minum air putih agar kondisi tubuh sehat.
6. Banyak olahraga, agar regenerasi kulit bisa maksimal melalu keringat dan perdaran darah yang lancar. 
7. Makan-makanan yang bergizi. Bukan berarti kalian tidak memamakan cokelat, kacang tetapi kurangi jangan terlalu berlebihan.

Sedangkan Jerawat yang besar adalah dengan:

1. Cuci muka teratur. Sehabis beraktivitas, dan mau tidur.
2. Sebagian besar sama seperti "jerawat batu diatas"
3. Apabila terlanjur kena, langsung olesi jerut nipis atau lidah buaya. Ini langsung mengeringkan dan membuat tidak bertambah besar.
4. Jangan dipecahkan (karena akan membuat bekas bolong pada wajah). Biarkan pecah sendiri.
5. Apabila pecah keluarkan sampai darahnya habis, biar darah kotor yang terkanduing didalamnya keluar semua dan tidak menimbulkan noda hitam.
6. Masker dengan tomat, sari mawar, atau susu.
7. Makan-makanan yang bergizi dan minum air putih banyak.

Jangan bosen untuk merawat muka kalian, karena sekeliling kamu juga menilai diri kamu dari penampilan kamu. Juga agar jangan kamu menyesal di kemudian hari karena kamu malas merawat wajah.

Perhatian juga, bagi remaja tidak perlu sabun atau segala sesuatu yang mahal-mahal dan bahkan membuat tidak cocok di muka kamu, gunakanlah sabun yang ringan sehingga tidak membuat wajah kamu semakin hancur.

KEEP HEALTHY  \(^_^)/

4 TIPE KEPRIBADIAN MANUSIA

Menurut Buku Personality Plus karangan Florence Littauer ada beberapa sifat atau karakter manusia. Nah, mungkin dengan mengenal sifat ini maka kita bisa mengenali diri kita sendiri untuk selanjutnya memahami watak orang lain di sekitar kita.

Menurut Littauer, sifat dan watak manusia itu ada empat macam. Pertama, Koleris (ingin tampil ke depan, bersifat keras layaknya komandan tempur). Kedua, sanguin (periang, hampir tak pernah kelihatan susah namun pelupa dan selalu ingin mendapat perhatian orang lain). Ketiga, melankolis (serius, sistematis dan selalu memikirkan sebuah tindakan masak-masak sebelum melakukannya). Keempat, plegmatis (pasrah, tidak suka bertengkar dan nurut saja mana yang paling mudah).

Nah ini cara sederhana memahami keempat watak dasar manusia itu :

KOLERIS
Kalau menyelesaikan suatu pekerjaan maka seorang Koleris akan menyelesaikannya dengan caranya sendiri (My Way). Dia sungguh kreatif, bahkan kalau ada manual sekalipun maka dia tidak suka menuruti manual tersebut. Pokoknya si koleris akan berusaha menyelesaikan pekerjaan itu sampai tuntas. Syaratnya harus dengan cara yang diyakini olehnya benar bukan dengan cara orang lain. Hambatan apapun akan diterjangnya guna mencapai tujuan. Koleris ini juga senang mengatur orang lain akan tetapi dia sendiri tidak suka kalau dipaksa-paksa untuk melakukan sesuatu.

SANGUIN
Bagaimana seorang Sanguin harus menyelesaikan pekerjaannya ? Ini susahnya. Orang Sanguin ini orangnya gampangan. Cara dia menyelesaikan pekerjaannya adalah dengan cara yang dianggapnya paling menyenangkan (Fun Away). Bagi dia kalau pekerjaan itu menyenangkan baginya maka dia bisa-bisa tidak ingat waktu. Sayangnya, sang Sanguin ini terkesan bertele-tele karena ingin selalu mencari celah-celah pekerjaan yang bagi dia bisa menimbulkan kegembiraan. Si Sanguin ini juga suka menunda-nunda pekerjaan bahkan kerap melupakan apa yang sudah dikerjakannya. Dia bekerja tanpa rencana dan cenderung menganggap remeh apapun yang dilakukannya. Sikapnya cenderung seenaknya. Kalau ada keramaian maka orang Sanguin selalu tampil paling menonjol, entah dari segi pakaiannya, teriakannya yang menarik perhatian orang atau tingkah lakunya yang nyentrik. Si sanguin ini bisa diibaratkan seorang anak yang terkurung dalam tubuh orang dewasa. Awet muda dan senang bermain-main.

MELANKOLIS
Nah ini dia tipe pekerja teratur. Senangnya rapi dan sistematis. Dalam menyelesaikan pekerjaan maka seorang yang berwatak melankolis akan memilih cara terbaik (best way), bagaimanapun caranya. Kalau ada manualnya maka dia akan mengikuti manual itu 100 % benar. Dia bekerja sangat tekun dan serius, dan selalu menuntut hal yang sama terhadap anak buah atau rekan-rekannya. Kalau ada yang melenceng sedikit dari kemauannya maka dia akan murung dan muram sepanjang hari. Orang Melankolis ini cepat sekali tersentuh perasaannya. Hidupnya teratur dan kalau berpakaian selalu selalu rapi dan charming.

PLEGMATIS
Nah ini dia manusia yang paling menyenangkan bagi semua orang. Orang plegmatis ini nyaris tidak pernah marah. Senyumnya tulus. Hanya saja seperti orang yang tidak punya ambisi. Orangnya damai, dan tidak suka bertengkar. Dia juga pemalu dan cenderung tidak ingin menonjol di keramaian. Seorang plegmatis akan menerima pendapat orang lain apapun itu, meski belum tentu dia mengerjakannya. Kalau melakukan pekerjaan maka orang plegmatis akan melakukannya dengan cara yang paling mudah (easy way). Kadang-kadang dengan menempuh jalan pintas.

thanksforMysource

Cara Buat Domain Gratis di C0.CC

Cara Buat Domain Gratis di C0.CC  ***  thankstoMysource

Cara daftar membuat blog gratisan dengan domain gratis di CO.CC yang dapat diintegrasikan dengan Blogger Blogspot WordPress.com dan WordPress hosting sendiri atau free web hosting. Kalau Anda ingin punya domain gratis Anda bisa mendaftar dengan mudah di CO.CC atau CZ.CC. Domain ini nantinya dapat digunakan untuk banyak hal.  Antara lain, (1) untuk menjadi domain blog Anda di blogger.com blogspot, (2) menjadi domain Anda di wordpress.com; (3) menjadi domain Anda dengan hosting gratis (lihat daftar hosting gratis). Fungsi nomor (3) ini khusus bagi Anda yang ingin berlatih memiliki situs dengan domain dan hosting sendiri.

Cara daftar di CO.CC
1. Kunjungi CO.CC .
2. Di kotak yang tersedia (lihat gambar 1), isi alamat yang diinginkan. Contoh. namasaya.co.cc. Klik “Check Availability”. Kalau “Available” (belum ada yang punya), teruskan prosesnya. Kalau sudah ada yang pakai, ulangi lagi dengan mengisi nama yang lain.

3. Klik “Continue to Registration” (lihat gambar 2)

4. Klik “Create an Account Now” di bagian paling bawah (lihat gambar 3).

5. Isi formulir (lihat gambar 4). Jangan lupa kasih tanda tik (centang) di bagian paling bawah pada “I accept the Terms of Service”

6. Klik “Create an account now.”
7. Proses daftar domain selesai (gambar 5).

Selanjutnya kita harus mensetting domain tersebut untuk diarahkan sesuai tujuan kita. Yang paling mudah adalah redirect atau URL forwarding.
Berikut sejumlah fungsi yang dapat kita lakukan untuk set-up domain co.cc kita:

A. Fungsi Redirect / URL Forwarding

1. Klik “Set-up”
2. Kasih tanda tik pada button (lobang) nomor 3. URL Forwarding (gambar 7)

3. Isi alamat blog Anda yang akan diredirect (gambar 8 [delapan])

4. Klik “Set Up”.
5. Ada tulisan ” Your change has been submitted.” Klik “OK”.
6. Selesai (gambar 9).

Catatan:

• Redirect atau URL forwarding adalah fungsi termudah dari domain co.cc. Fungsi-fungsi lain yang advanced (tindak lanjut) adalah sbb:(a) Merubah Blogspot ke CO.CC (b) Merubah WordPress.com menjadi CO.CC (c) Menjadi domain dari hosting gratis di 000webhost.com 
• Membuat redirect / url forwarding bersifat sementara karena kalau tidak diset-up lebih dari 2 hari alamat yang kita buat akan di-cancel. Setelah itu, kita bisa merubahnya dengan setting advanced kalau sudah ada waktu. Tutorial untuk setting advanced, lihat di poin 2.a (integrasi dg blogger blogspot), 3,b (integrasi dg wordperss.com) dan 4(c) di atas.

Setting Advanced CO.CC:

• Merubah blogspot ke CO.CC (Custom Domain)
• Cara Merubah wordpress.com menjadi co.cc (Domain Mapping)

Artikel Terkait:

• Merubah blogspot ke CO.TV (Custom Domain)

Menampilkan Bilangan Ganjil - Genap Menggunakan C++ (underDOS)

Menampilkan Bilangan Ganjil - Genap Menggunakan C++ (underDOS)

Source Code :

#include<iostream.h>
#include<conio.h>

void main()

{
    int x;

    cout<<"Menampilkan Bilangan Genap - Ganjil"<<endl;
    cout<<"Masukkan Sebuah Bilangan : " ;
    cin>>x ;
        for (int n, y=1;y<=x;y++)
            { n = a % 2 ;
                if (n > 0)cout<<y<<" Ganjil "<<endl ;
                else
                     cout<<y<<" Genap "<<endl ;
            }
    getch();
}

Selamat Mencoba

SUPER GEEK FREE OCR (Konversi Dokumen dengan Teks)

Pernahkah kita melakukan scan dokumen, kemudian ingin mengedit atau menyimpan tulisan yang ada menjadi dokumen berupa text? Untuk melakukan hal tersebut, kita memerlukan program atau software OCR (Optical Character Recognition) yang akan mengubah gambar text menjadi text biasa.

OCR atau teknik mengenali huruf atau kata-kata yang ada di dalam gambar (biasanya hasil scan) bukan merupakan proses yang mudah. Meskipun sudah ada beberapa software yang bagus dan berkualitas, sebagian merupakan software berbayar, sedangkan untuk software gratis belum banyak tersedia. Tetapi ada salah satu software gratis yang patut dipertimbangkan untuk dicoba, yaitu SuperGeek Free Document OCR.

SuperGeek Free Document OCR merupakan program gratis untuk melakukan konversi dokumen yang berisi tulisan atau text menjadi file text biasa yang bisa di edit (proses ini dikenal dengan istilah OCR/Optical Character Recognition. Beberapa fitur atau fungsi yang diberikan antara lain:

• Dapat melakukan konversi dari dokumen JPG, JPEG, TIF, TIFF, BMP, GIF, PNG, PSD, EMF, WMF, DCX, PCX, JP2, J2K dll
• Terintegrasi dengan scanner, sehingga bisa melakukan scan kemudian langsung melakukan konversi ke text
• Akurasi yang cukup tinggi (dinyatakan akurasinya bisa sampai 99.8%)
• Disediakan berbagai image & Document Tool untuk melakukan perbaikan gambar sebelum di konversi
• Proses konversi relatif cepat, dengan memanfaatkan teknologi multi core CPU

Software ini sangat bermanfaat, terutama yang memerlukan data text dari dokumen hasil scan. Penggunaannya relatif mudah, tinggal membuka atau scan dokumen yang sudah ada, kemudian pilih area yag akan diambil tulisannya jika banyak area yang tidak jelas dan klik tombol OCR. Hanya saja hasil konversi tergantung kualitas gambar. Jika resolusi gambar rendah, hasilnya tidak akan akurat.

Untuk ukuran software gratis, SuperGeek Free Document OCR memang cukup bagus, meski hasil konversi belum 100% benar, terutama dokumen yang resolusinya rendah, tetapi jika kualitas gambar bagus (paling tidak 300 dpi) hasilnya relatif bagus sesuai yang dinyakatan. Untuk kecepatan sepertinya masih belum secepat yang dituliskan di websitenya.

Program ini dapat dijalankan di Windowx XP, Vista atau Windows 7 baik 32bit maupun 64bit. Ingin mencoba? Download saja SuperGeek Free Document OCR ( 6.10 MB)

source : ebsoft