Teguh Cahyadi's Blog

Senin, 30 Juni 2014

Mengatasi permasalahan 'Gagal memulai Louncher.(E5)' Dragon Nest

Permasalahan muncul ketika koneksi PING Facebook.com berjalan, namun DNLouncher tidak dapat menjalankannya.

Saat koneksi PING berjalan tetapi DNLouncher tidak dapet menjalankannya.

Apabila terjadi demikian maka bukalah 'Internet Explorer', buka situs 'facebook.com'.

Klik 'Connect, hingga muncul 'Login', tak usah login.

Buka langsung 'DNLouncher.exe'. Maka langsung terkoneksi.

Selamat Mencoba ^^
By : Twitter Facebook Kaskus Youtube Google Plus

Senin, 02 Juni 2014

Billing warnet

Buat time billing warnet sederhana.

Buat SQL Explorer.

Buat From Login.

implementation

uses UINTERNET;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if Table1.Locate('User;Password',VarArrayOf([edit1.Text,Edit2.Text]),[loPartialKey])then
begin
INTERNET.ShowModal;
end
else
MessageDlg('Password salah bro',mtError,[mbOK],0)
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;

end.

Buat From utama.

implementation

{$R *.dfm}

procedure TINTERNET.Timer1Timer(Sender: TObject);
BEGIN
KIRI:=KIRI+1;
LABEL11.Caption:=COPY('Warnet MVPTroy',1,KIRI);
IF LABEL11.Caption='Warnet MVPTroy' THEN KIRI:=0;

LABEL1.Caption:=TIMETOSTR(TIME);
LABEL12.Caption:=DATETOSTR(DATE);
begin
IF BTSTART1.Caption='Stop' then EDSELESAI1.Text:=TimetoStr(Time);
IF BTSTART2.Caption='Stop' then EDSELESAI2.Text:=TimetoStr(Time);
IF BTSTART3.Caption='Stop' then EDSELESAI3.Text:=TimetoStr(Time);
IF BTSTART4.Caption='Stop' then EDSELESAI4.Text:=TimetoStr(Time);
END;
end;
procedure TINTERNET.FormActivate(Sender: TObject);
begin
EDBIAYA.Text:='0';
BTSTART1.Caption:='START';
EDMULAI1.Text:='';
EDSELESAI1.Text:='';
EDLAMA1.Text:='';
EDBIAYA1.Text:='';
BTSTART2.Caption:='START';
EDMULAI2.Text:='';
EDSELESAI2.Text:='';
EDLAMA2.Text:='';
EDBIAYA2.Text:='';
BTSTART3.Caption:='START';
EDMULAI3.Text:='';
EDSELESAI3.Text:='';
EDLAMA3.Text:='';
EDBIAYA3.Text:='';
BTSTART4.Caption:='START';
EDMULAI4.Text:='';
EDSELESAI4.Text:='';
EDLAMA4.Text:='';
EDBIAYA4.Text:='';
EDBIAYA.SetFocus;

end;

procedure TINTERNET.BTSTART1Click(Sender: TObject);
VAR
XBIAYA,XLAMA:REAL;
SBIAYA,SLAMA:STRING;
begin
if BTSTART1.Caption='START' then
BEGIN
EDMULAI1.Text:=TimeToStr(Time);
BTSTART1.Caption:='Stop';
END
else
IF BTSTART1.Caption='Stop' then
BEGIN
EDSELESAI1.Text:=TimeToStr(Time);
XLAMA:=(StrToTime(EDSELESAI1.Text)-StrToTime(EDMULAI1.Text))*24*60;
STR(XLAMA:6:2,SLAMA);
EDLAMA1.Text:=SLAMA+'Menit';
XBIAYA:=XLAMA*StrToInt(EDBIAYA.Text);
STR(XBIAYA:8:0,SBIAYA);
EDBIAYA1.Text:=SBIAYA;
BTSTART1.Caption:='Reset';
END
else
IF BTSTART1.Caption='Reset' then
BEGIN
BTSTART1.Caption:='START';
EDMULAI1.Text:='';
EDSELESAI1.Text:='';
EDLAMA1.Text:='';
EDBIAYA1.Text:='';
end
end;

