/usr/bin/blog

Belanja Kaos di kaoskeren.us

noreply@blogger.com (Unknown) — Sun, 22 Dec 2013 05:25:00 +0700

Banyak orang yang beranggapan belanja kaos secara online merugikan, mulai dari alasan seperti membeli kucing dalam karung hingga ongkos kirim yang memberatkan. Belanja hemat sangat dapat dilakukan dengan berbelanja secara online asalkan kita mengetahui tips tepat dalam berbelanja online.
Berikut alasan mengapa Belanja kaos online lebih menguntungkan.

Ongkos kirim pada pengiriman barang kita anggap saja sebagai ongkos yang kita butuhkan kalau kita berbelanja secara langsung. Malah belanja online memudahkan kita, bahkan ada juga toko online yang memberikan free ongkos kirim.
Banyak toko online yang sering memberikan promo. Bukan hanya promo pada even-even tertentu saja tapi juga pada hari-hari biasa sehingga belanja hemat semakin dapat kita terapkan untuk mendapatkan barang yang diinginkan. Untuk promo-promo semacam ini kita harus rajin memperhatikan fans page facebook, follow twitter, subscribe website toko online yang diincar.
Dengan belanja online kita menghemat waktu, disela-sela kesibukan kita masih dapat memilih barang yang ingin dibeli tanpa harus berada di toko secara tradisional.
Beberapa toko online memberikan free voucher untuk anggota baru mereka sehingga belanja hemat yang diinginkan sangat dapat dicapai.
Di media online, Anda tidak perlu berbelanja sambil berdesak-desakkan. Anda cukup duduk manis di depan gadget atau komputer Anda sambil menyusuri halaman web.
Lebih banyak pilihan jenis barang. Keuntungan ini adalah hal yang paling menonjol dari online shopping. Anda tidak perlu cape berjalan menyusuri toko atau distro untuk melihat kaos-kaos yang tersedia, cukup duduk manis di depan komputer atau gadget anda. Anda dapat memilih jenis barang sekalipun barang tersebut belum pernah Anda lihat sebelumnya. Karena ini, biasanya Anda bisa menjadi trendsetter di daerah Anda.

Jangan ragu lagi untuk belanja online!

Preview hade-framework development

noreply@blogger.com (Unknown) — Fri, 16 Sep 2011 21:44:00 +0700

target pembaca : Advance

Masih tetap berambisi bikin opf/orm framework sendiri cari referensi sana sini,bahkan sampai 2 kali redesign , sekarang saya sudah cukup yakin dengan designnya.
Sekarang hade-framework sudah mampu menjalankan tugas dasarnya :D mari saya contohkan penggunaannya.

- Pertama yang anda lakukan adalah membuat Bussines Objectnya yang merupakan turunan dari THadeObject



uses

     hadeobject;

Type

    TTest = class(THadeObject)

    private

       FAge: integer;

       FLName: string;

       FName: string;

    public 

       function Full_Name : String;

    published  

       property First_Name: string read FName write FName;

       property Last_Name: string read FLName write FLName;

       property Age: integer read FAge write FAge;

    end;

Property yang ingin di mapping harus berada pada published section, property yang berada pada published section juga tidak harus di mapping ke schema database.
semisal anda hanya ingin First_Name dan Last_Name saja yang di mapping anda tidak perlu meremove property Age.

- Langkah berikutnya adalah melakukan Register Mapping ( uses unit hademapping ).


    GHadeMappingManager.RegisterMapping(TTest, 'person', 'OID', 'oid',
      ftInteger, 0, [ptkPK, ptkReadOnly]);

    GHadeMappingManager.RegisterMapping(TTest, 'person', 'Name',
      'first_name', ftVarchar, 25);

    GHadeMappingManager.RegisterMapping(TTest, 'person', 'Age', 'age', ftInteger);

    GHadeMappingManager.RegisterMapping(TTest, 'person', 'Last_Name',
      'last_name', ftVarchar, 25);

GHadeMappingManager adalah singleton function lebih detil bisa dilihat hademappingmanager.pas
interface dari RegisterMapping adalah


procedure RegisterMapping(const AObjClass: THadeObjectClass;
      const ATable, APropName, AColName: string; const AFieldType: THadeFieldType;
      const ALength: integer = 0; const ASetPtkInfo: TSetPtkInfo = []);

- Selanjutnya Register Connection ( uses unit hadeopfmanager,hadebroker )


    GHadeOPFManager.RegisterConnection('test', 'test.s3db',
      '', '', '', SQLDB_SQLITE);
    GHadeOPFManager.OIDStrategy := oidAutoInc;

code diatas berarti "Registrasikan koneksi dengan nama 'test' , 'nama DB','Host','username','password' dengan menggunakan broker SQLLite"

anda bisa mempunyai lebih dari satu koneksi dalam satu applikasi :D .
OIDStrategy := oidAutoInc berarti anda menggunakan PK(Primary Key) dengan strategy AutoIncrement fitur yang tersedia dihampir semua R/DBMS, anda juga bisa menggunakan oidGUID sebagai OIDStrategy, oidGUID menggunakan GUID(Global Unique Identifier) sebagai primary key nya yang disimpan sebagai string.

- Create/Read/Update/Delete Bussines Object
Untuk Melakukan CRUD pada Bussines Object anda harus menggunakan session, mungkin bagi sebagian orang penggunaan session cuma bikin ribet,tetapi sebenarnya penggunaan session sangat powerfull untuk melakukan transaksi,management koneksi dll.


uses
 hadeobject,
 hadeopfmanager,
 hademapping,
 hadession;
//..some code omitted for brevity
var
 MySession : THadeSession;
 obj : TTest;//class TTest yang tadi
begin
 MySession := GHadeSessionFactory('test');//session dengan koneksi 'test'
 obj := TTest.Create(71);//mengeset OID/pk dengan nilai 71
 Try
   MySession.read(obj);//sekarang obj = record di table person dengan OID = 71
   
   //kita update
   obj.First_Name := 'Test Doank';
   obj.MarkDirty;//tandai object ini adalah dirty( kotor dalam artian tidak sama dengan database )  
   MySession.save(obj);//sekarang record dengan OID 71 sudah terupdate.
end.

untuk melakukan Create(Insert) sangat mudah dan sama seperti operasi update/delete


  //tanpa OID karena oidAutoInc , jika oidGUID tambahkan(uses) unit hadeoid
  //tmp := GHadeOID.getOID.getGUID; dan pass variable tmp ke TTest Constructor
  obj := TTest.create();
  obj.First_Name := 'Test';
  obj.Last_Name := 'Lagi'
  obj.Age := 76;
  MySession.save(obj);//tersimpan

  //untuk Delete cukup tandai object dengan MarkDelete
  obj.MarkDelete();
  MySession.save(obj);// record terhapus

- Transaction
Katakanlah anda mempunyai 2/lebih object yang harus di save(insert/update/delete) yang mana jika salah satu objectnya gagal maka keseluruhan object tersebut harus di rollback.


begin
 MySession.StartTransaction;
 Try
   //save/read operation
 except
   MySession.Rollback;
   //raise again?
 end;
 MySession.Commit;
end.

Session tidak perlu di free secara manual karena THadeSession adalah interface.
anda juga bisa menaruh Session di constructor suatu class dan session akan hidup sepanjang object dari class tersebut hidup.

well tentunya framework ini masih jauh untuk di release saya masih berhati-hati takutnya gagal lagi :D. nanti tak kabarin lagi kalo ada major improvement.

kalo mau ngulik sourcenya bisa di clone di https://github.com/kodok-buncit/hade-framework

Thanks happy coding.

Good Object pascal book for beginner

noreply@blogger.com (Unknown) — Sun, 24 Apr 2011 05:43:00 +0700

Buku berjudul "Start programming using Object Pascal"
sebuah buku bagus dari motaz abdel azeem developer dari sudan,dan juga author dari freespider.
buku ini akan mengajarkan fundamental programming yang kuat untuk pemula,chapter pertama anda tidak akan melihat form designer men drag button lalu menulis code untuk event OnClick button itu :D. tapi anda harus berdarah2 terlebih dahulu memahami basic dari object pascal.
http://code.sd/startprog/index.html

Sepucuk Surat dari Pejuang Hamas (GAZA) Untuk Negeri INDONESIA

noreply@blogger.com (Unknown) — Mon, 18 Apr 2011 07:39:00 +0700

Untuk saudaraku di Indonesia, mengapa saya harus memilih dan mengirim surat ini untuk kalian di Indonesia. Namun jika kalian tetap bertanya kepadaku, kenapa? Mungkin satu-satunya jawaban yang saya miliki adalah karena negri kalian berpenduduk muslim terbanyak di punggung bumi ini, bukan demikian saudaraku?

Di saat saya menunaikan ibadah haji beberapa tahun silam, ketika pulang dari melempar jumrah, saya sempat berkenalan dengan salah seorang aktivis dakwah dari jama’ah haji asal Indonesia, dia mengatakan kepadaku, setiap tahun musim haji ada sekitar 205 ribu jama’ah haji berasal dari Indonesia datang ke Baitullah ini. Wah, sungguh jumlah angka yang sangat fantastis dan membuat saya berdecak kagum.

Lalu saya mengatakan kepadanya, saudaraku, jika jumlah jama’ah haji asal Gaza sejak tahun 1987 sampai sekarang digabung, itu belum bisa menyamai jumlah jama’ah haji dari negara kalian dalam satu musim haji saja. Padahal jarak tempat kami ke Baitullah lebih dekat dibanding kalian. Wah pasti uang kalian sangat banyak, apalagi menurut sahabatku itu ada 5% dari rombongan tersebut yang memnunaikan ibadah haji yang kedua kalinya, Subhanallah.

Wahai saudaraku di Indonesia,

Pernah saya berkhayal dalam hati, kenapa saya dan kami yang ada di Gaza ini, tidak dilahirkan di negri kalian saja. Pasti sangat indah dan mengagumkan. Negri kalian aman, kaya, dan subur, setidaknya itu yang saya ketahui tentang negri kalian.

Pasti ibu-ibu disana amat mudah menyusui bayi-bayinya, susu formula bayi pasti dengan mudah kalian dapoatkan di toko-toko dan para wanita hamil kalian mungkin dengan mudah bersalin di rumah sakit yang mereka inginkan.

Ini yang membuatku iri kepadamu saudaraku, tidak seperti di negri kami ini. Tidak jarang tentara Israel menahan mobil ambulance yang akan mengantarkan istri kami melahirkan di rumah sakit yang lebih lengkap alatnya di daerah Rafah. Sehingga istri kami terpaksa melahirkan di atas mobil, ya di atas mobil saudaraku.!

Susu formula bayi adalah barang langka di Gaza sejak kami diblokade 2 tahun yang lalu, namun istri kami tetap menyusui bayi-bayinya dan menyapihnya hingga 2 tahun lamanya, walau terkadang untuk memperlancar Asi mereka, istri kami rela minum air rendaman gandum.

Namun, mengapa di negri kalian, katanya tidak sedikit kasus pembuangan bayi yang tidak jelas siapa ayah dan ibunya. Terkadang ditemukan mati di parit-parit, selokan, dan tempat sampah. Itu yang kami dapat dai informasi di televisi.

