Dubsmash

Dubsmash.com Apa itu???

Dubsmash adalah sebah aplikasi penggubah video yang tersedia di sistem operasi iOS dan Android. Aplikasi ini berguna untuk membuat video hasil pengalihan suara (dubbing) dari suara-suara yang telah dimasukkan dan mengunggahnya ke beberapa media sosial.

Dubsmash diluncurkan perdana pada 14 November 2014. Tokoh kunci aplikasi Dubsmash adalah Jonas Drüppel, Roland Grenke dan Daniel Taschik.

Description

Say it with video

1. Choose your favorite sound on Dubsmash
2. Record yourself with the sound
3. Share the recorded Dub with your friends

Dubsmash makes it easy and fun to create hilarious conversations. In just a few seconds, you can dub well-known quotes and sounds in order to produce funny videos you can then share with your friends.

Anyone can be an awesome actor with Dubsmash! Simply let the quotes speak for you, or go all out and show your best interpretation using one of the countless one-liners in the app.

In addition to creating awesome videos, you can also create collections of sounds with the world’s largest quote library, or add your own sounds for everyone to use.

It’s never been easier to make every conversation worth a laugh.

 How to download this?

1. You can open your apple store / Play Store on your smarth phone

2. Search Dubsmash

3. Download 

4. Wait,.... Finish and you can use this apps

How to use this app?
1. Choose your favorite sound on Dubsmash
2. Record yourself with the sound
3. Share the recorded Dub with your friends

Well, This my dubsmash video, yesterday I tried to make it better.
However, I still can not make a dubbing that fits with the movement.
Pliss check on my -->  Instagram

NB : Maafin grammernya y ,                                          

ini blog pertama saya yang menggunakan bahasa Inggris

 yang sedikit di campur dalam bahasa Indonesia  (tetep)

Unique Food Depot and Decoco

Depot
apa itu????
Depot disini bukan stand air minum gitu y
Depot atau biasa De'Pot yaitu sejenis makanan yang berbentuk unik
Dimana bahan yang digunakan berupa ice cream yang di lapisi topping beranekaragam, ada buah, biskuit, corn, etc
Dan wadah yang digunakan yaitu pot bunga, mangkanya disebut depot kan salah satu bahan yang mendukung dan yang buat menarik ya pot nya ini

Ada beberapa macam menu depot salah dua nya :D ini :

Depot Solid

Eits jangan khawatir ini bukan tanaman hias, ini real 100% bisa di makan
iiiiiii ada cacingnya
xixixixixi
itu bukan cacing beneran kok gaes, itu agar - agar coklat yang di bentuk kayak cacing
bener - bener gak kepikiran kan buat bikin makanan yang kayak begini
Be Creative

Ada lagi ni kan tadi aku bilang salah dua berarti kudu kasi contoh satu lagi kan

Depot Beach

Next,
Decoco
apa lagi ini ????
Decoco dari namanya aja uda coco (coconut/Kelapa) pasti salah satu bahan yang digunakan yaituuuuuuuu Yup kelapa
Mungkin kalian uda sering liat yang satu ini biasa kalo kalian main ke pantai ya pasti ada ni menu jadi gak perlu banyak banyak dijelasinkan pasti uda pada tau.

Decoco

 

Decoco With Ice Cream topping

Hahahahahahahahaaaa
be unique, right?

so, when you have a new inspiration?
u can create a unique food or a new prescription.

Jangan malu buat berekperimen dan mencoba , sapa tau itu langkah awal buat kamu jadi success...



Mau? Minat? Pengen nyobain juga?
ok check on instagram : decoco.pi

Thank you've read my blog posts

Don't forget to keep to a healthy diet
Remember health is the key to success

Link List Pada Delphi

Pada postingan sebelumnya uda di jelaskan apa itu Link List pada pascal
Sekarang gue bakal ngasih kode listingpada delphi

Langsung aja ya berikut source code nya :

Contoh Program Link List Toko Bunga pada Pascal menggunkan Gotoxy

LinkedList adalah salah satu bentuk struktur data, berisi kumpulan data
(node) yang tersusun secara sekuensial, saling sambungmenyambung,
dinamis dan terbatas. Dalam ilmu komputer merupakan sebuah struktur data yang digunakan untuk menyimpan sejumlah objek data biasanya secara terurut sehingga memungkinkan penambahan, pengurangan, dan pencarian atas elemen data yang tersimpan dalam senarai dilakukan secara lebih efektif. Pada praktiknya sebuah struktur data memiliki elemen yang digunakan untuk saling menyimpan rujukan antara satu dengan lainnya sehingga membentuk sebuah senarai abstrak, tiap-tiap elemen yang terdapat pada senarai abstrak ini seringkali disebut sebagai node. karena mekanisme rujukan yang saling terkait inilah disebut sebagai senarai berantai.

