Award yg pertama nih buat aku

Waduh, lumayan nih dapet award yg pertama, thanks yah buat nency madong yg udah ngasi buat me. thanks ya..

"Share Award 4 My Best Followers"
Hmm... walaupun baru sembuh dr penyakit tahunan, gk pa2 deh mo posting bentar tp harus tetep ngadu jari ma keyboard lagi (kayak lagu saykoji aja)... tapi tetep semangat dong
trus mau ngebagiian ni awardbuat temen2 me yg laen heheheee.....sahabat2 blog me yang layak dapet award ini adalah:

1. ochy (husainsamawa.blogspot.com/)
2. na2ng firmansyah (nanangfirmansah.com/)
3. mas wibi (wibi4linux.wordpress.com/)
4. pak adil (adilahmat.wordpress.com/)
5. (aneuknanggroe.co.cc/)
6. anis (anishafiza.blogspot.com/)
7. (apolishproblem.blogspot.com/)
8. (nandakoto.blogspot.com/)
9. (italianalisi.blogspot.com/)
10. (just-cook-already.blogspot.com/)

Script awardnya tinggal copy paste dibawah ini:

<br /> <a href="http://marketingismynewworld.blogspot.com/" target="_blank" title="You my best followers"><img src="http://i650.photobucket.com/albums/uu227/aik2009/award-trophies-trophy2.jpg" alt="award blog" border="0" /></a><br />

Begin Copy
1. Nama : andris_faesal
2. URL/Web : http://andrisfaesal.blogspot.com/
3. Email : faesal_lbk@yahoo.co.id
4. Hobby : menikmati karya Allah.SWT
5. Cita-cita : bisa berguna bagi ortu ma bangsa
6. Mulai Nge-Blogwalking : awal th 2009
7. Kota : Mataram city...^_^

SYARAT DAN KETENTUAN BAGI PENERIMA AWARD:

1. Menyebutkan serta meletakan link pemberi AWARD pada blogmu.
2. Copy>Paste Form Biodata diatas, kemudian ganti dengan informasi pribadimu.
3. Bagikan kembali AWARD tersebut kepada sahabat2 blogger anda.
4. Copy Paste dari "Begin Copy" Sampai "End Copy" di blog anda.

for Homework to Our Special Friends :

*Buatlah postingan yang memuat gambar award diatas di blogmu.
*Sebutkan siapa yang memberikan award beserta link blognya.
*Hadiahkan award ini kepada 10 sahabatmu.
*Kunjungi blognya dan beritahukan kalau ada award dari kamu untuknya.
*Lakukan hal yang sama seperti yang memberikan award ke kamu.
End Copy

Contoh program delphi menggunakan Komponen Terbilang pada Delphi

Ass.Wr.Wb


Nongol lagi nih, bingung mau posting pa lagi ne,,, pa yaaaaaaaaa....!!!!!!
ya udah karena terinspirasi dari da mahasiswa yang nanyain gimana nampilin angka biar jadi huruf seperti 5.450 jadi kalo diubah jadi Huruf menjadi LimaRibu Empat Ratus Lima Puluh,

Mau tau,,,,??? langsung ja yah tak bahas.key

Udah siep mua....???
beneran dah siep ne...!!
ya udah ikuti langkah2nya yah...
1. Buka dulu Program Delphinya
2. Desain Formnya seperti gambar dibawah ne..
3. Kalo blom da komponen TTerbilang donwload ja disini
4. Install komponen TTerbilang, kalo blom tau caranya bisa disini
5. ya udah, sorry karena da urusan laen jadi males nulis, didownload ja filenya yah disini


moga bermanfaat.key

Menginstal Komponen TTerbilang

Ass.Wr.Wb

Nongol lagi nih, bingung mau posting pa lagi ne,,, pa yaaaaaaaaa....!!!!!!
ya udah, saya bahas gimana cara menginstal komponen delphi seperti komponen TTerbilang
komponen TTerbilang ntu komponen untuk merubah bilangan angka menjadi Huruf contoh 5450 diganti menjadi Lima Ribu Empat Ratus Lima Puluh..
Mau Tau caranya...???

Caranya gini..!!
1. Buka Program Delphinya
2. Kalo blom punya Komponen TTerbilang bisa didownload disini..!!
3. Trus alangkah baeknya kalo file terbilang tadi di copy di folder C:\Program Files\Borland\Delphi7\Lib\
4. Dijendela Delphi pilih menu commponen/instal commponen
5. Lalu di Unit File Name cari file yang didownload tadi dengan menekan tombol brouse
6. Kalo udah, tekan OK
7. Selese deh..

selamat mencoba.key

Buat koneksi database ADO yang dinamis

Ass.Wr.Wb

Nongol lagi nih, bingung mau posting pa lagi ne, ya udah karena terinspirasi dari da mahasiswa yang nanyain gimana buat koneksi database ADO biar kalo terjadi error pas kita ngelajan programnya trus terjadi error koneksi da muncul pesan seperti "database yang dibutuhkan oleh aplikasi ini rusak atau tidak ada, coba ulangi kembali" gitu umpamanya ... :)

gimana, mau..??
ya udah gini caranya:

1. Mula mula buka program delphinya
   
2. Untuk koneksinya pakek Datamodule
3. trus di datamodule isi pakek ADOConnection1
4. Kalo udah tinggal dikoneksi lewat connectionstring (seperti biasa sih).
5. kalo udah selese isi dari connectionstring ntu di cut, kalo saya isinya seperti
   
   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\my computer\db1.mdb;Persist Security Info=False"
   
