A’asalamu’alaikum wr.wb.
Dalam pertmuan kali ini kita akn
membahas tentang program delhpi...Kali saya akn
membuat program kalkulator pada program delphi7.
1.langkah pertama
desain lah form seperti gambar di disamping ini:
Kerangan pembuatan form nya
MASUKAN KODE
PROGRAMNYA
klik2 kali tombol +
procedure TForm1.Button1Click(Sender: TObject);
begin
edit3.Text:= inttostr (strtoint(edit1.Text) + strtoint (edit2.Text));
end;
klik2 kali tombol -
procedure TForm1.Button2Click(Sender: TObject);
begin
edit3.Text:= inttostr (strtoint(edit1.Text) - strtoint (edit2.Text));
end;
klik2 kali tombol x
procedure TForm1.Button3Click(Sender: TObject);
begin
edit3.Text:= inttostr (strtoint(edit1.Text) * strtoint (edit2.Text));
end;
klik2 kali tombol /
procedure TForm1.Button4Click(Sender: TObject);
begin
edit3.Text:= currtostr (strtocurr(edit1.Text)/strtocurr(edit2.Text));
end;
klik2 kali tombol keluar
procedure TForm1.Button5Click(Sender: TObject);
begin
CLOSE;
end;
end.
0 Response to "DELPFI7 PROGRAM MEMBUAT KALKULATOR"
Post a Comment