MEMBUAT KALENDER DI DALAM MACROMEDIA FLASH

Pasti kalian meng anggap hal ini tidak masuk akal. Tapi coba bayangkan, kalau kalian membuat sebuah aplikasi atau game yang bisa di fullscreen, otomatis Kalender digital di komputer kita tidak akan terlihat. Karna itulah, tidak sepenuhnya rugi membuat kalender di dalam Macromedia Flash, untuk menghiasi aplikasimu.

Pertama : Tentu saja buka New Flash Document.
Kedua : Buatlah 4 buah Dynamic Text, dengan masing-masing, Var : hari, tanggal, bulan, tahun.

Penjelasan disini adalah : Kalian membuat kotak kosong seperti persegi panjang menggunakan “Text Tool” lalu buka panel property dan ubah “Static Text” menjadi “Dynamic Text”. Dan jangan lupa, di kotak “var” ketikan “hari”. Untuk kotak kedua, ketiga, dan keempat, lakukan hal yang sama.

Dan ketikan di masing-masing “var” nya : “tanggal”, “bulan”, “tahun”. Penjelasan lebih lengkap ada di postingan Input dan Output :

https://www.facebook.com/groups/256580054361367/photos/

Ketiga : Ubah ukuran Dynamic Text sesuai panjang jumlah maksimal karakter yang akan dimuat.

Keempat : Klik Frame 1 lalu tekan “F9” atau buka jendela action dan masukan script berikut :

daftar_hari = new Array("Minggu", "Senin", "Selasa", "Rabu", "Kamis", "Jumat", "Sabtu");
daftar_bulan = new Array("Januari", "Februari", "Maret", "April", "Mei", "Juni", "Juli", "Agustus", "September", "Oktober", "November", "Desember");
onEnterFrame = function () {
kalender = new Date();
hari = daftar_hari[kalender.getDay()];
tanggal = kalender.getDate();
bulan = daftar_bulan[kalender.getMonth()];
tahun = kalender.getFullYear();
};


Terakhir : Tutup jendela action. Test Movie dengan menekan Ctrl+Enter pada keyboard. Slamat.., kamu berhasil membuat kalender di macromedia flash… :D

MEMBUAT KALKULATOR SEDERHANA menggunakan macromadia flash

Jangan kamu pikir juga membuat kalkutor pada flash macromedia, itu adalah hal yang tak masuk akal, atau dengan kata lain tak penting-penting amat fungsinya. Karna.., disini kamu akan melihat bagaimana susahnya seorang programan membuat kalkulator tersebut.

Trik ini juga akan membahas tentang Mengubah variabel string, ke number dengan action Number(string). Sudahlah agar tidak terlalu banyak cerita, kita mulai saja ya.

”Buatlah sebuah program penjumlahan sederhana, pengguna memasukan 2 bilangan dan program menampilkan hasilnya. Lihat cara pembuatannya pada gambar di postingan ini.


Caranya :

1. Klik text tool kemudian buka panel properties. Pilihlah input text pada option text type dan atur bentuk, ukuran dan warna huruf sesuai dengan keinginan.

2. Klik dan drag pada stage untuk membentuk sebuah text area.

3. Seleksi text area (berwarna biru jika terseleksi) dan buka panel properties. Ketikan kata “bilangan_1” pada var. dan aktifkan tombol show border around text.

4. Buat lagi input text area dengan ukuran yang sama dan letakkan di sebelah text area yang sudah dibuat pada poin no 2.

5. Seleksi input text area kedua (berwarna biru jika terseleksi) dan buka panel properties. Ketikan kata “bilangan_2” pada var.

6. Buat lagi input text area dengan ukuran yang sama dan letakkan di sebelah text area yang sudah dibuat pada poin no 5.

7. Seleksi input text area ketiga (berwarna biru jika terseleksi) dan buka panel properties. Ubah tipe text menjadi dynamci text dan ketikan kata “hasil” pada var.

8. Buatlah static text “+” dan “=” kemudian atur posisinya (lihat gambar).

9. Buatlah sebuah tombol “OK” dan letakkan di bawah text area kedua. Perhatikan peletakan obyek di stage sebagai berikut :

10. Klik tombol “OK” kemudian buka panel action dan ketikan action sebagai berikut :

