1.Listing Program
Form
Listing Program
2.Logika Program
Pertemuan kali
ini kita akan mempelajari cara timer pada Delphi. Pertama sekali kita buat form
seperti yang di tunjukan dengan tool Button dan Panel dari tab Standard, Shape
dari tab Additional dan timer dari tab System.
Sebelumnya di kotak properties
timer, kita harus mengubah Enabled menjadi False dan interval menjadi 10.
Lakukan hal ini pada semua Timer.
Listing ini bertujuan untuk
menjalankan Timer1 ketika program di run. Selanjutnya kita masukan Listing Timer1.
Listing ini menjelaskan ketika
timer1 dijalankan, shape yang kita buat akan berjalan ke kanan sebanyak 10
satuan. Hal ini akan terus berlanjut sampai nilainya mencampai 392 satuan atau
lebih ( Jumlah nya tergantung dari lebar panel yang kita buat ). Jika telah
sampai ke 392 satuan atau lebih, maka Timer1 akan berhenti, dan Timer2 akan
dijalankan.
Masukkan listing Timer2.
Listing ini menjelaskan ketika
timer2 dijalankan, shape akan bergerak ke kiri sebanyak 10 satuan. Hal ini akan
terus berlanjut sampai nilai satuan menjadi 0 atau kurang. Ketika mencapai 0
atau kurang dari 0, Timer2 akan berhenti dan Timer3 akan berjalan.
NOTE:
Di dalam Delphi hanya terdapat 2 arah, yaitu Left
(Kiri) dan Top (Atas). Nilai yang paling kecil adalah di pojok kiri atas,
bernilai (0,0). Jadi untuk membuat shape bergeser ke arah kiri kita bisa
melakukannya dengan mengurangi jumlah satuan. Sebaliknya juga ke arah kanan
dengan cara menambah satuan.
Selanjutnya masukkan listing program di Timer3.
Listing tersebut menjelaskan ketika
program dijalankan maka shape akan bergerak ke atas sebanyak 10 satuan. Ketika
satuan mencapi 0 atau kurang dari 0, maka Timer3 akan dimatikan dan Timer4 akan
dijalankan.
Selanjutnya masukkan listing program
ke Timer4.
Listingnya menjelaskan ketika
program dijalankan maka shape akan bergerak ke bawah sebanyak 10 satuan, ketika
mencapai nilai 288 atau lebih ( tergantung panjang panel ) maka Timer4 akan
dimatikan dan Timer1 akan dijalankan.
Tidak ada komentar:
Posting Komentar