Aplikasi Web Browser dengan Delphi7

Hai kawan" decomposer, kali ini kami memberikan contoh program web browser yang dibuat menggunakan delphi7. Program ini masih sangat sederhana.

Adapun komponen yang digunakan untuk membangun program ini Tedit dan TWebBrowser . Komponen TWebBrowser terdapat pada pallet Internet.

Jika anda berniat mengembangkan ataupun hanya men-coba", silahkan download di ziddu.

 

Read More

Kreasi Slider Gambar Pada Delphi Form

Kesempatan kali ini adalah giliran kami untuk berbagi mengenai eksplorasi properti dari komponen image. Hasil eksplorasi ini dapat menghasilkan gerakan yang fantastis dengan kolaborasi pergerakan mouse. Lebih lanjut selamat mengikuti tutorial singkat yang kami sajikan.

 

1. Buat sebuah form baru, ukuran bebas. Pilih File-New-Form pada menu bar.

2. Atur pewarnaan untuk tampilan form, pada object inspector buka properti color. Sesuaikan dengan selera anda.

 3. Tambahkan beberapa shape yang bisa anda dapatkan pada palette additional dan untuk variasi properti dapat anda otak-atik pada object inspector.

 4. Tambahkan beberapa komponen image yang bisa anda temukan pada palette additional. Tempel beberapa gambar, untuk melakukannya cari properti picture pada object inspector. Dalam tutorial ini menggunakan 4 buah komponen image (jumlah sesuai selera).

5. Tempel dua buah komponen image diatas komponen shape. properti picture biarkan kosong (default). Fungsinya nanti kedua komponen ini (disebelah kiri dan kanan) akan digunakan sebagi pendeteksi gerakan mouse.

 6. Buka jendela code melalui menu View-Code Explorer. Deklarasi 2 buah procedure pada bagian public. Ketik menyerupai procedure di bawah ini. variabel i merupakan nilai incremental yang akan bertambah sesuai gerakan mouse nantinya.

i:integer;

procedure SlidePrevious;

procedure SlideNext;

7. Inisialisasi variabel i bernilai 3 (besar angka yang diinisialisasi akan menentukan kecepatan sliding) Deskripsi procedure seperti listing dibawah ini:
     procedure TForm1.SlidePrevious;

  begin

       i:=3;

       img1.left:=img1.left-i;

       img2.left:=img2.left-i;

       img3.left:=img3.left-i;

       img4.left:=img4.left-i;

  end;

8. Listing yang serupa pada procedure SlideNext namun incremental dilakukan dengan operator '+' Deskripsi procedure seperti listing dibawah ini:
     procedure TForm1.SlideNext;

  begin

       i:=3;

       img1.left:=img1.left+i;

       img2.left:=img2.left+i;

       img3.left:=img3.left+i;

                  img4.left:=img4.left+i;
     end;

9. Panggil procedure SlideNext pada komponen image yang disebelah kanan (lihat kembali ke tahapan no.5) dan procedure SlidePrevious pada komponen image yang disebelah kiri. Penempatan procedure dilakukan pada properti Event-OnMouseMove yang bisa ditemukan pada object inspector.

Setelah langkah-langkah diatas selesai, tekan F9 untuk melihat hasilnya. gerakan mouse anda pada komponen image yang terisi dengan prosedur tadi.

Referensi dapat didownload disini.

Selamat Mencoba :)

Read More

Animasi Gerakan dengan Konsep Perulangan pada Delphi.

 

Halo kawan blogger, kesempatan kali ini ada sebuah aplikasi mau nonggol. Memang belum selesai semuanya, tapi terdapat banyak trik di dalamnya, bagi kawan-kawan yang berangan-angan membuat aplikasi dengan beberapa sentuhan efek gerakan selayaknya animasi flash yang sering dijumpai di web-web. Sedikit konsep perulangan sederhana memberikan efek gerakan yang lumayan asyik digunakan dalam mendevelop suatu aplikasi. Dibangun menggunakan Delphi dan komponen standar IDE yang ada. Untuk source code silahkan didownload disini.

Read More

Friedman-Cochran K Sampel Berpasangan

 

