Download IDM 5.19 Build 4 Full

Siapa sih yang tidak kenal IDM alias Internet Download Manager?, software yang digunakan untuk mengatur berbagai macam download ini memang disebut-sebut "nomor satu" diantara dowload manager lainnya. Keunggulan IDM antara lain mendukung download diberbagai situs file sharing seperti rapidshare, 4shared, dan sebagainya. Menurut saya semua situs file sharing mendukung untuk IDM. Tidak hanya itu, kelebihan lainnya yaitu kecepatan download nya cepat sekali minta ampun. Ok, disini saya mensharing IDM 5.19 Build 4, tanpa basa-basi yang basi download IDM nya dan kencangkan sabuk pengaman anda ketika mendownload. Hehehehe

Bill Gates Kembangkan Teknologi Penguras Sperma

Pendiri Microsoft Corp. sekarang tak cuma peduli pada urusan komputer. Dia ternyata juga peduli pada teknologi kontrasepsi pria. Proyek itu kini sedang diseriusi Gates lewat Bill & Melinda Gates Foundation.

Di yayasan ini ada 78 proyek penting yang kini sedang dikembangkan. Di antaranya adalah vaksin dari keringat, penggunaan tanaman karnivora untuk mengendalikan nyamuk malaria. Penelitian yang paling hot adalah mempelajari kemampuan ultrasound untuk menguras jumlah sperma dalam testis.

Yayasan Gates sudah setuju akan mendanai penelitian yang dilakukan sekelompok ilmuwan Amerika Serikatuntuk mengembangkan teknologi ini. Bila teknologi ultrasound (gelombang suara dengan frekuensi tinggi, lebih tinggi dari yang bisa didengarkan kuping manusia) maka kemungkinan teknologi ini akan digunakan sebagai kontrasepsi baru pria. Seperti di ketahu, manusia cuma bisa mendengar suara di frekuensi 20 sampai 20 ribu Hz

Yayasan berdana 34 miliar dolar yang dijalankan oleh multi miliuner dan dermawan Bill Gates dan berinvestasi pada proyek-proyek ilmiah luas guna meningkatkan kesehatan dunia itu mengatakan bahwa setiap proyek masing-masing akan mendapatkan dana 100.000 dolar untuk penelitian lebih lanjut.

Proyek-proyek lain yang mendapat dukungan dari yayasan ini adalah pengembangan mikroskop ponsel murah untuk mendiagnosis malaria, penggunaan ultrasound untuk alat kontrasepsi pria, selendang insektisida antimalaria dan sistem penggunaan gambar untuk mencari dan menghancurkan parasit dengan vaksin laser.

"Kami yakin bahwa beberapa gagasan ini akan mengarah ke inovasi dan berbuah solusi yang menyelamatkan jiwa," kata Tachi Yamada dari program kesehatan global Gates Foundation dalam sebuah pernyataan.

Yayasan itu mengatakan para peneliti yang mendapat dana dari yayasan ini berasal dari berbagai universitas, lembaga penelitian, dan organisasi nonprofit dari 18 negara di seluruh dunia.

Salah satu yang didanai Gates adalah satu kelompok ilmuwan Jerman yang mengembangkan teknologi nanopartikel untuk menembus kulit melalui rambut folikel. Nano partikel tersebut akan berbaur dengan keringat manusia untuk melepaskan vaksin.

Hibah dana penelitian ini juga akan membantu para peneliti menyelidiki cara-cara baru memerangi malaria. Satu tim akan mencoba melihat apakah selendang tradisional berinsektisida yang dikenakan oleh para pekerja migran di sepanjang perbatasan Thailand-Kamboja dapat mengurangi tingkat kekebalan malaria terhadap obat.

Sementara di Uganda, sebuah tim menguji kemampuan tanaman pemakan serangga mengurangi jumlah nyamuk penyebar malaria.

Dana hibah diberikan dalam skema program Grand Challenges Explorations yayasan itu--inisiatif lima tahunan senilai 100 juta dolar ditujukan untuk mempromosikan inovasi dalam kesehatan global.

Gates, orang terkaya di dunia, adalah pendiri Microsoft Corp, dan masih menjadi chairman perusahaan itu, meskipun ia memfokuskan perhatiannya kepada yayasan.

Sejak dibuka pada tahun 1994, yayasan ini telah menggelontorkan lebih dari 21 miliar dolar AS dalam bentuk dana hibah.

Sumber: dedepurnama.blogspot.com

