PEMBUATAN PROCEDURE DELAY DENGAN FUNGSI API SLEEP

            Dalam pertemuan IMK ke 9 kemarin kami dikenalkan dengan dasar pembuatan animasi teks dengan Delphi, nah dalam Delphi sendiri belum disediakan suatu fungsi untuk men delay program dalam selang waktu tertentu, jadi kita harus membuat sendiri procedure delay sesuai dengan kebutuhan kita. Contoh procedure delay yang sudah di bahas kemarin seperti berikut :

procedure Delay(t:longInt);

var mulai, selesai:LongInt;

begin

mulai :=GetTickCount;

repeat

            Application.ProcessMessages;

selesai:=GetTickCount;

until (selesai-mulai)>=t;

end;

nah procedure di atas merupakan contoh procedure delay yang sering di gunakan, pada artikel sebelumnya, sepertinya membahas tentang fungsi API nah, kali ini kita akan mencoba membuat sebuah procedure delay memanfaatkan fungsi API sleep()  yang terdapat pada file library kernel32.dll.

untuk pendeklarasian fungsi API sleep mari kita gunakan file Windows.pas yang sudah di sediakan, cara memanggilnya sebagai berikut :

uses

            windows;

tapi biasanya secara default program yang kita buat sudah menggunakan file windows.pas, dan biasanya terdapat di bagian atas.
berikut potongan kode pendeklarasian fungsi API Sleep di file windows.pas :

Nah untuk membuat procedure delay dengan fungsi sleep() sebagai berikut :

Procedure Delay(time : integer);

Begin

            Sleep(time);

End;

Nah saya rasa cukup disini dulu untuk penjelasan kali ini, semoga bermanfaat…

Salam hangat,

Agus minanur rohman