Private Sub CmdTambah_Click() If TxtNama.Text = "" Then MsgBox "Nama belum di isi!", vbCritical, "Peringatan!" ElseIf TxtAlamat.Text = "" Then MsgBox "Alamat belum di isi!", vbCritical, "Peringatan!" ElseIf TxtNo.Text = "" Then MsgBox "Nomor Telepon belum di isi!", vbCritical, "Peringatan!" ElseIf MsgBox("Apakah anda ingin menambahkan kontak?", vbYesNo, "") = vbYes Then FormUtama.Adodc1.Recordset.AddNew FormUtama.Adodc1.Recordset!Nama = TxtNama.Text FormUtama.Adodc1.Recordset!Alamat = TxtAlamat.Text FormUtama.Adodc1.Recordset!NoTelp = TxtNo.Text MsgBox "Kontak Berhasil di Simpan", vbInformation, "Kontak Tertambah" Bersih Else End If End Sub Private Sub CmdKembali_Click() Unload Me End Sub Sub Bersih() TxtNama.Text = "" TxtAlamat.Text = "" TxtNo.Text = "" End Sub Private Sub CmdKe...
PRINSIP DASAR ANIMASI Prinsip dasar animasi adalah Prinsip-prinsip yang digunakan seorang animator untuk mengetahui dan memahami bagaimana sebuah animasi dibuat sedemikian rupa sehingga didapatkan hasil animasi yang menarik, dinamis dan tidak membosankan. Prinsip dasar ini animasi ini sebenarnya paling pas digunakan untuk animasi kartun. 1. SQUASH AND STRETCH Squash and Stretch ini adalah sebuah prinsip yang digunakan untuk membuat ilusi seberapa keras permukaan sebuah benda. Pada dasarnya, ketika sebuah benda yang permukaannya empuk, saat menghantam benda lain dengan keras akan berubah bentuknya sementara sebelum akhirnya bisa kembali lagi ke bentuk semula. Beda dengan benda yang permukaannya keras, ketika menghantam benda lain, bentuknya tetap dan tidak berubah. Squash and Stretch pada animasi bola Dari gambar di atas, kita bisa menentukan bola mana yang permukaannya keras dan mana yang tidak. Hal tersebut bisa diketahui dari: ‘’Bola yang keras tidak mengala...
Komentar
Posting Komentar