Hallo, sudah lama nih gak buat artikel, mengingat sibuk terus di luar jadi gini nih akibatnya. Tetapi setelah banyak waktu terbuang di luar ane ada sedikit ilmu dan mudah-mudahan bisa bermanfaat untuk kalian semua yaitu membuat animasi roket sederhana.
Untuk Animasi Roketnya sobat dapat menggunakan bahasa pemrogramann delphi untuk Aplikasinya bisa download Delphi 7 untuk caranya simak dibawah ini gan. Sebelum ke pembahasan inti rekan-rekan perlu menyiapkan komponen-komponen delphinya.
Dalam pembuatan Animasi Roket Sederhana dengan Aplikasi Delphi kalian siapakan komponen-komponen nya. Yang pertama TForm, Tpanel, TButton, TShape, dan yang terakhir yang paling penting TTimer.
Ok langsung saja berikut yang harus sobat kerjakan mulai dari step pertama hingga terakhir yang sudah berhasil tolong kasih komentarnya. Langsung saja langkah-langkah membuat animasi roket sederhana dengan menggunakan aplikasi Delphi 7.
Cara Membuat Animasi Roket dengan Bahasa Pemrograman Delphi
- Step pertama anda siapkan desain dari komponen-komponen diatas tadi seperti pada gambar dibawah ini dan untuk gambar silahkan download di disini. Jika sudah semua nya siap agan hasil akhirnya seperti pada gambar dibawah ini.
- OK dapat dilihat pada gambar diatas mulai dari TForm untuk menampung semua komponen dan TTimer untuk mengatur semua nya dengan sedikit source code. Kita bahas satu persatu yang pertama TForm sobat lihat settingannya dibawah ini.
- Untuk memulai anda siapkan TForm dengan cara klik New > Application selanjutanya anda simpan terlebih dahulu dan berinama sesuai unit project sobat. Selanjutnya anda atur seperti pada gambar diatas sesuai komponennya masing-masing.
- Tpanel anda bisa mendapatkan di menu pilihan System di Aplikasi Delphi, selanjutnya untuk Tpanel dan Button di menu Standar dan untuk TShape di Additional. Jika semua nya sudah siap anda desain seperti pada gambar diatas.
1. TTimer
procedure TForm1.Timer1Timer(Sender: TObject); begin roket.Top:=roket.Top -1; IF roket.Top<1 blockquote=”” end=”” roket.top:=”360;” then=””>
- Untuk mengatur nya anda masuk di Properties di bagian Object Inspector kemudian cara Picture dan klik selanjutnya klik Load untuk menambahkan gambar roketnya. Untuk gambar anda bisa mengatur sendiri dan pastikan ukuran gambar kecil sekitar 150×75 juga sudah cukup. Untuk format juga harus menggunakan JPG, Bmp dan Jpeg lalu klik OK.
- Selanjutnya setting di properties, yang pertama proportional menjadi :True, Strettch : True jikas udah anda dapat menyesuaikannya sesuai ukuran yang anda inginkan. Yang paling penting name dari Tshape nya rubah menjadi roket. Jika sudah selanjutnya setting bagian TPanel nya.
3. TPanel
- Untuk TPanel
- Caption : hilangkan
- Color : clBackground
- Anchors
- akLeft : True
- akTop : True
- akRight : True
- akBottom : True
- Hegiht :521
- Widht :337
- Klik 2x di TForm1 kemudian masukan souce code nya dimulai dari bawah begin. Selanjutnya Atur properties sesuai pada pengaturan dibawah kode berikut. Mulai dari Auto Scroll hingga Top atau ukuran di TForm nya.
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=False;
end;
- AutoScroll :False
- AutoSize :True
- Height :600
- Width :513
- Top :140
5.TButton
- Step di TButton ini ada dua mulai dari Button yang pertama untuk Up atau jika di Click TShape atau gambar Roket akan naik. Selanjutnya Untuk Button Stop untuk memberhentikan Timer atau Roket berhenti.
- Klik 2x di Button1 & Button2 lalu Masukan Soucer Code nya dimulai dari Timer1 masing-masing Button jika sudah silahkan di coba di Run CTRL+F9.
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=TRUE;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=False;
end;
end.