Hello Katabah!
Pada tutorial lain, saya
menggunakan komponen StringGrid untuk penjumlahan. Pada tutorial ini, saya
membahas StringGrid untuk perkalian.
1. Buka Delphi 7
2. Klik Additional pada
Component Pallete
3. Klik komponen
StringGrid pada kategori Additional
4. Klik di form kosong
5. Klik StringGrid1 yang
telah kita letakkan pada form
6. Ubah setting ini pada
Properties (Object Inspector):
a. ColCount: 4
b. RowCount: 3
7. Klik SpeedButton pada
kategori Additional
8. Klik di bawah StringGrid1
pada form
9. Klik area kosong form
10. Klik Events pada
Object Inspector
11. Klik dua kali OnShow
12. Ketik script ini:
var
x,y:integer;
begin
//Untuk menampilkan
angka-angka pada baris pertama (kiri ke kanan)
For x:=1 to 3 do
StringGrid1.Cells[x,0]:=IntToStr(x);
//Untuk menampilkan
angka-angka pada kolom pertama (atas ke bawah)
For y:=1 to 3 do
StringGrid1.Cells[0,y]:=IntToStr(y);
**
Kalau program dijalankan
dengan menekan tombol F9 pada keyboard, maka akan tampil seperti ini:
|
|
1
|
2
|
3
|
|
1
|
|
|
|
|
2
|
|
|
|
13. Kembali ke desain
form. Klik dua kali SpeedButton1 pada form
14. Ketik script ini:
var
x,y:integer;
begin
For x:=1 to 3 do
For y:=1 to 3 do
StringGrid1.Cells[x,y]:=IntToStr(x*y);
15. Jalankan program
dengan menekan tombol F9 pada keyboard
16. Klik tombol SpeedButton1
pada form yang sedang dijalankan (running)
17. Hasilnya akan
seperti ini:
|
|
1
|
2
|
3
|
|
1
|
2
|
3
|
4
|
|
2
|
3
|
4
|
5
|
|
SpeedButton1
|
|||
Pada tutorial ini, saya
sengaja menggunakan tombol SpeedButton agar menambah pengalaman bahwa fasilitas
untuk membuat tombol pada Delphi itu tidak hanya dengan BitBtn atau Button,
tapi komponen lain juga masih bisa digunakan. Bahkan komponen Label pun bisa
digunakan untuk menerapkan fungsi tombol seperti yang dilakukan pada Button.
Satu lagi….!
Pada kotak pertama
sebelum angka 1, kita tambahkan tanda kali yuk….Seperti ini desainnya:
|
Di sini kita pasang tanda kali
|
1
|
2
|
3
|
|
1
|
2
|
3
|
4
|
|
2
|
3
|
4
|
5
|
|
SpeedButton1
|
|||
Cara menambahkan tanda
kali, ini caranya:
a. Klik dua kali SpeedButton1
b. Tambahkan script ini:
//Perintah untuk
menampilkan tanda kali
StringGrid1.Cells[0,0]:='x';
c. Jalankan lagi program
dengan F9
d. Klik SpeedButton1
pada form
e. Sekarang tanda kali
(x) sudah ada pada kotak pertama (cell A1) seperti ini:
|
X
|
1
|
|
1
|
2
|
|
"Investasi Emas dan Reksadana, Untung Mana?."
|
|
Youtube: Katabah Com: Menuju 1 jt Konten :) |
|
|
