Membuat Animasi Masking sederhana dengan Adobe Flash CS3

Untuk tutorial kali ini adalah membuat animasi masking menggunakan Adobe Flash CS3…tanpa basa basi mari kita langsung praktekan saja.. Hhee…

Buka program Adobe Flash CS3, Lakukan pengaturan untuk ukuran layer seperti dibawah ini

Import sebuah gambar yang akan diguanakan untuk membuat animasi masking, disni saya gunakan wallpaper linux banten yang tutorialnya telah dibuat 

Maka pada bagian Library (Ctrl+L) akan muncul nama file gambar yang kita import tadi

Lalu drag gambar tadi ke dalam layer bah nama layernya menjadi nama Background, untuk melakukan pengaturan letak tekan Ctrl+K, aktifkan icon Align/Distribute to stage aktif, Pilih Align Horizontal Center dan Distribute Vertikal Center. Maka posisi gambar akan tepat pada tengah layer

Buat 2 layer baru Beri nama Kotak dan logo, Pada layer kotak kita buat objek kotak dengan mneggunakan Rectatangle Tools (R), matikan pada bagian stoke color, Lakukan pengaturan pada warna sebagai berikut :

Type : Linear

Berikan warna tengah dengan warna putih, dan warna kiri dan kanan ubah nilai alpha menjadi nol

Maka akan jadi objek kotak seperti ini

Pada layer logo kita akan membuat sebuh objek untuk menutupi logo tersebut menggunakan pen tool dan oval tool.

Buat 2 buah objek oval dan tempatkan seperti ini

Seleksi objek oval biru tekan delete, maka hasilnya seperti ini

Selanjutnya kita akan membuat objek menggunakan pen tool untuk menutup objek menaranya

Kira-kira jadinya nanti akan seperti ini

Putar objek kotak yang tadi kita buat menggunakan free transform tool (Q)

Blok semua layer pada frame 25 klik kanan >> insert Keyframe atau tekan F6

Maka akan menjadi

Klik pada frame 25 layer kotak hingga objek kotak menjadi aktif, kemudian geser menggunakan tombol panah atau di drag ke sebelah kanan

Klik kanan frame satu layer kotak pilih create motion tween

Maka layer kotak akan menjadi

Selanjutnya letakkan layer logo diatas layer kotak, klik kanan pada layer logo kemudian pilih mask

Untuk menjalankan tekan Ctrl+Enter

..

Membuat Animasi Kedipan Mata dengan Adobe Flash CS3

Animasi mata adalah salah satu animasi wajah yang paling sering dipakai untuk membuat sebuah karakter agar lebih hidup dan menarik perhatian. Pembahasan kali ini bagaimana cara membuat animasi mata berkedip  yang menarik pada Adobe Flash.

Langkah 1

Pertama-tama buatlah sebuah desain wajah baik itu berupa sketsa dahulu ataupun langsung ke gambar wajah karakter. Disini penulis persingkat desain wajah karakter dengan membuat Desain wajah dan animasi mata berada di layer yang berbeda.

Langkah 2

Kunci semua layer kecuali layer mata sehingga gambar mata dapat di edit dengan mudah tanpa merusak layer lainnya. Gunakan F6 dan mulai mengedit gambar mata frame demi frame. Hapus saja bagian atas mata sedikit demi sedikit dan edit pada tiap framenya sampai mata tertutup. Gunakanlah fungsi Union Skin untuk membantu membuat animasi selanjutnya dari gambar frame sebelumnya.

Gambar frame demi frame animasi yang dibuat.

Langkah 3

Dari gambar mata pada tiap frame yang dibuat tertutup, kini giliran membuatnya kembali terbuka. Caranya copy semua frame gambar animasi mata tertutup tersebut dan paste-kan ke frame berikutnya. Lalu balik jalannya animasi semua gambar pada tiap frame tersebut dengan memblok semua frame yang dipastekan tadi dan klik kanan mouse pada daerah blok dan pilih Reverse Frames. Sejajarkan jumlah semua animasi pada tiap Layer dengan tombol F5. Lalu test dengan Ctrl + ENTER untuk melihat hasil animasi mata yang telah dibuat.

Bagaimana, mudah bukan membuat animasi mata berkedip ? Oke sampai jumpa pada tutorial berikutnya. Selamat mencoba ^-^

..

Membuat program simulasi lampu lalulitas dengan VB

1.     Langkah pertama buka program Visual Basic

2.     Pilih standar.exe untuk New Project kemudian Klik Open

3.     Tambahkan 5 Label 1 label untuk judul dan 4 label untuk waktu masing-masing simpang, 4 frame untuk masing-masing simpang dan 12 shape dimana atur properti fillstyle mendaji solid dan fillcolor pilih warna yang sesuai serta satu buah timer dan desainlah menjadi seperti gambar dibawah ini :

