Script Demo

Bagi yang rajin buka ini blog, maka dia hoki banget (kalo blom deadline loh)
Dibuat khusus untuk 2D.
Untuk 2C juga bisa,
tinggal comot sana-comot sini.
Jadi dah.

donlot here: hxxp://rapidshare.com/files/116286875/Tugas_Demo.rar.html

Baca Selengkapnya....

Menghitung Jumlah Kata pada String

Kali ini akan diberikan suatu tips sederhana untuk menghitung jumlah kata pada suatu string dengan menggunakan Borland Delphi. Silakan saja Anda simak tulisan ini.

Siapkan Button1 dan ketikkan kode program di bawah ini pada event OnClick:

procedure TForm1.Button1Click(Sender: TObject);

function JumlahKata(S: string): integer;
begin
if S='' then
Result := 0
else
begin
Result := 1;
while Pos(SPASI, S)>0 do begin
Delete(S, 1, Pos(SPASI,S));
Inc(Result);
end;
end;
end;

var
Kalimat: string;
begin
Kalimat := '';
if InputQuery('Ketikkan sembarang kalimat',
'Kalimat: ',
Kalimat) then
begin
ShowMessage('Jumlah kata: ' +
IntToStr(JumlahKata(Kalimat)));
end;
end;

Jika kita ketikkan “Borland Delphi”, program akan menampilkan pesan Jumlah kata: 2.

Tetapi, fungsi JumlahKata() di atas masih memiliki kelemahan. Karena berpatokan pada spasi, program akan ngaco jika kita ketikkan misalnya “Borland Delphi”, “ Borland Delphi”, atau “Borland Delphi “.

Oleh karena itu, fungsi JumlahKata() di atas perlu dimodifikasi sebagai berikut:

function JumlahKata(S: string): integer;
const
SPASI_GANDA = ' ';
SPASI = ' ';
begin
if S='' then
Result := 0
else
begin
//Hapus spasi ganda
while Pos(SPASI_GANDA, S)>0 do
S := StringReplace(S, SPASI_GANDA, SPASI, [rfReplaceAll]);
//Hapus spasi di awal kalimat
if S[1]=SPASI then Delete(S, 1, 1);
//Hapus spasi di akhir kalimat
if S[Length(S)]=SPASI then Delete(S, Length(S), 1);

Result := 1;
while Pos(SPASI, S)>0 do begin
Delete(S, 1, Pos(SPASI,S));
Inc(Result);
end;
end;
end;

Namun, fungsi di atas masih memiliki kelemahan lainnya jika kalimatnya berupa “Borland Delphi . ”. Program akan menganggap titik (atau simbol lain) yang di dahului oleh spasi sebagai satu kata. Oleh karena itu, kita modifikasi lagi fungsi JumlahKata() di atas sebagai berikut:

function JumlahKata(S: string): integer;
const
SPASI_GANDA = ' ';
SPASI = ' ';
//Anda bisa tambahkan simbol lainnya
Simbol = '():;[]{}"''`!,?.';
var
i: byte;
begin
if S='' then
Result := 0
else
begin
//Ubah simbol2x menjadi spasi
for i:=1 to Length(Simbol) do
S := StringReplace(S, Simbol[i], SPASI, [rfReplaceAll]);

//Hapus spasi ganda
while Pos(SPASI_GANDA, S)>0 do
S := StringReplace(S, SPASI_GANDA, SPASI, [rfReplaceAll]);

//Hapus spasi di awal kalimat
if S[1]=SPASI then Delete(S, 1, 1);

//Hapus spasi di akhir kalimat
if S[Length(S)]=SPASI then Delete(S, Length(S), 1);

Result := 1;
while Pos(SPASI, S)>0 do begin
Delete(S, 1, Pos(SPASI,S));
Inc(Result);
end;
end;
end;

Terima Kasih

Credit To 1st Uploader

Baca Selengkapnya....

Membuat Folder Rahasia

Membuat Folder Rahasia

---