procedure TINTERNET.BTCLOSEClick(Sender: TObject);
begin
APPLICATION.Terminate;
end;

procedure TINTERNET.BTSTART2Click(Sender: TObject);
VAR
XBIAYA,XLAMA:REAL;
SBIAYA,SLAMA:STRING;
begin
if BTSTART2.Caption='START' then
BEGIN
EDMULAI2.Text:=TimeToStr(Time);
BTSTART2.Caption:='Stop';
END
else
IF BTSTART2.Caption='Stop' then
BEGIN
EDSELESAI2.Text:=TimeToStr(Time);
XLAMA:=(StrToTime(EDSELESAI2.Text)-StrToTime(EDMULAI2.Text))*24*60;
STR(XLAMA:6:2,SLAMA);
EDLAMA2.Text:=SLAMA+'Menit';
XBIAYA:=XLAMA*StrToInt(EDBIAYA.Text);
STR(XBIAYA:8:0,SBIAYA);
EDBIAYA2.Text:=SBIAYA;
BTSTART2.Caption:='Reset';
END
else
IF BTSTART2.Caption='Reset' then
BEGIN
BTSTART2.Caption:='START';
EDMULAI2.Text:='';
EDSELESAI2.Text:='';
EDLAMA2.Text:='';
EDBIAYA2.Text:='';
end
end;

procedure TINTERNET.BTSTART3Click(Sender: TObject);
VAR
XBIAYA,XLAMA:REAL;
SBIAYA,SLAMA:STRING;
begin
if BTSTART3.Caption='START' then
BEGIN
EDMULAI3.Text:=TimeToStr(Time);
BTSTART3.Caption:='Stop';
END
else
IF BTSTART3.Caption='Stop' then
BEGIN
EDSELESAI3.Text:=TimeToStr(Time);
XLAMA:=(StrToTime(EDSELESAI3.Text)-StrToTime(EDMULAI3.Text))*24*60;
STR(XLAMA:6:2,SLAMA);
EDLAMA3.Text:=SLAMA+'Menit';
XBIAYA:=XLAMA*StrToInt(EDBIAYA.Text);
STR(XBIAYA:8:0,SBIAYA);
EDBIAYA3.Text:=SBIAYA;
BTSTART3.Caption:='Reset';
END
else
IF BTSTART3.Caption='Reset' then
BEGIN
BTSTART3.Caption:='START';
EDMULAI3.Text:='';
EDSELESAI3.Text:='';
EDLAMA3.Text:='';
EDBIAYA3.Text:='';
end
end;

procedure TINTERNET.BTSTART4Click(Sender: TObject);
VAR
XBIAYA,XLAMA:REAL;
SBIAYA,SLAMA:STRING;
begin
if BTSTART4.Caption='START' then
BEGIN
EDMULAI4.Text:=TimeToStr(Time);
BTSTART4.Caption:='Stop';
END
else
IF BTSTART4.Caption='Stop' then
BEGIN
EDSELESAI4.Text:=TimeToStr(Time);
XLAMA:=(StrToTime(EDSELESAI4.Text)-StrToTime(EDMULAI4.Text))*24*60;
STR(XLAMA:6:2,SLAMA);
EDLAMA4.Text:=SLAMA+'Menit';
XBIAYA:=XLAMA*StrToInt(EDBIAYA.Text);
STR(XBIAYA:8:0,SBIAYA);
EDBIAYA4.Text:=SBIAYA;
BTSTART4.Caption:='Reset';
END
else
IF BTSTART4.Caption='Reset' then
BEGIN
BTSTART4.Caption:='START';
EDMULAI4.Text:='';
EDSELESAI4.Text:='';
EDLAMA4.Text:='';
EDBIAYA4.Text:='';
end
end;

procedure TINTERNET.EDBIAYAKeyPress(Sender: TObject; var Key: Char);
begin
IF KEY = CHR(13) THEN BTSTART1.SetFocus;
end;

procedure TINTERNET.BTSTART1KeyPress(Sender: TObject; var Key: Char);
begin
IF KEY = CHR(13) THEN BTSTART2.SetFocus;
end;