Aplikasi sederhana yang pernah kami buat untuk memenuhi tuntutan perkuliahan statistika semester 4 lalu. Menggunakan database Ms. Access dan pemrograman Delphi. Masih terdapat beberapa bug yang bisa membuat aplikasi ini error dan tutup sendiri, klo mau tolong dibenerin y!  ;)

Bagi tmen-tmen semua yang ada tuntutan tugas yang sama, ini bisa dijadikan referensi. Ini link download ziddu.

 

Read More

Contoh Windows Api Delphi

API adalah singkatan dari Application Programming Interface. Merupakan sebuah modul yang digunakan untuk membuat sebuah program Aplikasi. Modul ini biasanya disebut dengan RTL ( Run Time Library). Biasanya modul tersebut berupa file dll (Dinamic Link Library) yang disertakan saat kita dalam instalasi Windows . Dengan modul-modul tersebut kita tinggal menggunakan rutin-rutin didalamnya tanpa menimbulkan masalah pada Operating System, yang mana selalu terjadi saat membuat kode-kode sendiri secara serampangan. Dari modul-modul inilah bagian besar dari sebuah program aplikasi dibuat. Tolong jangan rancu antara Windows (Operating System / produk) dan Window ( Jendela / Form).

Delphi adalah sebuah program interface, yang menghubungkan kita dengan modul-modul API yang dibicarakan sebelumnya dengan jauh lebih sederhana. Delphi menawarkan sesuatu yang sangat cepat dan tepat sasaran, terutama bagi perancang program yang mementingkan kecepatan dan kemudahan pengembangan sebuah program aplikasi.

Berikut beberapa contoh windows API yang ditampilkan seperti:

1.   Mengetahui info memori windows saat ini.

 

2.   Melihat default language windows.

3.   Mengecek ukuran file yang dipilih.

4.   Membuat kreasi tampilan form lingkaran.

5.   Mengubah tampilan resolusi monitor.

silahkan download source code disini

semoga bermanfaat bagi Anda sekalian.  

 

sumber : http://info-tekom.blogspot.com

Read More

Mencari Selisih Hari (Delphi7)

Contoh program ini menggunakan bahasa pemrograman delphi 7 dan biasanya digunakan pada aplikasi sistem reservasi hotel. Sebelum membuat contoh ini tolong dipersiapkan komponen-komponen delphi 7 terlebih dahulu berikut ini.

1.       XPManifest1, untuk mempercantik tampilan aplikasi sesuai dengan tema windows masing-masing.

2.       DateTimePicker1, sebagai sebagai tanggal pemesanan dan disesuaikan dengan tanggal yang terletak pada sistem di windows.

3.       DateTimePicker2, sama seperti DateTimePicker1, tapi digunakan sebagai tanggal kedatangan.

4.       Label yang dinamakan “Angka”, sebagai hasil selisih dari  DateTimePicker1 dan DateTimePicker2.

Untuk mencari selisih hari dapat dilakukan dengan cara berikut ini.

Ø       Pada form cari “OnCreate” dan “OnShow” pada tab “Events” di “Object Inspector”. Kemudian masukkan sourcecode berikut.

//OnCreate, untuk mengatur DateTimePicker1 agar sesuai dengan tanggal saat melakukan run.

DateTimePicker1.DateTime:=Today;

//OnShow, untuk mengatur DateTimePicker2 agar sesuai dengan tanggal saat melakukan run.

DateTimePicker2.DateTime:=Today;

Ø       Pada DateTimePicker2 cari “OnCreate” pada tab “Events” di “Object Inspector”. Kemudian masukkan sourcecode berikut.

// OnCreate, untuk langsung menampilkan hasil pada label “Angka” saat DateTimePicker2 telah di klik.

Angka.Caption:=IntToStr(DaysBetween(DateTimePicker1.DateTime,DateTimePicker2.datetime));

Berikut adalah screenshot hasil run dari contoh program

Untuk lebih jelasnya mengenai contoh program ini silahkan download sourcecodenya disini.

Semoga bermanfaat.

 

sumber : http://info-tekom.blogspot.com

Read More