Anda ingin menyimpan file atau folder data anda agar tidak dapat di baca oleh orang lain? berikut tips untuk membuat sistem proteksi tersebut, anda tidak perlu menginstall software khusus dan cukup mudah (Copy & Paste) hehe. Tips berikut telah di coba dan berjalan dengan baik 100%.

Lakukan hal berikut:

1. Buatlah sebuah folder dengan nama apa saja di drive anda

2. Di dalam folder tersebut buatlah sebuat file berextensi .txt dengan code sebagai berikut:

Code:

    cls
  @ECHO OFF
  title Folder Rahasia
  if EXIST “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}” goto UNLOCK
  if NOT EXIST Rahasia goto MDLOCKER
  :CONFIRM
  echo Apakah anda ingin mengunci folder? (Y/N)
  set/p “cho=>”
  if %cho%==Y goto LOCK
  if %cho%==y goto LOCK
  if %cho%==n goto END
  if %cho%==N goto END
  echo Pilihan anda salah.
  goto CONFIRM
  :LOCK
  ren Rahasia “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”
  attrib +h +s “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”
  echo Folder Terkunci
  goto End
  :UNLOCK
  echo Masukan kata sandi anda untuk membuka Folder
  set/p “pass=>”
  if NOT %pass%== “Kata sandi anda” goto FAIL
  attrib -h -s “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”
  ren “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}” Rahasia
  echo Folder telah berhasil di buka
  goto End
  :FAIL
  echo Kata sandi anda salah
  goto end
  :MDLOCKER
  md Rahasia
  echo Folder Rahasia telah berhasil di buat
  goto End
  :End

3. Setelah anda menyalin code tersebut, arahkan pointer keyboard ke baris ke 23 : salinlah tulisan “kata sandi anda” dengan kata sandi yang anda inginkan tanpa tanda kutip

4. Setelah itu simpanlah code tersebut dengan nama (locker.bat)

5. Setelah anda simpan filenya maka akan muncul icon perintah (LOCKER)

6. Kliklah icon tersebut maka akan muncul sebuah folder dengan nama (Rahasia)

7. Ok setelah itu anda dapat mencopykan data penting anda yang ingin anda rahasiakan di folder tersebut ( locker) dengan cara mengklik icon tersebut kemudian muncul sebuah popup yang menyatakan Apakah anda ingin mengunci folder?(Y/N)

8. Ketikan Y

9. Jika anda ingin membuka folder yang terkunci tersebut ,masuklah ke (locker) & ketikan kata sandi anda, maka folder rahasia akan muncul

Silahkan Mencoba

nb : Btw kalo ada kesalahan kode mohon di koreksi ya

Baca Selengkapnya....

Referensi 10 AntiVirus Terbaik

Lihat referensi 10 anti-virus terbaik di:
Referensi 10 AntiVirus Terbaik

Yang menjadi pemenang tahun ini adalah BitDefender 2008..
Keputusan pemilihan 10 anti-virus terbaik ini diambil dari berbagai pertimbangan, antara lain: harga, kemampuan dalam mendeteksi sekaligus menghapus virus, kecepatan dalam menscan virus, updating, user friendly, dsb..

Credit To:
Mali

Baca Selengkapnya....

IIh, Email Addressnya aneh Banget

Apakah Anda pernah menerima E-mail dari alamat yang aneh-aneh??
Atau Anda ingin mempunyai alamat E-mail yang ‘semau gue’ ???
Trik ini sangat ampuh untuk mengerjai teman-teman Anda.
Khususnya bagi Anda yang tidak ingin terikat dengan alamat E-mail yang biasa-biasa saja…
Dengan trik ini Anda dapat mengirim E-mail kepada teman Anda dengan alamat ‘semau gue’…

Contohnya :
setan@neraka.com
monyet@hutan.com
nongkrong@jalanan.com

Untuk membuat alamat E-mail yang aneh-aneh tersebut, tidaklah sulit…
Makanya, nggak rugi Anda berkunjung ke Blog ini…
Karena semakin kreatif Anda, semakin indah iseng Anda…
^_^