Di Ponsel Android Malware Pengirim SMS Terdeteksi

Malware (program jahat) patut diwaspadai karena keberadaannya kian merambah ke berbagai perangkat, termasuk ponsel Android. Hal ini dibuktikan oleh hasil temuan Kaspersky yang mendapati malware pada ponsel dengan sistem operasi dari Google.

"Malware bernama 'Trojan-SMS.AndroidOS.FakePlayer.a' muncul sebagai aplikasi media player pada umumnya, namun dapat mengirim SMS ke nomor premium tanpa sepengetahuan pengguna," ujar Mobile Research Group Manager Kaspersky Lab Denis Maslennikov. Kaspersky bahkan mengklaim temuannya merupakan malware pertama yang pernah ditemukan pada ponsel Android.

Maka tidak mengherankan jika Kaspersky kemudian memasukkan malware berukuran 13 Kbytes tersebut ke dalam database antivirus mereka. Padahal Kaspersky sendiri tidak memiliki produk solusi antivirus untuk perangkat berbasis Android.

hal ini kemudian mendorong Kaspersky untuk membuat antivirus khusus Android yang kabarnya akan dirilis awal 2011.

Sebagai tambahan, Maslennikov menyarankan agar pengguna berhati-hati ketika memenuhi persyaratan yang diminta sebuah aplikasi sebelum menginstalnya. Artinya, malware tersebut tidak akan menyebar begitu mudahnya di dalam sebuah perangkat tanpa seizin penggunanya.

Sumber: dedepurnama.blogspot.com

Tujuh Hal 'Haram' di Facebook

Jangan sampai data-data pribadi Anda bisa ditemukan lewat pencarian search engine. Facebook memang telah menjelma sebagai jejaring sosial yang sangat besar. Sayangnya, mayoritas para pengguna Facebook kurang melindungi data-data pribadi mereka

Menurut Consumer Reports Magazine, lebih dari separuh pengguna jejaring sosial dengan ceroboh mengungkapkan data pribadi mereka, yang bisa digunakan untuk motif-motif jahat.

Dari hasil survei, ditemukan tujuh kebiasaan 'haram' yang dapat membahayakan pengguna Facebook. Untuk itu Consumer Reports Magazine memberikan tip-tip untuk mengatasinya:

1. Menggunakan Pasword Lemah
Untuk mengatasi hal ini, disarankan agar pengguna menggunakan paling sedikit delapan karakter untuk dijadikan password. Password juga musti menggunakan kombinasi huruf besar, huruf kecil, angka, maupun simbol.

2. Mengungkapkan Tanggal Lahir
Tanggal lahir sebaiknya tidak dibagikan kepada sembarang orang, karena bisa digunakan orang lain menjebol kartu kredit atau rekening bank. Bila tetap ingin membertahukan tanggal lahir, setidaknya ungkapkan tanggal dan bulannya saja. Tapi jauh lebih baik untuk sama sekalli tidak mengungkapkan tanggal lahir Anda.

3. Mengabaikan Facebook Privacy Control
Facebook privacy control bisa memaksimalkan pembatasan akses 'orang luar' terhadap data pribadi kita. Dengan menyetel privacy control secara lebih ketat, orang lain yang tak kita kenal tak akan bisa terlalu bebas mengakses seluruh data di profil dan galeri foto kita.

4. Memposting Nama Anak di Caption Foto
Bila seseorang memposting nama Anak di Facebook, beritahu dia untuk menghapusnya. Bila seseorang men-tag foto maka klik remove

5. Menyebutkan Keterangan Saat Melakukan Perjalanan Jauh
Pernyataan status yang menyebutkan, 'sedang jauh dari rumah' atau semacamnya yang menyiratkan bahwa tidak ada orang yang berada di rumah saat ini, bisa mengundang orang-orang yang bermotif jahat untuk menyambangi rumah. Jangan terang-terangan mengatakan tentang tanggal Anda saat melakukan liburan.

6. Kebocoran di Search Engine
Jangan sampai data-data pribadi Anda bisa ditemukan lewat pencarian search engine. Lakukan penyetelan ulang di bagian 'Search' pada Facebook privacy control. Pilih opsi 'Only friends' dan pastikan agar boks 'Public Search' tidak dicentang.

7. Membiarkan Anak Kecil Menggunakan Facebook Tanpa Pengawasan
Saat anak-anak atau remaja mulai menggunakan Facebook, orang tua atau walinya musti mengawasinya dengan menjadi teman Facebook. Pastikan untuk memakai email yang disepakati untuk menerima notifikasi dan memonitor aktivitas Facebook mereka.

