Validasi Angka Pada EditBox pada delphi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Script untuk membuat agar TEdit pada delphi hanya bisa diisi oleh data angka saja, isikan script dibawah ini ke Event nya OnKeyPress TEdit:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin

if not (key in['0'..'9', #8]) then
key:=#0;

end;

Penjelasan Source Code

if not    ==> menyatakan bahwa adanya pengkondisian dimana jika ia tidak.
key in  ==> menyatakan bahwa nilai yang boleh di input hanya angka dari 0 s/d 9 serta #8
                    (backspace). Selain dari itu semua maka tidak akan berfungsi di edit box.

Tampilan ketika program dieksekusi

    EditBox hanya dapat diisi angka saja

Sungai Di Bawah laut

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Maha Suci Allah yang Maha Menciptakan Sungai dalam Laut
“Akan Kami perlihatkan secepatnya kepada mereka kelak, bukti-bukti kebenaran Kami di segenap penjuru dunia ini dan pada diri mereka sendiri, sampai terang kepada mereka, bahwa al-Quran ini suatu kebenaran. Belumkah cukup bahwa Tuhan engkau itu menyaksikan segala sesuatu. ” (QS Fushshilat : 53)
“Dan Dialah yang membiarkan dua laut mengalir (berdampingan) ; yang ini tawar lagi segar dan yang lain masin lagi pahit; dan Dia jadikan antara keduanya dinding dan batas yang menghalangi.” (Q.S Al Furqan:53)

Memakai Flash Di Delphi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Hmm.... "membuat" atau "membuka" animasi flash nih...???
Kalo "membuat" sayangnya gue gak bisa bantu...
Tapi kalo "membuka", kira2 gini...


Load activeX Shockwave Flash...
Caranya Buka COMPONENT > IMPORT ACTIVEX CONTROL..
Dari list, pilih komponen shockwave flash dan klik Install.. Ntar kalo ada kotak dialog, pilih yes-yes..yes.. aja terus...
Kalo udah selesai... Tutup semua project.. baru deh mulai dipake flash-nya...
Componen Flashnya bakal ada di Tab [ActiveX]

Cara pakenya mirip kayak TImage...
Masukkan kompoen Flash ke Form.. disesuaikan ukurannya..
trus masukin deh scriptnya..

Di Object Inspector/properties-nya.. MOVIE diisi path ke file swf-nya.. misalnya c:\data\film.swf..
Nanti kalo mo dijalanin, cukup panggil aja : ShockwaveFlash1.Play;

Kalo pengen looping terus, atau pengen setting properties lainnya cukup double-klik komponen flashnya..
Nanti muncul dialog baru.. disitu bisa diset quality-nya.. jenis framenya.. loop atau tidak.. pokoknya lengkap..

oia, pas saat design.. komponen flash emang suka aneh... jadi canvasnya seolah-olah gak direfresh.. jadinya suka gak "sedap" dipandang pas lagi design... tapi nanti setelah di-run, normal kok.. (kalo gak ngerti maksud gue dengan "sedap dipandang", coba aja sendiri.. Very Happy )

GudLuck

Resep Bajigur

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

 Bahan :

1. daun pandan = 2 daun
2. garam = secukupnya
3. potongan roti = secukupnya
4. bubuk kopi = 2 sendok makan
5. gula pasir = 125 gram
6. gula jawa = 250 gram
7. kolang-kaling = 150 gram
8. santan kelapa = 800 ml
9. air = 350 ml

Cara Memasak :

1. campur gula jawa, gula pasir, garam, daun pandan dan air

2. didihkan sampai benar-benar mendidih lalu diangkat dan disaring
3. belah tiap kolang-kaling menjadi dua bagian
4. masukkan santan dan kolangkaling ke dalam campuran gula tadi
5. didihkan lagi sampai kolang-kalingnya mateng
6. hidangkan dalam cangkir atau gelas dengan potongan roti dan sedikit kopi bubuk

wedang bajigur siap dinikmati.....

Soto Ayam Betawi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

 

Bahan - bahan :

• 1 ekor Daging Ayam
• 1/4 kg soun, rendam air hangat, tiriskan
• 1 kg Kentang
• 1/4 kg Tauge
• 1/4 kg emping, goreng, tiriskan
• 3 buah Tomat
• sesuai selera Kecap
• 1 butir Kelapa
• sesuai selera daun sledri, potong halus
• sesuai selera bawang goreng
• 5 lembar Daun Jeruk
• 1 sdt Lada (Merica)
• 3cm Lengkuas
• 1 ruas Kunyit
• secukupnya Pala
• 10 buah Kemiri
• 10 siung Bawang Merah
• 10 siung Bawang Putih

Cara memasak :

1. haluskan lada, lengkuas, kunyit, pala, kemiri, bawang merah dan bawang putih.
2. Rebus ayam yang telah dicuci bersih bersama dengan bumbu yang dihaluskan, masukkan daun jeruk. Rebus sampai ayam matang, kemudian angkat ayamnya, goreng. Biarkan rebusan ayam tadi untuk di jadikan kuah soto.
3. Masukkan santan kedalam kaldu rebusan ayam tadi, masak hingga mendidih, aduk terus agar santan tidak pecah.
4. Siapkan mangkok, susun soun, potongan kentang, irisan tomat, irisan sledri, emping, bawang goreng dan kecap secukupnya, siram dengan kuah soto yang hangat, sajikan.

Memakai .InI Di Delphi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Pernahkah kalian Memasukan Data Atau teks Apa pun dengan notepade.Disini extensi notepade tersebut bukan TXT melainkan INI,tentu udah kenalkan.
Disini Saya akan memberikan sedikit ilmu buat yang belum mengerti atau belum pernah menggunakannya.bagi yang sudah jago di Delphi mohon Bimbingannya saja untuk menambah wawasan saya..Gax usah Panjang lebar dech nech contoh source codenya:

Pengemis Yahudi Dan Rosullulloh SAW

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Di sudut pasar Madinah ada seorang pengemis Yahudi buta yang setiap harinya selalu berkata kepada setiap orang yang mendekatinya, Wahai saudaraku, jangan dekati Muhammad, dia itu orang gila, dia itu  pembohong, dia itu tukang sihir, apabila kalian mendekatinya maka kalian akan dipengaruhinya.
Namun, setiap pagi Muhammad Rasulullah SAW mendatanginya dengan membawakan makanan, dan tanpa berucap sepatah kata pun Rasulullah SAW menyuapkan makanan yang dibawanya kepada pengemis itu sedangkan pengemis itu tidak mengetahui bahwa yang menyuapinya itu adalah Rasulullah SAW. Rasulullah SAW melakukan hal ini setiap hari sampai beliau wafat.