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;
beginedit1.text:='';edit2.text:='';edit3.text:='';end;
6. Dan masukan coding berikut untuk tombol-tombolnya:
Setelah memasukan Code di atas .. Langsung klik RUN atau CTRL+F9procedure TForm1.FormCreate(Sender: TObject);beginbersih;end;procedure TForm1.Button1Click(Sender: TObject);var tambah : real;begintambah:=StrToFloat(edit1.Text)+StrToFloat(edit2.Text);Edit3.Text:=FloatToStr(tambah);end;procedure TForm1.Button2Click(Sender: TObject);var kurang:real;beginkurang:=StrToFloat(edit1.Text)-StrToFloat(edit2.Text);Edit3.Text:=FloatToStr(kurang);end;procedure TForm1.Button4Click(Sender: TObject);var bagi : real;beginbagi:=StrToFloat(edit1.Text) / StrToFloat(edit2.Text);Edit3.Text:=FloatToStr(bagi);end;procedure TForm1.Button3Click(Sender: TObject);var kali : real;beginkali:=StrToFloat(edit1.Text) * StrToFloat(edit2.Text);Edit3.Text:=FloatToStr(kali);end;procedure TForm1.Button5Click(Sender: TObject);var devided:integer;begindevided:=StrToInt(edit1.Text) div StrToInt(edit2.Text);Edit3.Text:=IntToStr(devided);end;procedure TForm1.Button6Click(Sender: TObject);var modify:integer;beginmodify:=StrToInt(edit1.Text) mod StrToInt(edit2.Text);Edit3.Text:=IntToStr(modify);end;procedure TForm1.Button7Click(Sender: TObject);beginbersih;edit1.SetFocus;end;
Selamat Mencoba dan Semoga Bermanfaat ^^
RSS Feed
Twitter
08.20
ADMIN