6. kalo udah dicut ato dicopy trus tulis perintah dibawah ini di form yang pertama jalan pada program yang anda buat, umpamanya di form1. doble klik formnya (TForm1.FormCreate(Sender: TObject);)
7. Ikuti perintah dibawah ini
   
   procedure TForm1.FormCreate(Sender: TObject);
   begin
   Try
   With DataModule1 do
   Begin
   If not FileExists('E:\my computer\db1.mdb') then // tempet anda taruh databasenya
   begin
   MessageDlg('File database tidak ditemukan,Copy File database dengan nama'+#10+
   'E:\my computer\db1.mdb pada direktory nya...!!!',mtWarning,[mbOK],0);
   Application.Terminate;
   end else
   Begin
   while DataModule1.Connected do
   Begin DataModule1.Close; End;
   DataModule1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\my computer\db1.mdb;Persist Security Info=False';
   Datamodule1.loginPrompt:=False;
   DataModule1.Open;
   End;
   End;
   Except
   MessageDlg('database yang dibutuhkan untuk program ini tidak ditemukan,'+#10+
   'Copy file database Applikasi ini pada file E:\my computer\db1.mdb',
   mtInformation,[mbOK],0);
   Application.Terminate; //langsung menutup program
   End;
   end;
   
8. selese deh coba di jalanin.key

selamat mencoba dan moga berhasil.

Tips gimana nulis souce code program yg baik

Ass. Wr. Wb

Akhirnya muncul kembali nih setelah sekian lama gk posting lagi, maklum kebanyakan maennya sih, sambil cari uang jajan disana sini deh...!!! kok malah curhat sih hehehehe....
okeh, dari sekian lama ngilang jadi bingung mo posting pa'an yah....!!!, gini ja dah aku mau bagi2 ilmu cara nulis souce code yang baek ntu kayak gimana... :)

Source code program yang ditulis dengan sudut pandang berbeda maka tentu akan mempengaruhi dalam hal perawatan atau perbaikan program. Sebuah code program yang ditulis apa adanya tanpa memandang sisi estetika, reusabilitas, dan konsistensi relatif akan lebih sulit perawatan atau perbaikannya.

Manfaat menulis program dengan baik antara lain :

• Baris program jadi lebih rapi
• Alur program lebih enak dibaca
• Memudahkan dalam melakukan tracking kesalahan atau bug
• Kalo da perbaikan bisa mudah
• Kalo kerja team bisa mudahin programmer lain buat ngerti codding yg kita buat

Hal-hal yang harus diperhatikan dalam menulis kode program antara lain :

• Ikutilah standard dan style terbaru penulisan dari bahasa pemrograman tersebut bila ada, biasanya setiap bahasa pemrograman akan memiliki ciri khas sendiri
• Sebisa mungkin konsisten, misalnya dalam menulis nama variabel, nama objek, ukuran objek, perataan kode, penggunaan jenis huruf, case sensitive dll. Dalam hal ini kita bisa membuat semacam role of play atau aturan main dalam penulisan kode atau bisa juga dengan menggunakan standard penulisan kode yang sudah ada seperti Kioss Style yang diluncurkan kioss.com. Biasanya setiap software house memiliki aturan sendiri tentang standard ini
• Jangan abaikan komentar, karena sangat perlu untuk pengembangan atau perawatan program kedepannya, namun meskipun demikian tulislah komentar secara efisien, singkat tapi jelas. Karena panjangnya komentar justru akan mengurangi efektifitas dari baris program dan akan menambah besar memori
• Pilihlah desain pattern atau algoritma program yang tepat dalam menyelesaikan suatu prosedur dalam program, hal ini jelas akan menambah efisiensi program.
• Buatlah modul/procedure/fungsi dalam kode program agar kode program lebih enak dibaca dan alurnya terlihat jelas
• Buatlah kode Anda tampil seksi dan cantik, dengan cara mengkombinasikan ke lima hal diatas

moga bermanfaat.key...

cara buat DBGrid biar bisa di scroll..!!!

Buat temen2 yang pernah buat program ato lagi buat program pakek delphi, terkadang di komponen DBGridnya ntu kalo recordnya banyak kan gak bisa di scrol pakek mouse, bisanya kita pakek tombol page down untuk turun ato page up buat naek, kadang oang yang kita buatin program ntu kan males pakek tombol, maunya pakek mouse...!!

gimana caranya biar bias di scroll....????

ni perintah di tulis ja ato di copy paste kalo males ngetik sih...
pas di bagian public tulis perintah ne:
procedure AppMessage(var Msg: TMsg; var Handled: Boolean);

trus tulis yang ne dibawah Implementasi

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
var
a: byte;
begin
if Msg.message = WM_MOUSEWHEEL then
begin
Msg.message := WM_KEYDOWN;
Msg.lParam := 0;
a := HiWord(Msg.wParam);
if a > 0 then
Msg.wParam := VK_UP else
Msg.wParam := VK_DOWN;
Handled := False;
end;
end;

trus di projectnya tambahin perintah ne (sebelum --> Application.Run;)
Application.OnMessage :=Form1.AppMessage;



selamat mencoba.... thank

ni lagu khusus buat temen2 mua...!!!

buat temen2 IT, khususnya yang demen yg namanya dunia maya, so ni lagu cocok buat kamu pada....!!! :))

gimana...? bener gak...?
kalo mau videonya klik disini

online lagi..online lagi....!!!
online lagi..online lagi....!!!
online lagi..online lagi....!!!
online lagi..online lagi....!!!