Kamis, Februari 28, 2008
Membuat Fungsi Terbilang pada VB6.0
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

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
Kamis, Februari 21, 2008
Beri Pengaman Pada Helm Half Face
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)
Memberi warna record aktif pada TDBGrid di Delphi
type
TCustomDBGridCracker = class(TCustomDBGrid);
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
with TCustomDBGridCracker(Sender) do
if DataLink.ActiveRecord = Row - 1 then
Canvas.Brush.Color := clRed
else
Canvas.Brush.Color := clWhite;
DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
Rabu, Februari 20, 2008
Membuat Splash Screen di Delphi
Untuk membuat splash scren tersebut caranya sebagai berikut :
- Bikin dulu form utamanya.
- Tambahkan form yang akan digunakan sebagai splash screen (dari menu File, pilih New Form). Beri nama form tersebut dengan FrmSplash.
- Tambahkan komponen Timer (terletak pada tab Win32), beri nama dengan tmMainTimer.
- Tambahkan kode berikut pada events onTimer dari komponen Timer tersebut : tmMainTimer.Enabled := False;
- Dari menu Project, pilih Options.
- Pindah ke tab Forms.
- Dari bagian auto create forms akan terlihat dua buah form. Pilih Form yang akan digunakan sebagai splash screen dan klik tombol ">" untuk memindah form splash screen ke bagian Available forms.
- Kalau sudah klik OK.
- Sekarang dari menu View, pilih Project Source. Pada program utama buatlah form splash screen sebelum inisialisasi dilakukan.
Untuk lebih jelasnya lihat potongan program berikut ini :
program Project1;
uses Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {FrmSplash};
{$R *.RES}
begin
FrmSplash := TFrmSplash.Create(Application);
FrmSplash.Show; FrmSplash.Update;
while FrmSplash.tmMainTimer.Enabled do
Application.ProcessMessages;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
FrmSplash.Hide; FrmSplash.Free; // menghapus form splash scren dr memory
A pplication.Run;
end.
Selasa, Februari 19, 2008

YAMAHA MX CLUB INDONESIA (YMCI) adalah klub pengendara motor Jupiter MX 135 LC terbesar di Indonesia. Klub yang bersifat non-profit ini berdiri tanggal 23-Februari-2006 di Jakarta. Pendiri YMCI adalah mantan anggota YAMAHA TZT (Tiara, 125Z & Touch) CLUB JAKARTA yang kini memiliki motor JUPITER MX 135. Karena ide untuk membentuk YMCI tercetus dari beberapa anggota TZT yang saat itu memakai motor Jupiter MX 135.
Saat ini YMCI sudah memiliki lebih dari 32 Chapter yang tersebar di berbagai kota di Indonesia dan semakin bertambah. Setelah hadir di JAKARTA, YMCI kemudian terbentuk di kota YOGYAKARTA, BOGOR, TANGERANG, BEKASI, BANDUNG, SUBANG, SEMARANG, PROBOLINGGO, GARUT, SUMEDANG, PADANG, MAKASSAR, MEDAN, BALI, INDRAMAYU, SURABAYA, SAMARINDA, dll. Dan tidak menutup kemungkinan YMCI akan hadir di kota-kota lainnya.
YMCI adalah klub pemilik motor YAMAHA JUPITER MX 135LC satu-satunya yang telah diakui oleh YAMAHA INDONESIA (YMKI) karena YMCI telah tergabung di dalam YRC (Yamaha Riders Club) sebagai wadah klub-klub Yamaha yang didirikan oleh PABRIKAN YAMAHA INDONESIA. Sehingga hanya ada 1 klub varian Jupiter MX yang diakui oleh PABRIKAN YAMAHA INDONESIA, yaitu YAMAHA MX CLUB INDONESIA (YMCI).
VISI & MISI YMCI :
Sebagai wadah perkumpulan pengendara motor Yamaha Jupiter MX 135cc seluruh Indonesia dan menyatukan seluruh pengendara motor Yamaha Jupiter MX 135cc di seluruh Indonesia untuk menciptakan persatuan dan kesatuan bangsa Indonesia
KEGIATAN YMCI :
Beberapa kegiatan yang telah dilakukan oleh YMCI antara lain, Touring, Bakti sosial/acara sosial, Workshop, Yamaha Safety Riding, Yamaha Jupiter Day, U-MILD 4 U BIKERS SAFETY RIDING COURSE, malam kebersamaan anggota, latihan band rutin dan masih banyak lagi.
ATMOSFER DI DALAM YMCI :
Dengan jumlah member yang semakin bertambah tiap harinya, YAMAHA MX CLUB INDONESIA selalu mengedepankan semangat kebersaman dalam kekeluargaan, hingga muncul sebutan bahwa "WE'RE NOT A CLUB, WE ARE FAMILY".
KEUNTUNGAN MENJADI ANGGOTA YMCI :
Menambah teman
Memperluas networking bisnis/usaha
Discount di beberapa toko aksesories motor
Akses ke Yamaha Indonesia lebih mudah
Memudahkan untuk saling tukar pendapat mengenaik motor Jupiter MX 135
FASILITAS YMCI :
Selain WEBSITE dengan Forum diskusi, YMCI juga mempunyai mailing list, silahkan bergabung di milis kami, cukup dengan mengirimkan email kosong ke ymci-i-subscribe@yahoogroups.com
Bergabunglah bersama kami.....di dalam keluarga besar YAMAHA MX CLUB INDONESIA......
Pedoman Naik Motor

