- Buka Aplikasi Borland Delphi
- Letakkan komponen Edit text sebanyak 3 kali dan label sebanyak 4, lihat gambar 1
- Buka Propertis Caption untuk Form 1, ganti dengan nama "Program Penjumlahan" dan untuk border style pilis "bsDialog", agar aplikasi tampil ditengan layar saat dijalankan pilih position "poDesktopCenter"
- Masih di form1, pilih properti events OnActive dan ketikan edit1.text:=""; dan lakukan untuk semua edit text agar tampil kosong saat dijalankan
- Karena program ini akan menghasilkan penjumlahan 2 bilangan setelah bilangan kedua dimasukkan, maka kita perlu memasukan koden program pada edit2.text pada bagian properti event OnExit dan klik 2 kali sehingga akan masuk ke unit1.pas dan kemudia ketikan program berikut
- sisipkan code var a,b,c:integer; di atas kata begin
- masukan kode program berikut diantara begin dan end;
- a:=strtoint(edit1.Text);
- b:=strtoint(edit2.Text);
- c:=a+b;
- edit3.Text:=inttostr(c);
Jalankan program, isikan angkan pada kotak bilangan I, kemudian tekan tombol tab dari keyboard untuk berpindah ke bilangan II, dan untuk melihat hasil penjumlahan ketik tab
No comments:
Post a Comment
Note: Only a member of this blog may post a comment.