4.     Ubah Properti Interval pada control Timer dengan memasang nilai 1000 dan dalam keadaan false.

5.     Masukkan kode program seperti dibawah ini :

Private Sub tunda()

a = Timer

Do While Timer < 1 + a

DoEvents

Loop

End Sub

Private Sub Form_Load()

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

For i = 0 To 10

Label1(0).Caption = 11 - i

Label1(1).Caption = 21 - i

Label1(2).Caption = 31 - i

Label1(3).Caption = 41 - i

If i = 0 Then

Shape10.FillColor = &HC0C0&

Shape1.FillColor = &HC0&

Shape2.FillColor = vbYellow

Shape5.FillColor = vbRed

Shape8.FillColor = vbRed

Shape11.FillColor = vbRed

Else

Shape12.FillColor = &H8000&

Shape2.FillColor = &HC0C0&

Shape3.FillColor = vbGreen

End If

tunda

Next i

For i = 10 To 20

Label1(0).Caption = 51 - i

Label1(1).Caption = 21 - i

Label1(2).Caption = 31 - i

Label1(3).Caption = 41 - i

If i = 10 Then

Shape5.FillColor = &HC0&

Shape3.FillColor = &H8000&

Shape2.FillColor = vbYellow

Shape4.FillColor = vbYellow

Else

Shape2.FillColor = &HC0C0&

Shape4.FillColor = &HC0C0&

Shape1.FillColor = vbRed

Shape5.FillColor = &HC0&

Shape6.FillColor = vbGreen

End If

tunda

Next i

For i = 20 To 30

Label1(0).Caption = 51 - i

Label1(1).Caption = 61 - i

Label1(2).Caption = 31 - i

Label1(3).Caption = 41 - i

If i = 20 Then

Shape8.FillColor = &HC0&

Shape6.FillColor = &H8000&

Shape4.FillColor = vbYellow

Shape7.FillColor = vbYellow

Else

Shape4.FillColor = &HC0C0&

Shape7.FillColor = &HC0C0&

Shape5.FillColor = vbRed

Shape8.FillColor = &HC0&

Shape9.FillColor = vbGreen

End If

tunda

Next i

For i = 30 To 40

Label1(0).Caption = 51 - i

Label1(1).Caption = 61 - i

Label1(2).Caption = 71 - i

Label1(3).Caption = 41 - i

If i = 30 Then

Shape11.FillColor = &HC0&

Shape9.FillColor = &H8000&

Shape7.FillColor = vbYellow

Shape10.FillColor = vbYellow

ElseIf i = 40 Then

Shape2.FillColor = vbYellow

Shape10.FillColor = vbYellow

Shape12.FillColor = &H8000&

Shape1.FillColor = &HC0&

Else

Shape7.FillColor = &HC0C0&

Shape10.FillColor = &HC0C0&

Shape8.FillColor = vbRed

Shape11.FillColor = &HC0&

Shape12.FillColor = vbGreen

End If

tunda

Next i

End Sub

..

Membuat program port paralel led berjalan dengan VB

1. Buatlah hardwarenya dengan 12 buah led dimana 8 led pertama sambungkan dengan pin data (2-9) dan 4 led trakhir sambungkan dengan pin control (1,14,16,17) jangan lupa tambahkan resistor dan penyambungan system katoda.

2. Buat project baru kemudian tambahkan 12 shape untuk simulasi lednya, 1 label untuk judul kemudian 5 commandbutton dan 4 buah timer.

3. Kemudian desain lah menjadi seperti gambar berikut :

4. Atur properties masing-masing komponen seperti untuk shape backstyle ubah menjadi 1-opaque kemudian backcolornya pilih warna putih kemudian unutk timer semua interval beri nilai 100 dan dalam keadaan false.

5. Save project dan Form di folder yang sama lalu copykan inpout32.dll pada folder tempat penyimpanan tersebut.

6. Masukkan kode program seperti dibawah ini :

Private Declare Function Inp Lib "inpout32.dll" _

Alias "Inp32" (ByVal PortAddress As Integer) As Integer

Private Declare Sub Out Lib "inpout32.dll" _

Alias "Out32" (ByVal PortAddress As Integer, ByVal value As Integer)

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()

Out 888, 255

Out 890, 4

Shape1.BackColor = vbRed

Shape2.BackColor = vbRed

Shape3.BackColor = vbRed

Shape4.BackColor = vbRed

Shape5.BackColor = vbRed

Shape6.BackColor = vbRed

Shape7.BackColor = vbRed

Shape8.BackColor = vbRed

Shape9.BackColor = vbRed

Shape10.BackColor = vbRed

