Dipublikasikan untuk memenuhi tugas
Delphi
Nama :
Uyana Adyati
Kelas :
Manajement Informatika A
Nim :13.MI.077
Semester : 3
MAHASISWA AMIKOM MATARAM
Contoh Perulangan
pada Delphi (For To Do)
Pada program ini
kita akan membuat perulangan for To Do ditambah dengan perhitungan kuadrat.Sebelum
memasang listing pada program ini, Kita terlebih dahulu membuat form1 kemudian memasang 3 button, 2 label, 2 edit
untuk melalukan input dan satu listbox untuk tempat outputnya. Berikut ini adalah design dari
pemrograman yang akan kita buat :
**Button process berfungsi untuk menjalankan
program perulangan for To Do.
Button Clear berfungsi untuk menghapus perulangan
yang dilakukan.
Button Exit berfungsi untuk menutup program
perulangan.
** warna bias
kita ubah dan pilih sendiri dengan megklik formnya kemudian menggantinya di
pilihan Object Inspector dengan memilih Color .
** Kemudian
label1 isikan captionnya menjadi
For dan label2 isikan captionnya menjadi To di object inspector di kiri bwah
Seperti gambar dibawah ini :
** edit1,edit2 textnya dihapus
saja di object inspector untuk memudahkan kita dalam menginputkan gamabar dibawah ini :
**Jika sudah semua, maka
selanjutnya masuk ke tahap pengodingan, disini kita sudah harus mengetahui
sintaks-sintaks dalam bahasa pemrograman Delphi 7 agar saat di kompilasi tidak
terjadi kesalahan dalam pengodingan. Kita lanjutkan saja ke tahap pengodingan.
Terlebih
dahulu buatlah variabel yang diperlukan untuk memasukkan nilai:
Listbox1.Clear; berguna untuk
menghapus judul/caption yang terdapat pada Memo1 karena dalam Object Inspector,
komponen listbox tidak mempunyai
caption.
Listbox1.Items.Add() berguna
menampilkan hasil cetakan ke dalam listbox per baris.
Codingan dalam proses/kuadrat :
a := Sqr(C); berarti nilai pada
variabel C akan di kalikan lagi dengan nilai yang sama pada variabel C.
Berikut ini adalah
pengkodinggannya :
procedure TForm1.ClearClick(Sender: TObject);
begin
listbox1.Clear; //menghapus
hasil perulangan//
end;
procedure TForm1.processClick(Sender: TObject);
var
A,B,C:integer;
begin
listbox1.Clear;
B:=strtoint(edit1.Text);
for C:=B to strtoint(edit2.Text)do // melakukan perulangan dari for ke to //
begin
A:=sqr(C);
listbox1.items.Add(inttostr(C)+' Hasil kuadratnya = '+inttostr(A)); //memunculkan hasil perulangan//
end;
end;
procedure TForm1.ExitClick(Sender: TObject);
begin
close // menutup
program perulangan//
end;
end.
** berikut ini adalah hasil outputnya :
Sekian dulu ya contoh untuk perulangan for To do
nya ,,,, Sampai jumpa di pembahsan yang
lain.
^_^ Just For
Share