Dan yang membuat saya terkejut dan merinding, ternyata negri kalian adalah negri yang tertinggi kasus aborsinya untuk wilayah Asia. Astaghfirullah. Ada apa dengan kalian? Apakah karena di negri kalian tidak ada konflik bersenjata seperti kami disini, sehingga orang bisa melakukan hal hina seperti itu? Sepertinya kalian belum menghargai arti sebuah nyawa bagi kami disini.

Memeang hampir setiap hari di Gaza sejak penyerangan Israel, kami menyaksikan bayi-bayi kami mati. Namun, bukanlah di selokan-selokan atau got-got apalagi di tempat sampah. Mereka mati syahid saudaraku! Mati syahid karena serangan roket tentara Israel!

Kami temukan mereka tak bernyawa lagi di pangkuan ibunya, di bawah puing-puing bangunan rumah kami yang hancur oleh serangan Zionis Israel. Saudaraku, bagi kami nilai seorang bayi adalah aset perjuangan kami terhadap penjajah Yahudi. Mereka adalah mata rantai yang akan menyambung perjuangan kami memerdekakan negri ini.

Perlu kalian ketahui, sejak serangan Israel tanggal 27 Desember 2009 kemarin, saudara-saudara kami yang syahid sampai 1400 orang, 600 di antaranya adalah anak-anak kami, namun sejak penyerangan itu pula sampai hari ini, kami menyambut lahirnya 3000 bayi baru di jalur Gaza, dan Subhanallah kebanyakan mereka adalah anak laki-laki dan banyak yang kembar, Allahu Akbar!

Wahai saudaraku di Indonesia,

Negri kalian subur dan makmur, tanaman apa saja yang kalian tanam akan tumbuh dan berbuah, namun kenapa di negri kalian masih ada bayi yang kekurangan gizi, menderita busung lapar. Apa karena sulit mencari rizki disana? Apa negri kalian diblokade juga?

Perlu kalian ketahui saudaraku, tidak ada satupun bayi di Gaza yang menderita kekurangan gizi, apalagi sampai mati kelaparan, walau sudah lama kami diblokade. Sungguh kalian terlalu manja! Saya adalah pegawai tata usaha di kantor pemerintahan HAMAS sudah 7 bulan ini belum menerima gaji bulanan saya. Tetapi Allah SWT yang akan mencukupkan rizki untuk kami.

Perlu kalian ketahui pula, bulan ini saja ada sekitar 300 pasang pemuda baru saja melangsungkan pernikahan. Ya, mereka menikah di sela-sela serangan agresi Israel. Mereka mengucapkan akad nikah diantara bunyi letupan bom dan peluru, saudaraku.

Dan Perdana Menteri kami, Ust Isma’il Haniya memberikan santunan awal pernikahan bagi semua keluarga baru tersebut.

Wahai saudaraku di Indonesia,

Terkadang saya pun iri, seandainya saya bisa merasakan pengajian atau halaqah pembinaan di negri antum (anda). Seperti yang diceritakan teman saya, program pengajian kalian pasti bagus, banyak kitab mungkin yang kalian yang telah baca. Dan banyak buku-buku pasti sudah kalian baca. Kalian pun bersemangat kan? Itu karena kalian punya waktu.

Kami tidak memiliki waktu yang banyak disini. Satu jam, ya satu jam itu adalah waktu yang dipatok untuk kami disini untuk halaqah. Setelah itu kami harus terjun ke lapangan jihad, sesuai dengan tugas yang diberikan kepada kami.

Kami disini sangan menanti-nantikan saat halaqah tersebut walau hanya satu jam. Tentu kalian lebih bersyukur. Kalian punya waktu untuk menegakkan rukun-rukun halaqah, seperti ta’aruf, tafahum, dan takaful disana.

Halafalan antum pasti lebih banyak daripada kami. Semua pegawai dan pejuang HAMAS disini wajib menghapal Surah Al-Anfal sebagai nyanyian perang kami, saya menghafal di sela-sela waktu istirahat perang, bagaimana dengan kalian?

Akhir Desember kemarin, saya menghadiri acar wisuda penamatan hafalan 30 Juz anakku yang pertama. Ia merupakan diantara 1000 anak yang tahun ini menghafal Al-Qur’an dan umurnya baru 10 tahun. Saya yakin anak-anak kalian jauh lebih cepat menghapal Al-Qur’an ketimbang anak-anak kimi disini. Di Gaza tidak ada SDIT (Sekolah Dasar Islam Terpadu) seperti di tempat kalian yang menyebar seperti jamur di musim hujan. Disini anak-anak belajar diantara puing-puing reruntuhan gedung yang hancur, yang tanahnya sudah diratakan, diatasnya diberi beberapa helai daun kurma. Ya, di tempat itu mereka belajar, saudaraku. Bunyi suara setoran hafalan Al-Qur’an mereka bergemuruh dianatara bunyi-bunyi senapan tentara Israel. Ayat-ayat jihad paling cepat mereka hafal, karena memang didepan mereka tafsirnya. Langsung mereka rasakan.

Oh iya, kami harus berterima kasih kepada kalian semua, melihat solidaritas yang kalian perlihatkan kepada masyarakat dunia. Kami menyaksikan aksi demo-demo kalian disini. Subhanallah, kami sangat terhibur. Karena kalian juga merasakan apa yang kami rasakan disini.

Memang banyak masyarakat dunia yang menangisi kami disini, termasuk kalian yang di Indonesia. Namun, bukan tangisan kalian yang kami butuhkan , saudaraku. Biarlah butiran air matamu adalah catatan bukti akhirat yang dicatat Allah sebagai bukti ukhwah kalian kepada kami. Doa-doa dan dana kalian telah kami rasakan manfaatnya.

Oh iya, hari semakin larut, sebentar lagi adalah giliran saya menjaga kantor, tugasku untuk menunggu jika ada telpon dan fax yang masuk. Insya Allah, nanti saya ingin sambung dengan surat yang lain lagi. Salam untuk semua pejuang-pejuang Islam dan ulama-ulama kalian.
Abdullah Al Ghaza

disadur dari : http://adaapasekarang.blogspot.com/2011/04/sepucuk-surat-dari-pejuang-hamas-gaza.html

Configure freepascal Fast CGI application with nginx

noreply@blogger.com (Unknown) — Sat, 16 Apr 2011 05:35:00 +0700

Berawal dari gak mau pake CGI dan Apache yg boros memory...saya cari2 web server yang ringan dan low memory dan akhirnya pilihan jatuh pada nginx web server.
configure fast cgi di nginx tidak terlalu sulit bahkan lebih mudah dari pada fast cgi di apache, oke lets do it.

Sebagai demo Kita akan memakai contoh CGI application dari lazarus yaitu \components\fpweb\demo\echo . demo ini adalah CGI application tapi dengan mudah kita akan ubah menjadi fast cgi application.
buka echo.lpr dan rubah menjadi sebagai berikut :

program echo;

{$mode objfpc}{$H+}

uses
fpWeb,fpfCGI, wmecho; // <== ubah fpcgi menjadi fpfcgi.

begin
Application.Initialize;
Application.Port:=9090; //<== tambahkan Port , Fast CGI app kita akan listening di port ini.
Application.CreateForm(TEchoModule, EchoModule);
Application.Run;
end.

cool bukan?
sekarang kita buka file configuration dari nginx /conf/nginx.conf
di root http kita tambahkan directive "upstream fastcgi"

    upstream fastcgi {
      ip_hash;
      server 127.0.0.1:9090; //<== address dan port dari fast cgi application
     // kita bisa tambahkan server lain untuk load balancing eg : server
   }

lalu di dalam directive "server" :

location /pas { // <== berarti http://example.com/pas
fastcgi_pass fastcgi; //<== lihat upstream
fastcgi_param SCRIPT_FILENAME /scripts$fastcgi_script_name;
include fastcgi_params;
}

simpan.
fast cgi app kita harus dijalankan terlebih dahulu sebelum ada request ke nginx.
simple double klik fast cgi app td.
lalu reload nginx (nginx -s reload) .pada browser ketik "http://localhost/pas".

viola!!

Referensi :
- Nginx HTTP Server Clément Nedelcu packt Publishing 2010 ISBN 978-1-849510-86-8

hd-framework

noreply@blogger.com (Unknown) — Tue, 8 Mar 2011 05:03:00 +0700

Ceritanya lagi mau bikin OPF(Object Persistent Framework) Framework buat Freepascal/Lazarus.
berikut rencana fitur2nya :
- Multiple Connection (sudah)
- Implement Cache (belum)
- Mapping bisa via Config file atau embed di code.via config file sangat fleksible karena Mapping Attribute ke Column bisa dirubah tanpa Compile ulang (belum)
- banyak lg sih ide2 lainnya.

Tertarik mau bantuin? cekidot http://code.google.com/p/hd-framework/

Marhaban ya Ramadhan :)

noreply@blogger.com (Unknown) — Tue, 10 Aug 2010 17:32:00 +0700

Marhaban ya Ramadhan Delphier,selamat menunaikan ibadah puasa bagi yang menjalankan :)
Mohon maaf lahir batin..
maaf juga lama gak update blog :D

Firebird embeded server

noreply@blogger.com (Unknown) — Sat, 13 Feb 2010 05:28:00 +0700

Firebird embeded server adalah database firebird yang dapat di akses tanpa running service firebird server. firebird embed server ini sangat cocok jika kita mengembangkan aplikasi dengan database firebird yang digunakan untuk satu komputer saja, jadi user tidak perlu menginstall firebird server di komputernya. tapi tidak bisa digunakan untuk arsitektur client-server.

kita hanya perlu mendistribusikan sedikitnya 4 buah File yaitu:

fbembed.dll akan di rename menjadi fbclient.dll.
icuin30.dll.
icudt30.dll.
icuuc30.dll

File-file yang di distribusikan dapat berbeda tergantung versi firebird yang di pakai, contoh pada firebird 1.5 file-file yang diperlukan adalah fbembed.dll dan ib_util.dll . feedreader,Tips Explorer adalah beberapa software yang menggunakan firebird embed server ini.

Untuk mendapatkan fbembed.dll anda bisa mendownloadnya dari sf nya firebird.atau jika anda menggunakan firebird 2.0 anda tidak perlu repot mencarinya karena saya sudah upload fbembed.dll(udah di rename jadi fbclient.dll)+ 3 file yang lainnya.

fbembed.zp(1.20 mb)

Referensi

http://www.firebirdsql.org/manual/fbmetasecur-embedded.html
http://www.firebirdsql.org/manual/ufb-cs-embedded.html

Sejarah nama Facebook dan bahasa Sunda

noreply@blogger.com (Unknown) — Sat, 24 Oct 2009 06:14:00 +0700

"Just Sharing Knowledge on the web"
Siapa sih yang tidak tahu Mark Zuckerberg. Yaa! dia adalah penemu sekaligus pembuat Facebook.com salah satu jejaring sosial yang dimiati banyak orang. Saat ini pun ia di nobatkan sebagai pemuda terkaya di dunia. Tapi tahukah anda kenapa si Mark ini menamakan site jejaring sosialnya dengan nama facebook.

