Duh...senengnya....

Duh...Senengnya ati ku....xixixixi..program ku dah mau kelar ..
Tadi sore ku ketemu lagi cara baca hasil suara watermark dan ambil gambarnya
itung...tung..tung.Signal To Noise Ratio (SNR) dan Mean Square Error (MSE) gambarnya..
xixixi,,,ya allah mudahkanlah urusan hambamu,,,

Read More...complete..

Write File WAV dengan Rutin Bass23

Akhirnya ketemu lagi coding buat Write WAV pake Rutin Bass23..dan hasilnya sama
headernya 44 byte...
nih codingnya...

procedure TForm1.Button9Click(Sender: TObject);
var
temp : string;
i : longint;
RecStream : TFileStream;
nChannels : Word; // number of channels (i.e. mono, stereo, etc.)
nSamplesPerSec : DWORD; // sample rate
nAvgBytesPerSec : DWORD; // transfer rata-rata per detik
nBlockAlign : Word;
wBitsPerSample : Word; // number of bits per sample of mono data
Data : Array of SmallInt;
begin
SetLength(Data, Length(hasil_inversedct1));
for i := 0 to Length(hasil_inversedct1) - 1 do
begin
Data[i] := Round(hasil_inversedct1[i]);
end;

nChannels := 1;
wBitsPerSample := 16;
nBlockAlign := nChannels * wBitsPerSample div 8;
nSamplesPerSec := 22050;
nAvgBytesPerSec := nSamplesPerSec * nBlockAlign;

RecStream := TFileStream.Create('c:\Cinta.wav',fmCreate);

// Write header portion of wave file
temp := 'RIFF';
RecStream.write(temp[1], length(temp));
temp := #0#0#0#0;
RecStream.write(temp[1], length(temp)); // File size: to be updated
temp := 'WAVE';
RecStream.write(temp[1], length(temp));
temp := 'fmt ';
RecStream.write(temp[1], length(temp));
temp := #$10#0#0#0;
RecStream.write(temp[1], length(temp)); // Fixed
temp := #1#0;
RecStream.write(temp[1], length(temp)); // PCM format
if nChannels = 1 then
temp := #1#0
else
temp := #2#0;
RecStream.write(temp[1], length(temp));
RecStream.write(nSamplesPerSec, 2);
temp := #0#0;
RecStream.write(temp[1], length(temp)); // SampleRate is given as dWord
RecStream.write(nAvgBytesPerSec, 4);
RecStream.write(nBlockAlign, 2);
RecStream.write(wBitsPerSample, 2);
temp := 'data';
RecStream.write(temp[1],length(temp));
temp := #0#0#0#0;
RecStream.write(temp[1],length(temp)); // Data size: to be updated
RecStream.Write(Data[0], Length(Data) * SizeOf(SmallInt));

{complete WAV header
Rewrite some fields of header }
i := RecStream.Size - 8; // size of file
RecStream.Position := 4;
RecStream.write(i, 4);
i := i - $24; // size of data
RecStream.Position := 40;
RecStream.write(i, 4);
RecStream.Free;
edit5.Text := 'Selesai';
end;

Read More...complete..

Mencari Uang di AglocoYuk !!!

AGLOCO TM baru launching pada 21 november 2006 lalu, tapi respon yang didapat seluruh dunia sungguh luar biasa dan di Indonesia belum banyak yang tahu. Jadi peluang kita masih benar-benar terbuka selebar-lebarnya. Referensikan situs ini kepada teman, kolega, sahabat, atau siapapun yang tidak Anda kenal sekalipun di website Anda, blog, iklan baris, forum, milis, Instant Messenger, chatting, dll. Buatlah jaringan di bawah Anda untuk memperoleh penghasilan lebih dengan ID yang Anda peroleh setelah mendaftar.

Memang saat ini, sistem ini belum dilepas sebab Viewbar TM masih dalam versi Beta (uji coba). Jadi untuk sementara mereka hanya menerima member dahulu. Tapi pada saatnya nanti Anda mesti sudah memiliki statistik lengkap pendapatan Anda tidak hanya dari aktivitas online Anda saja, tapi dari orang-orang yang Anda referensikan.