- Linked List sering disebut juga Senarai Berantai
- Linked List saling terhubung dengan bantuan variabel pointer
- Masing-masing data dalam Linked List disebut dengan node (simpul) yang
menempati alokasi memori secara dinamis dan biasanya berupa struct
yang terdiri dari beberapa field.

 Langsung saja ke source codenya,, berikut ini source codenya...

program databunga;
uses crt;
type poinjuk = ^lokasi;
      lokasi = record
      bunga : string;
      nama: string;
      banyak: integer;
      berikut : poinjuk;
     end;

var awal,data,akhir : poinjuk;
    f,s,d     : integer;
    pil,pilih : char;
    larik : lokasi;
    cari : string;

Procedure menu;
begin
 clrscr;
 writeln(' ------------------------ Data Toko Bunga -------------------------- ');
 writeln(' ------------------------------------------------------------------- ');
 writeln;
 writeln('   1. Tambah data pembeli       4. Cari data pembeli ');
 writeln('   2. Tampilkan data pembeli    5. pembelian terbesar dan terkecil');
 writeln('   3. Hapus data                6. Rata-Rata pembelian');writeln;
 writeln('                            0. Keluar');
 writeln;
 writeln(' -------------------------------------------------------------------');
 write('   Pilihan : '); readln(pil);
end;

procedure databaru(var baru : poinjuk; namanya : string;bunganya : string; banyaknya : integer);
Begin
 new(baru);
 baru^.nama:=namanya;
 baru^.bunga:=bunganya;
 baru^.banyak:=banyaknya;
 baru^.berikut:=nil;
end;

procedure tambah;
begin
 clrscr;
 writeln('------ Masukkan Data Baru ------');
 writeln;

 repeat
  new(data);
  write('Nama Pembeli        : '); readln(larik.nama);
  write('Nama Bunga          : '); readln(larik.bunga);
  write('Jumlah Beli         : '); readln(larik.banyak);
  databaru(data,larik.nama,larik.bunga,larik.banyak);
  if awal=nil then
   begin
    awal:=data;
    akhir:=data;
   end
  else
   begin
    akhir^.berikut:=data;
    akhir:=data;
    akhir^.berikut:=nil;
   end;
   writeln;
  write('Tambah Data Lagi[Y/T] : ');
  readln(pilih);
  writeln;
  pilih:=upcase(pilih);
 until pilih='T';
end;

procedure lihat;
var banyak : integer;
begin
clrscr;
s:=0;
banyak:=0;
data:=awal;
writeln('------------------ Daftar Data Toko Bunga ------------------');
writeln('|----------------------------------------------------------|');
writeln('| No |      Nama     |       Bunga        |     Jumlah     |');
writeln('|----------------------------------------------------------|');
       //123456789012345678901234567890123456789012345678901234567890
while data<> nil do
 begin
  s:=s+1;
  gotoxy(1,4+s);
writeln('|    |               |                    |                |');
  gotoxy(3,4+s);
  writeln(s);
  gotoxy(8,4+s);
  writeln(data^.nama);
  gotoxy(24,4+s);
  writeln(data^.bunga);
  gotoxy(51,4+s);
  writeln(data^.banyak);
  banyak:=banyak+data^.banyak;
  data:=data^.berikut;
 end;
writeln('|----------------------------------------------------------|');
writeln('| Total bunga dibeli = ',banyak);
readkey;

end;

procedure caridata;
var
   terus : boolean;
begin
clrscr;
writeln('--------- Cari Data Pembeli Bunga ---------');
writeln;
write('Nama Pembeli yang ingin dicari : ');
readln(cari);
writeln;
data:=awal;
terus:=false;
while (data<>nil) and (terus=false) do
 begin
  if data^.nama=cari then
   begin
    terus:=true;
    writeln('Nama ',cari,' Ditemukan : ');
    writeln('Nama Bunga  : ',data^.bunga);
    writeln('Jumlah      : ',data^.banyak);
   end
  else
    data:=data^.berikut;
 end;
if data= nil then writeln('Nama ',cari,' Tidak ditemukan ! ');
readkey;
end;