Shape11.BackColor = vbRed

Shape12.BackColor = vbRed

Command3.Enabled = False

Command4.Enabled = False

Command5.Enabled = False

End Sub

Private Sub Command2_Click()

Out 888, 0

Out 890, 11

Shape1.BackColor = vbWhite

Shape2.BackColor = vbWhite

Shape3.BackColor = vbWhite

Shape4.BackColor = vbWhite

Shape5.BackColor = vbWhite

Shape6.BackColor = vbWhite

Shape7.BackColor = vbWhite

Shape8.BackColor = vbWhite

Shape9.BackColor = vbWhite

Shape10.BackColor = vbWhite

Shape11.BackColor = vbWhite

Shape12.BackColor = vbWhite

Command1.Enabled = True

Command2.Enabled = True

Command3.Enabled = True

Command4.Enabled = True

Command5.Enabled = True

End Sub

Private Sub Command3_Click()

Timer1.Enabled = True

Timer2.Enabled = True

Command1.Enabled = False

Command2.Enabled = False

Command4.Enabled = False

Command5.Enabled = True

End Sub

Private Sub Command4_Click()

Timer4.Enabled = True

Timer3.Enabled = True

Command1.Enabled = False

Command2.Enabled = False

Command3.Enabled = False

Command5.Enabled = True

End Sub

Private Sub Command5_Click()

Timer1.Enabled = False

Timer2.Enabled = False

Timer3.Enabled = False

Timer4.Enabled = False

Out 888, 0

Out 889, 11

Shape1.BackColor = vbWhite

Shape2.BackColor = vbWhite

Shape3.BackColor = vbWhite

Shape4.BackColor = vbWhite

Shape5.BackColor = vbWhite

Shape6.BackColor = vbWhite

Shape7.BackColor = vbWhite

Shape8.BackColor = vbWhite

Shape9.BackColor = vbWhite

Shape10.BackColor = vbWhite

Shape11.BackColor = vbWhite

Shape12.BackColor = vbWhite

Command1.Enabled = True

Command2.Enabled = True

Command3.Enabled = True

Command4.Enabled = True

Command5.Enabled = True

End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer2_Timer()

Dim a As Integer

a = Timer1.Interval

Timer1.Interval = a + 100

Select Case a

Case 100

Out 890, 11

Out 888, 1

Shape12.BackColor = vbWhite

Shape1.BackColor = vbRed

Case 200

Out 888, 2

Shape1.BackColor = vbWhite

Shape2.BackColor = vbRed

Case 300

Out 888, 4

Shape2.BackColor = vbWhite

Shape3.BackColor = vbRed

Case 400

Out 888, 8

Shape3.BackColor = vbWhite

Shape4.BackColor = vbRed

Case 500

Out 888, 16

Shape4.BackColor = vbWhite

Shape5.BackColor = vbRed

Case 600

Out 888, 32

Shape5.BackColor = vbWhite

Shape6.BackColor = vbRed

Case 700

Out 888, 64

Shape6.BackColor = vbWhite

Shape7.BackColor = vbRed

Case 800

Out 888, 128

Shape7.BackColor = vbWhite

Shape8.BackColor = vbRed

Case 900

Out 888, 0

Out 890, 10

Shape8.BackColor = vbWhite

Shape9.BackColor = vbRed

Case 1000

Out 888, 9

Shape9.BackColor = vbWhite

Shape10.BackColor = vbRed

Case 1100

Out 888, 15

Shape10.BackColor = vbWhite

Shape11.BackColor = vbRed

Case 1200

Out 888, 3

Shape11.BackColor = vbWhite

Shape12.BackColor = vbRed

Timer1.Interval = 100

End Select

End Sub

Private Sub Timer3_Timer()

Dim b As Integer

b = Timer4.Interval

Timer4.Interval = b + 100

Select Case b

Case 100

Out 888, 96

Shape1.BackColor = vbWhite

Shape12.BackColor = vbWhite

Shape6.BackColor = vbRed

Shape7.BackColor = vbRed

Case 200

Out 888, 144

Shape6.BackColor = vbWhite

Shape7.BackColor = vbWhite

Shape5.BackColor = vbRed

Shape8.BackColor = vbRed

Case 300

Out 888, 8

Out 890, 10

Shape5.BackColor = vbWhite

Shape8.BackColor = vbWhite

Shape4.BackColor = vbRed

Shape9.BackColor = vbRed

Case 400

Out 888, 4

Out 890, 9

Shape4.BackColor = vbWhite

Shape9.BackColor = vbWhite

Shape3.BackColor = vbRed

Shape10.BackColor = vbRed

Case 500

Out 888, 2

Out 890, 15

Shape3.BackColor = vbWhite

