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. :D

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… :D
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. :D

hehehe, maaf g bisa panjang lebar. nulisnya juga setengah2… tapi semoga membantu… :D

 

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.. :D

yups, biasanya, kalau awal-awal belajar delphi, kita dikenalkan terlebih dahulu dengan aplikasi berbasis console dengan bahasa pascal-nya. :D

nah, berikut adalah contoh sederhana aplikasi kalkulator berbasis console yang biasanya dijadikan tugas dalam awal praktikum delphi. :D

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” :D

klo ada pertanyaan, bisa lewat komen, atau bila ingin tanya jawab langsung, silakan chat bila saya Online. :D

ok, thats all. Thanks.. :D

 

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. :)

 

em, sedikit tips kali ini, tentang cara untuk membulatkan angka pecahan ratusan ke dalam ribuan. misal,
192.333 dibulatkan menjadi 192.000
174.250 dibulatkan menjadi 174.000
kalau ada pertanyaan, kenapa juga harus dibulatkan? sedangkan angka itu bukan angka pecahan atau desimal. OK, pembulatan seperti ini akan diperlukan untuk perhitungan data keuangan dengan jangkauan angka yang cukup besar. misal, bila kita bicara tentang pembayaran sebuah angsuran, bukankah sangat jarang bila ada angsuran dengan pecahan ratusan rupiah? terlebih jika jumlahnya mencapai jutaan rupiah. :)

kasus ini baru saja saya alami ketika saya membuat sebuah sistem keuangan. dan dari situ juga saya ada niat untuk share disini karena ternyata belum banyak yang menulis tentang ini. entah karena ini terlalu sepele sampai terlewatkan atau bagaimana saya kurang tahu. tapi, yah, semoga bermanfaat.:)

cara pembulatan tersebut cukup sederhana. algoritma yang saya pakai adalah membagi angka tersebut dengan angka 1000, kemudian mengalikannya kembali dengan angka 1000. jadi, untuk codenya kira-kira demikian:

angka := (angka div 1000) * 1000;

dimana angka adalah bilangan bertipe integer. apabila berupa bilangan real atau float, maka ditambah trunc() jadinya kira-kira begini untuk angka adalah bilangan real atau float:

angka := (trunc(angka) div 1000) * 1000;

demikian, semoga membantu. :)



© 2011 code4769's site Suffusion theme by Sayontan Sinha