Sumber: dedepurnama.blogspot.com

Serangan Rootkit Tmphider Ancam Indonesia

Ancaman rootkit baru yang disebut 'Tmphider' telah mencuri perhatian karena menggunakan teknik yang belum pernah ditemui sebelumnya. Pengguna komputer wajib hati-hati, sebab Indonesia termasuk dalam target serangan terbesar Tmphider.

Dalam laporan yang dijabarkan Symantec Security Response, ancaman ini terdeteksi sebagai W32.Temphid. Terdapat banyak file yang terkait dengan ancaman ini. File-file tersebut terdiri dari threat installer dan komponen rootkit. Keduanya terdeteksi sebagai W32.Temphid.

Nah, Indonesia sendiri ditempatkan pada urutan nomor dua dengan proporsi serangan mencapai 32,76%. Hanya berbeda beberapa persen dengan India di posisi puncak dengan proporsi 39,77%. Kemudian di bawah Indonesia ada Iran, Pakistan, Afganistan, dan Amerika Serikat.

Tmphider dikatakan memiliki rootkit mode pengguna dan kernel. File-file '.sys' digunakan dalam mode kernel, sedangkan file '.tmp' digunakan untuk menyembunyikan file-file melalui mode pengguna.

Hal ini berarti, ketika sebuah sistem terinfeksi, Anda tidak akan dapat melihat file-file yang disalin ke dalam drive USB karena file-file tersebut disembunyikan oleh rootkit.

Ancaman tersebut menggunakan username dan password yang telah ditetapkan untuk terkoneksi ke database yang berkaitan dengan sistem SCADA guna memperoleh file dan menjalankan berbagai querie untuk mengumpulkan informasi. Tmphider juga mampu mengumpulkan informasi lain yang berhubungan dengan konfigurasi server dan jaringan.

"Worm ini mengeksploitasi celah keamanan yang baru ditemukan dan belum ditambal dan cara kerjanya sama seperti Windows Explorer menangani file-file .lnk. Fitur ini tidak ada kaitannya dengan autoplay sehingga menonaktifkan autoplay tidak akan membantu mencegah infeksi worm dalam serangan ini. Tapi secara umum, menonaktifkan autoplay merupakan ide yang bagus," pungkas Symantec.

Sumber: dedepurnama.blogspot.com 

Hacking Password Database Access Dengan Advance Office Password Recovery

Ok, posting ini bukan berarti aku mengajari sobat hal-hal yang jelek yah, hacking yang saya maksud cenderung mengembalikan password database jika sobat lupa, walaupun untuk mencuri password database orang lain juga bisa sih. Ok jika sobat belum mempunyai programnya, silahkan untuk mendownload full verison nya



Sudah?, kemudian install dan buka programnya

1. Buka program

2. Klik Open, dan pilih database access nya

3. Tidak usah menunggu, dalam waktu kurang dari 5 detik password sudah didepan mata.

Baiklah, mudah bukan?. Sebenarnya program ini tidak hanya bisa untuk mengembalikan password database access saja, tetapi semua dokumen office seperti word, excel juga bisa, ada juga metoda-metoda yang ditambahkan kedalam program ini untuk mengcrack password dokumen seperti brute-force, dictionary, dsb.

[VB.NET] Program Ramalan Binatang

Judul Program              : Ramalan Bintang
Coder                           : Ari Artama
Bahasa Pemrograman : VB.NET

Browsing-browsing sana kemari, eh nemu source code program bagus nih. Program ramalan bintang, walaupun saya sebenarnya juga tidak
percaya dengan ramalan bintang karena termasuk syirik, tapi saya tidak melihat dari sisi itu tapi say melihat source code ini
dari sisi coding nya. Ok, dari pada banyak cing-cong, langsung saja sobat lihat screenshot nya dan download source codenya ok coy.

Best 10 Freeware Aplication

Saya mau share 15 aplikasi gratis terbaik, berikut daftarnya :
1.SMADAV Adalah aplikasi antivirus gratis yang terfokus dalam membersihkan virus-virus lokal yang banyak beredar di Indonesia. Saat ini sudah mengenali lebih dari 90% antivirus yang beredar di Indonesia.

2. Netman Adalah yang dipergunakan untuk melakukan remote PC. Dengan Netman, kita bisamengendalikan PC rumah, kantor, ataupun PC lainnya yang dapat diakses dimana pun Anda berada dengan menggunakan koneksi internet.

