.jpg)
Untuk menghasilkan seperti pada gambar , maka ..... sobat pencinta program menginstal dulu Borland Delphi yaaa..
Kemudian buat satu buah tombol dengan mengklik Button lalu klik lagi pada layar kerja..
Sobat double klik saja button tadi maka langsunag menuju ke layar koding...
KETIKKAN KODING BERIKUT ......
Kemudian buat satu buah tombol dengan mengklik Button lalu klik lagi pada layar kerja..
Sobat double klik saja button tadi maka langsunag menuju ke layar koding...
KETIKKAN KODING BERIKUT ......
var i,j : integer ;
begin
for j := 0 to 4 do
begin
for i := 100 to 200 do
begin
canvas.Pixels[100+(j*105),i] := clred ;
canvas.Pixels [i + (j*105),100] :=clred ;
canvas.Pixels [i + (j*105), 200] :=clred ;
canvas.Pixels [200+(j*105),i] :=clred ;
end;
for i := 100 to 200 do
begin
canvas.Pixels[100+(j*105),i+(j*105)] := clred ;
canvas.Pixels [i + (j*105),100+(j*105)] :=clred ;
canvas.Pixels [i + (j*105), 200+(j*105)] :=clred ;
canvas.Pixels [200+(j*105),i+(j*105)] :=clred ;
end;
for i := 100 to 200 do
begin
canvas.Pixels[100,i+(j*105)] := clred ;
canvas.Pixels [i ,100+ (j*105)] :=clred ;
canvas.Pixels [i , 200+ (j*105)] :=clred ;
canvas.Pixels [200,i+(j*105)] :=clred ;
end;
end;
end;
SEMOGA BERMANFAAT
0 comments:
Post a Comment