Wednesday, April 27, 2011

Makanan Terbuang Sia-Sia

DSCN6579

Makan siang anda terlalu banyak?

Makan malam anda tidak habis?

Makan pagi anda belum dimakan?

Sungguh sayang, sayang beribu sayang

Masih banyak orang yang kekurangan makan. Ketika anda berkendara, cukup banyak saudara kita yang kelaparan. Memohon sereceh dua receh dari anda. Ada yang kurang beruntung, tidak mendapat receh, ada yang cukup beruntung, mendapatkan kertas bertuliskan Rupiah.

Mengapa?

Mengapa terkadang kita sendiri susah untuk menghargai makanan kita?

Mari, kita renungkan sejenak, dan tanamkan dalam diri kita untuk tidak membuang-buang makanan. Bukan nilainya yang kecil yang kita buang, tetapi setiap makanan yang anda buang, berarti kita telah melewatkan potensi dan kesempatan untuk berbuat baik kepada mereka yang lebih membutuhkan.

Coba, kita tingkatkan moral hidup kita lebih baik lagi.

Salam sejahtera selalu

Sunday, April 24, 2011

Internet 3 Unlimited Review

3 500 MB

Gambar di samping ini serasa tidak asing lagi bukan?

Tentu tidak, itu adalah kartu internet 3 yang bertuliskan “1 BLN INTERNETAN SEPUASNYA” dengan kuota 500MB.

Nah, jangan buka atau beli kartu tersebut apabila anda belum mengetahui apa arti kata-kata yang tercetak tersebut.

Memang benar, penggunaan kartu 3 tersebut, cukup kencang pada 500 mega pertama. Bayangkan, hanya dengan Rp. 25.000 anda bisa menikmati speed sampai dengan 250 kbps atau sekitar 30 kBps. cukup kencang bukan? Meskipun jawaban anda tidak, namun kompetitornya, dengan harga yang sama, kurang lebih speed yang ditawarkan adalah 256-384 kbps, sehingga menurut saya, penawaran 3 yang ini cukup menggiurkan.

Akan tetapi, apa arti “internetan sepuasnya” yang tercetak? Hmmm… Setelah melewati 500MB pertama, maka anda akan tetap bisa internetan. Mungkin pikiran anda, akan diturunkan ke 64 kbps bukan? Entah saya salah baca, salah asumsi atau bagaimana, saya juga beranggapan demikian. Namun tidak. Inilah speed setelah 500MB pertama lewat

3 Unlimited Bohong

Maksimum kecepatannya adalah 1.5 kBps atau sekitar 12kbps. Oh tidak, itupun grafiknya grafik jarum, alias tidak rata 12kbps. Sebagai ilustrasi, dengan koneksi sedemikian rupa, anda tidak akan dapat membuka Yahoo Messenger ataupun KlikBCA.

So? Be Wise… just another share

Thursday, April 21, 2011

Kena Phishing? WASPADALAH

Beberapa waktu lalu, artikel saya tentang penipuan dan merugikan saya 4 juta rupiah, sangat menyakitkan. Tanpa adanya orang yang mau peduli, itu lebih menyakitkan. Yang lebih menyakitkan lagi? Wew… susah diomong. Tahu kenapa anda bisa dibobol?

JANGAN KLIK LINK SEMBARANGAN

Ketahuilah bahaya PHISHING. Apabila anda mengetahui teman anda kena PHISHING, segera berbagilah.

Dibobol

Ini salah satu contoh teman yang kena phishing. Hati-hati, segera rubah password anda. Hindari MENGGUNAKAN BB, karena most of hacked friends, adalah pengguna BB yang tidak tahu bahayanya Phishing. Jadi? Hindari memakai BB, atau setidaknya pahamilah arti link yang anda klik.

Creating Button (Control) & Event On The Fly Di Delphi

Sering hal ini menjadi banyak pertanyaan orang. Bagaimana membuat button on the fly, kemudian apabila tombol tersebut di klik, maka akan menampilkan identitas button tersebut, button tersebut nomor berapa.

Begini ilustrasinya

image

Bagaimana caranya mengetahui button tersebut di array berapa? Delphi menyediakan sebuah property bernama TAG, entah tujuannya apa, tetapi terkadang cukup berguna. Untuk source codenya, mari kita lihat saja, supaya tidak banyak teori. Proses tidak penting, mari kita buat event ini do onCreate Form

 

procedure TForm1.FormCreate(Sender: TObject);
var
  buttons:array [1..20] of Tbutton;
  i:integer;
begin
  for i:=1 to 20 do
    begin
      buttons[i]:=tbutton.create(self);
      buttons[i].parent:=self;
      buttons[i].left:=((i-1) mod 5) * buttons[i].width;
      buttons[i].top:=((i-1) div 5) * buttons[i].height;
      buttons[i].OnClick:=klik;
      buttons[i].tag:=i;
      buttons[i].caption:='Guess Me';
    end;
end;

 

Bagaimana dengan event onClicknya? Well, mari kita buat sebuah prosedur bernama “klik”, yang isinya hanya:

 

procedure TForm1.klik(Sender: TObject);
begin
  showmessage(inttostr((sender as tbutton).tag));
end;

 

Compile aplikasi anda, dan anda akan mengetahui button ke-berapa yang anda click. Selamat mencoba

Wednesday, April 20, 2011

Hati-Hati Membuka Kartu Kredit Sembarangan

Berikut Pengalaman dari milis sebalah:

Temen2, Hati2 untuk aplikasi credit card... saya baru kena tipu lho. Ada orang yang nelpon ke handphone untuk menawarkan aplikasi credit card (kebetulan dia mengaku dari tim marketing credit card BNI). Setelah mendapatkan informasi alamat rumah dll, mereka datang ke rumah dengan alasan untuk mendapatkan tandatangan. Sewaktu kedatangan, mereka meminta untuk mengisi formulir credit card
yang asli. Disertai fotokopi KTP dan credit card lainnya, mereka pun pulang. Ternyata beberapa waktu kemudian (sekitar 1mingguan), petugas kredit card Mandiri (kebetulan saya memberikan fotokopi Mandiri dan Citibank) menelpon untuk mengkonfirmasikan aplikasi saya untuk transfer dana untuk kredit tanpa agunan. Mereka membuka rekening di Bank Bumiputra atas nama saya. Untung saja
bank mandiri menelpon saya. Transfer pun dibatalkan. Saya pikir semua udah aman, tapi ternyata baru saja saya menerima sms dari citibank bahwa proses perubahan nomor hp saya disetujui. Saya pun
kaget, padahal saya gak pernah merubah data saya di citibank. Langsung saya telp citibank dan ternyata memang benar mereka telah merubah nomor hp saya. Ternyata mereka telah belajar dari kesalahan di bank mandiri. Terlebih dahulu mereka merubah nomor hp saya, trus mereka melakukan transaksi
lainnya. Mereka telah melakukan pembelian 2x voucher simpati dan meng-apply
kredit tanpa agunan sebesar 30juta rupiah!!! Gak tau apakah dananya sudah ditransfer atau belum, tapi citibank akan melakukan investigasi.

Credit card saya langsung diblokir. Wah... ini sungguh cara penipuan yang canggih. Temen2 kudu lebih hati2, jangan pernah apply credit card kepada orang yang gak jelas.