Contoh Perulangan pada Delphi (For To Do)

Senin, 26 Maret 2012

Contoh Perulangan pada Delphi (For To Do)

software yang di gunakan adalah Delphi 7
for to do adalah . program yang berjalan dengan menggunakan suatu variabel counter yang akan bertambah secara otomatis ketika perintah yang di ulang selesai



Sebelum memasang listing pada program ini , kita terlebih dahulu memasang button1 , label 1 dan label 2 dan satu memo untuk output nya serta edit 1 dan edit 2 untuk melakukan input 

label satu isikan namanya jadi angka awal
label2 isikan jumlah perulangan ,, 



PROCEDURE TFORM1.BUTTON1CLICK(SENDER: TOBJECT);

VAR I,J:INTEGER;
BEGIN
MEMO1.CLEAR;
I:=STRTOINT (EDIT1.TEXT);
FOR J:= 1 TO STRTOINT (EDIT2.TEXT) DO
BEGIN
MEMO1.LINES.ADD('KE:'+INTTOSTR(J)+'='+INTTOSTR(I));
I:=I+1;
END;
END; 
end.

Output nya :

untuk hari ini yang pake mode perulangan for to do dulu , udah ngantuk juga nih , pertemuan selanjutnya akan membahas metode for downto do


Tidak ada komentar:

Poskan Komentar

Thanks For Your Comment !! ^^:LC

LinkWithin

Related Posts Plugin for WordPress, Blogger...