Ayo gabung dengan revolusi baru cara beriklan yang lebih sopan, lebih mudah, dan yang paling penting kita dibayar! Saya yakin 100% bahwa suatu saat nanti perusahaan ini akan menjadi yang terbesar . Mari kita sama-sama tunggu tanggal peluncurannya viewbarnya.

Ingin mendaftar ? coba kunjungi http://transtool.wordpress.com

Read More...complete..

Clix Sense

ClixSense adalah sebuah layanan yang akan membayar anda hanya dengan meng-klik dan melihat iklan yang disediakan. Semakin banyak anda meng-klik dan melihat iklan, maka earning anda akan semakin besar.
Berapa yang saya dapat untuk satu click/view ?

Clixsense membayar anda $0.01 (kurang lebih Rp 100,-) untuk setiap iklan yang anda lihat. Untuk setiap click/view, Clixsense mensyaratkan anda untuk tidak menutup window iklan dalam waktu 30 detik.
Hmm, bisa berikan estimasi yang bisa dihasilkan dalam 1 bulan ?

Anggaplah anda browsing selama 3 jam sehari. Dan asumsi saja dari waktu 3 jam tersebut, tentu anda tidak terus menerus melihat ads dari pemasang iklan, tapi lebih pada sampingan sambil blogwalking atau mencari content situs.

Asumsi :
Dari 3 jam efektif browsing, ada 2 jam waktu browsing yang dilakukan sambil melihat Clixsense
2 jam x 60 x 2 = 240 views/click. Kita ambil saja batas menjadi 200 views
200 x 0.01 = 2 dollar/hari = 60 dollar/bulan.

Tentu, 60 dollar sebulan sangat lumayan..bahkan untuk membayar koneksi Internet anda sudah lebih dari cukup.
Saya pengen cepet aja, dicurangin pake Autoclick bisa ?

Hmm,..tidak usah berpikir demikian, maen jujur aja. Figur diatas (60 dollar sebulan) dapat anda capai dengan santai dan bermain fair. Lagipula, Clixsense memiliki proteksi seperti Turing Code yang secara berkala diminta, atau deteksi IP anda. Please play safely and fair !
Apa bedanya Premium member dengan Basic Member ?

Premium member mendapatkan hak lebih banyak untuk melihat iklan, dibanding Basic Member. Untuk menjadi premium member, anda hanya perlu membayar $10 saja.
Saya tidak bisa bayar $10 karena tidak punya PayPal atau Kartu Kredit, gimana dong ?

Tidak masalah, kami bisa membantu anda. Cukup kirimkan Rp 90,000 ke rekening kami, dan kami akan upgrade membership anda. Tapi, ehm, siapa tahu, untuk bulan September, kami memberikan free upgrade premium member untuk 5 orang. Lihat pengumuman dibawah.
Saya curiga ini SCAM, bener gak sih ?

Kalau sudah lihat ceknya dan bisa diuangkan, masak dianggap SCAM sih ? :). BaliWebMaker hanya me-review situs online earning yang JUJUR, dan bermanfaat buat anda.

cek_clixsense

Klik gambar untuk memperbesar
OK, saya ikut, gimana cara daftarnya ?

Sangat mudah. Jika anda merasa review ini bermanfaat buat anda, silakan klik banner atau link yang berada dibagian paling bawah artikel ini. Tenang saja, mendaftar melalui referral saya tidak akan memotong earning anda satu senpun, anggap saja sebagai rasa terimakasih atas review ini. Justru anda akan kami bantu meng-upgrade status member dari Basic menjadi Premium.

TIPS :
Untuk melihat iklan lebih banyak, pada saat registrasi pilih semua category dibagian Interest.
Ok, saya sudah daftar melalui link dibawah, trus gimana cara mulai dapat earningnya ?

Login ke account ClixSense anda, dan kemudian klik menu Get Paid to Browse Ads. Anda akan diberikan list iklan-iklan yang bisa anda click dan view. Lihat screenshotnya disini.
Udah gitu aja ?

Ember :) . So, happy browsing and clicking.

Ingin Mendapatkan uang di clixsense? Klik aja ini

DISCLAIMER Simulasi penghasilan dari Clixsense diatas adalah berbasis asumsi, dimana aturan-aturan dan nilainya mungkin berubah sesuai dengan TOS (Terms of Agreement) dari Clixsense.

Read More...complete..

