Arsip: menghentikan proses looping

more 17 years ago
kabuki_enemy
begini..., Q bikin program neural network.
dalam proses perhitungan, ada proses looping sampe ribuan iterasi bhkn lebih.
dosenQ mnta agar proses bisa dibatalkan oleh user,
sedangkan program ketika menjalankan proses looping, aplikasinya jadi kaya not responding(kalo diliat di Task-Manager), padahal program msh dlm proses dan selesai.
misal: Q pernah ingin nampilin iterasinya dalam label, tp slama proses label tidak berubah, klo dah slsai baru dicetak hasil terakhirnya.
menurutQ ne krn proses loopingny(bner g??).
klo misalnya bikin dialog yang kaya proses copy, tu gmn. didialog tu kn ada progress ma tombol cancelnya.
ato kalo pake button cancel sndri, caranya gmn spy bs diklik slma proses looping jln, cz smua kmponen dalam form, kaya g aktif(g bisa dklik or diapa-apain).
pls y mnt bantuannya, cz Q dah mentok ne
thanx b4

more 17 years ago
hendrang
Kalau mau pakai button cancel, di dalam loop tambahkan code
Application.ProcessMessages
contohnya:
var isLoopExit: Boolean = False;
for i:= 1 to 999999
begin
Application.ProcessMessages;
if isLoopExit then
begin
isLoopExit:= False;
Exit;
end;
<yr code>
<yr code>
.
.
end
procedure TForm1.Button1Click(Sender: TObject);
begin
isLoopExit:= True;
end;

more 17 years ago
pebbie
yap, di dalam looping pake
Application.ProcessMessages;
klo mo keluar dari loop pake break;

more 17 years ago
mas_kofa
sedangkan program ketika menjalankan proses looping, aplikasinya jadi kaya not responding(kalo diliat di Task-Manager), padahal program msh dlm proses dan selesai.coba pake thread..........untuk looping

more 17 years ago
Zulkarnain
Oh ya mas aku pernah membuat program seperti itu, dan pernah mengalami hal yang sama, setelah aku perbaiki ga lagi tuch, saranku coba lagi benerin/tata lagi source codenya, maaf mas ya aku ga bisa bantu kamu lebih banyak soalnya kamu ga nyertain source code dari programmu itu agar nanti bisa dianalisa bersama-sama dengan teman-teman yang lainnya.

more 17 years ago
xerion
sudah dijelaskan oleh mas pebbie
agar not responding tidak berlebihan, bisa memanggil application.processmessage beberapa kali agar aplikasi bisa ngolah pesan
message yang masuk. jadi tidak nampak hang.
break bisa dipakai untuk keluar dari proses looping jika ingin batal atau sudah dapat hasil yang dicari
jadi procedute berikutnya dilewatin
continue bisa dipakai jika pada check data awal bukan yang diinginkan, jadi bisa maju ke loop berikutnya.
exit --> jika ingin keluar dari procedure itu.
atau untuk loop juga bisa pakai
repeat
blablabla;
application.processmessage;
application.processmessage;
until UserCancel = true;

more 17 years ago
kabuki_enemy
thanx ya bwt sarannya, tar dicoba.
bwt source code tar Q upload biar bisa dianalisa, klo skrg Q g bawa.
tar klo ada keslitan Q tanya lagi deh......

more 17 years ago
ekosch
1. buat variabel global
misal stop:boolean;
2.buat tombol onkliknya diisi
dengan stop:=true;
3. repeat
application.prosesmessage;
inc(x);
until (stop = true) or (x = 1000);
beres .. looping akan berhenti jika
tombol ditekan atau counter sudah
mencapai 1000

more 17 years ago
chakhar86
lebih baik pake thread deh... soalnya kalo ada procedure "application.processmessages" pastinya akan melambatkan programnya karena di block oleh procedure tsb. kalo pake thread, tinggal thread.pause atau thread.exit selesai deh dia.
more ...
- Pages:
- 1
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- ada yg tau cara nampilin spectrum dari file MP3 ga?
by ho_excel in Multimedia & Graphic Enhancement more 18 years ago - Kalkulasi dalam Field
by juki in Hal umum tentang Pascal Indonesia more 16 years ago - gimana cara nampilin angka nol didepan
by putukaca in onLinux more 18 years ago - Best practise di Delphi berkaitan dg reusability
by wisnu.widiarta in Hal umum tentang Pascal Indonesia more 15 years ago - koneksi ke hardware
by trimbil in Network, Files, I/O & System more 16 years ago - update data ke sql server dengan notepad
by hendrahongdexin in Tip n Trik Pemrograman more 15 years ago - quantity mysql
by belajaraja in Enginering more 17 years ago - adhie
by adhieweezer in Lain-lain more 15 years ago - Input pake Dbgrid?
by andihdr in Hal umum tentang Pascal Indonesia more 15 years ago - Cara mengubah file *.wav to string?
by ekopewe in Multimedia & Graphic Enhancement more 16 years ago