Kita memang sering menggunakan facebook. Tapi gak pernah tahu facebook itu berasal dari mana. Kalau mau tahu, begini nih ceritanya.

Pada suatu hari Mark jalan-jalan ke Bandung. Dia berniat ke ITB tuk studi banding. Tapi sayangnya, ini perjalanannya yang pertama kali ke sana. Otomatis si mark ini bakalan kesasar.

Maklum waktu itu si mark belom sekaya saat ini. Namanya juga masih mahasiswa. Terus, di tengah kebingungannya menuju ITB, akhirnya ia mencoba bertanya-tanya dengan salah seorang tukang es cendol.

Karena stylenya tampang mahasiswa dan terpelajar, si mark pun berlagak kebingungan. Dia basa-basi beli es cendol tuh abang. "Bang, es cendolnya satu dong".

Nah, sembari menikmati es cendol, si mark pun iseng nanya si abang cendol,"bang tahu gak bang, kalo es cendol abang nih seger dan enak banget."

si abang pun tersenyum dan langsung bales,"ah, si ujang bisa ajah mujinya". Trus si mark bales lagi,"tahu gak bang, kalo abang jualan es cendolnya di ITB bakalan laku keras tuh bang."

Si abang bingung, karena perkataan si Mark tersebut. Mark pun kaget, khawatir salah bicara. Lalu Mark pun minta maaf seraya berkata, " bang, kenapa ada yang salah yah?".

Abang pun menjawab,"ah, si ujang gimana sih, saya kan sejak dolo sampe sekarang emang jualannya di depan pintu gerbang ITB."

Dengan wajah malu si mark ngomong,"ah, yang bener bang. Buktinya apa?".

Si abang negesin,"Ah, si ujang bagimana seh, emangnya gak liat itu ada patung Ganesha (lambang ITB). MUKA BUKU (buka buku--bahasa sunda--) atuh, jaang. Tong malongo wae (jangan bengong ajeh)". si mark (GUBRRAKK!!).

setelah jatuh, mulai saat itu. kata yang terngiang di kepalanya cuman "MUKA BUKU". Sampai pada akhirnya si mark kembali ke negeri asalnya. Setelah selesai membuat site jejaringnya ia pun ingin menamakannya.

Dan tetap, pada waktu itu kata yang terngiang masih "MUKA BUKU", yang filosofinya, kalo ingin tahu sesuatu apapun yah harus buka buku, karena buku itu sumber ilmu dan perlu dibaca dan diketahui isinya.

