Apa? em… males nulis…
ini screen shot nya…
silakan langsung aja bagi yang mau download…
aplikasi sistem pendukung keputusan dengan metode weighted product yang di buat menggunakan Borland Delphi 7 dan Database MySQL
Monggo silakan di Download Source Code nya
Berikut adalah pelajaran dasar bagi anda yang ingin menguasai bahasa pemrograman Delphi. Artikel tutorial tentang looping ini saya ambil dari Antidws, Sahabat yang Profesional dan Terpercaya. Selamat belajar. Semoga bermanfaat. 😀
Dalam bahasa pemrograman apapun pasti dikenal suatu mekanisme looping atau perulangan. Looping disini sangat berguna sekali untuk mengontrol jalannya program, terutama jika ada aktivitas yang berulang-ulang dan bahkan ada suatu kondisi tertentu di dalam looping tersebut. Nah, kali ini kita akan bahas mengenai mekanisme looping apa saja yang terdapat dalam Borland Delphi.
Dalam penulisan program Delphi ada kalanya tidak membutuhkan program yang terlalu panjang ketika hanya terdiri dari pengulangan dari program yang sebelumnya. Proses pengulangan suatu proses dalam batas tertentu tersebut dapat ditulis secara singkat dengan menggunakan looping. Jenis-jenis dari looping dapat dibagi sebagai berikut:
1. for…to..do dan for…downto…do
2. repeat…until
3. while…do
Untuk lebih jelasnya akan dibahas masing – masing dari proses looping tersebut beserta contoh sederhana yang akan memudahkan dalam pengaplikasiannya.
1. for…to…do dan for…down…to
Perulangan for dibagi lagi menjadi 2 jenis yaitu:
a. for…to…do
b. for…downto…do
Keduanya mempunyai fungsi yang sama dengan sintaks program seperti berikut ini.
for variable := nilai_awal to nilai_akhir do pernyataan
for variable := nilai_awal downto nilai_akhir do pernyataan
Looping for bisa digunakan untuk beberapa jenis proses pengulangan yaitu jenis pengulangan integer, pengulangan character dan pengulangan enumeration.
Contoh program: Continue reading »
OK, update blog diakhir bulan November… 😀
sedikit Share, tentang delphi. Tentang malakukan perintah select pada table dengan kriteria tanggal. query yang biasa digunakan pada ADOQuery adalah :
sql.add(‘select * from table where tgl=”‘+datetostr(datetimepicker1.date)+'”‘);
“seharusnya”, perintah diatas sudah benar dan dapat dijalankan dengan normal. Akan tetapi, muncul error tentang missmatch criteria expression. nah, sebagai solusinya, pakai code berikut :
sql.Add(‘select * from table where tgl=#’+formatdatetime(‘mm/dd/yyyy’,datetimepicker1.date)+’#’);
sekian. 😀
hehehe, maaf g bisa panjang lebar. nulisnya juga setengah2… tapi semoga membantu… 😀
hemmm… baru jam 12 tapi tumben dah ngantuk… ok, sebelum istirahat, share dikit lah…
tentang delphi, tapi kali ini untuk pemula. jadi bagi anda yang sudah cukup mahir, please, tinggalkan halaman ini. cari menu lainnya.. 😀
yups, biasanya, kalau awal-awal belajar delphi, kita dikenalkan terlebih dahulu dengan aplikasi berbasis console dengan bahasa pascal-nya. 😀
nah, berikut adalah contoh sederhana aplikasi kalkulator berbasis console yang biasanya dijadikan tugas dalam awal praktikum delphi. 😀
dalam aplikasi ini, memuat beberapa contoh sederhana tentang function, procedure, percabangan if then else, dsb…
berikut tampilannya..
tidak ada source yang saya tampilkan disini.
silakan anda download source nya download disini
ingat, ini untuk belajar ya.. bukan untuk dijiplak atau “edit-kumpul” 😀
klo ada pertanyaan, bisa lewat komen, atau bila ingin tanya jawab langsung, silakan chat bila saya Online. 😀
ok, thats all. Thanks.. 😀
OK, sedikit tips saja untuk hari ini. ada kalanya dalam membuat aplikasi kita harus merestart aplikasi itu sendiri, tanpa merestart windows. terlebih jika itu sebuah aplikasi database. misal, ada sebuah aplikasi database. setelah melakukan restore database, maka diperlukan koneksi ulang antara aplikasi dengan database. untuk menghidari error yang tidak diharapkan dan tidak terduga, maka diperlukan restart aplikasi. dan tentu, ini akan menjadi lebih keren dan asyik jika dia bisa merestart dirinya sendiri. kalau anda menemukan kasus seperti ini, maka code yang diperlukan adalah :
ShellExecute(Handle, ‘open’, PAnsiChar(ParamStr(0)), ”, ”, SW_SHOW);
Application.Terminate; // ato bisa pake “Close” aja
o iya, kadang restart terjadi lebih cepat daripada proses import database. jadi, kalau anda menemukan error berupa table yang belum exist, maka diperlukan jeda waktu restart. misal, “restore database berhasil, aplikasi akan restart dalam 5 detik lagi.” dan setelah 5 detik, baru aplikasi restart. untuk hal seperti ini, tentu anda bisa menambahkan komponen timer.
demikian sedikit tips. semoga bermanfaat. 🙂