Caranya adalah Anda tinggal mengetikkan alamat : www.google.com , setelah itu pada query google ketikkan syntax :

Inurl:XcCDONTS.asp

Cobalah buka link yang ditemukan…

Isikanlah alamat tujuan sesuai dengan alamat E-mail target Anda…
Setelah itu, pada bagian ‘From: ’, Anda dapat mengisikan alamat yang ‘semau gue’ tadi…
Misalnya hantu@kuburan.com, dsb..
Setelah itu, isikan Subject dan Isi dari pesan yang akan Anda kirim…

Jika sudah selesai, klik tombol Send Message dan hasilnya, E-mail Setan Anda terkirim ke alamat target dengan pengirim yang sama dengan yang Anda ketikkan tadi…

Semoga bermanfaat…
Keep Iseng n’ Creative ! ! !
^_^


Credit To Enda

Baca Selengkapnya....

Contoh Membuat Laporan Pada Borland Delphi dengan Quick Report

Quick Report adalah suatu komponen penulisan laporan sederhana dari database dimana komponennya sudah terinstall ketika kita menginstall program Delphi. Kali ini penulis akan membuat penulisan laporan dari database mahasiswa dari artikel yang telah disebutkan di atas.

1. Membuat Quick Report

Pertama kali kita buat tampilan baru QReport melalui File - New - Report. Jika Anda tidak menemui menu report maka pilih menu File - New - Other - New - Report. Kemudian kita buat tampilan laporan yang kita inginkan. Kali ini penulis ingin menuliskan judul dari laporan, lambang, daftar mahasiswa, jumlah mahasiswa, tanggal, jam, serta nomor halaman, maka diperlukan komponen sebagai berikut:

- QRBand, untuk memberikan batasan - batasan sesuai dengan jenis penulisan.
- QRLabel, untuk menampilkan tulisan yang kita inginkan
- QRDBtext, untuk menampilkan data field yang kita inginkan
- QRExpr, untuk melakukan mengolah data field database dengan operasi matematika, statistic , tanggal dan waktu,logical, information dan yang lainnya.
- QRSysData, untuk menampilkan tanggal dan jam (qrstime,qrsdate,qrsdatetime), jumlah record (qrsdetailcount), Nomor urut record (qrsdetailno), nomor halaman (qrspagenumber).
- QRShape, untuk mengambar bentuk - bentuk tertentu misalnya garis, lingkaran, bujur sangkar dan lainnya.
- QRImage, untuk menampilkan picture dari file tertentu.

Penulis akan membuat tampilan laporan seperti berikut ini:

Sebelum membuat tampilan lebih dulu kita kopi Table1 di Form1 dan di-paste pada Quick Report. Pastikan property Active pada Table1 adalah true, cek isi property TableName dan property DatabaseName apakah sudah betul. Kemudian ubah property DataSet di Quick Report ke nama tabel yang kita gunakan (Table1).

Untuk laporan diatas terdiri dari 4 (empat) bagian , kita akan membuat masing masing bagian dengan menggunakan QRSBand.

2. Menghubungkan form dengan Quick Report

Kita tambahkan komponen button "preview" dan "print" yang akan menghubungkan form dengan Quick Report.

Untuk menghubungkan Unit1 (Form1) dengan Unit2 (QuickReport) maka ditulis perintah sesudah perintah implementation.

uses Unit2; // uses namaunitlaporan;

Program button preview:

procedure TForm1.btnviewClick(Sender: TObject);
begin
quickreport.Preview;
//namalaporan.preview (untuk menampilkan laporan)
end;

Program button print:

procedure TForm1.btnprintClick(Sender: TObject);
begin
quickreport.Print;
// namalaporan.print (untuk menge-print laporan langsung
// dari form tanpa masuk ke tampilan laporan)
end;

Demikian artikel tentang membuat laporan (report) sederhana dari database dengan menggunakan Quick Report. Source code program bisa di download di delphiqreport1.zip.

Terima kasih.

Credit To 1st Uploader

Baca Selengkapnya....