Ya Allah Mudahkanlah Urusan Hambamu...

Selama Kurang Lebih 5 Bulan aku bikin program buat skripsiku..
alhamdulillah sudah ada titik temunya...
ya allah mudahkanlah urusan hambamu...InsyaALlah lagi dikit...Ku Wisuda Bulan Februari 2008 kalau tidak ada halangan...Aminnn....Ya Rabbal Alamin...

Read More...complete..

menampilkan jam di delphi

iseng-iseng tadi malam baca helpnya delphi..pas lagi ngerjain skripsi eh dapet ilmu baru...mau lihat ..ayo...

procedure TForm1.Timer1Timer(Sender: TObject);
var
DateTime : TDateTime;
str : string;
begin
DateTime := Time; // store the current date and time
str := TimeToStr(DateTime);// convert the time into a string
Label1.Font.Style := [fsbold];
label1.Font.Size := 12;
Label1.Caption := str; // display the time on the form's caption
{ Note This could have been done with the following line of code:
Caption := TimeToStr(Time); }
end;

Read More...complete..

write wav buat skripsiku

AKhirnya selama 1 bulanan lebih aku ngerjain listing....buat write WAV lagi..
Alhamdullilah dah bisa walaupun agak dikit berbeda,,,kaya ada pengurangan kualitas suara gitu..
ni codenya...

Procedure SaveWaveToStream(Stream : TStream);
var
waveformatex : TWaveFormatEx;
Datacount, riffcount, tempInt, i : integer;
DataLength : integer;
Data : Array of SmallInt;
const
Mono : Word = $0001;
SampleRate : integer = 22050; // 8000, 11025, 22050, or 44100
RiffId : String = 'RIFF';
WaveId : String = 'WAVE';
FmtId : String = 'fmt ';
DataId : String = 'data';
begin
with WaveFormatEx do
begin
wFormatTag := WAVE_FORMAT_PCM;
nChannels := Mono;
nSamplesPerSec := SampleRate;
wBitsPerSample := 16 ;
nBlockAlign := (nChannels * wBitsPerSample) div 8;
nAvgBytesPerSec := nSamplesPerSec * nBlockAlign;
cbSize := 0;
end;

SetLength(Data, Length(hasil_inversedct1));
for i := 0 to Length(hasil_inversedct1) - 1 do
begin
application.ProcessMessages;
Data[i] := Round(hasil_inversedct1[i]);
end;

DataCount := Length(Data)* SizeOf(SmallInt);
DataLength:= Length(Data); // datacount div WaveFormatEx.nChannels div WaveFormatex.wBitsPerSample;
RiffCount := Length(WaveId) + Length(FmtId) + SizeOf(DWORD) +
SizeOf(TWaveFormatEx) + Length(DataId) + SizeOf(DWORD) + DataCount;

{ Tulis Wave Header }
Stream.WriteBuffer(RiffId[1], 4); // 'RIFF'
Stream.WriteBuffer(RiffCount, SizeOf(DWORD)); // File Data Size
Stream.WriteBuffer(WaveId[1],Length(WaveId)); // 'WAVE'
Stream.WriteBuffer(FmtId[1],Length(FmtId)); // 'Fmt '
TempInt := SizeOf(TWaveFormatEx); // ukuran panjang byte untuk format PCM (16 byte)
Stream.WriteBuffer(TempInt, 4); // TWeveFormat Data Size
Stream.WriteBuffer(WaveFormatEx, SizeOf(TWaveFormatEx)); // WaveFormatex Record
Stream.WriteBuffer(DataId[1], Length(DataId)); // 'data'
Stream.WriteBuffer(DataLength, 4); // data size
Stream.WriteBuffer(Data[0], Length(Data) * SizeOf(SmallInt)); // sample data
end;

procedure TForm1.Button8Click(Sender: TObject);
var
FileStream : TFileStream;
begin
edit4.Clear;
FileStream := TFileStream.Create('c:\Write.wav',fmCreate);
try
FileStream.CopyFrom(FileStream,0);
SaveWaveToStream(FileStream);
finally
FileStream.Free;
edit4.Text := 'Selesai Simpan wav';
end;
end;


procedure TForm1.Button6Click(Sender: TObject);
begin
SndPlaySound('C:\Write.wav', SND_LOOP );
end;

Read More...complete..