Program Bola manjat-manjat
untuk kali, kami akan mencoba membuat program bola memantul. Setelah diberi pemahaman oleh teman-temannku, akhirnya bisa juga membuatnya, meskipun ada beberapa yang masih belum terlalu paham. langkah pertama tentu saja membuka program delphi.
dan buatlah form seperti ini;
setelah itu tuliskan syntaq
procedure TForm1.Button1Click(Sender: TObject);
var x:integer;
begin
x:=0;
repeat if (x=0)then
begin
shape1.Top:=shape1.Top+10;
if (shape1.Top>=333)then
begin
x:=5;
shape1.Brush.Color:=clred;
end;
end else
if(x=5)then
begin
shape1.Top:=shape1.Top-10;
if(shape1.Top<=0) then
begin x:=0;
shape1.Brush.Color:=clyellow;
end;
end;
sleep(100);
application.ProcessMessages;
until (x=2);
end;
maka akan menjadi
untuk lebih silahkan download video tutorialnya!!!
dan kunjungi webnya http://mutimmah---fst09.web.unair.ac.id
0 komentar:
Posting Komentar