Waaa.. Speedy Baru

Speedy Baru Nih.. Langsung Tancep.

^_^

Baca Selengkapnya....

Pulkam

Baru Aja Pulkam..
Gak Sempat Minta Foto Perpisahan Magang Neh..
Ntar Deh KLo udah Dapat Baru Di Upload..
Wakakak.

Pulkam MO Nyobain Cabal..
Katanya Rame..
Go To TKP...

Baca Selengkapnya....

Dadah Teman, Kami Segera Menyusul

Teman2 Kami Dari SMK 5 Semarang dan SMK Texmaco Udah Selesai Magang..
Bntar Lagi Mereka Masuk Skol.

Yang Seragam Putih Itu Temen2 Dari SMK 5, Yang Biru Dari Texmaco, Yang paling Kanan, Pak Amir, Pembimbing Kami.


Gua Juga Dapat Hadiah Neh (Gua Yang Minta, Bukan Langsung Dikasih.. L0L)..
Card Reader, Sbg Knang2an.
Sayonara, Minna...

Baca Selengkapnya....

Kunjungan Ke Borobudur + Kyai Langgeng

Kunjungan Kami Kali Ini (Sabtu, 30 Agustus 2008) adalah ke Borobudur Yang Terletak Di Magelang, Jawa Tengah. Perjalanan Ke Borobudur Memakan Waktu Kira-Kira 3 Jam Dari Kost Kami Di Semarang. Alat Yang Kami Gunakan Adalah Mobil Grand Max Yang Kami Sewa Selama 12 Jam Seharga 225 Ribu Rupiah. Sudah Termasuk Supir Dan Belum Termasuk Bensin. Perjalanan Dimulai Pada Pukul 7.30 Pagi.

THE OPENING

Sampai Di Borobudur Sekitar Jam 10 Lewat Dikit Waktu Setempat. Langsung Menuju WC...
(Haha.. Baka..).
Dari WC, Langsung Beli Tiket Masuk Untuk 9 Orang @ Rp 9000, Serta Tiket Untuk Kamera @ Rp 1000.

Temen2 Pada Rame Bli Kacamata, Dengan Alasan Silau.. Hahaha...


THE TEMPLE

Sampai Disana, Langsung Foto2:


Foto Perdana...


Setelah Itu Langsung Naik Ke Tempat Yang Terdapat Banyak Stupa, Foto2 Lagi..




Foto2 Sama Bule Perancis. Iwan Yang Ajak Ngomong Awalnya. Awalnya Sih Ngerti2 Aja. Ujung2nya, Melongo Juga Kami.. Hahaha. Yang Penting BERANI...


Foto Eksklusif Dari Najib, Diambil Bersama Saya..




Foto Eksklusif Bayu.. Bersama Saya Dan Abah..


Foto2 Sama Bule Lagi.. Kali Ini Yang Ajak Deden...


Foto Eksklusif Bersama Kali Ini..


Lihat Tingkah Abah Disini.. L0L...


Bergaya Grup Band. Terinspirasi Dari Orang Yang Juga Foto Sambil Loncat. L0L..

TURUN GUNUNG

Setelah Itu Kami Turun Gunung (Candi, L0L) Untuk Cari Makan. Tapi Gak Ada ngambil Foto Pas Makan. T_T... Abis Makan Langsung Balik Ke Mobil Kami Tercinta.. Tapi Kami Melihat Sesuatu.. Puzzle Dari Kayu.. Seperti Biasa, Aku Dan Mali Menaruh Minat Sangat Tinggi.. Butuh Waktu Lama Untuk Memilih2 Puzle Yang Ingin Dibeli.. Akhirnya Saya Beli 3 Biji.. L0L...


Sebelum Ke Next Destination Minum Dawet Dolo.. L0L..
Gak Kliatan Yah Es Dawetnya ??
Karena Ini Masih Dalam Proses Pembuatan..


Bye-Bye Borobudur, Hello Kyai Langgeng.

Setelah Minum Dawet, Kami Kembali Ke Mobil. Tujuan Berikutnya, Taman Wisata Kyai Langgeng. Memakan Waktu Kira2 30 Menit Dari Borobudur (Gua Juga Gak Ngitung).

Sampainya Juga Langsung Foto2:


Dekat Air Mancurnya..


Deket Air Terjun Mini Buatannya..