on (release) {
hasil = bilangan_1 + bilangan_2;
}

11. Jalankan Movie, masukan angka 10 pada bilangan 1 dan 20 pada bilangan. Kemudian tekan tombol OK hasil yang diperoleh adalah 1020 bukan 30.

Hal tersebut dikarenakan hasil yang diperoleh dari input text selalu bertipe string, sehingga penjumlahan terhadap 2 bilangan tersebut merupakan penjumlahan string “10” + string “20” dan hasilnya “1020”.

Untuk mengatasinya kita harus mengubah terlebih dahulu variabel bertipe string ke variabel bertipe number.

12. Tekan Ctrl+W untuk kembali ke stage. Klik tombol OK kemudian ubah scriptnya menjadi :

on (release) {
hasil = Number(bilangan_1) + Number(bilangan_2);
}

13. Jalankan Movie, kemudian masukan bilangan tertentu pada ke dua input text. Setelah tombol OK ditekan, hasil yang benar akan muncul. Action Number(string) digunakan untuk mengconvert suatu string yang berada dalam tanda “()” menjadi variabel bertipe number.

“Untuk membuat pengurangan, perkalian dan pembagian, rubah saja scriptnya sebagai berikut :

• hasil = Number(bilangan_1) – Number(bilangan_2); –>Untuk Pengurangan

• hasil = Number(bilangan_1) / Number(bilangan_2);–>Untuk Pembagian

• hasil = Number(bilangan_1) * Numbe (bilangan_2);–>Untuk Perkalian

Pasti banyak yang binggung. Yahh sudah, kalian download saja data “fla” nya Disini :

Membuat Kuis Game (menggunakan macromedia fash)