Shape10.BackColor = vbWhite

Shape2.BackColor = vbRed

Shape11.BackColor = vbRed

Case 600

Out 888, 1

Out 890, 3

Shape2.BackColor = vbWhite

Shape11.BackColor = vbWhite

Shape1.BackColor = vbRed

Shape12.BackColor = vbRed

Timer4.Interval = 100

End Select

End Sub

..

Membuat program kalkulator dengan Visual Basic

 
Bagi anda yang sering memanfaatkan kalkulator yang merupakan bagian adri aksesoris Windows, mungkin pernah berkeinginan untuk membuat kalkulator sendiri dan mungkin pula keinginan anda tersebut belum terwujud, karena anda belum tahu cara membuatnya.

          Dengan Tip berikut ini, anda akan dapat mewujudkan keinginan tersebut, karena membuat kalkulator dengan visual basic tidak sesulit bayangan anda.

1.     Buat project baru, kemudian TextBox dan sebuah commandButton seperti berikut:

2.      Klik kanan pada tombol command1, kemudian pilih copy, lalu klik kanan lagi dan pilih paste. Ketika muncul pesan “You already have a control named ’Command1’. Do you want to create a control array ?”, pilih yes. Akan muncul kontrol commandButton baru dengan nama Command1(1). Kemudian klik kanan lalu paste lagi sehingga muncul kontrol command1(2). Lakukan proses tersebut teru-menerus sampai kontrol CommandButton berjumlah sepuluh buah.

3.     Atur posisi kontrol-kontrol Command tersebut sehingga tampilan form menjadi seperti berikut.

4.     Kemudian atur properti caption untuk commandButton sehingga tampilannya menjadi seperti berikut.  

5.     Agar kalkulator dapat dioperasikan, tambahkan sepuluh buah commanButton baru.

6.     Atur properti kontrol TextBox dan CommandButton baru seperti berikut.  

Kontrol	Properti
Text1	Text
Command2	Name Caption	Koma .
Command3	Name Caption	AC AC
Command4	Name Caption	Tambah +
Command5	Name Caption	Kurang -
Command6	Name Caption	Tanda +/-
Command7	Name Caption	Bagi /
Command8	Name Caption	Kali x
Command9	Name Caption	Akar Akar
Command10	Name Caption	Hasil =l
Command11	Name Caption	Kuadrat X^2

7.     Setelah itu Atur posisi kontrol-kontrol tersebut sehingga menjadi seperti berikut :

8.     Buka jendela kode, lalu ketikkan kode berikut ini:

Private pilihan As String

Private x As Double

Private y As Double

Private Sub AC_Click()

Text1.Text = ""

y = x = 0

Tanda.Enabled = False

End Sub

Private Sub Akar_Click()

If x < 0 Then

Text1.Text = "Angka Tidak Boleh Negatif Coy"

Else

Text1.Text = Sqr(x)

End If

End Sub

Private Sub Bagi_Click()

Text1.Text = ""

pilihan = "bagi"

y = x

x = 0

Tanda.Enabled = False

End Sub

Private Sub Command1_Click(Index As Integer)

Text1.Text = Text1.Text & Command1(Index).Caption

x = Text1.Text

Tanda.Enabled = True

End Sub

Private Sub Form_Load()

Tanda.Enabled = False

End Sub

Private Sub Hasil_Click()

If pilihan = "tambah" Then

x = y + x

Text1.Text = x

ElseIf pilihan = "kurang" Then

x = y - x

Text1.Text = x

ElseIf pilihan = "kali" Then

x = y * x

Text1.Text = x

ElseIf pilihan = "bagi" And x <> 0 Then

x = y / x

Text1.Text = x

Else

Text1.Text = "Tidak Terdefinisi"

End If

End Sub

Private Sub Kali_Click()

Text1.Text = ""

pilihan = "kali"

y = x

x = 0

Tanda.Enabled = False

End Sub

Private Sub Koma_Click()

If Text1.Text = "" Then

Text1.Text = "0."

Else

Text1.Text = Text1.Text & "."

End If

End Sub

Private Sub Kuadrat_Click()

Text1.Text = x ^ 2

End Sub

Private Sub Kurang_Click()

Text1.Text = ""

pilihan = "kurang"

y = x

x = 0

Tanda.Enabled = False

End Sub

Private Sub Tambah_Click()

Text1.Text = ""

pilihan = "tambah"

y = x

x = 0

Tanda.Enabled = False

End Sub

Private Sub Tanda_Click()

If x < 0 Then

Text1.Text = -x

x = -x

Else

Text1.Text = "-" & Text1.Text

x = -x

End If

End Sub

 9.     Selamat Mencoba.....! dan jangan berhenti belajar program karena program itu       mengasyikkan.

..