Pastikan anda membawa SIM dan STNK agar tidak grogi saat ada polisi lalin. Kenakan jaket dan helm full face agar anda selamat di jalan raya.
Jika waktunya malam atau petang sebaiknya pastikan lampu depan dan belakang bisa menyala. Sebelum anda berangkat sebaiknya panasi mesin dulu. Biarkan dalam putaran biasa selama kurang lebih 1 menit.
Dalam perjalanan sebaiknya anda jangan langsung tancap gas. Paling tidak anda harus tahan dulu di gigi 2 dan biarkan beberapa motor lain menyalip anda.
Bila anda ingin pindah jalur sebaiknya lihat spion, jangan menoleh ke belakang. Jaga kecepatan motor anda agar tidak terlalu lambat. Tapi terlalu cepat akan mengundang pengendara lain untuk menyalip anda, sedangkan terlalu lambat akan membuat pengendara lain mengklakson anda.
Cobalah anda jaga jarak dengan kendaraan yang ada di depan, belakang, kanan dan kiri. Jangan mengerem dengan mendadak, atau tancap gas dengan tiba-tiba. Bila anda ingin membelok sebaiknya tangan anda jangan dilambaikan tapi gunakan lampu sign.
Anda bisa menyalip kendaraan yang memang melaju dengan kecepatan rendah. Tapi anda jangan pernah mencoba menyalip kendaraan yang melaju sangat cepat. Kalau ada kendaraan yang berusaha menyalip anda sebaiknya anda beri jalan. Jangan naik motor sambil melihat kanan kiri, hal ini agar anda fokus terhadap suasana jalan.
Setelah tiba di tujuan, parkirlah di tempat yang semestinya. Jangan lupa kunci setang dan jangan sampai ketinggalan kuncinya. Bila anda memiliki helm yang bagus dan mahal sebaiknya titipkan saja atau anda bawa. Agar anda merasa nyaman selama meninggalkan kendaraan. Jangan pernah meninggalkan barang atau surat berharga dibawah sadel. Kalau ada tukang parkir, jangan lupa meminta karcis parkir. Semoga hal ini bermanfaat untuk anda. (Sumber : Motorplus-online.com)
Suku Cadang Palsu Kurangi Kenyamanan Berkendara