TAHAPAN KESATU [Membuat Kuis Game]Jika kalian telah membaca postingan-postingan sebelumnya, berarti kalian akan cukup mahir dalam pembuatan game Kuis ini. Ini sangat mudah karna Penulispun hanya melakukan sedikit trik dan imajenasi dalam pembuatan game ini, juga karna Kuis Game tak perlu memakai script yang panjang, dan membingungkan.-Langkah pertama.., kalian buat satu tombol button di frame ke satu dan buat satu tombol button lagi di frame kedua.-Langkah kedua..., sekarang kalian seleksi menggunakan “seleksi tool” tombol button yang kalian buat di frame kesatu, dan masuk pada jendela action. Klik action di pojok kiri bawah. Dalam jendela action ketikan script:on(press){gotoAndStop(2);}Penjelasan script :on(press) = ketika tombol button akan ditekan.gotoAndStop(2); = maka frame akan beralih ke frame kedua dan berhenti disana.{} = untuk menyatakan sebuah blok script, dimana blok script berfungsi sebagai penampung kumpulan perintah yang akan di jalankan.“;” = tanda ini berarti mengakhiri satu perintah yang akan di jalankan nanti.Dan sekarang coba beralih ke Stage kedua dengan cara mengklik frame kedua satu kali. Di Stage kedua yang tadi telah dibuat tombol button, coba seleksi tombol button itu dan klik pada jendela action, lalu tuliskan script :on(press){gotoAndStop(1);}Ini Belum selesai. Setelah kedua tombol button yang kalian buat telah diberi script, sekarang klik satu kali kotak frame kesatu, dan masuk pada jendela action, lalu ketikan action berikut :stop();klik juga kotak frame kedua, lalu masuk ke jendela action, lalu ketikan script itu juga. Hal ini bertujuan agar animasi Berhenti sempurna tepat di frame yang kita inginkan. Untuk masalah lompatan Frame yang berantakan, biasanya pemula lupa memakai script ini di frame mereka. Sehingga jika ia akan, lompat dari frame ke 10 ke frame 5, dalam artian lompatan mundur, maka tanpa memakai script “stop();” pada setiap frame yang lain, yang telah terisi. Kemungkinan besar dapat menyebabkan frame yang seharusnya tak terlihat, menjadi terlihat, atau melompat-lompat secara Looping (terus-menerus).Ada tambahan lagi. Kalian buat sebuah movie clip, lalu seleksi movie clip itu, lalu buka jendela action. Ketikan Script :onClipEvent(enterFrame){Mouse.hide();this._x=_root._xmouse;this._y=_root._ymouse;}Penjelasan Program :Mungkin secara mendetail akan saya di bahas pada artikel selanjutnya. Fungsi dari script ini sendiri adalah, membuat movie clip yang kamu buat tadi, menjadi animasi pengganti pointer mouse kamu dalam game. So Fun… :DJangan lupa juga. Jika ingin memasukan sebuah suara dalam game, harus berupa / berformat (.wav), dan cara memasukannya adalah. Klik File. Lalu klik Import. Lalu pilih Import to Library. Masukan suara yang kalian punya di dalam komputer kalian, lalu klik Open. Suara yang kalian ambil tadi, jika berhasil, maka akan langsung masuk pada jendela Library. [sekedar info. File suara saya dapatkan di ” SimsCarnivalGameCreator” . Memang itu adalah aplikasi pembuat game juga, yang waktu itu saya pernah pelajari, Namun kelemahan aplikasi ini, terdapat pada publish game itu sendiri, yang tak dapat kita tempel di jendela website kita dan tak bisa diubah ke format “EXE” seperti dalam flash. Namun kelebihannya, terdapat folder “suara-suara pengisi game yang cukup unik, dan compatible dengan Macromedia. Atau jika ingin buat suara sendiri, gampang gan…, kamu tinggal download Video Converter disini :http://aplikasi-ssundarkk.blogspot.com/2012/09/video-converter-ultimate-by-almavanxa.html Petunjuk pemakaian akan saya ulas, bila ada yang mau mencoba. Lanjut ke materi lagi. Nahh.., sekarang kamu tinggal mengklik kotak Frame kesatu, misalnya. Lalu klik / buka properties di pojok kiri bawah, di atas jendela “action” . Jika kamu tekan pilihan “Sound”, maka akan muncul sebuah nama file suara yang sudah kamu masukan tadi. Klik itu, dan kamu sudh mempunyai suara pembuka di frame kesatu. Efect tetap none. Dan pada bagian Repeat, bisa kamu ganti dengan Loop. Jika suara ingin keluar secara terus menerus. Dan untuk pilihan Repeat, disana kamu tinggal ganti angka “0” dengan jumlah suara yang ingin kalian ulang. Misal kalian menggantinya dengan “2”, maka suara akan di ulang sebanyak 2 kali, lalu berhenti.Penulis juga mencantumkan data Fla(mentahan asli), untuk latihan membuat Kuis Game ini. Silakan di download dan dipelajari… :DKlik = http://www.4shared.com/rar/ioZlRWbV/Latihan_Kuis_Game.html[data fla adalah mentahan asli, karna itulah jarang seseorang memberikan data ini secara gratis. Namun karna ini adalah latihan, saya berikan salah satu data fla saya. Mungkin kalian mau mengembangkannya. Link Download di “4shared”. Kalian harus daftar dulu disana, jika ingin mendownload. Dan kenapa memilih “4shared”, itu karna data kita akan abadi berada disana, tanpa peraturan yang mengesalkan, seperti di alamat postingan lain, ketika memakai yang Free…. ]CUKUP SEKIAN BAHASAN PENULIS TENTANG CARA MEMBUAT KUIS GAME DI MACROMEDIA. UNTUK HAL-HAL YANG MASIH SECRET TADI, PENULIS JANJI AKAN MEMBERIKAN SOLUSI TERBAIK SECEPATNYA. SEKARANG…, MARI KITA MEMBUAT GAME PERTAMA KITA…. :D[untuk mendownloaad Macromedia flash pro 8, saya akan beri sedikit linknya. http://www.mediafire.com/?0v2fs0dooq1ycar ini masih diragukan karna hanya bersize = 51,16 MB.


 

MEMBUAT ANIMASI KEDIPAN MATA YANG SIMPLE DAN JUGA MENARIK

Jangan meremehkan teknik animasi dan juga design di flash macromedia, karna orang juga akan bosan melihat action kompleks yang kamu buat, jika animasi yang di tampilkan kurang menarik. Serasa sayur tanpa garam gitu… :D

Dan dijamin 99%, di blogger indo atau website Indo.., cara seperti ini belum ada yang berani mempostingnya. Mungkin cara ini terlalu mudah, namun efeknya akan membuat mata seseorang tak bisa berhenti melihatnya.

Okee.., langsung saja kita mulai :
1. Buka macromedia flash kamu. Lalu New Document.

2. Buat sebuah bola mata yang tepat seperti gambar “point 1” postingan ini.

3. Lalu convert menjadi movie clip. Klik dua kali movie clip mata dan buatlah key frame yang panjang sampai 15 atau 20 frame, lalu di frame 21, ubah gambar mata tadi menjadi terlihat menutup, seperti gambar “point 2”. Lalu buatlah key frame dengan panjang frame ke 21 ke frame 24 atau 25.

4. Coba test Movie. Apa yang akan terjadi.. ??

[GAMBAR MATA ITU TERLIHAT BERKEDIP. PADAHAL KITA HANYA MEMBUAT SATU GAMBAR MATA YANG SEDANG MENUTUP SAJA, DENGAN TIPUAN GARIS TENGAH YANG MELENGKUNG KE BAWAH. INI BISA DI JELASKAN SECARA LOGIKA, KECEPATAN MATA KITA KETIKA BERKEDIP ITU KURANG DARI SATU DETIK, DAN PENGLIHATAN KITA PUN TAKKAN CUKUP BISA MENANGKAP GERAKAN BENDA YANG BERGERAK KURANG DARI SATU DETIK, MAKA ANIMASI MATA TADI, MEMANG SEPERTI TERLIHAT BERKEDIP KEPADA KITA]

pemograman penggajian

Public Class Form1

    Sub buattabel()

        lv.Columns.Add("nik", 80, HorizontalAlignment.Center)

        lv.Columns.Add("nama", 80, HorizontalAlignment.Left)

        lv.Columns.Add("jabatan", 80, HorizontalAlignment.Center)

        lv.Columns.Add("gaji", 80, HorizontalAlignment.Left)

        lv.Columns.Add("status", 80, HorizontalAlignment.Center)

        lv.Columns.Add("tunjangan", 80, HorizontalAlignment.Left)

        lv.Columns.Add("pajak", 80, HorizontalAlignment.Center)

        lv.Columns.Add("total", 80, HorizontalAlignment.Left)

        lv.View = View.Details

        lv.GridLines = True

        lv.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim lst As New ListViewItem

        lst.Text = nik.Text

        lst.SubItems.Add(nama.Text)

        lst.SubItems.Add(jabatan.Text)

        lst.SubItems.Add(gaji.Text)

        lst.SubItems.Add(status.Text)

        lst.SubItems.Add(tunj.Text)

        lst.SubItems.Add(pajak.Text)

        lst.SubItems.Add(total.Text)

        lv.Items.Add(lst)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        buattabel()

        nik.Items.Add("001")

        nik.Items.Add("002")

        nik.Items.Add("003")

        jabatan.Items.Add("manager")

        jabatan.Items.Add("wakase")

        jabatan.Items.Add("staff")

        status.Items.Add("menikah")

        status.Items.Add("tidak menikah")

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        isitabel()

        nik.Text = ""

        nama.Text = ""

        jabatan.Text = ""

        gaji.Text = ""

        status.Text = ""

        tunj.Text = ""

        pajak.Text = ""

        total.Text = ""

    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged

        Select Case jabatan.Text

            Case "manager" : gaji.Text = 5000000

            Case "wakase" : gaji.Text = 3500000

            Case "staff" : gaji.Text = 16000000

        End Select

        pajak.Text = 0.15 * gaji.Text

    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

        Select Case nik.Text

            Case "001" : nama.Text = "Alexander p"

            Case "002" : nama.Text = "Alex Keceng"

            Case "003" : nama.Text = "Alex keceng coyy"

        End Select

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        Select Case status.Text

            Case "menikah" : tunj.Text = 0.15 * gaji.Text

            Case "tidak menikah" : tunj.Text = 0

        End Select

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        total.Text = Val(gaji.Text) + Val(tunj.Text) - Val(pajak.Text)

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        End

    End Sub

    Private Sub baru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles baru.Click

        nik.Text = ""

        nama.Text = ""

        jabatan.Text = ""

        gaji.Text = ""

        status.Text = ""

        tunj.Text = ""

        pajak.Text = ""

        total.Text = ""

    End Sub

    Private Sub pajak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pajak.TextChanged

    End Sub

    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

    End Sub

    Private Sub total_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles total.TextChanged

    End Sub

End Class