procedure hapus;
var
   terus : boolean;
   bantu : poinjuk;
begin
clrscr;
writeln('--------- Hapus Data Pembeli Bunga ---------');
writeln;
write('Nama Pembeli yang ingin dhapus  : ');
readln(cari);
writeln;
data:=awal;
terus:=false;

if data^.nama=cari then
 begin
 awal:=data^.berikut;
 dispose(data);
 writeln('Nama  ',cari,' Berhasil dihapus !  ');
 end
else
begin
 while (data<>nil) and (terus=false) do
  begin
  if data^.berikut^.nama = cari then
   begin
    terus:=true;
    bantu:=data^.berikut;
    data^.berikut:=data^.berikut^.berikut;
    dispose(bantu);
    writeln('Nama ',cari,' Berhasil dihapus ! ');
   end;
    data:=data^.berikut;
 end;
end;

if data= nil then writeln('Nama ',cari,' Tidak ditemukan ! ');
readkey;
end;


procedure terbanyakdantersedikit;
var min,max : poinjuk;
begin
 clrscr;
 data:=awal;
 max:=awal;
 min:=awal;
 while data<>nil do
  begin
   if max^.banyak < data^.banyak then max:=data;
   if min^.banyak > data^.banyak then min:=data;
  data:=data^.berikut;
 end;
 if awal=nil then
  writeln('data masih kosong !! ')
 else
  begin
    writeln('Pembeli dengan pembelian terbesar adalah : ',max^.nama);
    writeln('                         Nama Bunga      : ',max^.bunga);
    writeln('                         Jumlah          : ',max^.banyak);
    writeln('------------------------------------------------------------');
    writeln('Pembeli dengan pembelian terkecil adalah : ',min^.nama);
    writeln('                         Nama Bunga      : ',min^.bunga);
    writeln('                         Jumlah          : ',min^.banyak);
   end;
 readkey;
end;

procedure rata;
var rata2,rata3 : real;
   n : integer;
begin
 clrscr;
 data:=awal;
 rata2:=0;
 n:=0;
 while data<>nil do
  begin
  rata2:=rata2+data^.banyak;
  n:=n+1;
  data:=data^.berikut;
 end;
 if awal=nil then
  writeln('Data Masih Kosong !! ')
 else
  begin
    rata3:=rata2/n;
    writeln('Rata-rata pembelian keseluruhan adalah : ',rata3:0:2);
   end;
 readkey;
end;


BEGIN

repeat

menu;
case pil of
'1' : tambah ;
'2' : lihat ;
'3' : hapus;
'4' : caridata;
'5' : terbanyakdantersedikit;
'6' : rata ;
'0' : exit;

end;
until pil ='0';
END.

Hasil Outputnya :

Semoga Membantu dan bermanfaat

More Info : Visit

 

Program Penjualanan Menggunakan Record pada Pascal (Consol Aplication)

Pascal yang digunakan pada Delphi yang menggunakan Consol Aplication
Pada contoh program ini gue bakalan berbagi info tentang listing/koddingan program yang menggunakan tipe data berupa :
1. Array
2. Record
3. Procedure
4. Function

Berikut listing programnya :

program FP_Penjualan;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Type Kasir = record
     no_trans, tgl, nama, nm_brg : String[25];
     kd_brg, jml : integer;
     hrg, tot : real;
     End;
     Data = Array [1..100] of Kasir;

{Procedure unutk menampilkan judul}
Procedure judul;
begin
   Writeln('             IF IPHONE SHOP         ');
     Writeln('  Jl.Srijaya Negara Bukit Besar Palembang ');
end;

Procedure menu;
begin
     Writeln('==========================================');
     Writeln;
     Writeln ('         Data Barang dan harga         ');
     Writeln('==========================================');
     writeln;
     Writeln ('1. Iphone 6   Rp. 11000000 ');
     Writeln ('2. Iphone 6+  Rp. 12000000');
     Writeln ('3. Iphone 5+  Rp.  6500000');
     Writeln ('4. Iphone 5C  Rp.  5500000');
     Writeln ('5. Iphone 4S  Rp.  2000000');
     Writeln ('6. Iphone 4G  Rp.  1800000');
     Writeln ('7. Iphone 3GS Rp.  1000000');
     Writeln ('8. Iphone 3G  Rp.  800000');
end;
{Procedur Inpu data}
Procedure Input1 (var n : integer);
begin
     Write ('Masukkan banyak data : '); readln (n);
     writeln;
