MEMBUAT CODE DELPHI 7

1. Buka Delphi 7 dan Buatlah project baru

2. Masukan komponennya: 3 Label, 3 EditText, dan 8 tombol button

3. Paling tidak gambarnya akan seperti ini:

4. Lalu kalian buat procedure bersih. Tau kan caranya?

5. Dan di procedure bersih itu kalian masukan coding di bawah ini, untuk membuat layar bersih:

 procedure Tform1.bersih;

begin

edit1.text:='';

edit2.text:='';

edit3.text:='';

end;

6. Dan masukan coding berikut untuk tombol-tombolnya:

procedure TForm1.FormCreate(Sender: TObject);

begin

bersih;

end;

procedure TForm1.Button1Click(Sender: TObject);

var tambah : real;

begin

tambah:=StrToFloat(edit1.Text)+StrToFloat(edit2.Text);

Edit3.Text:=FloatToStr(tambah);

end;

procedure TForm1.Button2Click(Sender: TObject);

var kurang:real;

begin

kurang:=StrToFloat(edit1.Text)-StrToFloat(edit2.Text);

Edit3.Text:=FloatToStr(kurang);

end;

procedure TForm1.Button4Click(Sender: TObject);

var bagi : real; 

begin 

bagi:=StrToFloat(edit1.Text) / StrToFloat(edit2.Text);

Edit3.Text:=FloatToStr(bagi);

end;

procedure TForm1.Button3Click(Sender: TObject);

var kali : real;

begin 

kali:=StrToFloat(edit1.Text) * StrToFloat(edit2.Text);

Edit3.Text:=FloatToStr(kali); 

end;

procedure TForm1.Button5Click(Sender: TObject);

var devided:integer; 

begin 

devided:=StrToInt(edit1.Text) div StrToInt(edit2.Text);

Edit3.Text:=IntToStr(devided);

end;

procedure TForm1.Button6Click(Sender: TObject);

var modify:integer;

begin

modify:=StrToInt(edit1.Text) mod StrToInt(edit2.Text);

Edit3.Text:=IntToStr(modify);

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

bersih;

edit1.SetFocus;

end;

Setelah memasukan Code di atas .. Langsung klik RUN atau CTRL+F9

Selamat Mencoba dan Semoga Bermanfaat ^^