Namun sayangnya kata "MUKA BUKU" terlalu sundanese banget. Pikir si mark,"ah, gue kan orang bule. Jadi gak ada salahnya kata "MUKA BUKU" gue translit jadi "FACEBOOK".
(sumber http://ketawa.com)

Tipe Manusia dari Statusnya di Pesbuk

noreply@blogger.com (Unknown) — Thu, 22 Oct 2009 06:50:00 +0700

"Just Sharing Knowledge on the web"
1. Manusia Super Update
Kapanpun dan di manapun selalu update status. Statusnya tidak terlalu panjang tapi terlihat bikin risih, karena hal-hal yang tidak terlalu penting juga dipublikasikan.
Contoh : "Lagi makan di restoran A..", "Dalam perjalanan menujuneraka..", "Saatnya baca koran..", dan sebagainya.

2. Manusia Melankolis
Biasanya selalu curhat di status. Entah karena ingin banyak diberi komentar dari teman-temannya atau hanya sekedar menuangkan unek-uneknya ke facebook. Biasanya orang tipe ini menceritakan kisahnya dan terkadang menanyakan solusi yang terbaik kepada yang lain.
Contoh : "Kamu sakitin aku..lebih baik aku cari yang lain..", "Cuma kamu yang terbaik buat aku..terima kasih kamu sudah sayang ama aku selama ini..".

3. Manusia Tukang Ngeluh
Pagi, siang, malem, semuanya selalu ada aja yang dikeluhkan.
Contoh : " Jakarta maceeet..!! Panas pula..", "Aaaargh ujan, padahal baru nyuci mobil..sialan. .!!", "Males ngapa2in.. cape hati gara2 si do' i..", dsb.

4. Manusia Sombong
Mungkin beberapa dari mereka ga berniat menyombongkan diri, tapi terkadang orang yang melihatnya, yang notabene tidak bisa seberuntung dia, merasa kalo statusnya itu kelewat sombong, dan malah bikin sebel.
Contoh : "Otw ke Paris ..!!", "BMW ku sayang, saatnya kamu mandi..aku mandiin ya sayang..", "Duh, murah-murah banget belanja di Singapur, bow,"

5. Manusia Puitis
Dari judulnya udah jelas. Status nya selalu diisi dengan kata-kata mutiara, tapi ga jelas apa maksudnya. Bikin kita terharu? Bikin kita sadar atas pesan tersembunyinya? atau cuma sekedar memancing komentar? Sampai saat ini, tipe orang seperti ini masih dipertanyakan.
Contoh : "Kita masing-masing adalah malaikat bersayap satu. Dan hanya bisa terbang bila saling berpelukan", "Mencintai dan dicintai adalah seperti merasakan sinar matahari dari kedua sisi", "Jika kau hidup sampai seratus tahun, aku ingin hidup seratus tahun kurang sehari, agar aku tidak pernah hidup tanpamu".

6. Manusia in English
Tipe manusianya bisa seperti apa saja, apakah melankolis, puitis, sombong dan sebagainya. Tapi dia berusaha lebih keren dengan mengatakannya dalam bahasa Inggwis gicyu Low..
Contoh : "Tie and Chair..", "I can tooth, you Pink sun.." dsb..

7. Manusia Lebay
Updatenya selalu bertema 'gaul' dengan menggunakan bahasa dewa.. ejaan yang dilebaykan..
Contoh.." met moulnin all.. pagiiieh yg cewrah... xixiixi" << lol~

8. Manusia Terobsesi
Mengharap tapi ga kesampaian.. pengen jd artis ga dapat-dapat.
Contoh : "duwh... sesi pemotretan lagi! cape..."

9. Manusia Sok Tau
Sotoy tenarnya. Padahal dia sendiri tidak tahu apa yang ditulisnya.
Contoh : "Pemerintah selalu memanjakan rakyatnya.. bla..bla...bla,"

10. Bioskop Mania
Update film yang abis ditonton dan kasih comment..
Contoh : "ICE AGE 3..Recomended! !", "Transformers 2 mantab euy.."

11. Manusia pedagang
Contoh: "jual sepatu bla bla bla"

12. Manusia penyuluh masyarakat
Contoh: "jangan lupa dateng ke TPS, 5 menit utk 5 tahun bla..bla"

13. Manusia Alay
Ada berbagai macam versi, dari tulisannya yang aneh, atau tulisannya biasa aja, hanya saja kosakata nya ga lazim seperti bahasa alien.
Contoh:Alay 1 : "DucH Gw4 5aYan9 b6t s4ma Lo..7aNgaN tin69aL!n akYu ya B3!bh..!!"
Alay 2 : "km mugh kog gag pernach ngabwarin aq lagee seech? kmuw maseeh saiangs sama aq gag seech sebenernywa? "
Alay 3 : "Ouh mY 9oD..!! kYknY4w c gW k3ReNz 48ee5h d3ch..!!"(Khusus buat tipe ini, ga usah di baca juga gpp..saya pribadi juga mikirdulu buat nulis ini, walaupun jadinya kurang mirip sama yg aslinya..)

14. Tipe Hidden Message
Tipe ini biasanya tidak to the point, tapi tentunya punya niat biar orang yg dituju membaca nya. (bagus kalo baca..kalo ngga? kelamaan nunggu) padahal kan bisa langsung aja sms ya..
Contoh : "For you my M***, I can' t live without you..you are my bla bla bla..","Heh, cewe bajingan..ngapain lo deket2in co gw?! kyk ga laku aja lo.." (padahal ce tersebut tidak ada dalam jaringannya. . mana bisa baca...:p)

15. Tipe Misterius
Tipe yang biasanya bikin banyak orang bertanya tanya atas apa maksud dari status orang tersebut..Biasanya dalam suatu kalimat membutuhkanSubjek + Predikat + Objek + Keterangan. Tapi orang tipe ini mungkinhanya mengambil beberapa atau malah hanya 1 saja..Dan pastinyamengundang kontroversi.
Contoh : "Sudahlah.." , "Telah berakhir.." (apanya??),"Termenung.. ." (so what gitu, loh)

Kalian ngikut yang mana???
(sumber http://ketawa.com)

Mengapa harus Belajar Pemrograman

noreply@blogger.com (Unknown) — Thu, 17 Sep 2009 00:47:00 +0700

malam ini sambil nungguin saur browsing-browsing eh nemu artikel menarik dari http://blog.rosihanari.net/
dan rasa-rasanya menarik jika pengunjung blog ini baca...sebelumnya juga saya udah minta ijin ke pemilik blog nya,pak Dosen rosihan ari wah luarr biasa artikel2 nya...
selamat membaca...
---------------------------------------------------------------------------------------------------------
Ketika saya bertanya kepada Anda, Buat apa sih belajar pemrograman? Lantas apa jawaban Anda? Apakah sekedar hanya untuk bersenang-senang (just 4 fun), ingin meniti karir, atau hanya sekedar ingin lulus dari matakuliah pemograman? Ada banyak jawaban yang bervariasi dari pertanyaan ini. Namun secara umum, alasan atau jawaban yang muncul dapat dikategorikan ke dalam 4 hal. Ini dia kategorinya…

Pemrograman sebagai sebuah karir
Alasan utama yang dipilih orang dalam belajar pemrograman adalah ingin menjadikannya sebagai karir. Ini yang sering saya tanyakan pada mahasiswa saya. Sesuatu alasan yang sangat masuk akal.Memang dalam kenyataannya, orang yang berprofesi sebagai seorang programmer bisa berpotensi untuk menghasilkan income yang tidak sedikit. Banyak perusahaan-perusahaan yang menawarkan gaji yang cukup menggiurkan bagi para programmer yang mau bekerja, plus masih ditambah bonus-bonus lain jika kinerjanya OK. Meskipun gajinya cukup lumayan, seringkali masalah ‘bosan’ menghinggapi para programmer ini. Ya… maklumlah karena setiap hari kerjanya hanya mengurus koding melulu, atau sering dikejar-kejar sama deadline.
Eh… btw… ada pula lho profesi programmer yang gajinya kecil atau bahkan tidak digaji karena alasan ‘pengabdian’. Tanya kenapa??
Untuk bisa meniti karir sebagai sebuah programmer, kita harus bisa bekerja secara tim. Lho kenapa begitu? Bukankah program bisa kita buat sendiri secara perorangan? He…3x itu kan kalau program yang berasal dari tugas dosen ketika kuliah. Ketika kita berhadapan di real world, suatu masalah komputasi bisa jadi bersifat kompleks, sehingga suatu project pembuatan program harus dibagi ke dalam tim. Setiap tim bertanggung jawab pada modul-modul programnya sendiri-sendiri.
Nah… pertanyaan berikutnya, apakah karir seorang programmer harus berada di suatu perusahaan? Jawabannya tidak harus. Anda bisa mendirikan suatu software house sendiri. Bahkan ada slogan yang mengatakan, “Kalau Anda mau kaya, jangan mau jadi orang kantoran” Maksudnya adalah jadilah seorang pengusaha, dalam hal adalah pengusaha software.
Oya satu lagi, bila Anda berprofesi sebagai programmer harap maklum karena posisi Anda berada di paling bawah dalam jajaran pembuat software. Dalam hal ini, seorang programmer tidak boleh berkreasi sendiri terhadap software yang dibuatnya. Kreasi ini hanya boleh dilakukan oleh software engineer (demikian kata bang Romi). Atau dengan kata lain, untuk menjadi seorang programmer, harus mau jadi orang suruhan, suruhannya siapa? ya.. suruhannya software engineer.
Pemrograman sebagai alat pemecahan masalah
Nah… alasan yang kedua ini biasanya muncul dari para dosen, peneliti atau mahasiswa. Dalam hal ini, mereka butuh pemrograman sebagai alat untuk memecahkan permasalahan komputasi yang mereka hadapi. Sebagai contoh misalnya seorang mahasiswa diminta dosennya untuk mencari nilai 100 faktorial. Nah… ujung-ujungnya mereka akan menggunakan program karena kalkulator tidak bisa mencari jawabannya. Bagi dosen misalnya, mencari penyelesaian yang terkait dengan komputasi numerik, riset, dan sebagainya.
Pemrograman sebagai ladang amal
Aneh juga alasan yang satu ini kok bisa ya? hubungannya apa antara pemrograman dan amal? Pernahkah Anda mendengar istilah OpenSource? Istilah ini yang akan mengkaitkan antara pemrograman dengan ladang amal. Orang yang merelakan waktunya dengan membuat program yang bersifat opensource dapat dikatakan juga sedang beramal. Dengan opensource, orang lain sedunia bisa melihat isi source code program yang dibuat. Dengan demikian, hal ini memungkinkan orang lain dapat belajar bersama dalam mengembangkan software. Selain itu software opensource biasanya juga bersifat freeware. Orang lain dapat secara bebas menggunakan software tersebut tanpa dipusingkan dengan masalah harga beli.
Pemrograman… just for fun
Orang yang memilih pemrograman hanya sekedar bersenang-senang bukanlah suatu yang aneh. Hal ini sama saja seperti mendaki gunung, bermain game atau yang lain. Orang-orang yang beralasan seperti ini, pastilah mereka yang suka dengan tantangan. Bila Anda termasuk orang-orang bertipe seperti itu, selamat… Anda memiliki potensi yang luar biasa. Mengapa demikian? Orang yang menggeluti bidang tertentu atas dasar hobi atau kesenangan, biasanya akan sukses di kemudian hari. Semakin hari, semakin bertambah ilmu dan kemampuannya dengan secara tidak sadar. Beda halnya bila belajar pemrograman dalam keadaan terpaksa, ketika diminta membuat sebuah program sederhana dalam satu jam rasanya setahun

(sumber http://blog.rosihanari.net)

10 Alasan Mengapa Memilih Delphi

noreply@blogger.com (Unknown) — Fri, 4 Sep 2009 11:18:00 +0700

Pada mau tahu 10 alasan kenapa memilih Delphi sebagai Development Tool dibanding Bahasa Pemrograman Visual yang lain??tentunya Versi fajardelphiscript,hi..hi..
juga pada artikel ini saya akan Share sebuah program yang bisa membunuh semua program yang bergantung pada MSVBVM60.DLL yang terletak pada System Directory Windows..apa kegunaan MSVBVM60.DLL tersebut??Penasaran,,mau tahu?klik dan terusin bacanya ya..

berikut adalah alasan-alasan mengapa harus memilih Delphi dibanding Bahasa Pemrograman Visual yang lain Versi fajardelphiscript:

1.Delphi adalah perkembangan dari bahasa Pascal,Pascal yang sejak jaman dulu digunakan untuk mengajarkan pemrograman kepada mahasiswa jurusan komputer,Pascal juga memiliki Syntax-syntax yang tergolong mudah dibanding yang lain,jadi jika anda sudah terbiasa dengan Pascal tentu   anda akan mudah memahami Delphi.

2.IDE(Integrated Development Enironment)nya User friendly Jauuuh lebih Friendly dari   dari pada VB,he..

3.Banyak nya komponent pihak ketiga untuk mengembangkan aplikasi dengan Delphi seperti Fast Reports yang terkenal itu dsb,bahkan kita diijinkan untuk membuat komponent   baru!!tentu saja anda harus mengerti konsep    dasarnya dulu.

4.banyak menyediakan pilihan untuk mengembangkan aplikasi Database,,setidaknya   yang saya ketahui ada 5,tapi ada yang   menyebutkan sampai 10!!!saya dapat info itu   dari blog ini{link here}.

5.Tidak membutuhkan Runtime Library tambahan untuk menjalankan File executable,,tidak seperti VB yang membutuhkan File MSVBVM*.DLL,
yang mana jika File tersebut tidak ada di system directory Windows maka setiap program yang dibuat dengan VB tidak akan bisa berjalan.

itulah salah satu alasan mengapa   Delphi disebut juga VBKiller,he..he..
karena alasan File MSVBM*.DLL("*"Versi dari VB)itulah mengapa program yang dibuat dengan VB ukurannya lebih kecil dari pada yang dibuat dengan Delphi.lagi-lagi Microsoft membuat "celah" pada Produknya,dan juga jika kita tinjau dari Sistem Operasi Bukankah Windows disamping kemudahannya tetapi Windows juga mempunyai banyak kelemahan dibanding Linux??
so..Yaudahlah saya nggak ahli ngomong-ngomong begituan(namanya juga kutu kupret yang so tahu,he..he.)..
Lha ko cuma 5 katanya 10??he..5 lagi tunggu aja di artikel berikutnya(padahal ga tau lagi,hi..)
sebenarnya memang tidak baik jika kita memfanatikan sebuah bahasa pemrograman yang notaben nya adalah sebagai"Alat pengembangan" yang digunakan untuk mengimplementasikan algoritma-algoritma dan menjadikannya suatu kesatuan yang dapat memecahkan suatu permasalahan.

Seperti yang telah saya janjikan diatas tadi..nih saya akan Share sebuah Program yang bisa menghentikan proses yang bergantung pada MSVBM*.dll..Program ini dibuat dengan bahasa C oleh seseorang yang anda bisa lhat di File Read Me nya..sebenarnya program ini dibuat untuk memberantas Virus Brontok,ya tentunya Virus brontok yang terkenal ini dibuat dengan VB,tapi untuk orang-orang yang berniat jahat seperti saya dan anda mungkin,he...bisa dijadikan alat untuk menjahili orang lain/teman yang menggunakan development tool VB,dan kalo bisa memaksanya untuk beralih ke Delphi,he...(jangan ya??jangan sekali,wkwkwk).
nanti juga Insya Allah saya akan berusaha membuat program yang sejenis dengan Delphi yang Tersembunyi,berjalan otomatis ketika Windows dijalankan,membunuh program yang bergantung pada file tersebut,dan mengahapusnya..ya ditunggu aja,,disela-sela kesibukan saya akan menyempatkan ko`,he..
Silahkan di Download program VB Killer nya dan kita Kill VB!!!!,hi..

-FreeDownload VB Killer

Database With Delphi II

noreply@blogger.com (Unknown) — Mon, 10 Aug 2009 20:28:00 +0700

Delphi menyediakan berbagai kemudahan bagi programmer untuk berkomunikasi dengan database apapun dengan berbagai metode data akses yang di sediakannya.apa lagi untuk mengakses database Oracle sehingga muncul suatu istilah “if you want talk with Oracle,Go to Delphi” .berikut adalah beberapa metode data akses standar yang disediakan(Delphi 7):

1.BDE(Borland Database Engine)
BDE adalah teknologi awal yang ditawarkan Delphi kepada programmer/Developer pada versi awalnya dan merupakan satu-satunya teknologi database yang ditawarkan Delphi pada saat itu.saya gak asal nulis lho tapi berdasarkan Sumber yang dapat dipercaya…pada awalnya BDE ini adalah Paradox Engine untuk mengakses database Paradox yang Seterusnya dikembangkan agar dapat mengakses database local lain seperti dBase,FoxPro,Accsess,dan text File. {Untuk info aja ternyata Transtool dikembangkan dengan BDE dengan database Paradox}.
BDE juga dikembangkan agar dapat mengakses Remote Database server,Delphi menyediakan beberapa BDE Sopir eh Driver yang dikenal denagn nama SQL Links untuk mengakses RDBMS seperti: Oracle,DB2,Sybse,Informix,MS SQL server dan Interbase.BDE juga dapat mengakses database lain lewat ODBC Driver.
Walaupun begitu BDE juga banyak kelemahan..BDE adalah Engine yang besar dengan banyak File yang dibutuhkan Intalasi/Distribusi aplikasi dan membutuhkan banyak memori. Saya juga pernah baca di suatu Blog yang saya lupa lagi nama blognya,bahwa sejak tahun 2002 Borland tidak lagi mengUpdate SQL Links.SQL Links tidak akan disertakan lagi dalam Produk Delphi setelah tahun 2002.jadi Delphi Versi 7 adalah Update terakhir dari SQL Links.itulah alas an mengapa saya tidak menyukai BDE.

2.dbGo(ADO)
dbGo adalah Implementasi ADO (Activex Data Object) di Delphi yang merupakan Standar Microsoft untuk pengaksesan data.digunakan untuk mengakses database melalui OLEDB. dbGo juga dikenal dengan nama ADO yang terdapat pada Component Pallete ADO.saya menyarankan anda memakai metode data akses ini untuk pengembangan aplikasi database stand alone dari pada menggunakan BDE.

3.dbExpress
dbExpress adalah Library penaksesan data yang bersifat Cross Platform,merupakan standar akses data baru dari Delphi untuk Platform Win32.
dbExpress adalah Library yang sangat Ringan dan cepat untuk mengakses RDBMS(Remote Database Server) seperti Oracle,DB2,Sybse,Informix,MS SQL server ,Interbase,dan MySQL Server.

4.IBExpress
IBExpress adalah teknologi khusus untuk mengakses Interbase Server.IBExpress tidak dapat digunakan untuk mengakses remote Database server lain.jika anda membuat aplikasi database hanya untuk Interbase dan tidak ingin memindahkannya ke database server lain,maka IBExpress adalah Pilihan yang paliiing tepat. kelebihan jika anda menggunakan IBExpress:
-IBExpress memberikan Kontrol/kendali data akses yang lebih luas terhadap Interbase Server disbanding mengakses Interbase server menggunakan mekanisme datakses lain. IBExpress mempunyai komponen khusus yang menangani Transaksi dan melakukan koneksi langsung ke Client Library Interbase.ini membuat aplikasi tidak membutuhkan library lain selain Client Library Interbase yaitu gds32.dll. terdapat di Component Pallete Interbase.

5.ZEOS(Third Party)
Selain metode data akses yang disebutkan di atasada sebuah komponen data akses third party yang open source yaitu Zeos,zeos banyak sekali dipakai dikalangan programmer Delphi karena fleksibilitas nya ,kemudahan dan kecepatannya mengakses RDBMS seperti:
Oracle,DB2,Sybse,Informix,MS SQL server ,Interbase,dan MySQL Lite,Firebird.

*E-Book Database Delphi II(fajardelphiscript)
*Interbase Server
*IBExpert(Adminstration Tool 4 Interbase)

*Bonus Link Tutorial Koneksi dengan MySQL

Semoga Setiap Karakter di Postingan ini bermanfaat ^__^

Membuat *.Ini File Di Delphi

noreply@blogger.com (Unknown) — Tue, 14 Jul 2009 20:35:00 +0700

Membuat *.Ini File Di Delphi

Apakah anda Tau *.Ini atau File ini/File Configurasi??Ini File digunakan untuk menyimpan Properties-Properties dari component-Component yang terakhir kali di atur oleh User/pengguna,Contohya kita membuat aplikasi Text Editor dan User mengubah Font Arial(Default) nya misalnya menjadi Comic Sans ms...setelah user keluar dari aplikasi dan user kembali membuka aplikasi tsb maka Font nya akan tetap menjadi Font Default saat kita membuat aplikasi tsb...di Tutorial Delphi kali ini saya akan Coba Share Bagaimana cara membuat Ini File di Delphi.Pasti yang baca enggak ngerti apa yang saya omongin,he..maklum saya ga punya bakat Nulis,hi…

Oke deh biar pada ngerti langsung aja saya kasih contoh sederhana nya:

v Buka Delphi nya masing-masing

v Tambahkan Sebuah Component Edit dan satu Component Button

v Sebelumnya kita Uses IniFiles pada Klausa Uses

procedure TForm1.FormCreate(Sender: TObject);
var
appINI : TIniFile;
LastUser : string;
LastDate : TDateTime;
begin
appINI := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
try
LastUser := appINI.ReadString('Pengguna','Terakhir',LastUser) ;
LastDate := appINI.ReadDate('Pengguna', 'Tanggal', Date) ; ShowMessage('Program ini terakhir dipakai oleh: ' + LastUser + ' on ' + DateToStr(LastDate));
Top := appINI.ReadInteger('Penempatan','Top', Top) ;
Left := appINI.ReadInteger('Penempatan','Left', Left);
Width := appINI.ReadInteger('Penempatan','Width', Width);
Height := appINI.ReadInteger('Penempatan','Height', Height);
finally
appINI.Free;
end;
end;

Procedure FormCreate Sangat Ideal untuk melakukan Pembacaan Properties-properties pada Aplikasi.

Pencet F12 klik tab Event Double klik event onClose.Kode Berikut akan kita Tuliskan di Procedure FormClose untuk penulisan Ini File yang akan dibaca ketika Form di Create.

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
appINI : TIniFile;
begin
appINI := TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini')) ;
try
appINI.WriteString('Pengguna','Terakhir',Edit1.Text) ;//Edit1.text sebagai variable string appINI.WriteDate('Pengguna', 'Tanggal', Date) ;
with appINI, Form1 do begin
WriteInteger('Penempatan','Top', Top) ;
WriteInteger('Penempatan','Left', Left) ;
WriteInteger('Penempatan','Width', Width) ;
WriteInteger('Penempatan','Height', Height) ;
end;
finally
appIni.Free;
end;
end;

Double Click Button1,ketikan Close;.

Pencet F9! Jadi Deh….

Ketikan Nama anda di Component Edit lalu atur Tinggi atau lebar Form pencet Button1,Jika anda membuka kembali Aplikasi yang tadi anda buat maka tinggi,lebar dan pesan saat aplikasi dibuka akan sama seperti saat anda terakhir memakai aplikasi anda.coba anda bandingkan dengan aplikasi yang tidak memakai Ini File..

Silahkan Download Source Code nya agar anda lebih paham,Oh iya sekalian Mau kasih tau saya baru Upload E-Book Membuat Report dengan Quick Report silahkan di donlot di Menu DropDown di sebelah kanan Blog ini…Jika ada pertanyaan Silahkan Layangkan Email ke fajar90alone@Gmail.com jika saya mampu akan saya jawab asal jangan Susah-Suah,he..he.. Terima kasih..

Semoga bermanfaat ^__^

KONVERSI BILANGAN dengan Delphi

noreply@blogger.com (Unknown) — Mon, 6 Jul 2009 10:39:00 +0700

Seperti yang kita ketahui system bilangan dibedakan menjadi empat tergantung dari
“base”nya:

1.Decimal base:10(sistem bilangan umum dipakai manusia)
2.Binner base:2(Sistem bilangan yang dimengerti mesin/switch on/off)
3.Hexadecimal base:16
4.Octal base:8

Pada tutorial Delphi kali ini saya akan share bagaimana alur logika merubah
bilanagan Decimal ke Biner,Octal,Hexadecimal..tentunya dengan Delphi.bagi yang
udah tau gag usah diterusin bacanya,bagi yang belum silahkan terusin.
Berikut adalah Psedocudo konversi Decimal ke Biner:,,klu mau tahu terusin baca nya..

1.Masukan bilangan Decimal(d);
2.lakukan perulangan while d>=2
3.k:=k+1;k{sebagai indeks array}
4.a[k]:=d mod 2;
5.d:=d div 2;
6.akhir/end;(end dari while)
7.k:=k+1;
8.a[k]:=d;
9.lakukan perulangan untuk menampilkan hasil
For i:=k downto 1
Writeln(hsl+a[i]);
end;{while}

Sekarang coba anda tulis code untuk psdecudo di atas!..Pasti
pusingkan??he..Oke,langsung aja

1.agar lebih rileks dan konsentrasi siapkan segelas kopi dan rokok,kalo anda ga ngeroko sini buat saya aja,he..^__^
2. buka celana masing”,, ^_^ eh delphinya masing”..
3.buat design form kira kaya gini,tapi boleh bebas asal ada komponen utamanya:
{pic here}
4. Double Click Button1,ketikan code berikut:

procedure TForm1.Button1Click(Sender: TObject);
var
a:array[1..99] of word;
i,k,d:word;
begin
edit2.Clear;
d:=strtoint(edit1.Text);
k:=0;
While d>=2 do begin//untuk dec to oct 2 diganti 8
k:=k+1;
a[k]:=d mod 2; //untuk dec to oct 2 diganti 8
d:=d div 2; //untuk dec to oct 2 diganti 8
end;
k:=k+1;
a[k]:=d;
for i:=k downto 1 do
edit2.Text:=edit2.text+inttostr(a[i]);
end;

5.pencet deh F9!

Procedure diatas adalah procedure untuk merubah decimal ke biner dan juga decimal
ke octal dengan syarat angka 2 sebagai pembagi diganti dengan 8.nah..bagaimana
untuk Hexadecimal???untuk hexadecimal 10 itu ditulis dengan A seterusnya sampai
16 à 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G ,untuk itu kita cukup menambahkan
percabangan Case of.yauudah kalo masih lum kebayang nih saya kasih contoh:

procedure TForm1.Button3Click(Sender: TObject);
var
a:array[1..99] of word;
i,k,d:word;
c:shortstring;
begin
edit2.Clear;
d:=strtoint(edit1.Text);
k:=0;
While d>=16 do begin
k:=k+1;
a[k]:=d mod 16;
d:=d div 16;
end;
k:=k+1;
a[k]:=d;
for i:=k downto 1 do begin
case a[i] of
10:c:='A';
11:c:='B';
12:c:='C';
13:c:='D';
14:c:='E';
15:c:='F';
16:c:='G';
else c:=inttostr(a[i]);
end;
edit2.Text:=edit2.Text+c;
end;
end;

Pencet deh F9!!
yang harus dipahami dari tutor ini adalah alur dari kode program
tersebut…dan tidak menutup kemungkinan juga ada logika yang lebih baik dari pada
code di atas.
Nih saya sertakan juga Source code+programnya,silahkan ~~rampok~~

jika ada kesulitan silahkan kirim E-mail atau di Comment …Semoga
bermanfaat ^__^

MEMBUAT SPLASH SCREEN II

noreply@blogger.com (Unknown) — Sun, 5 Jul 2009 10:05:00 +0700

Semalem iseng-iseng ngecek e-mail pake hape ada pengunjung yang bertanya mengenai
Artikel saya “membuat splash screen”…he..saya akui memang tutorial itu emang kurang jelas
membahas semua code dan component-component nya.Terima kasih atas kritiknya…Tutorial
Membuat Splash Screen di Delphi kali ini saya buat segamblang mungkin untuk lebih
mengetahui prinsip dasar splash screen,langsung aja deh kelamaan basa-basi entar pada muntah lagi,he..
yaudahlah langsung aja donlot:artikel as pdfSource Code

Membuat databse menggunakan ADOQuery

noreply@blogger.com (Unknown) — Mon, 25 May 2009 17:09:00 +0700

Akhirnya...Komputer saya sudah kembali sehat,he...stelah kemarin berda di "RS",he...
Pada Artikel yang lalu saya meng "Copas" sebuah Artikel dari romisatriawahono.net yang berjudul Tips menjadi Mahasiswa Sukses,sangat luarr biasa artikel dari om Romi itu berhasil ~~"menyasarkan"~~lumayan banyak pengunjung ke Blog ini,he..Founder dari IKC itu memang salah satu SDM IT the Best di Indonesia,beliau juga merupakan "guru"bagi saya di dunia maya coba dech sering2 maen ke IKC dan Blognya dijamin pengetahuan anda about IT akan bertambah Luas...

dan apda akhirnya..beberapa hari yang lalu saya membuat E-Book Membuat Database denagn SQL di Delphi yang membahas mulai sejarah singkat SQL sampai saat ini,penggunaanya di Delphi dan contoh program sederhana yang harus dan wajib anda dan saya pelajari...

SQL adalah Singkatan dari (Structured Query Language).SQL adalah bahasa yang digunakan untuk berkomunikasi dengan RDBMS(Relational Database Management System).SQL digunakan untuk membuat objek-objek database dan memanipulasi data pada database.
SQL pertama kali dikembangkan pada tahun 1970`an di laboratorium IBM-San Jose California Pertama kali dikembangkan sebagai bahasa di produk database DB2 yang sampai saat ini merupakan produk database andalan IBM. SQL sering di lafalkan dengan “sequel”.SQL selanjutnya berkembang menjadi berbagai macam dan bentuk.Setiap Vendor RDBMS seperti Ms.Acsses dkk mengembangkan versi SQL nya masing-masing.beberapa standart SQL yang diterima luas adlah SQL ANSI 92 dan SQL ANSI 99.
Perintah-perintah SQL dikelompokan menjadi 2 bagian penting yaitu DML(Data Manipulation Language) dan DDF(Data Definition Language).
DDF merupakan perintah SQL yang berhubungan dengan pembentukan objek-objek database,seperti Triger,Stored Procedure de-el-el.
DMF merupakan perintah SQL yang berhungan dengan manipulasi data sperti memperoleh data,memasukan,mengedit,mengupdate,dan menghapus data.permintaan/penggunaan perintah SQL pada suatu database disebut dengan Query.

Query-Query Dasar:
*SELECT,untuk memperoleh data dari tabel.
*INSERT,untuk menambah data ke tabel.
*UPDATE,untuk mengupdate data yang ada pada tabel.
*DELETE,untuk menhapus suatu record pada tabel.

PERINTAH-PERINTAH SQL

*Query dasar

Perintah SELECT digunakan untuk menampilkan field-field tertentu dari suatu tabel.
Contoh: (contoh ini menggunakan database DBDMOS pada C:\Program Files\Common Files\Borland Shared\Data\dbdemos.mdb)
Select neme,capital from country;
Ket:name dan capital adl nama field dan country adalah nama tabel.
Untuk memperoleh semua data yang ada pada tabel,contoh:
Select * from country;
Diberikan tanda asterik setelah select.

*Memfilter Data
{*Some Text Missing*}Tutorial Delphi.

Download full article as pdf.
Download Source Code.

Manipulasi Registry (Delphi)

noreply@blogger.com (Unknown) — Sun, 26 Apr 2009 21:49:00 +0700

Masih Ingat Artikel "MAke Virus With Delphi???"di Articel tersebut saya janji memberikan tutorial Manipulation registry...bagi yang nunggu2 maaf nih baru bikin,wat yang ga nunggu baca aja ya??
sperti yang anda tau Registry merupakan "jantungnya" Windows berbeda dengan OS Linux yang tidak memakai Registry dan untuk orang2 yang Jahil seperti saya mungkin dan anda setelah membaca artikel ini,Registry pada windows dapat dimanfaatkan untuk dimanipulasi..jangan keterlaluan ya!!!
Registry pada Windows terdapat di C:\Windows\system32\reg.r dan windows mempunyai tool untuk mengeditnya yang bernama regedit di directory yang sama pula..Delphi mempunyai Unit Registry yang dapat digunakan untuk menulis,mengganti,menghapus registry2 Windows,,denagn Delphi dan sediktit pengetahuan tentang registry kita bisa melakukannya!!yeah...!Contoh:
*Mendisable TaskManager*
{tambahkan Registry pada klause uses}

Procedure TForm1.Form.Create(Sender:TObject);
var
reg:Registry;
Begin
reg:=TRegistry.Create;
Try
reg.RootKey:=HKEY_CURRENT_USER;
reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System',true);
reg.WriteInteger('DisableTaskMgr',1);
reg1.CloseKey;
Finally
reg.free;
end;
end;

Agar Aplikasi jalan saat window pertama aktip
User_key:[HKEY_LOCAL_MACHINE\Software\Microsoft\Wind ows\CurrentVersion\Run
Name:String nama applikasi{sperti contoh make virus with delphi
Type:REG_SZ(String_Value)
Value:

Disable TaskManager
User Key: [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\
System]
Name: DisableTaskMgr
Type: REG_DWORD (DWORD Value)
Value: (0 = default, 1 = disable Task Manager)

jika typenya DWORD maka reg.writenya integer.
diatas adalah Value2/nilai untuk mendisable TaskManger,anda juga bisa memanipulasi value-value yang lain dengan melihatnya di Regedit tool yang penting adalah parameter-parameternya...
anda tidak perlu repot2 membuka regedit untuk melihat nilai-nilai yang lain saya saya sudah merangkum sebagian nilai-nilai yang biasa di gunakan.kuarang baik apa saya coba untuk pengunjung fajardelhpiscript,,he...nih:

Mendisable regedit
User Key: [HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\
System]
Name: DisableRegistryTools
Type: REG_DWORD (DWORD Value)
Value: (0 = allow regedit, 1 = disable regedit)

Menghilangkan "RUN" dari Start Menu
User Key: [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
System Key: [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
Name: NoRun
Type: REG_DWORD (DWORD Value)
Value: (0 = disabled, 1 = enabled)
System Key: [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon]
Name: IgnoreShiftOveride
Type: REG_DWORD (DWORD Value)
Value: (0 = default, 1 = ignore shift)

menDisable Taskbar Context Menu
User Key: [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
System Key: [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
Name: NoTrayContextMenu
Type: REG_DWORD (DWORD Value)
Value: (0 = disabled, 1 = enabled)

Menyembunyikan subfolder Start Menu
User Key: [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
System Key: [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
Name: NoStartMenuSubFolders
Type: REG_DWORD (DWORD Value)
Value: (0 = default, 1 = enable restriction)

MEnghilangkan tombol All Program dari start menu
User Key: [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
System Key: [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
Name: NoStartMenuMorePrograms
Type: REG_DWORD (DWORD Value)
Value: (0 = default, 1 = disable button)

Disable kemampuan klik kanan di Desktop
User Key: [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
System Key: [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
Name: NoViewContextMenu
Type: REG_DWORD (DWORD Value)
Value: (0 = disabled, 1 = enabled)

menDisable Task Scheduler
System Key: [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunServices]
Name: SchedulingAgent
Type: REG_SZ (String Value)
Value: mstask.exe

Disablemen MS-DOS Command Prompt
User Key: [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\
WinOldApp]
System Key: [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\
WinOldApp]
Name: Disabled
Type: REG_DWORD (DWORD Value)
Value: (0 = disable, 1 = enable)

menDisable Command Prompt dan Batch Files
User Key: [HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System]
Name: DisableCMD
Type: REG_DWORD (DWORD Value)
Value: (0 = default, 1 = disabled, 2 = disabled but allow batch)

Run Start up di CMD(Command Prompt)
User Key: [HKEY_CURRENT_USER\Software\Microsoft\Command Processor]
Name: AutoRun
Type: REG_SZ (String Value)
Value: Command to Execute
ex:AutoRun REG_SZ “c:\batch\environ.bat”
kalau lebih dari satu maka ”command1 && command2″

menspesifikasi exe file saat winlogon
System Key: [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon]
Name: System
Type: REG_SZ (String Value)
Value: (default = lsass.exe)

menDisable Menu Bars dan Start Button
ubah nama key dengan mengganti “-” di atas GUID (i.e. {-5b4dae26-b807-11d0-9815-00c04fd91972}).
System Key: [HKEY_CLASSES_ROOT\CLSID\{5b4dae26-b807-11d0-9815-00c04fd91972}]
Hide or Display Administrative Tools Menu
User Key: [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\
Advanced]
Name: StartMenuAdminTools
Type: REG_SZ (String Value)
Value: Yes or No

menghilagkan kemampuan klik kanan di start menu Button (All Windows)
Nilai manipulasi ini akan kelihatan ketika user menekan klik kanan pada tombol start
untuk memilih Explore atau Find.

key [HKEY_CLASSES_ROOT\Directory\shell] kemudian nilai ’shell’ ganti menjadi ’shell.old’.
lakukan juga pada
key [HKEY_CLASSES_ROOT\Folder\shell] dan ganti nilainya menjadi [...\shell.old].

menghilangkan Control Panel, Printer dan Network Settings
User Key: [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
System Key: [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
Name: NoSetFolders
Type: REG_DWORD (DWORD Value)
Value: (0 = disabled, 1 = enabled)

menghilangkan setting taskbar di start menu
User Key: [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
System Key: [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
Name: NoSetTaskbar
Type: REG_DWORD (DWORD Value)
Value: (0 = disabled, 1 = enabled)

menghilangkan tombol logoff di start menu
User Key: [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
System Key: [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
Name: NoLogOff
Type: REG_DWORD (DWORD Value)
Value: (1 = no log off, 0 = show log off)

Disable Drag-dan-Drop di Start Menu
User Key: [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
System Key: [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
Name: NoChangeStartMenu
Type: REG_DWORD (DWORD Value)
Value: (0 = disable restriction, 1 = enable restriction)

menghilangkan Run dari Start Menu
User Key: [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
System Key: [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
Name: NoRun
Type: REG_DWORD (DWORD Value)
Value: (0 = disabled, 1 = enabled)

menghilangkan "Search" dari Start Menu
User Key: [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
System Key: [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
Name: NoFind
Type: REG_DWORD (DWORD Value)
Value: (0 = disabled, 1 = enabled)

MEnghilangkan Tray Items dari Taskbar
User Key: [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
System Key: [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
Name: NoTrayItemsDisplay
Type: REG_DWORD (DWORD Value)
Value: (0 = default, 1 = enable restriction

Disable Folder Options Menu
User Key: [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
System Key: [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
Name: NoFolderOptions
Type: REG_DWORD (DWORD Value)
Value: (0 = show options, 1 = hide options)
Remove Properties fromMy Computer
User Key: [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
System Key: [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
Name: NoPropertiesMyComputer
Type: REG_DWORD (DWORD Value)
Value: (0 = Properties, 1 = No Properties)

menghilangkan semua Items di the Desktop
User Key: [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
System Key: [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
Name: NoDesktop
Type: REG_DWORD (DWORD Value)
Value: (0 = disable restriction, 1 = enabled restriction)

Disable Hotkeys Windows
User Key: [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
System Key: [HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\
Explorer]
Name: NoWinKeys
Type: REG_DWORD (DWORD Value)
Value: (0 = disable restriction, 1 = enable restriction)

Peringatan HardDisk penuh
System Key: [HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\LanmanServer\
Parameters]
Name: DiskSpaceThreshold
Type: REG_DWORD (DWORD Value)
Value: 0 - 99 percent (Default is 10)

Mau tau lebih banyak tentang MAnipulasi Registry/"Hack_Registry"? Coba masuk ke http://www.mdgx.com/ Enjoy ^__^ semoga bermanfaat...

Membuat Folder dengan Delphi

noreply@blogger.com (Unknown) — Sun, 12 Apr 2009 20:43:00 +0700

Artikel kali ini saya akan share gimana caranya bikin Folder secara otomatis dengan Delphi tentunya,,mau tau carany???cari aja sendiri!!!!he...nih ikutin aja2 langkah2 berikut:
1.Buka Delphi nya masing2
2.tambain aja satu buah Component Button.
3.Dobel click
4.ketik or Copas(copy paste)kode berikut:

Procedure TForm1.Button1Click(Sender:TObject);
var
Dir: string;
begin
Dir := 'C:\APPS\SALES\LOCAL';//Directory dimana Folder akandibuat
ForceDirectories(Dir);//Function untuk membuat Folder or dir
if DirectoryExists(Dir) then //cek apakah dir exist?
ShowMessage(Dir + 'Udah dibikin bos!');
END;

Guampang banget kan?????iyalah soalnya yang susah2 saya gak bisa,he...
semoga ada manfaatnya ya ^__^

Shell Programming with Delphi

noreply@blogger.com (Unknown) — Wed, 1 Apr 2009 19:08:00 +0700

Shell adalah suatu aplikasi yang mampu mengendalikan aplikasi lain dalam sebuah sistem operasi Microsoft Windows .

Shell mampu mengendalikan aplikasi lain dalam hal membuka file/folder, mencetak file, menjalankan file executable dll.

Shell Programming adalah suatu pemrograman yang menghasilkan suatu aplikasi yang dapat mengendalikan aplikasi lain

Delphi Shell Programming adalah pemrograman shell menggunakan bahasa pemromrograman delphi

Pada Delphi, shell dideklarasikan menjadi beberapa fungsi yang berbeda. Ada 11 fungsi shell yang tercantum dalam Shell Library Functions yaitu :
-> DragAcceptFiles
-> DragFinish
-> DragQueryFile
-> DragQueryPoint
-> ExtractAssociatedIcon
-> ExtractIcon
-> ExtractIconEx
-> FindExecutable
-> ShellAbout
-> ShellExecute
-> ShellExecuteEx

Karena keterbatasan pengetahuanku maka implementasi dari fungsi-fungsi shell tidak akan dibahas semua. Namun yang pasti fungsi-fungsi yang dibahas disini adalah fungsi shell yang penting dan banyak digunakan dalam dunia programming .

Untuk menggunakan fungsi-fungsi shell dalam delphi,
kita perlu mendeklarasikan file header ( file library yang berisi fungsi-fungsi shell ) terlebih dahulu,
agar delphi mengkompile file header tersebut bersama dengan file aplikasi yang kita buat sehingga fungsi-fungsi shell tersebut berjalan.

File library yang dimaksud adalah ShellApi.h, untuk mendeklarasikannya cukup dengan menambahkanShellApi pada klausa uses.

Uses ShellApi,Windows, Messages, SysUtils, .....;

atau bisa juga di bawah klausa Implementation

Implementation
uses ShellApi;

1. FindExecutable Adalah fungsi shell yang mengembalikan nilai berupa nama dan handle dari suatu file executable (*.exe) sesuai dengan nama file yang telah ditentukan.
a. Deklarasinya umumnya :

HINSTANCE FindExecutable(
LPCTSTR lpFile, // pointer to string for filename
LPCTSTR lpDirectory, // pointer to string for default directory
LPTSTR lpResult // pointer to buffer for string for executable file on return
);

b. Deklarasi dalam Delphi

FindExecutable(FileName, Directory, Result);

c. Keterangan parameter yang digunakan :
- FileName adalah variabel bertipe PAnsiChar (null terminated string / tipe data yang mirip dengan tipe data string)
yang menunjukkan nama file executable,
namun pada praktinya variabel ini bisa juga menunjukkan nama file bertipe dokumen.
- Directory adalah variabel bertipe PAnsiChar yang menunjukkan nama direktori atau path dari file executable.
- Result adalah variabel bertipe PAnsiChar yang berfungsi sebagai buffer/penyangga untuk menerima variabel filename ketika nilai fungsi dikembalikan

d. Pengembalian nilai oleh fungsi :
Jika fungsi sukses, maka fungsi akan mengembalikan nilai lebih besar dari 32 Jika gagal maka fungsi akan mengembalikan nilai lebih kecil atau sama dengan 32.
Berikut ini daftar kemungkinan nilai error yang bisa terjadi :
----------------------------------------------------------------------------------------------------------
Nilai-> Keterangan
----------------------------------------------------------------------------------------------------------
0 ->Sistem kekurangan memori atau sumber daya
31 ->Tak ada asosiasi untuk tipe file yang ditetapkan
ERROR_FILE_NOT_FOUND-> File yang ditetapkan tidak ditemukan
ERROR_PATH_NOT_FOUND ->Path/direktori yang ditentukan tidak ditemukan
ERROR_BAD_FORMAT -> File *.exe yang ditentukan tidak valid
----------------------------------------------------------------------------------------------------------

1. ShellAbout
Adalah fungsi shell yang digunakan untuk menampilkan Aboutbox atau kotak about windows.
a. Deklarasinya umumnya :

int ShellAbout (
HWND hWnd, // handle of parent window
LPCTSTR szApp, // title bar and first line text
LPCTSTR szOtherStuff, // other dialog text
HICON hIcon // icon to display
);

b. Deklarasi dalam Delphi

ShellAbout(hWnd,szApp,szOtherStuff,Icon);

c. Keterangan parameter yang digunakan :
- hWnd
Menunjukkan Identitas dari sebuah window utama. Parameter ini bisa diisi dengan NULL atau nil dalam delphi, sebab delphi akan secara otomatis menghandle aplikasi yang dijalankan, tanpa perlu mengidentifikasi aplikasi
window kita.
- szApp
Menunjukkan teks yang akan ditampilkan pada title bar kotak dialog dan juga pada baris pertama dialog box setelah teks "Microsoft Windows" or "Microsoft Windows NT." Untuk menentukan posisi teks, apakah sebagai title bar atau sebagai baris pertama, dengan menyisipkan separator "#" di tengah, sehingga bagian awal sebelum separator akan menjadi title bar, sedangkan bagian akhir akan menjadi teks pada baris pertama.
- szOtherStuff
Menunjukkan teks yang akan ditampilkan dalam dialog box setelah versionand copyright information.
- Icon
Mengidentifikasikan icon yang akan ditampilkan pada dialog box. Jika parameter ini dikosongkan (NULL/ nil dalam delphi) maka akan menampilkan icon default Microsoft Windows or Microsoft Windows NT".

d. Pengembalian nilai oleh fungsi :
Jika fungsi sukses, maka fungsi akan mengembalikan nilai TRUE dan menampilkan kotak dialog about. Jika gagal maka fungsi akan mengembalikan FALSE.

e. Contoh, coba Anda tekan tombol About dibawah ini untuk melihat tampilan about windows.

Tombol di atas berisi kode program berikut :

ShellAbout ( handle , 'ABOUT KU # *\* HAFID */*' , '@@ HSC 2006 @@' ,
loadicon(0,IDI_EXCLAMATION));

1. ShellExecute
Adalah fungsi shell untuk membuka atau mencetak file tertentu, baik file executable ataupun file document.
a. Deklarasinya umumnya :

HINSTANCE ShellExecute(
HWND hwnd, // handle to parent window
LPCTSTR lpOperation, // pointer to string that specifies operation to perform
LPCTSTR lpFile, // pointer to filename or folder name string
LPCTSTR lpParameters, // pointer to string that specifies executable-file
parameters
LPCTSTR lpDirectory, // pointer to string that specifies default directory
INT nShowCmd // whether file is shown when opened
);

b. Deklarasi dalam Delphi

ShellExecute(hWnd, IpOperation, IpFile, IpParameter, IpDirectory, nShowCmd);

c. Keterangan parameter yang digunakan :
- hWnd
Menunjukkan spesifikasi window utama. cukup disi dengan nilai handle atau 0 maka program akan secara otomatis menghandle dirinya sendiri.
- lpOperation
Menunjukkan sebuah operasi yang akan dijalankan terhadap file yang ditunjuk. tipe data dari variabel ini adalah PChar. Berikut ini daftar operasi yang valid:
---------------------------------------
String-> Artinya
---------------------------------------
"open"-> Untuk membuka file dokumen atau untuk menjalankan file executable.
"print" ->Untuk mencetak file dokumen atau untuk menjalankan file executable.
"explore" ->Untuk mengeksplore folder dari file yang ditunjuk. Variabel IpOperation ini bisa diisi dengan NULL/nil untuk membuka suatu file.
----------------------------------------
- lpFile
Variabel bertipe PChar yang menunjukkan nama file yang ditunjuk
- lpParameters
Variabel bertipe PChar yang menunjukkan spesifik parameters yang dilewatkan ke file executable / aplikasi. Namun jika lpFile menunjukkan file documen maka
lpParameters seharusnya dikosongkan / null / nil /0.
- lpDirectory
Variabel bertipe string yang menunjukkan nama direktori dari file yang ditunjuk
- nShowCmd
Jika lpFile menunjukkan file documen maka nShowCmd seharusnya dikosongkan. Namun jika IpFile menunjukkan file executable maka nShowCmd adalah variabel yang menunjukkan bagaiman file executable tersebut ditampilkan ketika dibuak.

Untuk lebih jelasnya berikut ini daftar parameter yang valid:
SW_HIDE -> Menyembunyikan window dan mengaktifkan window lain.
SW_MAXIMIZE -> Maximizes window.
SW_MINIMIZE -> Minimizes window dan mengaktifkan window berikutnya.
SW_RESTORE -> mengaktifkan dan menampilkan windows, jika windows maximize
atau minimize maka window akan dikembalikan pada ukuran dan posisi aslinyaion.
SW_SHOW -> Mengaktifkan dan menampilkan window pada ukuran dan posisi pada saat itu.
SW_SHOWDEFAULT -> Mengaktifkan dan menampilkan default window
SW_SHOWMAXIMIZED -> kombinasi
SW_SHOWMINIMIZED -> kombinasi.
SW_SHOWMINNOACTIVE ->kombinasi
SW_SHOWNA ->kombinasi
SW_SHOWNOACTIVATE -> kombinasi
SW_SHOWNORMAL -> kombinasi

d. Pengembalian nilai oleh fungsi :
Jika fungsi sukses, maka fungsi akan mengembalikan handle dari aplikasi yang dijalankan
Jika gagal maka fungsi akan mengembalikan nilai lebih kecil atau sama dengan 32.
Berikut ini daftar beberapa kemungkinan nilai error yang bisa terjadi :
-----------------------------------------------------------------------------------------------------------
Nilai Keterangan
-----------------------------------------------------------------------------------------------------------
0 Sistem kekurangan memori atau sumber daya
ERROR_FILE_NOT_FOUND File yang ditetapkan tidak ditemukan
ERROR_PATH_NOT_FOUND Path/direktori yang ditentukan tidak ditemukan
ERROR_BAD_FORMAT File *.exe yang ditentukan tidak valid
-----------------------------------------------------------------------------------------------------------

e. Contoh, untuk menjalankan Notepad windows, tekan tombol berikut ini :

Kode program tombol di atas adalah :

ShellExecute(handle,'open','Notepad.exe',0,0,SW_SHOW);

ShellExecute

- Menjalankan program aplikasi tertentu :
ShellExecute(handle, 'open', Pchar('D:\Kalkulator.exe'),0,0,SW_SHOW);

- Menjalankan Notepad dan membuka sebuah file dokumen
ShellExecute(handle,'open','notepad.exe',Pchar('D:\unit1.pas'),0, SW_SHOW);

- Mencetak file dokumen
ShellExecute(handle,'print',Pchar('D:\latihan.txt'),0,0,SW_SHOW);

- Membuka browser dengan alamat URL tertentu
ShellExecute(handle,'open',Pchar('http://www.microsoft.com'),nil,nil, SW_SHOW);

- Mengeksplore folder dengan Windows Eksplorer
ShellExecute(handle,'explore',PChar('C:\WINDOWS'),nil,nil,SW_SHOW)

- Menjalankan sebuah perintah DOS
ShellExecute(handle, 'open', PChar('command.com'),
PChar('/c copy file1.exe file2.exe'),nil,SW_SHOW);

(artikel asli-->delphiscript.blogspot.com
semoga Bermanfaat ya^__^ bivertiser

Membuat Efek Flash dengan Delphi

noreply@blogger.com (Unknown) — Sun, 29 Mar 2009 20:43:00 +0700

Efek Flash adalah Sebuah Efek yang terjadi pada Form sehingga form terkesan sedang memberikan tanda warning atau kerennya peringatan!!! selalu aktif.efek ini memiliki logika yang sama dengan pembuatan teks berkedip,,Cuma 2 baris code lagi!!!!emmm gampang ya??.untuk membuat efek Flash dengan Delphi ikutin langkah-langkah berikut:

-Buka Celana eh...buka Delphi lalu Siapakan Form kosong
-tambahkan komponen Timer yang terletak pada pallete System
-Doble Click komponen Timer lalu ketikan Code berikut:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
flashWindow(Handle,true);
FlashWindow(Application.Handle,true);
end;

-Pencet F9!!!
lihat hasilnya!!
anda sering lihat kan efek seperti ini pada aplikasi-aplikasi Windows,jika melakukan warning???
Selamat mencoba ya,Semoga Bermanfaat ^__^.

Animasi Form Lanjutan

noreply@blogger.com (Unknown) — Sun, 29 Mar 2009 20:23:00 +0700

Animasi Form Lanjutan

Artikel ini merupakan modifikasi/perkembangan dari artikel yang lalu yaitu Animasi form Horizontal dan Vertikal.tentu saja menjadi lebih menarik...
nich langkah-langkahnya:

-Biasa Buka Delphi nya dengan Sebuah Form Kosong
-aturlah sehingga seperti gambar berikut:

-Double Click pada Button lalu ketikan Code berikut:

procedure TForm1.Button1Click(Sender: TObject);
procedure Delay(msec:LongInt);
Var
start,stop:Longint;
begin
start:=GetTickCount;
repeat
stop:=GetTickCount;
Application.ProcessMessages;
until (stop - start)>=msec;
end;
var
lebar,tinggi:integer;
Begin
Lebar:=form1.Width;
tinggi:=form1.Height;
form1.width:=112;
form1.height:=27;
form1.Left:=(screen.Width - form1.Width)div 5;
form1.Top:=(screen.height - form1.height)div 5;
form1.Show;
repeat
if form1.Height+(tinggi div 5)>=tinggi then
form1.Height:=tinggi
else form1.Height:=form1.Height+(tinggi div 100);
if form1.width+(lebar div 5)>=lebar then
form1.Width:=lebar
else form1.width:=form1.width+(lebar div 100);
form1.left:=(screen.Width - form1.Width)div 2;
form1.Top:=(screen.height -form1.height)div 2;
delay(10);
until (form1.width=lebar) and (form1.height=tinggi);
end;

-Yupz!!!lumayan rumit ya???^__^

selamat mencoba moga bermanfaat^__^anda pelajari dan kembangkan lagi ya!!!^__^

Membuat Animasi Form Horzontal dan Vertikal

noreply@blogger.com (Unknown) — Sun, 29 Mar 2009 20:07:00 +0700

Membuat Animasi Form Horzontal dan Vertikal

Animasi merupakan pergerakan suatu object dari suatu tempat ke tempat lain.bidang animasi sering digunakan dalam pembuatan kartun dan pada bidang2 yang lain atau juga dapat digunakan untuk membuat aplikasi yang kita buat menjadilebih menarik...algoritma nya sederhana.
berikut contoh membuat Form animasi Horzontal dan animasi form vertikal dengan Delphi.
-Pertama Buka Delphi nya masing2!!!
-klik file-new-application
-aturlah letak-letak komponen dan propertiesnya hingga menjadi seperti gambar berikut:

-Double Click pada Button1 dan ketikan code berikut:

procedure TForm1.Button1Click(Sender: TObject);
var
lebar:integer;
begin
Form1.Width:=0;
lebar:=0;
repeat
lebar:=lebar+3; //bisa anda ganti angka 3 sesuai keinginan
form1.width:=lebar;
until
lebar>=507;
end;

-kembali pada tab dsigner atau pencet F12,,Double click Button2,lalu ketikan code berikut:

procedure TForm1.Button2Click(Sender: TObject);
var
Tinggi:integer;
begin
Form1.height:=0;
Tinggi:=0;
repeat
Tinggi:=Tinggi+3;//bisa anda ganti angka 3 sesuai keinginan
form1.height:=Tinggi;
until
Tinggi>=354;
end;

-Pencet/tekan F9!!!
-Jadi Dech!!!!
Gampangkan,,coba anda perhatikan dan pelajari algoritma nya.selamat mencoba ^__^

Bill Gates (Microsoft)

noreply@blogger.com (Unknown) — Wed, 18 Mar 2009 12:12:00 +0700

William Henry Bill Gates

lebih terkenal dengan
sebutan Bill Gates, lahir di Seatle, Washington pada
tanggal 28 Oktober 1955. Ayah Bill, Bill Gates Jr.,
bekerjadi sebuah firma hukum sebagai seorang
pengacara dani bunya, Mary, adalah seorang mantan guru.
Bill adalah anak kedua dari tiga bersaudara.
Sejak kecil Billmempunyai hobi "hiking",bahkan
hingga kini kegiatan ini masih sering dilakukannya
bila ia sedang "berpikir".
Bill kecil mampu dengan mudah melewati masa sekolah dasar dengan nilai sangat
memuaskan, terutama dalam pelajaran IPA dan Matematika. Mengetahui hal ini orang
tua Bill, kemudian menyekolahkannya di sebuah sekolah swasta yang terkenal dengan
pembinaan akademik yang baik, bernama "LAKESIDE". Pada saat itu , Lakeside baru
saja membeli sebuah komputer, dan dalam waktu seminggu, Bill Gates, Paul Allen dan
beberapa siswa lainnya (sebagian besar nantinya menjadi programmer pertama
MICROSOFT) sudah menghabiskan semua jam pelajaran komputer untuk satu tahun.
Kemampuan komputer Bill Gates sudah diakui sejak dia masih bersekolah di Lakeside.
Dimulai dengan meng"hack" komputer sekolah, mengubah jadwal, dan penempatan
siswa. Tahun 1968, Bill Gates, Paul Allen, dan dua hackers lainnya disewa oleh
Computer Center Corp. untuk menjadi tester sistem keamanan perusahaan tersebut.
Sebagai balasan, mereka diberikan kebebasan untuk menggunakan komputer perusahaan.
Menurut Bill saat itu lah mereka benar- benar dapat "memasuki" komputer. Dan disinilah
mereka mulai mengembangkan kemampuan menuju pembentukan Microsoft, 7 tahun
kemudian.
Selanjutnya kemampuan Bill Gates semakin terasah. Pembuatan program sistem
pembayaran untuk Information Science Inc, merupakan bisnis pertamanya. Kemudian
bersama Paul Ellen mendirikan perusahaan pertama mereka yang disebut Traf-O-Data.
Mereka membuat sebuah komputer kecil yang mampu mengukur aliran lalu lintas. Bekerja sebagai debugger di perusahaan kontrkator pertahanan TRW, dan sebagai penanggungjawab komputerisasi jadwal sekolah, melengkapi pengalaman Bill Gates.
Musim gugur 1973, Bill Gates berangkat menuju Harvard University dan terdaftar
sebagai siswa fakultas hukum. Bill mampu dengan baik
mengikuti kuliah, namun sama seperti ketika di SMA,
perhatiannya segera beralih ke komputer. Selama di Harvard,
hubungannya dengan Allen tetap dekat. Bill dikenal sebagai
seorang jenius di Harvard. Bahkan salah seorang guru Bill
mengatakan bahwa Bill adalah programmer yang luar biasa
jenius, namun seorang manusia yang menyebalkan.
Desember 1974, saat hendak mengunjungi Bill Gates, Paul
Allen membaca artikel majalah Popular Electronics dengan
judul "World's First Microcomputer Kit to Rival Commercial Models". Artikel ini
memuat tentang komputer mikro pertama Altair 9090. Allen kemudian berdiskusi dengan
Bill Gates. Mereka menyadari bahwa era "komputer rumah" akan segera hadir dan
meledak, membuat keberadaan software untuk komputer - komputer tersebut sangat
dibutuhkan. Dan ini merupakan kesempatan besar bagi mereka.
Kemudian dalam beberapa hari, Gates menghubungi perusahaan pembuat Altair, MITS (Micro Instrumentation and Telemetry Systems). Dia mengatakan bahwa dia dan Allen, telah membuat BASIC yang dapat digunakan pada Altair. Tentu saja ini adalah bohong. Bahkan mereka sama sekali belum menulis satu baris kode pun. MITS, yang tidak mengetahui hal ini, sangat tertarik pada BASIC. Dalam waktu 8 minggu BASIC telah siap. Allen menuju MITS untuk mempresentasikan BASIC. Dan walaupun, ini adalah kali pertama bagi Allen dalam mengoperasikan Altair, ternyata BASIC dapat bekerja dengan sempurna. Setahun kemudian Bill Gates meninggalkan Harvard dan mendirikan Microsoft.
Terlepas dari masalah perseteruan Microsoft dengan beberapa organisasi dan vendor lain berhubungan dengan masalah monopoli software, pemakaian teknologi vendor lain, dsb. Saat ini Microsoft tumbuh menjadi vendor software dan sistem operasi yang menguasai pangsa pasar software dunia. Windows 95, 98, ME, 2000, XP adalah sistem operasi produksi Microsoft yang selalu ditunggu-tunggu oleh pengguna pc di dunia.

Procedure MAX MIN(mencari nilai Max Min)

noreply@blogger.com (Unknown) — Wed, 18 Mar 2009 11:37:00 +0700

Procedure MAX MIN(mencari nilai Max Min)

Setiap Prosedure pasti mempunyai algoritma untuk menyelesaikan masalah2 dan menghasilkan Output yang sesuai,,dan algoritma yang baik harus efisien,logis,cepat & tepat.Sewaktu menyusun algoritma, kita tidak perlu tahu
(atau tidak perlu menyesuaikan dengan) bahasa pemrograman yang nanti akan kita gunakan.
Hal utama yang kita pikirkan adalah kaidah (hirarki) dari komputer itu sendiri.disini saya akan membahas sedikit tentang procedure penentuan nilai maximum & minimum:
di Asumsikan anda mempunyai Array..(mungkin ada algoritma yang lebih baik dari pada ini)

Contoh dalam(Pseudocudo)
1.Definisikan Variable yang dibutuhkan
2.definisikan element array
3.lakukan perulangan seluruh elemen array dan membandingkan nilai setiap elemen array
4.Output ^_^

Contoh (dalam Statement program)
1.var x,i,max,min:integer a:array;
2.x:=a[0]
3.max:=x min:=x
4.for i:=low(a) to high(a)
5.if max >=a[i] then max:=a[i]
6.if min >=a[i] then min:=a[i]
7.Output

contoh Procedure nya (dalam Delphi)
var
x, i, max,min : Integer;//Deklarasi Variable
a : array[0..5] of Integer;
begin
a[0]:=21;//Pengisian elemen array
a[1]:=30;
a[2]:=24;
a[3]:=19;
a[4]:=53;
a[5]:=41;
x:=a[0];
max:=x;
min:=x;
for i :=Low(a) to High(a) do//lakukan perulangan sluruh elemen array
begin
if max >= a[i] then max:=a[i];//membandingkan elemen2 array
if min <= a[i] then min:=a[i]; end; ListBox1.Items.add('Nilai Max-->:'+IntToStr(max));//Output
ListBox1.Items.add('Nilai Min-->:'+IntToStr(min));
end;

Semoga bermanfaat ^_^