Jalan2, Kliling2, Muter2, Pusing2, Akhirnya Capek Juga. Tapi Kami Menemukan Mini Coaster (<-- Gini Yah Tulisannya Yg Bner ??). HTM Rp 2000. Langsung Aja NAIKKKK...
Video Diambil Oleh Najib, Tapi Males Diupload.. Ankgy Teriak Keras Banget.. Gua Ama Deden Nyobain Gaya Mr. Bean, Alias Muka Tanpa Ekspresi... L0L..
Turunnya Langsung Diketawain Orang2 Di Bawah Gara2 Ekspresi Yang Berlebihan.. L0L...


Foto Setelah Naik Mini Coaster, Alias Foto Terakhir Wisata Di Jawa Tengah Kali Ini..
T_T...

Setelah Itu Langsung Naik Mobil. Tapi Dijagain Orang2 Jualan. Jadi Sekaian Aja Beli Wingko, Getuk, Ama Tahu Goreng.. Tapi Tunggu, Sialan, Dibegoin Ternyata.. Wingko Ama Getuknya Tengahnya Berisi Kardus, Jadi Kliatan Banyak Deh.. Tapi Untung Tahu Gorengnya Tidak Begitu..


Sayonara..
Pulang Ke Kos Lagi Deh. Sampai Di Kos Langsung Teler. Kcapean Smuanya.. L0L...


SPECIAL EDITION
FOTO EKSKLUSIF ABAH KALI INI

Very Cool, Yaw ??

Baca Selengkapnya....

UHARC - Software Kompresi Yang Menggunakan DOS.

Uharc Adalah Software Kompresi Yang Menggunakan DOS, Dan Lebih Ganas Dari WinRar.
Tetapi Waktu Yang Digunakan Relatif Lebih Lama.
Hasil Kompresi Akan Menjadi Berekstensi *.uha

Karena Sekarang Sudah Ada Yang Versi GUI, Jadi Gampang...

Silakan Donlot Disini :
Here...
Here... (NEW)
Enjoy...

Baca Selengkapnya....

Kunjungan Ke Lawang Sewu

Tanggal 9 Agustus, Kami Berlima Pergi Ke Lawang Sewu..
Awalnya Sih Takut2 Juga..
Tapi, Lama2 Gak Serem Lagi..
Mungkin Hantu2nya Lagi Pada Nyiapin Acara Buat 17an yah..

Foto ini diambil di lantai atas. Ruangannya jadi kaya gerbong kereta.

Foto Ini diambil di ruangan bawah tanah. Tempat Uji Nyali loh..


Foto ini diambil saat kembali ke ruang tengah (tengah??). Kami yang semula 5 orang jadi 6 orang.

Baca Selengkapnya....

Ke Graha Wahid - Komplek Elit..

Ke Komplek Elit Hanya Untuk Renang...
Emang Nekat Kami..
4 Orang: Aku, Abah, Mali, dan Pemandunya Bayu.
HTMnya aja udah Rp. 25k, Tapi Seharian.
Ada Tempat Fitnes Dan Spa Juga.
Eliit...

Salah Satu Foto Yang Diambil Habis Makan Somay...

Foto2 lainnya:


Abah Gelantungan Di Ayunan..


Mali lagi fitnes.



Pulangnya, Semua Langsung Teler Di Kost..

Baca Selengkapnya....

Liburan & Magang Di Semarang

Kumpulan Foto2 Kami Selama Di Semarang (Foto2 Eksklusif Abah Dkk)...


Sama Orang2 Kantor.

Foto2 Abah versi Eksklusif. VERY RARE !!!!

Habis Main Bola di Divre, Banyu Orang Dikepet.


Abis pulang dali kolam renang.


Di Warung Mi Ayam.


Abis Dari Graha Wahid, Ngepet Motor Bayu.




Donlot Full Here (Not ABAH Only):
Here...

Selamat Melihat..

Baca Selengkapnya....

RS Leecher

Bagi Yang Ingin Donlot Rapidshare Secara Premium, Kunjungi Situs2 Berikut.

http://rapid2.podzone.net/
http://www.hufk.com/
http://megadl.info/
http://rapidhack.net/
http://rapidmonster.net/
rapidshare.info.tm --> no more bigger than 40MB
http://www.4leech.co.cc
http://www.premiumddl.com/rapidshare/
http://yourdocket.com/index.php
http://rs.bibu2u.com/

Baca Selengkapnya....

Safecracker - Ultimate Puzzle Adventure

Game Puzzle Yang Sangat Menantang.
Bagi Anda Yang Pernah Memainkan Secret File Of Tunguska atau Murder Case Wajb Memainkan Game Yang Sangat Bagus Ini...
Main Tanpa Walkthrough, Dan Anda Akan Mendapatkan Kepuasan Yang Sangat Besar.


System Requirements
Minimum:

* OS: WINDOWS® 98SE/ME/2000/XP
* PROCESSOR: PENTIUM® III/ATHLON™ 800 MHz
* MEMORY: 64 MB RAM
* SOUND CARD: DIRECTX® 9.0c COMPATIBLE
* CD/DVD-ROM: 16x CDROM
* HARD DISK: 700 MB AVAILABLE
* DIRECTX® 9.0c (INCLUDED)
* GRAPHICS CARD: 64 MB DIRECTX® 9.0c COMPATIBLE

DOWNLOAD

http://rapidshare.com/files/55969651/Safecracker.part1.rar.h...p://rapidshare.com/files/55969651/Safecracker.part1.rar.html
http://rapidshare.com/files/56008989/Safecracker.part2.rar.h...p://rapidshare.com/files/56008989/Safecracker.part2.rar.html
http://rapidshare.com/files/56022890/Safecracker.part3.rar.h...p://rapidshare.com/files/56022890/Safecracker.part3.rar.html
http://rapidshare.com/files/56031900/Safecracker.part4.rar.h...p://rapidshare.com/files/56031900/Safecracker.part4.rar.html


Password: zipile.com

Baca Selengkapnya....

Magang Semarang (Updated @ 9 September 2008)

Posting Ini Sengaja Saya Gabung Karena Kebanyakan Memakan Tempat Kalo Gak Digabungkan..
Jadi, Gabungin Aja Biar Dikit..

Selasa, 10 Juni 2008
Tangal 10 Juni jam 4 brangkat ke DIY.
Sorenya sampai di DIY.
Langsung ditinggalin Pak Eko yang ngantar anak2 Jogja dolo.
Nunggu sambil maen2 eskalator, foto2, makan2, dll.

Nginap di asrama yang isinya 98% anak kalsel.
Banyak nyamuk n jam 1 waktu setempat baru bisa tidur.

Rabu, 11 Juni 2008
Tanggal 11 juni 2008 sore serah terima di Divre dan Datel Semarang.
Karena banyak yang magang di Semarang, makanya gantian.
Oleh karena itu, anak2 yang magang di Semarang masuk kerjanya hari Senin.

Senin, 16 Juni 2008
Install ZOC, SAP, VNC,
Konfigurasi Proxy,
Training Install Komp,
Mendata barang (Komputer) yang udah habis kontrak (Berca, Datascript dan Aldira).

Selasa, 17 Juni 2008
Mendata barang (Komputer) yang udah habis kontrak (Berca, Datascript dan Aldira),
Menghapus partisi dari Komputer yang habis kontrak terssebut,
Menghapus Virus2 yang ada di Komputer Gudang L2U Reg 4 (Markas Kita).

Rabu, 18 Juni 2008
Mendata barang (Komputer) yang udah habis kontrak (Berca, Datascript dan Aldira),
Menghapus partisi dari Komputer yang habis kontrak terssebut.

Kamis, 19 Juni 2008
Memformat ulang dan menginstall OS Win di komputer,
Mendata Barang yang Habis Kontrak,
Menghapus Partisi yang ada (Format) pd Komp.

Jumat, 20 Juni 2008
Mengatasi masalh tidak mau Booting, terdapat Pesan Error "Unmountable Boot Value" dengan cara chkdsk.

Senin, 23 Juni 2008
1. Mendata SN PC dan Monitor yang habis kontrak, dengan vendor SCS Agit..Dari Lantae 7 sampae 1 ....kami di

bagi menjadi 3 tim...Rame Euy..

Selasa, 24 Juni 2008
1. Melanjutkan mendata SN PC dan Monitor yang habis kontrak, dengan vendor SCS Agit..Dari Lantae 7 sampae 1. .

Rabu, 25 Juni 2008
Melanjutkan Mendata Brang Seperti Kemaren + Diketik.

Kamis, 26 Juni 2008
Memasang WebCam Untuk HelpDesk.

Jumat, 27 Juni 2008
Menginstall SAP & ZOC di ruang Siska,
Menghapus Virus "Pendekar Blank" yang ada di komputer milik Bapak Adya Rahadi di L3U,
Mengganti PC yang ada Di Ruang Server.

Senin, 30 Juni 2008
Mendata PC Aldira yang ingin d kembalikan.


Selasa, 1 Juni 2008
Mantenance & Scan Spyware, Greyware, Virus pada Kompi Di Lantai 5

Rabu, 2 Juli 2008
Kloning PC

Kamis, 3 Juli 2008
Kloning PC

Jumat, 4 Juli 2008
Mendata Nomor Flexi dan serial Vouchernya untuk dikirimkan ke berbagai daerah di Jawa Tengah.

