MEMBUAT PROGRAM “MENCARI KONVERSI SUHU DARI CELCIUS KE FARENHEITT” DENGAN MENGGUNAKAN DELPHI 7

1. DESIGN FORM

2. DESIGN PROPERTIES

OBJECT

NAME

CAPTION

Group Box 1 GroupBox1 Menentukan Batasan Awal (dalam Celcius)
Group Box 2 GroupBox2 Daftar Angka Dalam Konversi Suhu Yang diperoleh
Label 1 Label1 Mencari Konversi Suhu dari Celcius Ke Farenheitt
Label 2 Label2 Batas Awal
Label 3 Label3 Batas Akhir
Label 4 Label4 Penambahan
Label 5 Label5 Hasil Dalam Celcius
Label 6 Label6 Hasil Dalam Farenheitt
Edit 1 eawal
Edit 2 eakhir
Edit 3 etambah
List Box lcel
List Box lfar
Button 1 bok &OK
Button 2 bclose &CLOSE

3. LISTING PROGRAM

procedure TForm1.bokClick(Sender: TObject);
var awal, akhir, tambah:integer;
var x, y:string;
var z:real;
begin
lcel.Clear;
lfar.Clear;

awal:=strtoint(eawal.Text);
akhir:=strtoint(eakhir.Text);
tambah:=strtoint(etambah.Text);

repeat
x:=inttostr(awal);
z:=(1.8*awal)+32;
y:=floattostr(z);

lcel.Items.Add(x);
lfar.Items.Add(y);
awal:=awal+tambah;
until
awal>akhir;
end;

procedure TForm1.bcloseClick(Sender: TObject);
begin
if application.MessageBox(‘Yakin anda akan keluar???’,’informasi’,mb_yesno)=idyes
then
close;
end;

end.

  • MAKA SETELAH JADI TAMPILANNYA AKAN SEPERTI INI :

OKE SELAMAT MENCOBA….!!! See You…

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s