Tuesday, October 30, 2012

Cara cepat menaikan Pagerank bisa kita lakukan dengan gratis tanpa biaya. Cara Cepat Menaikkan Pagerank ini sudah banyak dilakukan oleh para blogger2 yang sudah ahli. Gak usah susah2 komentar sana sini. Cukup ikuti panduan ini.
Hal yang harus sobat lakukan adalah ikuti langkah-langkah berikut :
  1. Buatlah postingan artikel seperti posting saya ini, atau copy-paste artikel ini. Lalu beri Judul sesuka sobat (karena itu merupakan SEO buat web/blog sobat sendiri).
  2. Agan cukup hanya meletakkan Link-Link di bawah ini pada artikel sobat tersebut pada blog/web sobat.
  3.  Link tersebut harus bersifat dofollow supaya link terbaca di google, jadi jangan contreng nofollow saat menulis link.




Sebelum Anda meletakkan link diatas, Anda harus menghapus peserta nomor 1 dari daftar. Sehingga semua peserta naik 1 level. Yang tadi nomor 2 jadi nomor 1, nomor 3 jadi 2, dst. Kemudian masukkan link kamu sendiri di bagian paling bawah.
Hasilnya akan seperti ini:

  1. Alexa
  2. Webmaster Tool
  3. Bing
  4. Msn
  5. Ask
  6. Aneuk Cabak
  7. Basecampari
  8. Memed Darlovers
  9. Klick-sanasini
  10. Blog agan 
Note: Ubahlah di Deretan diatas ganti tulisan wrna merah dengan Link Blog Sobat

