Untuk latihan kali ini, kita akan membuat sebuah form yang berisi beberapa komponen text, label dan button. Form ini digunakan untuk menghitung operasi matematis 2 bilangan bulat. Setelah user memasukkan bilangan bulat pada text, maka user dapat memilih operasi matematis apa yang diinginkan. User cukup memilih button TAMBAH, KURANG atau KALI. Jika user menghendaki untuk mengakhiri program ini, cukup mengklik button KELUAR.
Langkah – langkah yang harus dilakukan untuk membuat program adalah sebagai berikut :
1. Buatlah projek baru, tempatkan komponen seperti di bawah ini :
2. Aturlah properti form dan komponen sebagai berikut :
3. Double klik button Tambah, akan muncul listing program berupa sebuah procedure kosong. Isikan listing program ke dalam prosedur kosong tersebut, sehingga akan terlihat seperti ini :
procedure TfrmKalkulator.btTambahClick(Sender: TObject);
begin
edHasil.Text:=IntToStr(StrToInt(edBilPertama.Text) + StrToInt(edBilKedua.Text));
end;
4. Double klik button Kurang, akan muncul listing program berupa sebuah procedure kosong. Isikan listing program ke dalam prosedur kosong tersebut, sehingga akan terlihat seperti ini :
procedure TfrmKalkulator.btKurangClick(Sender: TObject);
begin
edHasil.Text:=IntToStr(StrToInt(edBilPertama.Text) – StrToInt(edBilKedua.Text));
end;
5. Double klik button Kali, akan muncul listing program berupa sebuah procedure kosong. Isikan listing program ke dalam prosedur kosong tersebut, sehingga akan terlihat seperti ini :
procedure TfrmKalkulator.btKaliClick(Sender: TObject);
begin
edHasil.Text:=IntToStr(StrToInt(edBilPertama.Text) * StrToInt(edBilKedua.Text));
end;
6. Double klik button Kali, akan muncul listing program berupa sebuah procedure kosong. Isikan listing program ke dalam prosedur kosong tersebut, sehingga akan terlihat seperti ini :
procedure TfrmKalkulator.btKeluarClick(Sender: TObject);
begin
application.Terminate;
end;
7. Jalankan program, dan isikan input berupa bilangan bulat pada text.
0 komentar:
Posting Komentar