3. Defraggler Merupakan salah satu aplikasi Defrag terbaik, aplikasi ini bisa digunakan untuk mengoptimalkan kinerja hardisk internal, mau pun external.

4. Mozilla Firefox Adalah browser sejuta umat, yang selalu ada di setiap warnet dimana saja. Aplikasi Open Source yang juga tersedia dalam bahasa indonesia ini memiliki banyak addon ( perangkat tambahan ) yang bisa di dapat di https://addons.mozilla.org/

5. Burnaware Free Tool gratis alternatif nero sebagai tool burning CD dengan cepat mudah dan gratis.
Tool ini mendukung format CD sampai dengn Blu-ray. Biar gratis, tool ini tidak kalah dengan aplikasi berbayar lainnya.

6. Format Factory Aplikasi gratis untuk melakukan convert ke berbagai media seperti audio, video,iso,dll.






7. Picasa Photo viewer sekaligur editer yang dikembangkan oleh google. Dengan tampilan yang cantik, aplikasi ini wajib anda miliki.

8. Advanced System Care Optimalkan PC anda hanya dengan 1 klik.
 

9. Notepad ++ Aplikasi pengganti notepad bawaan windows yang kaya akan fitur.

10. Foxit Reader Aplikasi PDF viewer yang ringan, sehingga tidak memberatkan sistem, selain itu aplikasi ini juga memiliki banyak fitur menarik.

Dikutip dari bagusajisantoso.tk dengan sedikit perubahan

Download Corel Draw X5 Full

Siapa sih yang tidak tau software yang satu ini ? Software yang sudah dikenal sebagai penghasil vector yang bagus dan mudah dalam penggunaannya. Meskipun saat ini sudah banyak program serupa bahkan dari Adobe pun sudah lama mengeluarkan program yang memiliki fungsi yang mirip dengan CorelDRAW (Adobe Ilustrator), tapi bagi sebagian orang  yang sudah terbiasa memakai Corel dibanding Adobe pasti akan lebih memilih menggunakan CorelDRAW.
CorelDRAW Graphics Suite X5 menawarkan semua alat yang diperlukan untuk pekerjaan produktif desainer kontemporer. Intuitif alat untuk vektor ilustrasi dan tata letak halaman memungkinkan Anda untuk membuat solusi desain yang hebat.



Gambar raster dapat dengan mudah dapat di edit dan diubah menjadi scalable vector file. Apapun proyek Anda, CorelDRAW Graphics Suite X5 menyederhanakan alur kerja dan menginspirasi Anda dengan peluang-peluang baru untuk kreativitas. Untuk Penginstalan Coreldraw Graphics Suite X5 perlu diperhatikan sistem komputer anda sebagai berikut :

* Microsoft® Windows® 7, Windows Vista®, Windows® XP, with latest service packs installed (32-bit or 64-bit editions).

* Intel® Pentium® 4, AMD Athlon™ 64 or AMD Opteron™.

* 512 MB RAM (1 GB recommended).

* 750 MB hard disk space (1 GB for typical installation without content). Up to 6GB needed to install extra content.

* Mouse or tablet.

* 1024 x 768 screen resolution (768 x 1024 on a Tablet PC).

* DVD drive

* Microsoft® Internet Explorer® 7 or higher, or Firefox, or Opera, or Chrome, or Safari

Download File Installernya disini :

Key Generator :

Server Ziddu:


Cara Menggunakan Key Generator ! :
1. Buka “CorelDRAWGraphicsSuiteX5Installer_EN” Klik Instal
2. Pilih tulisan “I have a serial number”.
3. Buka Key Generator dan masukkan serial number yang di dapat di Key Generator (copy) Ctrl+C dan Paste Ctrl+V ke serial number CorelDRAW X5, perhatian! jangan di close dulu (Key Generator)!
4. Tunggu hingga proses instalasi selesai.
5. Setelah selesai instalasi, buka CorelDRAW X5, terus muncul kotak permintaan aktivasi, klik tombol “Other Activation Options”, Phone corel.
6. Disitu ada 3 kotak, Serial Number (sudah terisi), Installation Code (sudah terisi), Activation Code (kosong).
7. Kembali ke Key Generator tadi, isi kotak “Installation Code” (kotak ke 2), ketik kodenya di Key Generator, tanpa tanda (-).
8. Setelah Installation Code di Key Generator terisi, terus klik tombol Activation Codenya dan akan muncul kode aktivasinya (kotak ke 3), copy dan paste lagi di kotak Activation Code di CorelDRAW X5 nya, klik next.
9. Selesai!

