Stop Motion Happy Birthday Ka Iqbal Yafi :)

Stop Motion Happy Birthday Ka Iqbal Yafi :)

Stop Motion (Happy Birthday Kak Iqbal Yafi)

STOP MOTION

Stop motion adalah suatu teknik animasi untuk membuat objek yang dimanipulasi secara fisik agar terlihat bergerak sendiri. Setiap pergerakan dari objek tersebut difoto (frame individual), sehingga menciptakan ilusi gerakan ketika serangkaian frame dimainkan berurutan secara berkesinambungan. Tokoh/objek dari tanah liat sering digunakan dalam stop motion untuk kemudahan mereka mereposisi. Gerakan animasi menggunakan tanah liat disebut clay animation or clay-mation. Pada umumnya animasi awalnya bukan video, melainkan kumpulan gambar yang berurutan sehingga akhirnya menjadi sebuah video. Begitu pun stop motion, juga terdiri dari kumpulan gambar yang berurutan. Namun kumpulan gambar yang didapatkan dalam stop motion tidak lah sehalus pengerjaan animasi dengan komputer. Karena pengambilan sebuah gambarnya memerlukan penggerakan objek secara manual. Dan objeknya bukanlah benda hidup.


Contoh STOP MOTION bisa dilihat di http://youtu.be/8Ss9MN9pBXc

Coding SIMPAN , UPDATE, REFRESH , HAPUS , EXIT , DBGrid di Delphi Borland7

Coding SIMPAN , UPDATE, REFRESH , HAPUS , EXIT , DBGrid di Delphi Borland7

// CODING SIMPAN (letakkan di dalam tombol SIMPAN dgn cara klik 2x tombol SIMPAN)
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Append('insert into pelajar values('''+Edit1.Text+''','''+Edit2.Text+''','''+Edit3.Text+''','''+DateToStr(DateTimePicker1.Date)+''','''+ComboBox1.Text+''','''+Edit5.Text+''','''+ComboBox2.Text+''','''+Edit6.Text+''')');
ADOQuery1.ExecSQL;

//CODING UPDATE (letakkan di dalam tombol UPDATE dgn cara klik 2x tombol UPDATE)
if(Edit1.Text<>'')then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Append('update pelajar set nama='"+Edit2.Text+"', Alamat='"+Edit3.Text+"', tgl_lahir='"+DateToStr(DateTimePicker1.Date)+"', jk='''+DBLookupComboBox1.Text+''', tlp ='"+Edit3.Text+"', hobby='''+DBLookupComboBox2.Text+''', ket='''+Edit4.Text
+''' where id_buku='''+Edit1.Text+'''');
ADOQuery1.ExecSQL;
MessageDlg('DATA KAMU SUDAH DIPERBAHARUI',mtInformation,[mbOK],0);
END ELSE
MessageDlg('SILAHKAN ISI DULU ID BUKU YANG MAU KAMU UPDATE',mtInformation,[mbOK],0);
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit4.Clear

//CODING REFRESH (letakkan di dalam tombol REFRESH dgn cara klik 2x tombol REFRESH)
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Append('SELECT * FROM pelajar order by ID_PELAJAR desc');
ADOQuery1.Open;

//CODING HAPUS (letakkan di dalam tombol HAPUS dgn cara klik 2x tombol HAPUS)
if (MessageDlg('Yakin Hapus Data Anda?',mtConfirmation,[mbYes,mbNo],0)=mrYes)then
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Append('Delete From pelajar where ID_PELAJAR='''+Edit1.Text+'''');
ADOQuery1.ExecSQL;
MessageDlg('DATA ANDA SUDAH DIHAPUS',mtConfirmation,[mbOK],0);
Button3.Click; //Sesuaikan dengan tombol refresh

//Coding EXIT (letakkan di dalam tombol TUTUP dgn cara klik 2x tombol TUTUP)
Close;

DBGrid : klik DBGrid 1x - events - OnDBLClick - DBGrid1DBLClik - klik2x - masukkan coding
//coding DBGrid
Edit1.Text:=ADOQuery1.Fields[0].AsString;
Edit2.Text:=ADOQuery1.Fields[1].AsString;
Edit3.Text:=ADOQuery1.Fields[2].AsString;
DateTimePicker1.Date:=ADOQuery1.Fields[3].AsDateTime;
ComboBox1.Text:=ADOQuery1.Fields[4].AsString;
Edit5.Text:=ADOQuery1.Fields[5].AsString;
ComboBox2.Text:=ADOQuery1.Fields[6].AsString;
Edit6.Text:=ADOQuery1.Fields[7].AsString;