Monday, April 20, 2015
Friday, April 17, 2015
Membuat animasi 2D/3D dengan delhpi dan komponen tambahan
A.
Komponen Tambahan Delhpi
Disini saya menambahkan komponen
tambahan yaitu alphaskin atau alpha control adalah komponen tambahan yang
digunakan untuk membuat skin atau tampilan
project delphi agar lebih menarik seperti penambahan tema.
Gambar
Menu AlphaSkin yang sudah terinstall
B. Source
Kode Program Animasi
Komponen – komponen yang digunakan
adalah sebagai berikut
Tlabel1 : Untuk Menampilkan Jam
Tlabel2 : Untuk Menampilkan Tanggal/Bulan/Tahun
Ttimer1 : Untuk Membuat Format Jam,
Tanggal/Bulan/Tahun
TsSkinManager1 &
TsSkinProvaider1 : Untuk Menganti Skin atau Tema Project
Tlabel3 : Untuk Font Bergerak
Ttimer2 : Untuk Membuat Font Bergerak
Timage1 : Untuk Meletakkan Gambar Background Animasi
1. Untuk
menampilkan format waktu dan tanggal, double klik pada timer1 kemudian masukkan
kode di bawah ini :
procedure
TForm1.Timer1Timer(Sender: TObject);
begin
label1.caption
:=FormatDateTime('hh:nn:ss',now) ;
label2.Caption
:=FormatDateTime('dd mmmm yyyy',now) ;
end;
procedure
TForm1.Timer2Timer(Sender: TObject);
begin
Label3.Left:=Label3.Left-5;
if Label3.Left<10 then Label3.Left:=90;
end;
Ket
:
('hh:nn:ss',now) : format waktu
seperti (13:45:26)
('dd
mmmm yyyy',now) ; : format
tanggal seperti (20 April 2015)
Setelah
selesai anda bisa run programnya untuk melihat hasilnya, jika anda ingin
mengubah style font dan ukuruannya ada di Object Inspector kemudian di
Properties ada menu Font.
2. Untuk
membuat tuulisan berjalan, sama halnya dengan tanggal kita menggunakan timer
untuk source kodenya. Klik dua kali pada objeck timer kemudian masukkan kode
seperti di bawah ini :
begin
Label3.Left:=Label3.Left-5;
if Label3.Left<10 then Label3.Left:=90;
end;
Ket
:
Untuk
left <10 adalah batas untuk finish objek dan left :=90 untuk start objek
berjalan, objek ini berjalan dari kanan ke kiri.
Sedangkan
untuk megubah fontnya bisa di objek inspector kemudian properties lalu di
caption.
3. Memasukkan
Gambar
Untuk
memasukkan gambar kita membuat tempatya dengan Timage di menu additional
kemudian untuk memasukkan gambar klik menu picutre kemudian browse gambar yang
ingin anda masukkan setelah itu load maka hasilnya seperti dibawah ini
4. Animasi
Scooby Doo
Pertama-tama
siapkan gambar untuk animasinya yaitu gambar yang berekstensi .bmp, disini saya
menggunakan tiga file gambar yang berformat .bmp dalam satu folder project, kemudian buat timer lalu
double klik kemudian isikan kode dibawah ini :
begin
if
gambar=1 then
image1.Picture.LoadFromFile('D:\Nugas
Lagi\S1.bmp')
else
if gambar=2 then
image1.Picture.LoadFromFile('D:\Nugas
Lagi\S2.bmp')
else
if gambar=3 then
image1.Picture.LoadFromFile('D:\Nugas
Lagi\S3.bmp');
if
gambar=3 then
gambar:=1
else
inc(gambar);
end;
kemudian
klik unit untuk memasukan variabel dari gambar yang kita buat
gambar=integer;
Ket
:
LoadFromFile
adalah dimana anda meletakkan file gambarnya
Setelah
itu jalankan.