Sumber: bagusajisantoso.tk

[Dephi] Membuat Form Login Dengan Delphi Dan Basis Data Microsoft Access

Mungkin banyak  diantara para programmer  delphi pemula kesulitan  untuk  membuat suatu  form  login didalam aplikasinya. Untuk itu saya akan coba membuat tutorial sederhana tentang bagaimana membuat sebuah login form untuk administrator, maupun operator yang lainnya. Dan didalam codingannya akan diselipkan beberapa tips dan trik.
Ikuti Petunjuk Dibawah :


1.  Jalankan program Delphi. 
2.  Tambahkan 2 Label, 2 TEdit, dan 1 Button 
3.  Atur property  untuk tiap komponen.

4.  File --> New --> Form, untuk menambahkan sebuah form 
5.  Simpan Project, untuk FrmLogin nya beri nama unit Ulogin, sedangkan untuk form yang
baru dibuat cukup beri nama unitnya UHasilLogin. 
6.  Atur Tampilannya seperti pada gambar.

7.  Sekarang  buat database untuk menyimpan data loginnya. Gunakan basis data Microsoft Access.
8.  Jalankan Microsoft Access 
9.  File New Blank Database

10.  Beri nama file dengan Data, kemudian Click Create,

atau jika sekedar ingin membuat DB baru tanpa membuka Ms.Access, sobat bisa memakai script VBS ini, simpan dengan nama script.vbs pada text editor seperti notepad

Dim DBFileName
Dim objConnection,FSO
Dim objDBFile

Set objConnection = CreateObject("ADOX.Catalog")
Set FSO=CreateObject("Scripting.FileSystemObject")

DBFileName=Trim(InputBox("Masukkan Filename Beserta Lokasi " _
 & "Database Yang Akan Dibuat", "JET Database Generator - Crowja","C:\DB_Baru.mdb"))
 
If DBFileName <> Empty Then
  ' Buat Database Baru
 objConnection.Create "Provider = Microsoft.Jet.OLEDB.4.0; " & _
         "Data Source = " & DBFileName
         
 If FSO.FileExists(DBFileName) Then
  MsgBox "Database telah dibuat",vbInformation,"Success"
 End If
 
End if

11.  Buka databse barunya, lalu buat satu table, dengan nama tabelnya login. Gunakan Create table pada design view untuk membuat table
12.  Buat 2 Field seperti gambar di bawah. Atur Field Size seperti yang diinginkan.

13.  Isi  Satu  Data,  misalkan  username :  Admin, Password : Admin, kemudian Tutup Microsoft Access nya, Kembali Ke DELPHI
14.  Tekan Shift + F12,  Klik 2x FrmLogin 
15.  Masuk ke pallete ADO, dan tambahakan Satu ADOConnection, dan Satu ADOQuery. 
16.  At ur Property Komponen Tersebut

17.  Dan di bawah ini kode untuk form login

///////////////////////////////////////////////////////////////////  
//// Author  : Elga Lesmana 
//// E­Mail  : elgalesmana@yahoo.com  
//// Website  : http://elgalesmana.net46.net 
//// ©copyright 2008 ilmukomputer.com  
/////////////////////////////////////////////////////////////////// 

unit ULogin; 

interface 

uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, DB, ADODB; 

type
  TFrmLogin = class(TForm) 
   Label1: TLabel;
   edusername: TEdit;
   Label2: TLabel;
   edpassword: TEdit;
   Button1: TButton;
   ADOQuery1: TADOQuery;
   ADOConnection1: TADOConnection; 
   procedure Button1Click(Sender: TObject);
   procedure FormCreate(Sender: TObject); 
  private  
   { Private declarations } 
  public  
   { Public declarations } 
end; 

var  FrmLogin: TFrmLogin; 

implementation  
uses 
// XPMan agar tampilan form seperti button mengikuti theme pada windows  
// Tambahkan unit UHasilLogin ke ULogin dengan menekan Alt + F11, atau dengan 
// mengetiknya saja
 
XPMan, UHasilLogin; 

{$R *.dfm}

procedure TFrmLogin.FormCreate(Sender: TObject);  
var 
  s : Char;  
  alamatdb : WideString; 
