Membuat Fungsi Terbilang pada VB6.0

Fungsi dibawah ini digunakan untuk menampilkan tulisan terbilang dari suatu angka. Contoh jika angkanya adalah 100, maka akan muncul teks "seratus". Kelemahannya hanya bisa menjadi angka jutaan saja, untuk itu silahkan Anda kembangkan sendiri sesuai kebutuhan.

Public Function Terbilang(ByVal x As Long) As String
Dim abil As Variant abil = Array("", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas")

If x <>
Terbilang = " " & abil(x)
ElseIf x <>
Terbilang = Terbilang(x - 10) & " belas"
ElseIf x <>
Terbilang = Terbilang(x \ 10) & " puluh" & Terbilang(x Mod 10)
ElseIf x <>
Terbilang = " seratus" & Terbilang(x - 100)
ElseIf x <>
Terbilang = Terbilang(x \ 100) & " ratus" & Terbilang(x Mod 100)
ElseIf x <>
Terbilang = " seribu" & Terbilang(x - 1000)
ElseIf x <>
Terbilang = Terbilang(x \ 1000) & " ribu" & Terbilang(x Mod 1000)
ElseIf x <>
Terbilang = Terbilang(x \ 1000000) & " juta" & Terbilang(x Mod 1000000)
End If
End Function

Contoh penggunaan:
Private Sub Command1_Click()
Text2.Text = Terbilang(Val(Text1.Text))
End Sub

Batu Isra Miraj Masih Melayang Hingga Kini

Ini foto dari teman saya sewaktu melawat Al Aqsa (yg sebenarnya) diJerusalem, Subhanallah ……Foto ini bisa lolos karena tidak diketahui oleh pihak israel yg menjagatempatnya dengan sangat ketat.Bukti kebesaran Allah SWT batu tempat duduk Nabi Muhammad SAW Isra Mi’rajsampai kini masih tetap melayang di udara. Pada saat Nabi Muhammad mauMi’raj batu tsb ikut, tetapi Nabi SAW menghentakan kakinya pada batu tsb,maksudnya agar batu tsb tak usah ikut.Kisah Isra Mi’raj Nabi Muhammad SAW tentang batu gantung tsb yang beradadalam masjid Umar (Dome of the Rock) di Lingkungan Masjidil AQSHAdi Yerusalem.
Sampai sekarang mesjid dome of rock ditutup untuk umum, dan Yahudi membuatmesjid lain Al Sakhra tak jauh disebelahnya dengan kubah “emas” (yg seringterlihat di poster2 yg disebarkan ke seluruh dunia dimana2) dan disebutsebagai Al Aqsa, untuk mengelabui ummat islam dimana mesjid Al Aqsa yangsebenarnya, yang Nabi Muhammad SAW pernah sebutkan Al Aqsa sebagai “mesjidkubah biru”.Saat ini mesjid Al Aqsa yg sebenarnya sudah di ambil-alih oleh israel , danrencananya mau dihancurkan untuk diganti sebagai tempat ibadah merekakarena bersebelahan dengan tembok ratapan.

sumber : ady_chy at yahoo dot com

Beri Pengaman Pada Helm Half Face

Bosan juga kalau mau aman gunakan helm, tapi saat helm ditinggal di parkiran ternyata helm hilang. Padahal untuk membeli helm, anda harus menabung dulu. Padahal helm sudah dikaitkan di jok motor tapi yang tersisa hanya behelnya saja, sedangkan helm sudah hilang entah kemana.
Ada ide brilian yang bisa membuat helm half aman dari incaran pencuri yaitu membuat peneng pengaman helm yang dikaitkan pada body helm. Caranya cukup mudah dan bahan yang diperlukan juga tidak banyak kok. Yang perlu dipersiapkan adalah bandul baut yang berbentuk bulat, mur, power glue dan bor.
Cara pertama, helm di bor, setelah ukurannya pas dengan baut yang akan dipasang. Lalu pasang baut dan di mur pada bagian dalam. Setelah dibaut, agar lebih aman, anda kasih power glue.
Diamkan selama beberapa menit untuk memastikan apakah mur dan baut sudah kencang oleh lem. Selesailah. Setelah semua proses selesai, maka helm bisa anda taruh dimotor dengan pengaman rantai, seperti layaknya helm full face yang dikaitkan di motor di parkiran.
Jadi anda bisa pastikan helm dapat tersimpan dengan aman, disimpan di motor tanpa harus membawa helm tersebut kemana-mana dan yang paling penting untuk amannya helm dari gangguan pencuri adalah berdoa. Semoga hal ini bermanfaat untuk anda. (Sumber : Motorplus-online.com)