Sahabat Pintar,
Ada kalanya ketika kita membuat animasi di Flash kita perlu memanggil file lain, misalnya file swf ke dalam animasi yang kita buat. Caranya adalah sebagai berikut:
Buat sebuah tombol menggunakan ellips tool
Klik kanan di lingkaran tersebut, pilih Convert to Symbol
Pilih Button, kemudian klik OK
Dengan menggunakan selection tool, klik lah tombol yang telah Anda buat tsb, kemudian klik di bagian Action serta ketikkan action script berikut:
Nah, untuk memanggil file swf nya, buka jendela Behaviour. Jika Anda belum dapat menemukannya, Anda dapat mengaktifkan jendela ini dengan cara mengklik menu Window – Behaviors
Simpan dulu file flash Anda pada folder yang sama dengan file swf yang ingin Anda panggil
Di jendela Behaviors tersebut, klik tombol + kemudian pilih Movie Clips, lalu pilih Load External Movie Clip
Ketikkan nama file swf Anda, lalu klik tombol OK
Maka di bagian Action Script Anda akan muncul tambahan script berikut, jangan lupa untuk menutup script dengan tutup kurung kurawal atau }
Untuk memainkan animasi yang telah Anda buat, tekan CTRL+ENTER pada keyboard
Mudah bukan? Selamat Mencoba!
Jika Sahabat Pintar berminat untuk mengikuti workshop/kursus komputer, baik pemrograman, desain (Corel, Photoshop, Dreamweaver, Flash), ms office, page maker, in design, dsb, silakan hubungi:
JL. Solo-Yogya km.30 Jombor Ceper Klaten
Telp (0272) 3154 777
5 KEUNGGULAN LKP KEMBAR:
- Pengajar yang ramah dan berpengalaman
- Harga terjangkau dan bisa dicicil
- Waktu yang fleksibel
- Sertifikat berizin resmi Dinas Pendidikan dan Dinas Sosial Tenaga Kerja dan Transmigrasi (Izin Dinas Pendidikan nomor 602/LKP/11.2012, dan Izin Dinas Sosial Tenaga Kerja dan Transmigrasi Nomor: 563/2424.A/14.)
- Dijamin BISA!!! Untuk semua umur dan kalangan.
Membuat Input Record Database Access di Delphi 7
Sahabat Pintar, jika di tutorial sebelumnya kita telah mempelajari cara koneksi dan menampilkan isi dari database Delphi 7, kini mari kita pelajari cara untuk membuat input dan hapus record database access di Delphi 7. Simak ya
Dengan menggunakan delphi 7 dapat dibuat aplikasi yang digunakan untuk melakukan editing database access dengan ekstensi .mdb, pada tutorial kali ini akan dibahas cara untuk menambahkan dan menghapus record yang terdapat dalam file database eksternal dengan ekstensi .mdb.
berikut langkah-langkahnya:
langkah 1
– buat form yang terkoneksi dengan database dan memiliki tampilan sebagai berikut:
– pada gambar diatas dapat dilihat telah dibuat koneksi dengan database melalui adoconnection dan adotable, hasilnya dapat langsung dilihat pada dbgrid. untuk melakukan koneksi database dapat dilihat disini
– dibuat juga 2 buah kotak edit untuk melakukan input nama dan input umur.
– selanjutnya dibuat 2 buah tombol untuk melakukan insert data dan delete data pada table dan hasilnya dapat langsung dilihat pada dbgrid.
langkah 2
– double click pada tombol masukan dan masukkan kode program berikut pada prosedurnya
begin
if edit1.GetTextLen = 0 then
showmessage(‘isi nama dahulu’);
if edit2.GetTextLen = 0 then
showmessage(‘isi umur dahulu’);
if (edit1.GetTextLen >0) and (edit2.GetTextLen>0) then
begin
with table1 do
table1.Append;
table1nama.Value:=edit1.text;
table1umur.Value:=strtoint(edit2.Text);
table1.Insert;
table1.Next;
edit1.text:=”;
edit2.Text:=”;
end;
end;
– penjelasan
tombol ini digunakan untuk melakukan insert data ke dalam database. listing program pada tombol ini akan dibahas perbagian.
untuk melakukan pengisian data diperlukan 2 buah data yang diinputkan yaitu data nama dan umur karena itu untuk menghindari terjadinya error maka pada awal dituliskan listing:
if edit1.GetTextLen = 0 then
showmessage(‘isi nama dahulu’);
dengan listing diatas maka akan dicek apabila kotak edit1 masih kosong maka akan menampilkan pesan. perintah GetTextLen adalah perintah untuk mengambil panjang nilai karakter pada edit1. jadi jika edit1 belum diisi maka nilai GetTextLen akan sama dengan 0. begitupula dengan listing:
if edit2.GetTextLen = 0 then
showmessage(‘isi umur dahulu’);
untuk mengecek isi edit2. lalu listing:
if (edit1.GetTextLen >0) and (edit2.GetTextLen>0) then
adalah untuk melakukan pengecekan apabila edit1 dan edit2 telah terisi maka program utama akan dijalankan. bila salah satu belum terisi maka proses insert data akan error. listing program utama:
with table1 do
akan melakukan proses dengan melibatkan table1(adotable)
table1.Append;
perintah untuk mengaktifkan proses pengisian table sehingga table database dalam kondisi siap untuk diisi
table1nama.Value:=edit1.text;
table1umur.Value:=strtoint(edit2.Text);
field pada table 1 memiliki nama variabel tersendiri yang dapat diakses isinya, pada listing diatas adalah cara untuk melakukan pengisian field dari table tersebut. untuk nama dapat langsung diisikan karena tipe datanya sama yaitu string, sedangkan untuk umur perlu melakukan konversi dari string ke integer karena umur memiliki tipe data integer.
table1.Insert;
table1.Next;
data yang telah diisikan pada field sebelumnya belum sepenuhnya tersimpan pada database karena itu digunakan listing diatas. instruksi insert digunakan untuk melakukan insert data ke dalam table. dan instruksi next digunkan untuk mengganti posisi pointer sehingga dapat melakukan pengisian data selanjutnya.
- edit1.text:=”;
- edit2.Text:=”;
listing diatas adalah untuk mengosongkan isi dari edit1 dan edit2 setelah melakukan pengisian data sehingga siap untuk diisi data selanjutnya.
langkah 3
– double click pada tombol hapus dan pada prosedurnya isikan listing berikut:
begin
if table1.IsEmpty then
showmessage(‘tabel kosong’)
else
table1.Delete ;
end;
– tombol ini digunakan untuk melakukan penghapusan record pada table database. record yang dihapus adalah record yang ditunjuk oleh pointer(tanda segitiga hitam pada sebelah kiri dbgrid).
– pembahasan listing adalah sebagai berikut
if table1.IsEmpty then
showmessage(‘tabel kosong’)
listing ini digunakan untuk melakukan pengecekan kondisi table1 apakah kosong atau masih ada data di dalamnya, hal ini dilakukan untuk mencegah terjadinya error saat melakukan penghapusan tecord namun tidak ditemukan data. karena itu dengan listing ini maka saat tidak ada data di dalam table akan muncul pesan peringatan.
else
table1.Delete ;
listing selanjutnya digunakan untuk melakukan penghapusan record sesuai dengan posisi pointernya. cukup dengan menggunakan instruksi delete.
dengan demikian telah dapat dibuat apliaksi yang digunakan untuk mekaukan pengisian dan penghapusan data ke dalam table database dengan ekstensi .mds.
semoga tutorial ini bermanfaat
Jika Sahabat Pintar berminat untuk mengikuti workshop/kursus komputer, baik pemrograman, desain (Corel, Photoshop, Dreamweaver, Flash), ms office, page maker, in design, dsb, silakan hubungi:
JL. Solo-Yogya km.30 Jombor Ceper Klaten
Telp (0272) 3154 777
5 KEUNGGULAN LKP KEMBAR:
- Pengajar yang ramah dan berpengalaman
- Harga terjangkau dan bisa dicicil
- Waktu yang fleksibel
- Sertifikat berizin resmi Dinas Pendidikan dan Dinas Sosial Tenaga Kerja dan Transmigrasi (Nomor Induk Lembaga Kursus (NILEK) Nasional 03114.1.0049, Izin Dinas Pendidikan nomor 602/LKP/11.2012, dan Izin Dinas Sosial Tenaga Kerja dan Transmigrasi Nomor: 563/2424.A/14.)
- Dijamin BISA!!! Untuk semua umur dan kalangan.