Senin, 7 Juli 2008
Mendata PC Agit Yang Ingin Ditarik Dari Lantai 1-7

Selasa, 8 Juli 2008
Melanjutkan Mendata PC Agit Yang Ingin Ditarik Dari Lantai 1-7

Rabu, 9 Juli 2008
Melanjutkan Mendata PC Agit Yang Ingin Ditarik Dari Lantai 1-7

Kamis, 10 Juli 2008
Melanjutkan mendata PC Dell dg vendor SCSAgit dr lantai 1-7

Jumat, 11 Juli 2008
Membersihkan Virus Di PC Orang...

Senin, 14 Juli 2008
Memindahkan PC Dari Gudang Ke Bengkel,
Mendata PC Yang Baru Datang,
Kloning Pc.

Selasa, 15 Juli 2008
Kloning PC,
Partisi Harddisk.

Rabu 16 Juli 2008
Kloning PC,
Partisi Harddisk.

Kamis, 17 Juli 2008
Memindahkan PC dari Bengkel USI ke Gudang L2S,
Menyeting Printer di lantai 3.

Jum'at, 18 Juli 2008
Kloning PC,
Partisi Harddisk.

Senin, 21 Juli 2008
Mendata SN PC dari Vendor Agit dari Lantai 1 sampai lantai 8.

Selasa, 22 Juli 2008
Mengetik Hasil Pendataan PC Tersebut.

Rabu, 23 Juli 2008
Memindahkan PC yang baru datang dari bengkel USI ke Gudang L2S,
Kloning PC,
Partisi Harddisk.

Kamis, 24 Juli 2008
Kloning PC,
Partisi Harddisk.

Jum'at, 25 juli 2008
~No Job~

Senin, 28 Juli 2008
Kloning PC,
Partisi Harddisk.

Selasa, 29 Juli 2008
~No Job~

Rabu, 30 juli 2008
Kloning PC,
Partisi Harddisk.

Kamis, 31 Juli 2008
Pelatihan Blog Di Siska.

Jum'at, 1 Agustus 2008
Kloning PC Yang Baru Diambil Dari Datel Daerah Solo, Semarang, Jogja, Purwokerto, lalu Partisi Harddisk.

Senin, 4 Agustus 2008
Menyeting User Komputer Dg Vendor HP Yang Ingin di Deploy.


Selasa, 5 Agustus 2008
Menyeting User Komputer Dg Vendor HP Yang Ingin di Deploy,
Deploy PC.

Rabu, 6 Agustus 2008
Menyeting User Komputer Dg Vendor HP Yang Ingin di Deploy.

Kamis, 7 Agustus 2008
Cleaning virus di lantai 5.

Jum'at, 8 Agustus 2008
Menyeting User Komputer Dg Vendor HP Yang Ingin di Deploy.

Senin, 11 Agustus 2008
Deploy Pc,
Kloning PC,
Partisi Harddisk.

Selasa, 12 Agustus 2008
Setting Printer di lantai3

Rabu, 13 Agustus 2008
Menyeting User Komputer Dg Vendor HP Yang Ingin di Deploy.

Kamis, 14 Agustus 2008
Menyeting User Komputer Dg Vendor HP Yang Ingin di Deploy.

Jum'at, 15 Agustus 2008
Bongkar Pc (Ganti Casing),
Deploy Lantai 6,
Setting Wireless Lantai 3

Selasa, 19 Agustus 2008
Setting Scanner Di Tmpat User.

Rabu, 20 Agustus 2008
Pindahkan PC Dari Gudang Ke Bengkel.

Kamis, 21 Agustus 2008
~No Job~

Jum'at, 22 Agustus 2008
Deploy Pc Di Lantai 6.

Senin, 25 Agustus 2008
Mengambil NB Dari Gudang,
Setting User NB Tsb,
Setting Printer Lantai 2.

Selasa, 26 Agustus 2008
Deploy PC di Lantai 7.

Rabu, 27 Agustus 2008
Setting Printer Di Lantai 7,
Membuat Kabel Cross Over,
Membersihkan Virus Di Komputer Karyawan Lantai 6.

Kamis, 28 Agustus 2008
Memperbaiki komputer karyawan yang tidak bisa konek ke jaringan di lantai 3,
Maintenance beberapa komputer di lantai 3.

Jum'at, 29 Agustus 2008
Instal SAP di lantai 5.

Senin, 1 September 2008
Setting User PC HP.

Selasa, 2 September 2008
~No Job~

Rabu, 3 September 2008
setting user

Kamis, 4 September 2008
maintenance komp L7U