begin  

   // Manipulasi cursors crSQLWait agar tidak tampil 
   Screen.Cursors[crSQLWait] := Screen.Cursors[crDefault]; 

   // atur tampilan form  
   s := '*'; 
   edusername.Text := '';
   edpassword.PasswordChar := s; 
   edpassword.Text := ''; 

   // atur koneksi pada ADOConnection
   // script ini berguna untuk mengatur koneksi database pada aplikasi 
   // agar aplikasi dapat memproses database yang dipilih di komputer  
   // manapun tanpa harus mempunyai path/alamat database yang sama. 

   alamatdb := ExtractFilePath(Application.ExeName) + 'data.mdb';  
   with ADOConnection1 do begin 
     Connected := False;
     LoginPrompt := False; 
     Mode := cmShareDenyNone;
     ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + 
     alamatdb + ';Persist Security Info=False';  
   end; 

   ADOConnection1.Connected := True;  
end; 

procedure TFrmLogin.Button1Click(Sender: TObject);  
begin 
   with ADOQuery1 do begin  
     Close; 
     SQL.Clear; // bersihkan perintah sql jika ada  
     SQL.Add('select * from login where username='+  
     QuotedStr(edusername.Text));  
     Open; 
   end; // end with 

   // jika tidak ditemukan data yang dicari maka
   // tampilkan pesan 
   if ADOQuery1.RecordCount = 0 then
     Application.MessageBox('Maap, username tersebut tidak ada', 'Informasi',
     MB_OK or MB_ICONINFORMATION) 
   else begin  
     if ADOQuery1.FieldByName('password').AsString <> edpassword.Text then 
       Application.MessageBox('Pastikan username atau password benar',  
       'Error', MB_OK or MB_ICONERROR) 
     else begin  
        Hide;
        Form1.Show; 
     end  
   end; 
end; 

end.

18.  Tambahkan code Application.Terminate untuk button yang berada di unit uHasilLogin. 
19.  Compile Program dan Lihat hasilnya

Jika sobat tidak sempat untuk membuatnya, disini saya sertakan source code beserta e-book (dalam b.indonesia) nya untuk sobat baca.
Jangan malas membaca yaaa.....



Diadaptasi oleh artikel Elga Lesmana dengan sedikit perubahan
info: elgalesmana@yahoo.com,
http://elgalesmana.net46.net


SELAMAT  MENCOBANYA

[Delphi] Membuat Form Cantik Dengan Delphi

Form merupakan bingkai dasar dari sebuah aplikasi yang umumnya berbasis GUI (Graphic User Interface). Form standar atau form tradisionil umumnya berbentuk kotak. Bagi seseorang yang dinamis dan berjiwa seni tinggi tentu akan bosan dengan design form seperti ini. Salah satu cara untuk memodifikasi bentuk form adalah dengan menggunakan region. Fungsi HRGN atau region dapat memodifikasi bentuk form menjadi model roundrect, rectangular, elliptical, polygonal dan sejenisnya berikut kombinasi bentuk-bentuk dasar tersebut (combinergn). Setelah lama bergelut dengan region, saya menemui kendala yaitu akan cukup sulit menggunakan region bila bentuk form yang akan kita buat tidak sama dengan bentuk dasar ataupun kombinasi dari region. Selain itu waktu yang dibutuhkan juga cukup lama. Lalu saya memutuskan untuk mencari komponen yang dapat merubah form standar. Setelah mencari kemana-mana akhirnya saya menemukan komponen dxfShapedForm, bagian dari ExpressForumLibrary(tm) Componen Suite yang dikembangkan oleh Developer Express Inc. Jika anda membeli paket original Delphi maka anda akan menemukan komponen ini pada cd Delphi Companion Tools. Melihat contoh yang disertakan saya langsung tercengang. Ternyata membuat form yang cantik dapat dilakukan dengan mudah dan cepat. Kita tinggal menempatkan komponen pada form, meload gambar, mengaktifkan komponen dan form cantik dapat segera digunakan. Akhirnya saya berfikir lagi bagaimana kalau digunakan komponen standar Delphi saja agar program menjadi lebih ringan.