end;

Procedure form;
begin
     writeln;
     writeln('             Form Transaksi             ');
     writeln;
end;

Procedure Input2 (n : integer; var jual : Data);
var
  i:integer;
begin
     for i:= 1 to n do
     begin
     Writeln('Data Ke-',i);
     Writeln;
     begin
     Write('No Transaksi : ');Readln(jual[i].no_trans);
     Write('Tanggal      : ');Readln(jual[i].tgl);
     Write('Nama Pembeli : ');Readln(jual[i].nama);
     Write('Kode Barang  : ');Readln(jual[i].kd_brg);
     Write ('Jumlah Beli  : ');Readln(jual[i].jml);
     end;
     writeln;
     end;
end;
{Procedure Proses perhitngan perulangan percabangan dan perulangan}
procedure proses (n : integer; var jual : data);
var
  i : integer;
begin
      for i:= 1 to n do
      if jual[i].kd_brg  = 1 then
        begin
        jual[i].nm_brg  :='Iphone 6';
        jual[i].hrg     :=11000000;
        end

     else
      if jual[i].kd_brg = 2 then
        begin
        jual[i].nm_brg  :='Iphone 6+';
        jual[i].hrg     :=12000000;
        end

     else
      if jual[i].kd_brg = 3 then
        begin
        jual[i].nm_brg  :='Iphone 5+';
        jual[i].hrg     :=6500000;
        end

     else
      if jual[i].kd_brg = 4 then
        begin
        jual[i].nm_brg  :='Iphone 5C';
        jual[i].hrg     :=5500000;
        end

     else
      if jual[i].kd_brg = 5 then
        begin
        jual[i].nm_brg  :='Iphone 4S';
        jual[i].hrg     :=2000000;
        end

     else
      if jual[i].kd_brg = 6 then
        begin
        jual[i].nm_brg  :='Iphone 4G';
        jual[i].hrg     :=1800000;
        end

     else
      if jual[i].kd_brg = 7 then
        begin
        jual[i].nm_brg  := 'Iphone 3GS';
        jual[i].hrg     := 1000000;
        end
     else
      if jual[i].kd_brg = 8 then
        begin
        jual[i].nm_brg  := 'Iphone 3G';
        jual[i].hrg     := 800000;
        end;
end;

procedure hitung1 (n : integer; var jual : Data);
var
 i : integer;
begin
  for i:= 1 to n do
  begin
    jual[i].tot:=jual[i].jml*jual[i].hrg;
  end;
end;

function hitung2 (n : integer; jml_penjualan : real; jual : data ) : real;
var
  i: integer;
begin
    for i:= 1 to n do
    jml_penjualan:=jml_penjualan+jual[i].tot;
    hitung2:=jml_penjualan;
end;

procedure kolom;
begin
  Writeln('============ Cetak Transaksi =============');
  Writeln('==========================================');
end;
{Procedure Output}
procedure output (n : integer; jual : Data);
var
  i : integer;
begin
     For i := 1 to n do
     begin

     write(i);
     Writeln(' No Transaksi : ',jual[i].no_trans);
     Writeln('  Tgl          : ',jual[i].tgl);
     Writeln('  Nama Pembeli : ',jual[i].nama);
     Writeln('  Nama Barang  : ',jual[i].nm_brg);
     Writeln('  Harga        : ',jual[i].hrg:0:0);
     Writeln('  Jumlah       : ',jual[i].jml);
     Writeln('  Total Harga  : ',jual[i].tot:0:0);
     writeln;
     end;
end;

Procedure output2 ( n : integer; jml_penjualan : real);
begin
     Writeln('==========================================');
     Writeln('Jumlah Transaksi : ', n);
     Writeln('Jumlah Penjualan : Rp.',jml_penjualan:0:0);
     writeln;
End;

Var
   jual : Data;
   n: Integer;
   jml_penjualan : real;


{Program Utama}
begin
  { TODO -oUser -cConsole Main : Insert code here }
  judul;
  menu;
  Writeln;
  input1 (n);
  form;
  input2 (n,jual);
  proses (n,jual);
  hitung1 (n,jual);
  jml_penjualan:= hitung2 (n,jml_penjualan,jual);
  Writeln;
  Judul;
  writeln;
  Kolom;
  output (n,jual);
  output2 (n,jml_penjualan);
  readln;
end.

Hasil Outputnya

Semoga membantu