Jum'at, 5 September 2008
~No Job~

Senin, 8 September 2008
Ngerjain Laporan

Selasa, 9 September 2008
Ngerjain laporan

Baca Selengkapnya....

Jika anda mempunyai blog tetapi ingin menambahkan mp3 player dengan lagu yang anda punya sendiri dan dapat di load secara cepat berikut beberapa tahap yang dapat dilakukan.

1. Siapkan Mp3 yang ingin anda masukkan / upload ke blog atau friendster anda. Saran saya mengingat koneksi internet di negara kita lumayan lemot saya sarankan anda mengkompres mp3 dengan program seperti ITunes atau Jet Audio ataupun anda meng-cut durasi mp3nya. Untuk memotong bisa memakai audio trimmer dari Jet Audio, WavePad atau Cool Edit Pro. Untuk pilihan bitrate lebih baik menggunakan 32, 64 atau 128. Pada sample ratenya lebih baik gunakan 44.100 Hz karena bila rate nya kelipatan 11.025 Hz Flash Player kadang bermaslah jika memainkannya. Masalah yang timbul adalah timbulnya chipmunk effect yaitu file audio diputar dengan kecepatan ganda.

2. Langkah kedua yaitu upload lagu pada website file hosting. Yang saya jelaskan yaitu pada boxstr karena lebih cepat dalam proses uploadnya. Alamatnya adalah http://boxstr.com

3. Setelah anda masuk ke website boxstr lakukan registrasi, setelah itu upload lagu yang ingin anda masukkan kepada player anda. Setelah proses upload selesai pilih Just The Direct Url. Contoh filenya adalah http://boxstr.com/files/xxxxxxxx/nama_file_audio.mp3

4. Setelah itu anda buka website yang menyediakan playernya yaitu http://myflashfetish.com/
yang pertama anda lakukan adalah registrasi setelah itu pilih player MP3 yang anda sukai. Tiap skin ada kelebihan dan kekurangannya. Ada yang bisa pakai playlist dari lagu yang sudah di upload dan ada juga yang tidak ada. Begitu juga dalam navigasinya ada button - button yang dapat dioperasikan dengan mudah dan ada juga yang rumit.

5. customize skin player yang sudah anda pilih dengan ganti warna. Setelah selesai kemudian pilih add url, masukka judul lagu pada Mp3 Title dan code mp3 yang kita upload di boxstr tadi di bagian Mp3 Code. Jika anda ingin mencari mp3 yang sudah disediakan klik di bagian add songs dan search mp3 yang anda ingin masukkan.

6. Setelah proses input lagu selesai, klik Get Codes untuk generate script dari player mp3 yang telah kita buat. Setelah itu copy code tadi dan pastekan di Blog, Friendster atau MySpace anda.


Selamat Mencoba!!!!


Credit to : Rezky Pratama

Baca Selengkapnya....

Folder Password

Langkah-Langkah Untuk Mengkunci Suatu folder dengan Password adalah sebagai berikut:

Langkah 1 : Buka Notepad dan Copy Paste kan Code Program dibawah ini kedalam Notepad

cls
@ECHO OFF
title Folder Private
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
if NOT EXIST Private goto MDLOCKER
:CONFIRM
echo Are you sure you want to lock the 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 Invalid choice.
goto CONFIRM
:LOCK
ren Private "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
echo Folder locked
goto End
:UNLOCK
echo Enter password to unlock folder
set/p "pass=>"
if NOT %pass%== passworddisini goto FAIL
attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Private
echo Folder Unlocked successfully
goto End
:FAIL
echo Invalid password
goto end
:MDLOCKER
md Private
echo Private created successfully
goto End
:End

Langkah 2 : Baris Ke 23 kata-kata "passworddisini" dapat anda ganti sesuka anda sebagai password anda
Langkah 3 : Save As Notepad dengan nama "locker.bat" (tanpa tanda kutip. bisa jg nama lain. yg ptg *.bat)
Langkah 4 : Klik locker.bat dan masukan Y untuk mengunci folder

Ini merupakan cara yang sangat sederhana dalam mengunci suatu Folder private anda.Semoga berguna dan selamat mencoba

Credit to : The_Collz

Baca Selengkapnya....

Cari CHR dari Keyboard anda

Untuk para Programmer yang pengen tau tombol pada keyboard kita chr-nya berapa, download file ini.
Kecil aja kog.
Wamy & Prima Proudly Present.
download "cari chr dari keyboard" disini :
Cari CHR Cari CHR dari keyboard.

note: bukan virus.
aja santai.

Baca Selengkapnya....

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....