Oke, langsung saja kita mulai step by step membuat form cantik ini:
1. Buka Delphi anda dan buatlah projek baru (standar EXE). Langkah ini dapat diakses melalui File --> New --> Application
2. Tambahkan komponen image pada form. Komponen ini terletak pada tab Additional. Gambar yang akan anda tambahkan ini nantinya akan menjadi background sekaligus bentuk dari form. Agar gambar bisa transparan pada form, anda dapat membuat gambar dengan format .gif transparan atau .bmp dengan warna background khusus (background harus berwarna #FF00FF)
3. Klik ganda pada komponen image sehingga akan membuka kotak dialog seperti ditunjukkan pada gambar

Klik tombol Load untuk mengambil gambar
4. Sesudah gambar diload, klik sekali lagi komponen image untuk mengaktifkannya. Pada properties di object inspector untuk komponen image, ubah nilai Transparent ke true. Langkah ini mengakibatkan gambar menjadi transparan. Jika gambar anda tidak menjadi transparan, berarti gambar yang anda gunakan masih salah. Perbaiki dulu gambar anda baru ikuti langkah selanjutnya
5. Klik nama form di Object Tree View untuk mengaktifkan form. Pada Properties di Object Inspector untuk komponen form ini ubah nilai BorderStyle menjadi bsNone. Coba run projek anda dengan menekan F9. Tampak bahwa form tidak memiliki border, namun form asli masih tampak, hal ini terlihat dari adanya background dibelakang image.
6. Hal yang akan kita lakukan adalah membuat transparan background dari form. Dalam mentransparankan background form ini terdapat tiga nilai dari properties yang harus kita ubah yaitu Color, TransparentColor, TransparentColorValue. Ubah nilai Color dan TransparentColorValue dengan nilai yang sama misal clBlack. Set nilai TransparentColor dengan true. Hasilnya ditunjukkan pada gambar dibawah

Tampak bahwa background pada form menjadi transparan sehingga bentuk daripada form selalu mengikuti bentuk gambar yang kita buat. Namun, apakah pekerjaan kita sudah selesai? Ternyata belum karena form tersebut tidak dapat didrag seperti form pada umumnya. Pada langkah ke 7 kita akan mengatasi hal ini

7. Agar form yang kita buat dapat didrag tambahkan potongan kode berikut:

procedure WMNCHitTest(var msg : TWMNCHitTest);message 
WM_NCHitTest;

Letakkan definisi prosedur diatas pada bagian type, dapat juga diletakkan pada bagian deklarasi private atau deklarasi public tergantung dari kebutuhan. Jika anda ingin menggunakan prosedur tersebut pada unit lain maka letakkan pada deklarasi public, pun sebaliknya. Pada bagian implementasi tambahkan kode berikut:

procedure TForm1.WMNCHitTest(var msg : TWMNCHitTest); 
     begin   
      inherited;
       if (msg.Result = htClient) then 
        if Msg.YPos < Top + 40 then 
          msg.Result := htCaption; 
     end;

Ada 2 hal yang harus anda perhatikan ketika menambahkan kode diatas. Hal tersebut
ditunjukkan dengan teks warna merah. Form1 menunjukkan nama form. Jika nama form anda misalnya frmPetunjuk maka ubah Form1 menjadi frmPetunjuk. Kedua yaitu nilai 40. Nilai ini menunjukkan jarak dari form bagian atas yang dapat didrag. Semakin besar
nilai ini maka bagian dari form yang dapat didrag semakin besar
Form diatas adalah form modifikasi sehingga anda harus menambahkan beberapa even dan komponen yang pada umumnya sudah terdapat pada form biasa semisal close, maximize, minimize dan sebagainya. Anda dapat juga menambahkan komponen semisal button untuk menjalankan even-even tersebut.

Sebenarnya anda dapat juga menggunakan skin untuk membuat form cantik ini. Namun saya tidak menyarankan penggunaan skin ini. Selain program menjadi berat diakibatkan oleh penggunaan komponen tambahan bisa itu berupa librari atau ocx (ActiveX), kompabilitas dengan komponen standar Delphi juga menjadi kendala. Bukankah lebih baik memodifikasi sesuatu yang standar daripada harus menggunakan suatu fitur embeded !? Sekian dulu trik dari saya semoga bermanfaat bagi anda semua. Komentar, saran dan pertanyaan mengenai trik ini harap dikirimkan ke admin@ahmadimron.com.

Jika sobat ingin mendownload source codenya, saya persilahkan:




Diadapsi dari artikel Ahmad Imron dengan sedikit perubahan
http://www.ahmadimron.com

[VB] Program Teknik Sederhana Zoom Dan Tile Gambar

Zoom ? Tile ? Makanan apa tuh ?, zoom adalah salah satu jenis makanan yang terbuat dari singkong
seperti gaplek, tape, peuyeum!. Doyan banget makanan kayak gitu, maklum anak desa! makan nasi saja
5 hari sekali. Ok, kalo menurut ilmu bahasa inggris ku yang terbelakang ini, zoom artinya pembesaran/memperbesar
jadi zoom gambar itu pembesaran gambar menurut skala tertentu. Seperti contoh, jika wallpaper kompi sobat
menggunakan gambar dengan resolusi kecil, dan menggunakan cara zoom untuk memenuhi desktop, gambar akan terlihat pecah
karena gambar dipaksa untuk memperlebar ukuran dirinya (stretch). Berbeda dengan cara tile, pada cara ini desktop akan
dipenuhi gambar yang dengan resolusi kecil tadi dengan jumlah sangat banyak. Jadi gambar tidak akan dipaksa
untuk mempelebar reolusinya. Untuk lebih jelasnya, lihat perbedaan wallpaper dibawah ini dengan cara zoom dan tile:

Zoom :

Gambar terlihat pecah



Tile :

Gambar tidak pecah, tetapi amat banyak



Cukup jelas bukan, lau bagaimana teknik pemrograman untuk memanipulasi gambar berresolusi kecil seperti zoom, dan tile kakak yang baik hati??
. Tenang adik-adikku yang buruk rupa, hehehe (just kidding). Tekniknya sederhana, intinya sobat bisa menggunakan method PaintPicture pada control
PictureBox {contoh: Picture1.PaintPicture(Picture As StdPicture, X1 As Single, Y1 As Single, [Widht1], [Height1], [X2], [Y2], [Width2], [Height2], [Opcode])}
untuk lebih jelasnya simak listening code vb di bawah ini:

1. Untuk Teknik tile sederhana:

Deklarasi:
1 Form
2 PictureBox
1 Slider (ada di komponen Microsoft Windows Common Controls)
1 CommandButton

Utak-atik, bolak-balik hingga tampak seperti ini:

Untuk gambar eksperimen di picSrc, sobat bisa menggunakan gambar di bawah ini:

Nah, jika sudah jadi masukkan source code ini:

Private Sub Command1_Click()

Dim X   As Single
Dim Y   As Single
Dim wi  As Single
Dim he  As Single

  wi = picSrc.ScaleWidth * sldZoom.Value / 100
  hi = picSrc.ScaleHeight * sldZoom.Value / 100

  picDest.Cls
  
  Do Until X > picDest.ScaleWidth
    Do Until Y > picDest.ScaleHeight
      With picSrc
        picDest.PaintPicture .Picture, X, Y, _
        wi, hi
        ' baris berikutnya
        Y = Y + hi
      End With
      DoEvents
    Loop
    'kolom berikutnya
    X = X + wi
    Y = 0
    DoEvents
  Loop
  
End Sub

2. Untuk teknik zoom sederhana

Deklarasi:
1 Form
2 PictureBox
1 Slider

Utak-atik sehingga menyerupai seperti ini:

Untuk gambar di Picture1 bisa menggunakan gambar di contoh teknik tile tadi, jika sudah kelar masukkan code
pendek di bawah ini:

Private Sub sldZoom_Change()
  Picture2.Cls
  Picture2.PaintPicture Picture1.Picture, 0, 0, Picture1.ScaleWidth * sldZoom.Value / 100, _
  Picture1.ScaleHeight * sldZoom.Value / 100
End Sub

Sangat sederhana dan mudah bukan. Jika sobat malas membuatnya, saya sertakan source code nya untuk di unduh di bawah ini:

Tampil Indah Dengan Shell

Judul   : Tampil Indah Dengan Shelll
Penulis : Noprianto
Bahasa  : Indonesia

Membuat aplikasi interaktif dan menarik di console tidak harus selalu menggunakan bahasa pemrograman
yang rumit dengan memanggil pustaka yang rumit pula. Cobalah shell script  terlebih dahulu.
Salah satu fenomena yang cukup menarik untuk di amati di dunia UNIX dan GNU/Linux adalah
lengketnya pengguna dengan aplikasi console. Tidak peduli seberapa indah dan mudah Nautilus misalnya,
pengguna kerap kali masih lebih memilih program ls misalnya. Berbagai alasan pun dikemukakan.
Mulai lambatnya aplikasi berbasis GUI sampai kesetiaan dengan program-program di console.
Walau, memang tidak setiap pengguna GNU/Linux lantas membenci keindahan yang ditawarkan oleh berbagai
desktop yang indah-indah tersebut.

Penasaran?, download saja bukunya.