tag:blogger.com,1999:blog-78100230987237353782012-02-16T04:01:27.176-08:00AWhttp://www.blogger.com/profile/08637492921390486354noreply@blogger.comBlogger11100tag:blogger.com,1999:blog-7810023098723735378.post-71234340209872671392007-11-26T17:48:00.000-08:002007-11-26T18:04:29.626-08:00<span style="color: rgb(51, 51, 255);"><span style="color: rgb(0, 0, 0);">Anda tentunya pernah menggunakan syntax sleep(), untuk menunda suatu proses. Perintah sleep() akan menghentikan proses sesusai dengan waktu yang kita inginkan, akan tetapi sleep mempunyai efek yang kurang bagus, program sperti keliatan hang, nah untuk mengatasinya kita bisa membuat procedure baru. Berikut i ni contohnya: </span></span><span style="font-style: italic; color: rgb(51, 51, 255);"><span style="color: rgb(0, 0, 0);"><span style="font-style: italic;"><br /><br /></span></span>procedure TForm1.Delay(msecs:integer);</span><br /><span style="font-style: italic; color: rgb(51, 51, 255);">var</span><br /><span style="font-style: italic; color: rgb(51, 51, 255);"> FirstTickCount:longint;</span><br /><span style="font-style: italic; color: rgb(51, 51, 255);">begin</span><br /><span style="font-style: italic; color: rgb(51, 51, 255);"> FirstTickCount:=GetTickCount;</span><br /><span style="font-style: italic; color: rgb(51, 51, 255);"> repeat</span><br /><span style="font-style: italic; color: rgb(51, 51, 255);"> Application.ProcessMessages;</span><br /><span style="font-style: italic; color: rgb(51, 51, 255);"> until ((GetTickCount-FirstTickCount) >= Longint(msecs));</span><br /><span style="font-style: italic; color: rgb(51, 51, 255);">end;<br /><br /></span><span style="color: rgb(0, 0, 0); font-style: italic;">Selamat mencoba.</span><span style="font-style: italic; color: rgb(51, 51, 255);"><br /></span><div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/7810023098723735378-7123434020987267139?l=agus-w.blogspot.com' alt='' /></div>AWhttp://www.blogger.com/profile/08637492921390486354noreply@blogger.com0