Nah jika tiap peserta mampu mengajak 5 orang saja, maka jumlah backlink yang akan didapat adalah 
    Ketika posisi kamu 10, jumlah backlink = 1
    Posisi 9, jml backlink = 5
    Posisi 8, jml backlink = 25
    Posisi 7, jml backlink = 125
    Posisi 6, jml backlink = 625
    Posisi 5, jml backlink = 3,125
    Posisi 4, jml backlink = 15,625
    Posisi 3, jml backlink = 78,125
    Posisi 2, jml backlink = 390,625
    Posisi 1, jml backlink = 1,953,125

    Ingat agan harus memulai dari posisi 10 supaya satu persatu naik dan agan mendapatkan backlink yang banyak... 
    Read More

    Monday, October 29, 2012

    Mengatasi Blog yang Redirect ke Situs Lain

    Mengatasi Blog yang Redirect ke Situs Lain - Tulisan ini adalah informasi dari pengalaman buruk saya ketika sudah lama tidak update artikel blog dan ingin menambahkan widget artikel terkait di blog. Ketika ingin mengedit template dan melihat blog, langsung dialihkan ke situs lain. Pahit,kesal, marah, bingung rasanya telah mengtahui blog kita dihack tapi untuk rekan semua yang sedang mengalami masalah yang sama, tidak usah kawatir setiap masalah pasti ada jalan keluarnya, seperti blog saya ini telah saya ambil alih dari penjajahan. MERDEKA!!! . Butuh waktu 2 hari untuk menemukan masalahnya, setelah mencari informasi di mabh google dan bereksperimen. Ada yang mengatakan masalah sebenarnya yaitu ".. blog anda telah di redirect ke situs lain..". masalah seperti ini bisa di sebabkan karena: 
    1. Blog sudah lama anda tinggalkan, ( atau blog anda hidup enggan..matipun enggan :p ).  Sehingga blog anda terindeks sebagai blog usang tak terpakai, lalu situs lain membajak alamat blog anda dengan aplikasi robot-nya untuk mengalihkan alamat ke situs tersebut. Solusi: Anda buka kembali account blog anda dan masukan beberapa artikel baru (min 3 artikel), maka dalam waktu beberapa jam blog anda akan kembali normal. (Jawaban dari mbah google)
    2. Ada widget yang membuat redirect ke situs lain sekarang coba anda ingat-ingat, apakah ada widget yg baru anda pasang?? mungkin sebelum widget itu di instal blog anda normal normal aja, tapi setelah di instal....jreennggg blog anda langsugn amsuk ke situs lain. Solusi: Setelah anda masuk ke account admin blog anda, ikuti langkah berikut: (Jawaban dari Mbah Google) *Penting : Sebelumnya jangan lupa untuk memback up template sobat terlebih dahulu.
    3. Dan Cari dibawah ini juga jawaban dari mbah google.
      •  Klik Design >> Page Elements 
      • Hapus widget yang baru anda pasang di blog
      •  Jika salah satu widget tersebut sudah di hapus, coba lah View Blognya 
      • Jika masih redirect juga, hapus widget yang lainnya dan View Blog kembali (Ulangi langkah-langkah tersebut sampai anda menemukan widget mana yang menyebabkan blognya redirect ke situs lain) 
      • Jika sudah ketemu widget yang menyebabkan blog sobat redirect ke situs lain, maka ingatlah letak dan nama widget tersebut Langkah selanjutnya adalah upload template backup tadi.. disinilah gunanya kita mem'backup' template tadi agar widget yang tidak bermasalah yang sobat hapus tadi tidak terhapus semuanya.. yang dihapus hanya yang menyebabkan redirect ke situs lain.
      •  Langkahnya seperti di bawah ini.
        •  Klik Edit HTML >> Klik Browse
        •  Cari template sobat dan klik open -Selanjutnya klik upload dan tunggu.. :D -Setelah itu kita kembali ke Page Elements 
        • Cari widget yang anda ingat tadi yang menyebabkan redirect kesitus lain dan hapus widgetnya.
        •  Langkah terakhir adalah Lihat Blog anda apakah masih redirect atau tidak.
    4. Cari nama situs yang membajak template anda dengan Ctrl+f contoh : pagesinxt.com/?dn=adabisnis.com .==>pagesinxt.com adalah situs yang membajak situs anda dan dialaihkan ke adabisnis.com. Itu adalah situs yang membajak blog saya. 
    Tapi semua itu tidak berhasil di blog saya,tetap saja dijajah kesal rasanya. Yang saya lakukan (hasil eksperimen) adalah:
      1. Backup dulu template.
      2. Download Add-ons BlockSite. cari sendiri ya bnyak kok di google :).Selanjutnya tambahkan situs yang ingin anda blok.itu dilakukan untuk memudahkan anda mencoba cara no 3 diatas.
      3. Selanjutnya hapuslah script mencurigakan di html template blog anda. Saya tidak mencatat dan tidak ingat script mana yang saya hapus.Karena saya coba hapus sekali saja langsung berhasil.
      4. Hapus saja yang ingin anda hapus,gunakan insting blogger anda. Tidak masalah karena anda punya backup.
      5. Jika sudah upload lagi template dari backup anda. 
      6. Hapus nama dari Block Site di Add-ons.
      7. Dan Lakukan pengeditan template dan juga lihat blog anda. Jika situs penjajah tidak muncul lagi berarti anda MERDEKA!!!.
      Selamat Mencoba,, Merdeka Mengatasi Blog yang Redirect ke Situs Lain
        Read More

        Tuesday, September 11, 2012

        Cerita Dewasa - ML Dengan Pembantu

        No HP Tante Kesepian -  Ini pengalamanku 2 Tahun lalu. tepatnya pas rumah lagi sepi, hanya ada aku dan baby sister keponakanku, tak banyak kata karna konti udah konak setelah melihat situs-situs porno di website, dan pas itu juga ada cewek manis baby sister keponakanku yang sanggup melayaniku, tak sabar ingin membacanya ? yuk kita baca sama-sama, Cerita Dewasa Nikmatnya ML Babysister ini :

        Malam telah larut dan jam telah menunjukan pukul 9 malam. Sedari siang tadi kakakku bersama suaminya menghadiri pertemuan sebuah Network Marketing dan diteruskan dengan pertemuan khusus para leaders.

        Untuk menghilangkan suntuk, aku connect ke internet dan berbagai macam situs aku buka, seperti biasa pasti terdapat banyak situs porno yang asal nyrobot. Biasanya aku langsung close karena aku enggak enak dengan kakakku, tetapi malam ini mereka tidak ada dirumah, hanya bersama dengan seorang baby siters keponakanku, namanya Imah baru berumur 18 Tahun dan berasal dari Wonosobo. Memang agak kolotan dan dusun sekali, tetapi kalau aku perhatikan lagi Imah memiliki body yang lumayan bagus dengan wajah yang tidak terlalu jelek.

        Kami biasa mengobrolkan acara tivi atau terkadang Im-im (panggilan Imah sehari-hari) aku ajari internet meskipun hasilnya sangat buruk. Entah kenapa malam ini keinginanku untuk melihat situs porno sangat besar dan libidoku naik saat aku lihat foto-foto telanjang di internet, tanpa aku sadari Im-im keluar dari kamar dan berjalan ke arahku entah sudah berapa lama dia berdiri disampingku ikut memperhatikan foto-foto telanjang yang ada di monitor komputer.

        "Apa enggak malu ya..?" tanya Im-im yang membuatku kaget dan segera aku ganti situsnya dengan yang "normal". Dengan berusaha tenang, aku minta Imah mengulangi pertanyaannya.

        "Itu lho tadi, gambar cewek telanjang yang Mas buat, emangnya nggak malu kalau dilihat orang?"

        Memang Imah sangat lugu dan ndusun kalau soal beginian. Dengan santai aku jawab sembari menyuruhnya duduk disebelahku.

        "Begini Im, ini foto bukan aku yang buat, orang yang buat ini (sambil aku perlihatkan lagi situs yang memuat foto telanjang tadi), merekakan model yang dibayar jadi ngapain malu kalau dapat duit."

        Kemudian Im-im melihat lebih seksama satu per satu foto telanjang itu dengan posisi badan agak membungkuk sehingga terlihat jelas bulatan kenyal panyudaranya, sudah sejak lama aku menikmati pemandangan ini dan aku sangat terobsesi untuk tidur dengan Im-im. Aku tersentak kaget saat Imah bertanya soal foto dimana seorang cowok sedang menjilati vagina cewek.

        "Apa nggak geli ceweknya dijilati kayak gitu terus lagian mau-maunya cowok itu jilatin punya ceweknya padahalkan tempat pipis?".

        Dengan otak yang sudah kotor aku mulai berfikir bagaimana aku memanfaatkan kesempatan ini dengan baik.

        "Gini Im, vaginanya cewek kalau dijilatin oleh cowok malah enak, memang awalnya geli tapi lama-lama ketagihan ceweknya. Kamu belum pernah coba kan?" tanyaku pada Im-im sambil tanganku membuka foto-foto yang lebih hot lagi.


        "Belum pernah sama sekali, tapi kalau ciuman bibir dan susuku diremes sudah pernah, aku takut kalau nanti hamil". (memang Im-im sangat terbuka tentang pacarnya yang di Bogor dan pernah suatu hari cerita kalau pacarnya ngajak tidur di hotel tapi Im-im nggak mau).

        "Kalau Cuma kayak gitu nggak bakal bikin hamil, gemana kalau kamu coba, nanti kalau kamu hamil aku mau tanggungjawab dan nggak perlu bingung soal uang, terus kalau ternyata kamu nggak hamil, kamu nanti aku ajari gaya-gaya yang ada difoto ini. Gimana?"

        Dan Im-im cuma diam sambil lihatin wajahku, sebenarnya aku tahu dia naksir aku sudah lama tapi karena posisi dia hanya babysiters yang membuatnya nggak PD.

        "Benar ya.., janji lho?" pintanya dengan sedikit ragu.

        Dan dengan wajah penuh semangat aku bersumpah untuk menepati janjiku, meskipun aku enggak ada niat untuk menepati janjiku. Aku putuskan sambungan internet dan mulai "melatih" Im-im dengan diawali teknik berciuman yang sudah pernah dia rasakan dengan pacarnya, sentuhan halus bibirnya yang lembut membuatku membalas dengan ganas hingga tanpa terasa tanganku telah meremas payudara Imah yang memang masih kencang. Desahan halus mulai muncul saat bibirku menelusuri lehernya yang agak berbulu seolah Im-im menikmati semua pelatihan yang aku berikan.

        Aku merasa cumbuan ini kurang nyaman, aku dan Imah pindah ke dalam kamar Im-im, perlahan aku rebahkan tubuhnya dan bibirku bergantian menjelajah bibir dan lehernya sedangkan tanganku berusaha membuka kaos dan BH-nya dan kini separoh tubuh Imah telah bugil membuat libidoku tidak karuan. Tanpa ada keluhan apapun Imah terus mendesah nikmat dan tangannya membimbing tangan kiriku meremas teteknya yang bulat sedangkan payudara kanannya aku lumat dengan bibirku hingga terdengar jeritan kecil Im-im. Entah berapa lama aku mencumbu bagian atas tubuhnya dan sebenarnya keinginanku untuk bercinta sudah sangat besar tetapi aku tahu ini bukan saat yang tepat.

        Perlahan aku turunkan celana pendek dan celana dalamnya bersama hingga Imah sepenuhnya bugil dan ini yang membuat dia malu. Untuk membuat Imah tidak merasa canggung aku mencumbunya lebih ganas lagi sehingga kini Imah mendesah lebih keras lagi dan tangan kanannya meremas kaosku untuk menyalurkan gairahnya yang mulai memuncak. Bibirku kini mulai menjalar kebawah menuju vaginanya yang tertutup kumpulan bulu hitam, perlahan aku angkat kedua pahanya hingga posisi selakangannya terlihat jelas. Samar-samar terlihat lipatan berwarna merah di vaginanya dan aku tahu baru aku yang melihat surga dunia milik Im-im.

        Kini bibirku mulai menjilati vaginanya yang mulai banjir dengan halus agar Im-im tidak merasa geli dan ternyata rencanaku berjalan lancar, desahan yang tadi menghiasi cumbuanku dengan Imah kini mulai diselingi lenguhan dan jeritan kecil yang menandakan kenikmatan luar biasa yang sedang dirasakan babysiters keponakanku. Semakin lama semakin banyak lendir yang keluar dari kemaluannya yang membuatku lebih bergairah lagi, tiba-tiba seluruh tubuh Imah kejang dan suara lenguhannya menjadi gagap sedangkan kedua tangannya meremas kuat kasurnya. Dengan diiringi lenguhan panjang Imah mencapai klimak, tubuhnya bergerak tidak beraturan dan aku lihat sepasang teteknya mengeras sehingga membuatku ingin meremasnya dengan kuat. Setelah kenikmatannya perlahan turun seiring tenaganya yang habis terkuras membuat tubuhnya yang bugil menjadi lunglai, dengan kepasrahannya aku menjadi sangat ingin segera menembus vaginanya dengan penisku yang sedari tadi sudah tegang.

        "Imah merasa sangat aneh, bingung aku jelasin rasanya" katanya dengan perlahan.

        "Belum pernah aku merasakan hal ini sebelumnya, aku takut kalau terjadi apa-apa," sambil memelukku erat. Sambil kukecup keningnya, aku jawab kekhawatiranya.

        "Ini yang disebut kenikmatan surga dunia dan kamu baru merasakan sebagian. Imah nggak perlu takut atau khawatir soal ini, kan aku mau tanggungjawab kalau kamu hamil," sambil kubalas pelukannya.

        Sekilas aku lupa libidoku dan berganti dengan perasaan ingin melindungi seorang cewek, kemudian tanpa disengaja tangan Im-im menyentuh penisku sehingga membuat penisku kembali menegang. Wajah Imah tersipu malu saat aku lihat wajahnya yang memerah, kucium bibirnya dan tanpa menunggu komandoku Im-im membalasnya dengan lebih panas lagi dan kini Imah terlihat lebih PD dalam mengimbangi cumbuanku. Teteknya aku remas dengan keras sehingga Im-im mengerang kecil. Kini bajuku dibuka oleh sepasang tangan yang sedari tadi hanya mampu meremas keras kasur yang kini sudah acak-acakan spreinya dan aku imbangi dengan melepas celana pendekku dan segera terlihat penis yang sudah tegang karena aku terbiasa tidak memakai CD saat dirumah. Melihat pemandangan itu, Imah malu dan menjadi sangat kikuk saat tangannya aku bimbing memegang penisku dan setelah terbiasa dengan pemandangan ini aku membuat gaya 69 dengan Imah berada diatas yang membuatnya lebih leluasa menelusuri penisku.

        Setelah beberapa lama aku bujuk untuk mengulumnya, akhirnya Im-im mau melakukan dan menjadi sangat menikmati, sedangkan aku terus menghujani vaginanya dengan jilatan lidahku yang memburunya dengan ganas. Karena tidak kuat menahan rasa nikmat yang menyerang seluruh tubuhnya, Im-im tak mampu meneruskan kulumannya dan lebih memilih menikmati jilatan lidahku di vaginanya dan aku tahu Imah menginginkan kenikmatan yang lebih lagi sehingga tubuh bugilnya aku rebahkan sedangkan kini tubuhku menindihnya sembari aku teruskan bibirku menjelajahi bibirnya yang memerah.

        Perlahan tanganku menuntun tangan kanan Im-im untuk memegang penisku hingga berada tepat di depan mulut vaginanya, aku gosok-gosok penisku di lipatan vaginanya dan mengakibatkan sensasi yang menyenangkan, erat sekali tangannya memelukku sambil telus mengerang nikmat tanpa memperdulikan lagi suaranya yang mulai parau. Vaginanya semakin basah dan perlahan penisku yang tidak terlalu besar mendesak masuk ke dalam vaginanya dan usahaku tidak begitu berhasil karena hanya bisa memasukkan kepala penisku. Perlahan aku mencoba lagi dan dengan inisiatif Im-im yang mengangkat kedua kakinya hingga selakangannya lebih terbuka lebar yang membuatku lebih leluasa menerobos masuk vaginanya dan ternyata usahaku tidak sia-sia. Dengan sedikit menjerit Imah mengeluh,

        "Aduh.., sakit. Pelan-pelan dong" dengan terbata-bata dan lemah kata-kata yang keluar dari mulutnya. Saat seluruh penisku telah masuk semua, aku diam sejenak untuk merasakan hangatnya lubang vaginanya.

        Perlahan aku gerakkan penisku keluar-masuk liang vaginanya hingga menjadi lebih lancar lagi, semakin lama semakin kencang aku gerakkan penisku hingga memasuki liang paling dalam. Berbagai rancauan yang aku dan Imah keluarkan untuk mengekspresikan kenikmatan yang kami alami sudah tidak terkendali lagi, hampir 15 menit aku menggenjot vaginanya yang baru pertama kali dimasuki penis hingga aku merasa seluruh syaraf kenikmatanku tegang. Rasa nikmat yang aku rasakan saat spermaku keluar dan memasuki lubang vaginanya membuat seluruh tubuhku menegang, aku lumat habis bibirnya yang memerah hingga Im-im dan kedua tanganku meremas teteknya yang mengeras. Akhirnya aku bisa merasakan tubuh Im-im yang lama ada dianganku.

        Kami berdua tergolek lemah seolah tubuhku tak bertulang, kupeluk tubuh Imah dengan erat agar dia tidak galau dan setelah tenagaku pulih aku berusaha memakaikan baju padanya karena Im-im tidak mampu berdiri lagi. Saat aku hendak mengenakan CD aku lihat sedikit bercak merah dipahanya dan aku bersihkan dengan CD ku agar Im-im tidak tahu kalau perawannya sudah aku renggut tanpa dia sadari.

        Kami berdua melakukan hal itu berulangkali dan Imah semakin pintar memuaskanku dan selama ini dia tidak hamil yang membuatnya sangat PD. Tanpa disadari 2 tahun aku menikmati tubuhnya gratis meskipun kini Imah tidak menjadi babysiters keponakanku sebab kakakku telah pindah rumah mengikuti suaminya yang dipindah tugaskan ke daerah lain. Sekarang Im-im menjadi penjaga rumahku dan sekaligus pemuas nafsuku saat pacar-pacarku tidak mau aku ajak bercinta.

        Saat lebaran seperti biasa Imah pulang kampung selama 2 minggu dan yang membuatku kaget dia membawa seorang cewek sebaya dengan Imah dan bernama Dina yang merupakan sepupunya. Memang lebih cantik dan lebih seksi dari Imah yang membuatku berpikir kotor saat melihat tubuh yang dimiliki Dina yang lugu seperti Imah 2 tahun lalu. Pada malam harinya, setelah kami melepas rasa kangen dengan bercinta hampir 2 jam, Imah tiba-tiba menjadi serius saat dia mengutarakan maksudnya.

        "Mas, aku sudah 2 tahun melayani Mas untuk membereskan urusah rumah dan juga memberikan kepuasan diranjang seperti yang aku berikan saat ini," Imah terdiam sejenak.


        "Aku ingin tahu, apakah ada keinginan Mas untuk menikahiku meskipun sampai saat ini aku tidak hamil. Apa Mas mau menikahiku?"

        Aku terhenyak dan diam saat disodori pertanyaan yang tidak pernah terlintas sedikitpun selama 2 tahun ini. Lama aku terdiam dan tidak tahu mau berkata apa dan akhirnya Imah meneruskan perkataannya.

        "Imah tahu kalau Mas nggak ada keinginan untuk menikahiku dan aku nggak menuntut untuk menjadi suamiku, 2 tahun ini aku merasa sangat bahagia dan sebelum itu aku telah mencintai Mas dan menjadi semakin besar saat aku tahu Mas sangat perhatian denganku."

        Imah terdiam lagi dan aku memeluknya erat penuh rasa sayang dan Imah pun membalas pelukanku.

        "Tapi.., aku ingin lebih dari ini. Aku ingin bisa menikmati cinta dan kasih sayang seorang suami dan itu yang membuatku menerima pinangan seorang pria yang rumahnya tidak jauh dari desaku." Aku terhenyak dan menjadi lebih bingung lagi dan belum bisa menerima kabar yang benar-benar mengagetkanku.

        Kami berdua hanya bisa diam dan tanpa terasa meleleh air mataku dan aku baru merasa bahwa aku ternyata benar-benar menginginkannya, namun ternyata sudah terlambat. Keesokan harinya aku mengantar Imah ke terminal untuk kembali pulang ke desanya dan menikah dengan seorang duda tanpa anak, menurutnya calon suaminya akan menerimanya meskipun dia sudah tidak perawan. Dengan langkah gontai aku kembali ke mobilku dan melalui hari-hariku tanpa Imah.

        Promo : Cobalah Kehebatan anda di M88 Taruhan Online dan Tempat Judi Online terbesar di Asia. Mulai dari Poker, Casino Online, Taruhan Sports, iLotto, Keno, dan masih banyak lagi. Jadikan mimpi anda kenyataan bersama M88.com. Untuk daftar Gampang dan Mudah, Silakan daftar langsung dengan klik gambar di bawah ini :
        Untuk panduan daftar M88.com bisa baca Panduan lengkap daftar M88.com.
        Read More

        Saturday, March 17, 2012

        Bermacam-macam Format Tanggal di Delphi

        Untuk menampilkan format tanggal di delphi dapat menggunakan sintaks yang dapat dipergunakan secara langsung
             
                FormatDateTime(format,var_tanggal);

        Untuk lebih jelas, Buatlah sebuah Form baru dan desain seperti gambar di samping.




        Lakukan klik ganda Format Tanggal dan Tambahkan Listing kode di bawah ini

        Edit2.Text := FormatDateTime('dd-mmmm-yy hh:mm:ss',datetimepicker1.DateTime);
        Edit3.Text := FormatDateTime('dd-mmmm-yy',datetimepicker1.DateTime);
        Edit4.Text := FormatDateTime('dddd,dd-mmmm-yyyy',datetimepicker1.DateTime);

        Selanjutnya jalankan program . Pertama - tama pilih tanggal di datetimepicker dan klik Button "Format Tanggal" dan hasilnya akan tampak seperti dibawah ini ..




        Gax mau repot2 dari awal sampe akhir  ... silakan download di sini
        Read More

        Friday, March 16, 2012

        Mengenal lebih dekat dengan Delphi 7

        Mengenal Delphi
        Delphi adalah suatu bahasa pemograman (development language) yang digunakan untk merancang suatu aplikasi program.

        • Kegunaan Delphi
        1. Untuk membuat aplikasi windows
        2. Untuk merancang aplikasi program berbasis grafis
        3. Untuk membuat program berbasis jaringan (client/server)
        4. Untuk merancang program .Net (berbasis internet)
        • Keunggulan Delphi
        1. IDE (Integrated Development Environment) atau lingkungan pengembangan aplikasi sendiri adalah satu dari beberapa keunggulan delphi, didalamnya terdapat menu - menu yang memudahkan kita untuk membuat suatu proyek program.
        2. Proses Kompilasi cepat, pada saat aplikasi yang kita buat dijalankan pada Delphi, maka secara otomatis akan dibaca sebagai sebuah program, tanpa dijalankan terpisah.
        3. Mudah digunakan, source kode delphi yang merupakan turunan dari pascal, sehingga tidak diperlukan suatu penyesuain lagi.
        4. Bersifat multi purphase, artinya bahasa pemograman Delphi dapat digunakan untuk mengembangkan berbagai keperluan pengembangan aplikasi.

        • Sejarah Borland Delphi
        1. Delphi versi 1 (berjalan pada windows 3.1 atau windows 16 bit)
        2. Delphi versi 2 (Berjalan pada windows 95 atau delphi 32 bit)
        3. Delphi versi 3 (berjalan pada windows 95 keatas dengan tambahan fitur internet atau web)
        4. Perkembangan selanjutnya diikuti dengan Delphi versi 4, 5 dan 6.
        5. Versi terkini dari delphi adalahversi 7 dengan tambahan vitur .net dengan tambahan file XML

        OOP (Object Oriented Programming)
        OOP adalah metode pemograman dengan membentu sebuah aplikasi yang mendekati keadaan dunia yang sesungguhnya. Hal itu bisa dilakukan dengan cara mendisain object untuk menyelesaikan masalah.
        • Tiga unsur OOP
        1. Encapsulation atau pemodelan
        Encapsulation adalah konsep penggabungan data dengan operator. Dalam konsep pemodelan data dan operasi menjadi satu kesatuan yang disebut object. Encapsulation juga disebut dengan penyembunyian informasi (information hiding)
        Contoh = ketika kita menyalakan sebuah TV kita tidak tahu apa yang terjadi  dengan  proses  dan  percakapan  antar  alat  yang  berhubungan dengan  TV  tersebut  sehingga  mampu  menampilkan  sebuah gambar.
        Atau     =   ketika   melakukan klik pada subuah object dalam suatu aplikasi  program kita tidak tahu apa yang dilakukan program sehingga ditampilkan hasil yang sesuai.

        Catatan     =  dari  dua  contoh  kasus  tersebut  terdapat  kesamaan  proses  mengenai information hiding yang tidak diketahui oleh user sampai hasil  ditampilkan.

        2. Inheritance atau penurunan
        Inherintance   adalah sebuah object yang dapat diturunkan menjadi object yang baru dengan tidak menghilangkan sifat asli dari object tersebut.

        Contoh  = TV merupakan salah satu media elektronik yang dgunakan untuk  menampilkan gambar dengan tujuan untuk memberikan informasi kepada  konsumen.  Secara  umum  TV  memunyai  cara  kerja  yang sama dengan media elektronik yang lain dlam proses penyampaian informasi,   tetapi   mempunyai   sifat   yang   unik   yang   dapat membedakan dengan media electronik yang ada.
        Atau     =  Dalam aplikasi program kita sering menggunakan command button,  untuk beberapa perintah yang berbeda.

        3. Polymorphism atau Polimorfisme
        Polymorphism merupakan penggunaan berbagai macam object yang berbeda tetapi secara fungsi bergantung pada satu object sebagai induk, dengan cara pelaksanaan   yang berbeda - beda.
        Contoh     = TV dan radio adalah media electronik yang mempunyai sistem
        yang sama tentang bagaimana meyebarkan suatu informasi, tetapi cara kerja dari masing - masing sistem pasti berbeda.





        Read More

        Sunday, March 11, 2012

        Menentukan Bilangan Ganjil dan Genap Di delphi 7

        Ini adalah toturial bagi yang baru mempelajari pemrograman delphi. Toturial ini merupakan toturial sederhana yang saya buat karena saya baru di dlam dunia delphi.. :)
        Ok langsung saja.Bilangan Ganjil adalah bilangan yang sisa pembaginya <> (tidak sama) dengan 0 sedangkan Bilangan genap sebaliknya. Jika di implementasikan ke dalam program akan seperti gambar di samping : 

        Terdapat 6 label, 4 edit.text dan 1 button. Langkah - langkah yang harus dilakukan yaitu :


        • Jalankan Delphi (recomended delphi 7)  ,
        • Desain program seperti diatas, boleh dibedakan tapi sesuaikan jumlah dan jenis objek.
        • Klik button Cek dan ikuti listing program di bawah ini :
         //Buat variabel x,y, dan i tipe integer. 
         var x:Integer;
         var y:Integer;
         var i:Integer;

        //lakukan loop untuk melooping bilangan awal sampai bilangan akhir
        //dan lakukan if jika bilangan termasuk bil.Ganjil dan Bil. Genap
        for  i:=x to y do
        begin
             if i mod 2 = 1 then
              BilGanjil.Text := BilGanjil.Text + IntToStr(i)+','


          else
             BilGenap.Text := BilGenap.Text + IntToStr(i)+',';

        end;
        •  Listing lengkap program seperti di bawah ini :
        procedure TForm2.Button1Click(Sender: TObject);
             var x:Integer;
             var y:Integer;
             var i:Integer;
        begin
        x:=StrToInt(EditBilAwal.Text);
        y:=StrToInt(EditBilAkhir.Text);

        for  i:=x to y do
        begin
             if i mod 2 = 1 then
              BilGanjil.Text := BilGanjil.Text + IntToStr(i)+','


          else
             BilGenap.Text := BilGenap.Text + IntToStr(i)+',';

        end;
        end;

        end.
        Gax mau bersusah payah silakan download disini Full Program

        Teriama kasih atas kunjungannya ..sukses selalu
        Read More

        Penghitungan Gaji Pegawai

        Hai bro...kali ini ijinkan aku meshare toturial pembelajaran tentang delphi yaitu Sistem Penghitungan Gaji Pegawai. Tampilan lengkap progaram seperti di bawah ini :

        Untuk memulai membuat program seperti diatas, langkah yang harus dilakukan
        • Susun Desain program seperti diatas,
        • Ikuti Listing Program dibawah ini, yang perlu ditambahkan hanya sript kode wrna merah
        unit Unit1;

        interface

        uses
          Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
          Dialogs, StdCtrls;

        type
          TForm1 = class(TForm)
            Label1: TLabel;
            Label2: TLabel;
            Label3: TLabel;
            Label4: TLabel;
            Label5: TLabel;
            Label6: TLabel;
            Label7: TLabel;
            Label8: TLabel;
            Label9: TLabel;
            Button1: TButton;
            Edit1: TEdit;
            Edit2: TEdit;
            Edit3: TEdit;
            RadioButton1: TRadioButton;
            RadioButton2: TRadioButton;
            ComboBox1: TComboBox;
            Edit4: TEdit;
            Label10: TLabel;
            Edit5: TEdit;
            Edit6: TEdit;
            Edit7: TEdit;
            Button2: TButton;
            Button3: TButton;
            INFO: TMemo;
            Label11: TLabel;
            Edit8: TEdit;
            procedure Button2Click(Sender: TObject);
            procedure Button3Click(Sender: TObject);
            procedure Button1Click(Sender: TObject);
            procedure RadioButton2Click(Sender: TObject);
            procedure RadioButton1Click(Sender: TObject);
            procedure ComboBox1Change(Sender: TObject);
            procedure hapusdata(); //mendeklarasikan prosedure hapusdata
          private
            { Private declarations }
          public
            { Public declarations }
          end;

        var
          Form1: TForm1;
        //mendeklarasikan variabel global
          jk,jabatan:string; //mendeklarasikan variabel jk dan jabatan bertipe string
          tunjangan,pajak,gjipokok,Total :double;
        //mendeklarasikan variabel jk dan jabatan bertipe double



        implementation

        {$R *.dfm}

        procedure TForm1.Button2Click(Sender: TObject);
        begin
        hapusdata(); //memanggil prosedure hapusdata
        ComboBox1.ClearSelection; //mengembalikan kondisi comboBox seperti semula

        end;
        //membuat prosedure hapus data
        procedure TForm1.hapusdata();
        begin
        Edit1.Clear;//menghapus data di edit1.text
        Edit2.Clear;
        Edit3.Clear;
        Edit4.Clear;
        Edit5.Clear;
        Edit6.Clear;
        Edit7.Clear;
        Edit8.Clear;
        ComboBox1.ClearSelection;

        end;
        procedure TForm1.Button3Click(Sender: TObject);
        begin
        Close; //menutup aplikasi program
        end;

        procedure TForm1.Button1Click(Sender: TObject);
        var //mendeklarasikan variabel nip,nama,alamat,umur tipe string
        nip,nama,alamat,umur:string;
        begin
         nip :=Edit1.Text;
        //memberikan nilai dari edit1.text ke variabel nip
         nama:= Edit2.Text;
         alamat:= Edit3.Text;
         umur := Edit4.Text;


          Total := (tunjangan + gjipokok) - pajak;

          Edit8.Text := floattostr(Total);//mengubah nilai float ke string dan memberikanya ke edit8.text

          INFO.Lines.Add('NIP :'+nip+' Nama : '+nama+' Alamat : '+alamat
          +' Jenis Kelamin : '+jk+' Jabatan : '+jabatan+' Umur :'+umur+' tahun'
          +' Tunjangan : '+floattostr(tunjangan)+' Pajak : '+floattostr(pajak)
          +' Gaji Pokok : '+floattostr(gjipokok)+' Total Pendapatan : '+floattostr(total));
          hapusdata();
        //memanggil prosedure hapus data setelah button simpan diklick
          end;

        procedure TForm1.RadioButton2Click(Sender: TObject);
        begin
            jk:='Perempuan';//memberikan data ke variabel jk saat radiobutton2 dklick
        end;

        procedure TForm1.RadioButton1Click(Sender: TObject);
        begin
        jk:='Laki - laki';
        end;

        procedure TForm1.ComboBox1Change(Sender: TObject);
        begin
        if Combobox1.Text =('Ketua') then //membuat pengkondisian saat pilihan dari combobox dipilih
        begin
              tunjangan :=2000000;
              gjipokok:= 5000000;
              pajak:= 0.05 * gjipokok;
              jabatan:='Ketua';
         end
        else if Combobox1.Text =('Wakil Ketua') then
        begin
              tunjangan :=1500000;
              gjipokok:= 4000000;
              pajak:= 0.04 * gjipokok ;
              jabatan :='Wakil Ketua';
         end
        else if Combobox1.Text =('Sekretaris') then
        begin
              tunjangan := 1200000;
              gjipokok:= 3000000;
              pajak:= 0.03 * gjipokok;
              jabatan := 'Sekretaris';
         end
        else if Combobox1.Text =('Bendahara') then
        begin
           tunjangan := 1000000 ;
              gjipokok:=2000000 ;
              pajak:= 0.02 * gjipokok;
              jabatan :='Bendahara';
          end
        else if Combobox1.Text =('Anggota') then
        begin
              tunjangan := 800000 ;
              gjipokok:=1500000;
              pajak:= 0.01 * gjipokok;
              jabatan := 'Anggota';
         end
        else
        begin
              tunjangan := 0;
              gjipokok:=0;
              pajak:= 0.01 * gjipokok;
              jabatan := 'Tidak ada';
           end;
          Edit5.Text := floattostr(tunjangan);
          Edit6.Text := floattostr(pajak);
          Edit7.Text := floattostr(gjipokok);

        end;

        end.
        • Setelah selesai jalankan program dengan menekan tombol F9 icon play .
        • Semoga Sukses..sampai jumpa di toturial berikutnya.
        Tak mau bersusah payah download disini Full Program
          Read More