procedure TINTERNET.BTSTART2KeyPress(Sender: TObject; var Key: Char);
begin
IF KEY = CHR(13) THEN BTSTART3.SetFocus;

end;

procedure TINTERNET.BTSTART3KeyPress(Sender: TObject; var Key: Char);
begin
IF KEY = CHR(13) THEN BTSTART4.SetFocus;

end;

procedure TINTERNET.BTSTART4KeyPress(Sender: TObject; var Key: Char);
begin
IF KEY = CHR(13) THEN BTCLOSE.SetFocus;

end;

procedure TINTERNET.FormCreate(Sender: TObject);
begin

end;

end.

Selesai ><

Selasa, 04 Juni 2013

Penggunaan Filter CPL

Filter CPL atau Polarizer alias polarisasi adalah salah satu filter paling berguna untuk fotografer landscape. Kegunaan utama filter CPL adalah untuk meningkatkan kontras warna (vividness) dalam foto landscape.

Untuk melihat bagaimana filter bekerja, amati kedua foto dibawah ini: foto pertama diambil dengan filter CPL menempel di lensa dan terlihat langit menjadi lebih gelap, awan terlihat kontras, bagian atap bangunan juga menjadi lebih putih dan jelas. Sementara foto kedua tanpa CPL tampak bahwa langit terlihat lebih terang, kontras awan tidak terlalu kelihatan sehingga menjadi kurang dramatis jika dibandingkan dengan foto pertama serta bagian atap gedung tampak lebih gelap.

Contoh menggunakan Filtel CPL

Contoh tanpa Filter CPL

Dalam foto landscape yang rata-rata mengandung langit sebagai bagian elemen foto, filter CPL bisa membuat langit tampak lebih biru sehingga kesannya lebih dramatis. Selain itu filter CPL juga mengurangi pantulan dari permukaan mengkilat macam air dan kaca, menggelapkan langit dan membuat awan tampak lebih kontras sehingga secara umum menjadi lebih vivid.

Jika anda memiliki lensa dengan ulir dibagian depan (hampir semua lensa untuk kamera DSLR), anda tinggal pasang filter CPL dengan memasukannya ke ulir tersebut. Setelah terpasang, cara menggunakannya adalah dengan memutar CPL searah jarum jam atau berlawanan dengan arah jarum jam sampai anda mendapatkan efek yang diinginkan, yakni polarisasi cahaya. Polarisasi bekerja dengan memblokir cahaya yang datang dari arah tertentu supaya tidak masuk ke lensa.

Saat memakai filter CPL, hal yang harus diingat adalah bahwa efek polarisasi maksimal tercapai saat kita membelakangi matahari. Juga perlu diperhatikan adalah bahwa saat menggunakan filter CPL pada lensa super lebar (dibawah 16mm), kita harus berhati-hati karena kadang-kadang langit menjadi lebih gelap namun gelapnya tidak rata.

INSTALASI UBUNTU 10.04

Linux adalah OS yang berlabel open source atau bebas penggunaanya tanpa biaya dan pengembangannya bisa di lakukan oleh siapa saja. Linux boleh di bilang kompatitor dari perusahaan microsoft, walaupun tidak seterkenal microsoft tetapi linux keberadaanya mulai diperhitungkan oleh pengguna komputer. Di bawah ini cara untuk menginstall linux ubuntu 10.04.

1. Masukkan CD Installer ke perangkat CD / DVD-ROM dan reboot komputer untuk boot dari CD.Tunggu sampai CD termuat ...

2. Anda akan melihat wallpaper dan jendela instalasi. Pilih bahasa dan klik tombol "Install Ubuntu 10.04 LTS" untuk melanjutkan.

3. Layar kedua akan menampilkan peta bumi. Setelah pemilihan lokasi, waktu sistem akan menyesuaikan.Klik tombol "Forward" setelah Anda memilih lokasi yang Anda inginkan.

4. Pada layar ketiga, Anda dapat memilih layout keyboard yang diinginkan.
Klik tombol "Forward" bila Anda telah selesai dengan konfigurasi keyboard

