Haiii (•̀ᴗ•́)و ̑̑ Di semester lalu aku belajar Delphi 7 dan sangat bersemangat ketika dosbing nya bilang akan membuat animasi. Karena aku suka banget animasi~ dulu sering buat di Macromedia Flash. Emang sih, lebih mudah buat animasi di Macromedia Flash, tapi aku akan memberitahu kalian coding membuat animasi di Delphi 7 beserta penjelasan codingnya. Silahkan di lihat~
Oke, pertama sediakan beberapa gambar dalam bentuk Bitmap(.bmp) untuk animasinya. Disini aku pakai 22 gambar hehe, tapi kalian bebas mau pakai berapa gambar~
Kemudian tambahkan komponen 1 Image, 2 Button, dan 1 Timer.
Setelah itu masukkan codingnya.
procedure TForm1.Timer1Timer(Sender: TObject);
begin //mulai
if gambar=1 then //jika variabel gambar sama dengan 1,
maka...
image1.Picture.LoadFromFile('play1.bmp') //pada image1 akan menampilkan gambar
‘play1’
else if gambar=2 then
//jika variabel gambar sama
dengan 2, maka...
image1.Picture.LoadFromFile('play2.bmp') //pada image1 akan menampilkan gambar ‘play2’
else if gambar=3 then //jika
variabel gambar sama dengan 3, maka...
image1.Picture.LoadFromFile('play3.bmp') //pada image1 akan menampilkan gambar ‘play3’
else if gambar=4 then //jika
variabel gambar sama dengan 4, maka...
image1.Picture.LoadFromFile('play2.bmp') //pada image1 akan menampilkan gambar ‘play2’
else if gambar=5 then //jika
variabel gambar sama dengan 5, maka...
image1.Picture.LoadFromFile('play3.bmp') //pada image1 akan menampilkan gambar ‘play3’
else if gambar=6 then //jika
variabel gambar sama dengan 6, maka...
image1.Picture.LoadFromFile('play1.bmp') //pada image1 akan menampilkan gambar ‘play1’
else if gambar=7 then //jika
variabel gambar sama dengan 7, maka...
image1.Picture.LoadFromFile('play3.bmp') //pada image1 akan menampilkan gambar ‘play3’
else if gambar=8 then //jika
variabel gambar sama dengan 8, maka...
image1.Picture.LoadFromFile('play1.bmp') //pada image1 akan menampilkan gambar ‘play1’
else if gambar=9 then //jika
variabel gambar sama dengan 9, maka...
image1.Picture.LoadFromFile('play2.bmp') //pada image1 akan menampilkan gambar ‘play2’
else if gambar=10 then //jika
variabel gambar sama dengan 10, maka...
image1.Picture.LoadFromFile('play4.bmp') //pada image1 akan menampilkan gambar ‘play4’
else if gambar=11 then //jika
variabel gambar sama dengan 11, maka...
image1.Picture.LoadFromFile('play5.bmp') //pada image1 akan menampilkan gambar ‘play5’
else if gambar=12 then //jika
variabel gambar sama dengan 12, maka...
image1.Picture.LoadFromFile('play6.bmp') //pada image1 akan menampilkan gambar ‘play6’
else if gambar=13 then //jika
variabel gambar sama dengan 13, maka...
image1.Picture.LoadFromFile('play5.bmp') //pada image1 akan menampilkan gambar ‘play5’
else if gambar=14 then //jika
variabel gambar sama dengan 14, maka...
image1.Picture.LoadFromFile('play7.bmp') //pada image1 akan menampilkan gambar ‘play7’
else if gambar=15 then //jika
variabel gambar sama dengan 15, maka...
image1.Picture.LoadFromFile('play8.bmp') //pada image1 akan menampilkan gambar ‘play8’
else if gambar=16 then //jika
variabel gambar sama dengan 16, maka...
image1.Picture.LoadFromFile('play9.bmp') //pada image1 akan menampilkan gambar ‘play9’
else if gambar=17 then //jika
variabel gambar sama dengan 17, maka...
image1.Picture.LoadFromFile('play10.bmp') //pada image1 akan menampilkan gambar ‘play10’
else if gambar=18 then //jika
variabel gambar sama dengan 18, maka...
image1.Picture.LoadFromFile('play11.bmp') //pada image1 akan menampilkan gambar ‘play11’
else if gambar=19 then //jika
variabel gambar sama dengan 19, maka...
image1.Picture.LoadFromFile('play12.bmp') //pada image1 akan menampilkan gambar ‘play12’
else if gambar=20 then //jika
variabel gambar sama dengan 20, maka...
image1.Picture.LoadFromFile('play12.bmp') //pada image1 akan menampilkan gambar ‘play12’
else if gambar=21 then //jika
variabel gambar sama dengan 21, maka...
image1.Picture.LoadFromFile('play13.bmp') //pada image1 akan menampilkan gambar ‘play13’
else if gambar=22 then //jika
variabel gambar sama dengan 22, maka...
image1.Picture.LoadFromFile('play15.bmp') //pada image1 akan menampilkan gambar ‘play15’
else if gambar=23 then //jika
variabel gambar sama dengan 23, maka...
image1.Picture.LoadFromFile('play16.bmp') //pada image1 akan menampilkan gambar ‘play16’
else if gambar=24 then //jika
variabel gambar sama dengan 24, maka...
image1.Picture.LoadFromFile('play17.bmp') //pada image1 akan menampilkan gambar ‘play17’
else if gambar=25 then //jika
variabel gambar sama dengan 25, maka...
image1.Picture.LoadFromFile('play18.bmp') //pada image1 akan menampilkan gambar ‘play18’
else if gambar=26 then //jika
variabel gambar sama dengan 26, maka...
image1.Picture.LoadFromFile('play19.bmp') //pada image1 akan menampilkan gambar ‘play19’
else if gambar=27 then //jika
variabel gambar sama dengan 27, maka...
image1.Picture.LoadFromFile('play20.bmp') //pada image1 akan menampilkan gambar ‘play20’
else if gambar=28 then //jika
variabel gambar sama dengan 28, maka...
image1.Picture.LoadFromFile('play21.bmp') //pada image1 akan menampilkan gambar ‘play21’
else if gambar=29 then //jika
variabel gambar sama dengan 29, maka...
image1.Picture.LoadFromFile('play22.bmp'); //pada image1 akan menampilkan gambar ‘play22’
if gambar=29 then //jika
variabel gambar sama dengan 29, maka...
gambar:=1 //variabel
gambar kembali sama dengan 1 (perulangan)
else
inc(gambar); //Bila inc, maka pointer
variabel gambar bertambah ke kanan
end; //selesai
procedure TForm1.Button1Click(Sender: TObject);
begin //mulai
if button1.caption='Pause' then //jika button1 berjudul ‘Pause’, maka...
begin //mulai
timer1.enabled:=false; //timer1
akan berhenti
button1.caption:='Start'; //button1 akan berganti judul menjadi ‘Start’
end else //jika tidak
begin //mulai
timer1.enabled:=true; //timer1
akan berjalan
button1.caption:='Pause'; //button1 akan berganti judul menjadi ‘Pause’
end;
end; //selesai
procedure TForm1.FormActivate(Sender: TObject);
begin //mulai
gambar:=1; //variabel
gambar sama dengan 1
end; //selesai
procedure TForm1.Button3Click(Sender: TObject);
begin //mulai
close; //tutup
end;
end. //selesai
--------------------------------------------------
Ini contoh tampilan Output delphinya:
Kira-kira begini hasil animasinya :)
Selamat mencoba~!
kk gambar ny di mana link download nya
ReplyDeleteada 29 gambar
link ny mana kk
Haloo Ditha,
ReplyDeletekuliah dimana, sudah lulus kah,