Padahal suku cadang palsu kualitasnya lebih buruk daripada yang asli, walaupun tidak semuanya. Ada beberapa komponen motor yang biasa dipalsukan dan tentu saja akan memberikan dampak negatif bagi motor serta kenyamanan saat berkendara, simak berikut ini.
Saringan Oli berfungsi sebagai penyaring oli dari sisa pembakaran. Suku cadang palsu saringan oli hanya terdiri dari 1 (satu) lapisan sehingga kemampuan menyaring kotoran akan berkurang. Sisa material yang ada pada sistem pengerjaan saringan oli palsu dapat menyebabkan kerusakan pada mesin motor.
Saringan Udara yang palsu membuat mesin tidak bekerja dengan optimal karena tidak menyaring dengan baik, membuat partikel debu dan timah mencapai karburator. Di dalam karburator ada banyak saluran yang halus sehingga bagian ini akan tersumbat. Debu yang masuk ke ruang pembakaran akan mempercepat keausan pada ring piston dan dinding silinder.
Platina merupakan komponen yang palsu tidak dijamin keawetannya sehingga lebih sering melakukan penggantian. Permukaan platina yang keseringan habis akan mengakibatkan titik pengapian cepat berubah sehingga mesin rusak dan boros bahan bakar.
Tie rod, bushing, karet rem. Suku cadang dari bahan karet yang dipalsukan dengan karet bermutu rendah akan lebih cepat rusak. Hal ini sudah pasti akan membuat motor anda cepat rusak dan tidak nyaman dikendarai. Semoga hal ini bermanfaat untuk anda. (Sumber : Motorplus-online.com)
Senin, Februari 18, 2008
MEMBUKA USAHA PENJUALAN PULSA
Selain pulsa bisa di gunakan untuk Anda sendiri, Anda juga bisa menjual kembali / mentransfer pulsa ke orang lain ke semua operator.
Kami menawarkan peluang bisnis sebagai Agen atau Dealer penjualan pulsa untuk seluruh wilayah Indonesia. Siapa pun Anda, dimana pun Anda berada, Anda bisa bergabung bersama kami menjadi agen atau dealer pulsa.
Keuntungan jika bergabung bersama kami:
- 1 chip untuk semua operator
- pendaftaran hanya dilakukan sekali
- harga pulsa yang bersaing di pasaran
- banyaknya ketersediaan
- persyaratan menjadi agen sangat mudah
- kesempatan mengembangkan usaha menjadi lebih luas
- modal yang dibutuhkan kecil, hanya Rp. 150.000 (Biaya Adm + Saldo Awal)
- dukungan sistem yang handa sehingga proses transaksi cepat
- tidak mesti memiliki toko/outlet
- tanpa batas waktu
Mengapa Jualan Pulsa.......!
Dewasa ini Handphone sudah merupakan barang umum yang bagi sabagian orang seakan-akan menjadi barang wajib untuk dimiliki, seiring dengan pertumbuhan penggunaan Handphone pertumbuhan penggunaan pulsa juga berbanding lurus dengannya.Hal ini menunjukkan bahwa pulsa Handphone sudah merupakan kebutuhan pokok bagi pemilik handphone, yang bisa disejajarkan posisinya dengan makanan.
Ini Menimbulkan peluang usaha yang menjanjikan serta mempunyai prospek yang panjang. Berjualan pulsa Handphone tidaklah membutuhkan modal yang tinggi, hanya dengan modal Handphone dan uang Rp.100.000,- rupiah anda sudah bisa berjualan pulsa secara elektronik. dan dengan hanya bermodalkan uang Rp.100.000,- rupiah anda bisa mendapatkan keuntungan hingga Rp.300.000,- rupiah per-bulan jika anda mengambil keuntungan 10% dari rata-rata transaksi pulsa 10.000 dan keuntungan itupun bisa anda atur sendiri yakni 10%,20%...dll sesuai pasaran yang ada didaerah anda.
Nah, tunggu apalagi! Segeralah bergabung bersama kami dengan menghubungi Master Agen Jhund via E-Mail jhund_r39@yahoo.com
Stop The War!