5. Anda memiliki empat pilihan di sini

Jika Anda memiliki sistem operasi lain (misalnya Windows XP) dan Anda ingin sistem dual boot, pilih :

Pilihan pertama : "Instal mereka berdampingan, memilih di antara mereka pada setiap startup."
Pilihan Kedua : "Jika Anda ingin menghapus sistem operasi yang ada, atau hard drive sudah kosong dan Anda ingin agar installer secara otomatis mempartisi hard drive Anda, pilih pilihan kedua, "Gunakan seluruh disk (Use entire disk)"
Pilihan Ketiga : "Gunakan ruang terbesar bebas terus-menerus" dan akan menginstal Ubuntu 10.04 di ruang unpartitioned pada hard drive yang dipilih.
Pilihan Keempat : "Tentukan partisi secara manual" dan dianjurkan HANYA untuk pengguna tingkat lanjut, untuk membuat partisi khusus atau memformat hard drive dengan filesystem lain dari yang default. Tetapi juga dapat digunakan untuk menciptakan partisi / home, yang sangat berguna jika Anda menginstal ulang seluruh sistem.

e. Tabel partisi akan terlihat seperti gbr di atas. Klik tombol "Forward" untuk melanjutkan instalasi.

6. Pada layar ini, isi kolom dengan nama asli Anda, nama yang ingin Anda gunakan untuk login di UbuntuOS (juga dikenal sebagai username yang akan diminta untuk log in ke sistem), password dan namakomputer (secara otomatis, tetapi bisa ditimpa).

7. Juga pada langkah ini, ada sebuah opsi bernama "Login secara otomatis". Jika Anda mencentang kotakpada pilihan ini, Anda akan secara otomatis login ke desktop Ubuntu. Klik tombol "Forward" tombol untuk melanjutkan.

8. Ini adalah langkah akhir instalasi. Klik tombol “Install”.

9. Ubuntu 10.04 LTS (Lucid Lynx) akan terinstall

10.Setelah beberapa menit (tergantung spesifikasi komputer Anda), sebuah jendela pop-up akan muncul,yang memberitahukan bahwa instalasi selesai, dan Anda harus me-restart komputer untukmenggunakan sistem operasi Ubuntu yang baru diinstal. Klik tombol "Restart Now".

11.CD tersebut akan keluar otomatis; keluarkan dan tekan "Enter" untuk reboot. Komputer akan direstartdan dalam beberapa detik, Anda akan melihat boot splash Ubuntu.

12.Pada layar login, klik nama pengguna Anda dan masukan password Anda.
Klik "Log In" atau tekan Enter.

13.Tampilan Desktop Ubuntu 10.04 LTS (Lucid Lynx).

RECOVERY MY FILES

Salah satu fungsi dari software ini adalah untuk menemukan kembali data yang telah dihapus. Cara untuk menggunakannya adalah sebagai berikut.

1. Buka Recovery My Files.

2. Pilih Recover Drive-Next

3. Klik Drive Yang akan direcovery/ Dipulihkan Datanya-Klik Next

4. Ada dua alternative pilihan, tapi sebaiknya Pilih “Search for deleted files (Recommended)” – Klik Start

5. Tunggu sampai Proses Scanning selesai, lama scanning files tergantung besar kecilnya Drive sobat atau juga banyaknya files yang terhapus.

6. Setelah proses scanning selesai centang semua data yang muncul, lalu klik Save Files.

7. Pilih Browse untuk mencari tempat dimana data Recover akan disimpan. Klik Ok

Tunggu beberapa menit, data akan tersimpan.

Instalasi Deep Freeze

Deep Freeze sebagai salah satu produk Faronics adalah program yang dirancang khusus sebagai pengaman yang dapat mencegah komputer atau workstation dari berbagai ancaman yang tidak diinginkan seperti ancaman virus, malware, dan faktor kesalahan yang disebabkan oleh human error. Faktor kesalahan manusia sebagai pengguna ini antara lain terhapusnya file system atau file apa saja yang dianggap penting karena faktor ketidaksengajaan.

Cara menginstal Deep Freeze adalah sebagai berikut :