Stop Motion Happy Birthday Ka Iqbal Yafi :)
My Team (LOOP Community)
Minggu, 24 November 2013
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
Rabu, 16 Januari 2013
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;
Kamis, 06 Desember 2012
Coding Delphi (Radio Button)
Coding KODE
if ComboBox1.Text='D' then
Edit1.Text:='Dancow';
if ComboBox1.Text='S' then
Edit1.Text:='Sustagen';
if ComboBox1.Text='M' then
Edit1.Text:='Milo';
Coding UKURAN
if RadioButton1.Checked=True then
begin
if ComboBox1.Text='D' then
Edit3.Text:='50000';
end;
if RadioButton1.Checked=True then
begin
if ComboBox1.Text='S' then
Edit3.Text:='51000';
end;
if RadioButton1.Checked=True then
begin
if ComboBox1.Text='M' then
Edit3.Text:='52000';
f RadioButton2.Checked=True then
begin
if ComboBox1.Text='D' then
Edit3.Text:='60000';
end;
if RadioButton2.Checked=True then
begin
if ComboBox1.Text='S' then
Edit3.Text:='61000';
end;
if RadioButton2.Checked=True then
begin
if ComboBox1.Text='M' then
Edit3.Text:='62000';
if RadioButton3.Checked=True then
begin
if ComboBox1.Text='D' then
Edit3.Text:='70000';
end;
if RadioButton3.Checked=True then
begin
if ComboBox1.Text='S' then
Edit3.Text:='71000';
end;
if RadioButton3.Checked=True then
begin
if ComboBox1.Text='M' then
Edit3.Text:='72000';
Coding JUMLAH JUAL
Edit4.Text:=FloatToStr(StrToFloatDef(Edit3.Text,0)*(StrToFloatDef(Edit2.Text,0)));
if (StrToFloatDef(Edit4.Text,0)>=300000) then
begin
Edit5.Text:=FloatToStr(StrToFloatDef(Edit3.Text,0)*0.15);
Edit6.Text:=FloatToStr(StrToFloatDef(Edit4.Text,0)- StrToFloatDef(Edit5.Text,0));
end
else
Edit5.Text:='0';
Edit6.Text:=FloatToStr(StrToFloatDef(Edit4.Text,0)- StrToFloatDef(Edit5.Text,0));
Coding delphi borland7
CODING PENJUALAN SUSU
masukan coding ke kotak sebelah KODE SUSU :
if ComboBox1.Text='D' then
Edit1.Text:='Dancow';
if ComboBox1.Text='S' then
Edit1.Text:='Sustagen';
if ComboBox1.Text='M' then
Edit1.Text:='Milo';
if ComboBox1.Text='D' then
begin
if ComboBox2.Text='Kecil' then
Edit3.Text:='20000';
if ComboBox2.Text='Sedang' then
Edit3.Text:='30000';
if ComboBox2.Text='Besar' then
Edit3.Text:='40000';
end;
if ComboBox1.Text='S' then
begin
if ComboBox2.Text='Kecil' then
Edit3.Text:='21000';
if ComboBox2.Text='Sedang' then
Edit3.Text:='31000';
if ComboBox2.Text='Besar' then
Edit3.Text:='41000';
end;
if ComboBox1.Text='M' then
begin
if ComboBox2.Text='Kecil' then
Edit3.Text:='22000';
if ComboBox2.Text='Sedang' then
Edit3.Text:='32000';
if ComboBox2.Text='Besar' then
Edit3.Text:='42000';
end;
Edit4.Text:=FloatToStr(StrToFloatDef(Edit3.Text,0)*(StrToFloatDef(Edit2.Text,0)));
if (StrToFloatDef(Edit4.Text,0)>=200000) then
begin
Edit5.Text:=FloatToStr(StrToFloatDef(Edit3.Text,0)*0.1);
Edit6.Text:=FloatToStr(StrToFloatDef(Edit4.Text,0)- StrToFloatDef(Edit5.Text,0));
end
else
Edit5.Text:='0';
Edit6.Text:=FloatToStr(StrToFloatDef(Edit4.Text,0)- StrToFloatDef(Edit5.Text,0));
masukan coding ke kotak sebelah JUMLAH JUAL :
Edit4.Text:=FloatToStr(StrToFloatDef(Edit3.Text,0)*(StrToFloatDef(Edit2.Text,0)));
if (StrToFloatDef(Edit4.Text,0)>=200000) then
begin
Edit5.Text:=FloatToStr(StrToFloatDef(Edit3.Text,0)*0.1);
Edit6.Text:=FloatToStr(StrToFloatDef(Edit4.Text,0)- StrToFloatDef(Edit5.Text,0));
end
else
Edit5.Text:='0';
Edit6.Text:=FloatToStr(StrToFloatDef(Edit4.Text,0)- StrToFloatDef(Edit5.Text,0));
masukan coding ke kotak sebelah UKURAN :
if ComboBox1.Text='D' then
begin
if ComboBox2.Text='Kecil' then
Edit3.Text:='20000';
if ComboBox2.Text='Sedang' then
Edit3.Text:='30000';
if ComboBox2.Text='Besar' then
Edit3.Text:='40000';
end;
if ComboBox1.Text='S' then
begin
if ComboBox2.Text='Kecil' then
Edit3.Text:='21000';
if ComboBox2.Text='Sedang' then
Edit3.Text:='31000';
if ComboBox2.Text='Besar' then
Edit3.Text:='41000';
end;
if ComboBox1.Text='M' then
begin
if ComboBox2.Text='Kecil' then
Edit3.Text:='22000';
if ComboBox2.Text='Sedang' then
Edit3.Text:='32000';
if ComboBox2.Text='Besar' then
Edit3.Text:='42000';
end;
Rabu, 12 September 2012
CODING APLIKASI PENGUKUR NILAI
CODING MEMBUAT APLIKASI PENGUKUR NILAI
isi coding ini di bagian kotak di samping ANGKA & kotak PROSES :
CODING APLIKASI NILAI HURUF
if(StrToFloatDef(Edit1.Text,0)<=100) Then
Begin
Edit2.Text:='A';
Edit3.Text:='ISTIMEWA';
end;
if(StrToFloatDef(Edit1.Text,0)<=79) Then
Begin
Edit2.Text:='B';
Edit3.Text:='MEMUASKAN';
end;
if(StrToFloatDef(Edit1.Text,0)<=74) Then
Begin
Edit2.Text:='C';
Edit3.Text:='CUKUP';
end;
if(StrToFloatDef(Edit1.Text,0)<=64) Then
Begin
Edit2.Text:='D';
Edit3.Text:='KURANG';
end;
if(StrToFloatDef(Edit1.Text,0)<=44) Then
Begin
Edit2.Text:='E';
Edit3.Text:='GAGAL';
end;
if(StrToFloatDef(Edit1.Text,0)<0) Then
Begin
Edit2.Text:='ERORR';
Edit3.Text:='ERORR';
end;
if(StrToFloatDef(Edit1.Text,0)<=100) Then
Begin
Edit2.Text:='A';
Edit3.Text:='ISTIMEWA';
end;
if(StrToFloatDef(Edit1.Text,0)<=79) Then
Begin
Edit2.Text:='B';
Edit3.Text:='MEMUASKAN';
end;
if(StrToFloatDef(Edit1.Text,0)<=74) Then
Begin
Edit2.Text:='C';
Edit3.Text:='CUKUP';
end;
if(StrToFloatDef(Edit1.Text,0)<=64) Then
Begin
Edit2.Text:='D';
Edit3.Text:='KURANG';
end;
if(StrToFloatDef(Edit1.Text,0)<=44) Then
Begin
Edit2.Text:='E';
Edit3.Text:='GAGAL';
end;
if(StrToFloatDef(Edit1.Text,0)<0) Then
Begin
Edit2.Text:='ERORR';
Edit3.Text:='ERORR';
end;
Sabtu, 08 September 2012
CODING DELPHI MEMBUAT APLIKASI PENGUKUR UMUR
CODING DELPHI MEMBUAT APLIKASI PENGUKUR UMUR
isikan kalimat" ini bdasarkan tempatnya
Di kotak sebelah umur dan kotak tulisan proses jg klik 2x lalu tuliskan :
if(StrToFloatDef(Edit1.Text,0)>=60) Then
Edit2.Text:='LANSIA';
if(StrToFloatDef(Edit1.Text,0)>=40)and (StrToFloatDef(Edit1.Text,0)<60)Then
Edit2.Text:='TUA';
if(StrToFloatDef(Edit1.Text,0)>=25) and (StrToFloatDef(Edit1.Text,0)<40)Then
Edit2.Text:='DEWASA';
if(StrToFloatDef(Edit1.Text,0)>=17) and (StrToFloatDef(Edit1.Text,0)<25)Then
Edit2.Text:='REMAJA';
if(StrToFloatDef(Edit1.Text,0)>0) and (StrToFloatDef(Edit1.Text,0)<17)Then
Edit2.Text:='ANAK-ANAK';
if(StrToFloatDef(Edit1.Text,0)<1)Then
Edit2.Text:='INPUT SALAH';
Di kotak tulisan hapus klik 2x lalu tuliskan :
Edit1.Clear;
Edit2.Clear;
Di kotak X klik 2x lalu tulskan :
If (application.MessageBox('Keluar?','Masivers',mb_yesno))=idyes then
close;
Langganan:
Postingan (Atom)