Logika Program :
Jika anda ingin membuat
suatu program sederhana pada Delphi, mula-mula yang harus anda lakukan adalah :
1. Buka program Delphi maka dengan otomatis
akan keluar gambar seperti ini :
2. Kliklah tanda yang berbentuk A dan juga klik lah tanda ab buatlah
masing-masing dua seperti gambar berikut :
3. Lalu kliklah tanda A buatlah satu di
bawah label dan klik tanda ab buatlah dua di
sebelah kanan edit, seperti pada gambar berikut:
4. Lalu ubahlah bacaan label1 pada properties-Caption dengan bilangan1 dan
label2 dengan bilangan2 seperti gambar berikut :
5. Lalu hapuslah kata edit1 seperti pada
gambar :
6. Lalu ubahlah kata button1 dengan kata Ok
dan button2 dengan kata clear seperti pada gambar berikut :
7. Klik double pada button1 yang telah diganti
dengan Ok dengan ketiklah program berikut :
var
M,I:Integer;
begin
Memo1.Clear;
M:=Strtoint
(edit1.Text);
I:=1;
While
I <> Strtoint (Edit2.Text) do
begin
memo1.Lines.add
('Perulangan ke- ' + inttostr (I) + ('=') + inttostr(M));
M:= M+1;
I:=
I+1;
end;
end;
seperti
pada gambar berikut :
8. Setelah anda mengetik program seperti di
atas lalu kliklah tanda panah berwarna hijau atau tekan f5
pada PC anda sampai keluar gambar seperti berikut :
9. Masukkanlah inputtan bilangan yang anda
inginkan, saya mengambil contoh masukan inputtan pada bilangan1 yaitu 2 dan
inputtan bilangan2 yaitu 12 lalu klik Ok, di layar PC akan tampil seperti
berikut :
10 .
Jika anda ingin menghapus data yang telah di atas , klik double
Clear dan ketikkan program berikut :
procedure TForm1.Button2Click(Sender:
TObject);
begin
Edit1.Text:= ' ';
Edit2.Text:= ' ';
memo1.Text:= ' ';
label1.Caption:='bilangan 1:';
label2.Caption:='bilangan 2:';
end;
end.
Seperti pada gambar berikut :
11
lalu klik tanda panah berwarna hijau atau f5 pada PC
anda, dan masukkan kembali
Bilangan yang anda inginkan lalu klik
Clear maka button akan
Hilang, seperti pada gambar berikut :
Output :
Tidak ada komentar:
Posting Komentar