Welcome To PilihanPasti !

PilihanPasti adalah sebuah situs yang berisikan hal-hal yang berkaitan dengan perkembangan dunia Informasi Teknologi

News and IT Information

Informasi berita terbaru dan update berita tentang teknologi informasi

Ebook's

Pilihan Premium Ebook's (berbayar) dan Free Ebook's (gratis)

Private and IT Consulting

Menerima Private materi - materi Komputer (Office, Programming, Website, Windows) dan Konsultasi Teknologi Informasi

Software and Website

Menerima pembuatan Software dan Website

Iklan

Menerima pembuatan dan pemasangan Iklan

Ingin Private materi Komputer atau Ingin Membuat Website ?

Ingin Membuat Album Photo Digital & Buku Elektronik ?

Kamis, 03 November 2011

Berapa Sich Jumlah Domain Com Saat Ini ?

Pernahkan anda menghitung seberapa banyak situs yang ada di seluruh dunia saat ini? Jika tahu jumlahnya, mungkin anda akan sedikit tercengang. Bayangkan saja, untuk domain .com saja, jumlahnya mencapai 91 juta domain yang terdaftar dan terus bertambah setiap harinya.
Dari data register yang ada, jumlah domain .com dari tahun ke tahun selalu mengalami peningkatan. Namun meskipun menjadi domain yang paling populer, penambahan jumlahnya pada akhir-akhir ini mengalami penurunan.
Penurunan jumlah penambahan tersebut sepertinya sudah diperkirakan oleh banyak pihak. Dengan semakin banyaknya pilihan domain, orang tentunya akan melakukan berbagai pertimbangan untuk menentukan pilihannya.
Meskipun begitu, tetap saja jumlah domain .com masih yang terbanyak. Pada awal tahun 2000, jumlahnya hanya mencapai 21 juta. Namun jumlah tersebut membengkak hingga hampir tiga kali lipatnya pada 2005 yang mencapai 61 juta domain.

Berapa Sich Gaji Pegawai Google..???

Anda mengenal Google..., Pasti...itu jawabannya !, postingan kali ini akan membahas masalah berapa sich gaji para pegawai google ?

Google telah lama diketahui sebagai tempat terbaik untuk berkarir. Mereka menawarkan pijat gratis, kudapan, dan potong rambut professional pada kampus mereka di California. Hal tersebut telah menempatkan mereka diatas 99.99% dari seluruh perusahaan yang ada di dunia.
Tahukah anda berapa banyak yang dihasilkan oleh karyawan Google? Data berikut tidak terlalu mudah dicari, jika anda tidak percaya, anda dapat mengeceknya di Google.
Berikut ini adalah statistik yang cukup menarik.
1. Google Programmer di Phoenix – $174,000/tahun
2. Google Programmer di California – $197,000/tahun
3. Google Programmer di Chicago – $222,000/tahun
4. Google Programmer di New York – $242,000/tahun
(menurut Indeed.com)
itu hanya gajinya… Keuntungan apa lagi yang ditawarkan Google kepada karyawannya?
  1. Google akan membayar $8.000/ tahun jika anda meneruskan pendidikan. Mereka hanya mengaharapkan nilai “B”.
  2. Jika anda me-refer seorang karyawan untuk menjadi staff Google dan mereka bertahan untuk 60 hari, Google akan membayar $2.000 kepada anda.
  3. Jika anda hendak mengadopsi anak, Google akan memberikan $5.000 untuk urusan legal dan biaya adopsi.
  4. Tergantung dari berapa lama anda bekerja di Google, anda akan mendapatkan sampai dengan 25 hari bonus liburan dalam setahun..
Satu lagi hal yang menarik dari segi finansial karyawan Google, menurut New York Times, kira-kira ada 1.000 karyawan Google yang memiliki saham dengan nilai $5 juta dollar.
Masih menurut New York Times, setiap karyawan yang bersama Google untuk setahun saja memiliki nilai lebih dari $250.000.
Perusahaan pesaing mengatakan bahwa programmer Google telah menikmati 50% kenaikan gaji dalam beberapa tahun terakhir, tampaknya hal ini tidaklah mengherankan buat perusahaan sekelas Google.

Anda Tertarik..? Buruan Melamar jadi pegawainya Google....

Rabu, 02 November 2011

Capeknya Menjadi Istri Programer...???

Ini peringatan bagi anda para istri programmer atau anda calon istri programmer...!!!

Suami : [ Pulang telat dari tempat kerja ]
“Selamat malam, sayang. Sekarang saya lagi logged in.”
Istri : “Apakah kamu bawa oleh-oleh yang aku minta?”
Suami : “Ha? Ooo… Bad command or filename.”
Istri : “Tapi aku bilangnya dari tadi pagi lhooo!”
Suami : “Masak sih? Errorneous syntax. Abort?”
Istri : “Terus, bagaimana tentang beli televisi baru kita dan juga kulkas?”
Suami : “Variable not found..”
Istri : “OK. Kalo gitu, aku minta kartu kreditmu saja.
Aku mau belanja sendiri saja!” [ agak kesel ]
Suami : “Ooh.. Noo… Sharing violation. Access denied!”
Istri : [ dengan nada jengkel ]
“Apakah kamu lebih mencintai komputer daripada aku?
Atau kamu hanya main-main saja!?”
Suami : “Too many parameters, darling …”
Istri : [ kali ini bener-bener jengkel ]
“Ini kesalahan terbesar karena menikahi orang bodoh sepertimu!”
Suami : “Data type mismatch.”
Istri : “Kamu tidak berguna!!” [ marah ]
Suami : “It’s by default.”
Istri : “Bagaimana dengan gajimu!?” [ kesal tambah penasaran ]
Suami : “File in use… Try later.”
Istri : [ dengan nada tinggi karena jengkel uda sampe ubun-ubun ]
“Kamu brengsek! Kamu tidak pernah peduli pada kebutuhanku! Kalo gitu, apa posisiku di matamu selama ini?”
Suami : “Unknown virus.”

Masih Nekat cari suami atau bersuamikan seorang programmer...???

Selasa, 01 November 2011

Menambahkan ALERT di J2ME

Sebelum pengguna aplikasi kita menggunakan aplikasi utama, alangkah baiknya kita menyapa dulu dengan kalimat sapaan yang baik. Hal tersebut bisa kita lakukan di aplikasi java mobile kita dengan memanfaatkan perintah ALERT, Dibawah ini adalah link download lengkapnya :

Menambahkan Command di J2ME

Haloo para maniak java mobile, untuk materi kali ini kita akan membahas tentang cara menambahkan Command di aplikasi yang kita buat. Untuk lebih lengkapnya silahkan Download Source Code Aplikasinya di bawah ini :

Selasa, 18 Oktober 2011

Java Pertamaku


Script Java Pertamaku :
package Latih;

import javax.microedition.midlet.*;
import javax.microedition.lcdui.*;

public class salam extends MIDlet
 {
  private TextBox  tb;

 public salam()
  {

  //buat komponen kotak teks
    tb= new TextBox("j2me", "Salam Perkenalan",5,0);
  }

 protected void startApp ()
 {
     Display.getDisplay(this).setCurrent(tb);
 }

 protected void destroyApp(boolean u)
 { }

 protected void pauseApp()
 { }
}

Minggu, 11 September 2011

Apa yang terjadi Jika : Tiga Insinyur Berada Dalam Mobil Mogok ?

Ada Tiga Orang Insinyur Bearada dalam sebuah Mobil. Insinyur Elektro, Insinyur Kimia & Insinyur Komputer. Tiba tiba Mobil Mereka Mogok & Ketiga Insinyur tersebut saling Berpandangan.
Insinyur Elektro menyarankan supaya Kabel di mobil semua di copot & satu per satu di cek, kabel mana yang mengalami persoalan.
Insinyur Kimia menyarankan supaya diadakan pengecekan di bensin karena mungkin sekali bensin tersebut telah mengalami penggumpalan & menyumbat saluran bensin.
Insinyur Komputer dengan Percaya diri menyarankan Mengapa kita tidak menutup semua jendela (window) lampau matikan mesin, nyalakan lagi mesin & buka kembali semua window? ini sering berhasil.

Bagaimana Jika, Teknisi Hardware, System Analyst, & Programmer Mengalami Rem Blong ?

Tiga orang naik mobil: seorang teknisi hardware, system analyst, & programmer. System analyst menyetir & ketika mereka menuruni gunung dia menemukan bahwa remnya blong & mobil melaju di luar kendali.
Akhirnya dia menarik rem darurat, menurunkan gigi, & menggesekkan rodanya pada semak-semak di samping jalan. Akhirnya dia berhasil menghentikan mobilnya. Ketiganya keluar dari mobil & menganalisa situasinya.
Teknisi hardware: "Mari kita mencoba memperbaikinya. Saya akan merangkak ke bawah mobil & melihatnya."
System analyst: "Tidak. Kukira kita harus mencari seseoarang yang pakar untuk memperbaikinya, terutama spesialis rem."
Programmer: "Mengapa kita tidak kembali ke tempat semula, & mengulangnya untuk mengetahui apakah kejadian tadi akan terulang lagi untuk mengetahui letak errornya?"

Penemu Teknologi Layar Sentuh atau Touch Screen Ternyata Orang Indonesia...?

Ternyata Technology "Touch Screen" penemu pertamanya adalah pengusaha Warung Nasi Tegal (WARTEG). Ini kisahnya:
Pada suatu saat seorang Ilmuwan Manca Negara makan di WARTEG. Setiap PENGUNJUNG yang datang ditanya dari Pelayan Warteg:
Pelayan: "Makan pake apa?"
Pengunjung menempelkan jarinya ke kaca (menunjuk makanan di baliknya)
Pelayan: "Makan pake apa lagi?"
Pengunjung menempelkan jarinya ke kaca lagi.
Pelayan: "Apa lagi?"
Pengunjung kembali menempelkan jarinya ke kaca…
Beberapa detik kemudian makananpun sudah siap tersaji. SANG ILMUWAN pun berdecak kagum, ternyata technology di Indonesia luar biasa majunya. Tak ayal lagi merekapun menjiplaknya untuk TV, LAPTOP, PDA Blackberry Torch & Ipad.

Seandainya hatimu...???

Seandainya hatimu adalah sebuah system,
ingin rasanya aku manfaatkan vulnerabilitiesmu, pake PHP injection Terus aku ls -la; find / -perm 777 -type d,sehingga aku tau kalo di hatimu ada folder yang bisa ditulisi atau adakah free space buat aku?. apa aku harus pasang backdor "Remote Connect-Back Shell"jadi aku tinggal nunggu koneksi dari kamu saja, biar aku tidak merana seperti ini.

Seandainya hatimu adalah sebuah system,
saat semua request-ku diterima aku akan nogkrong terus di bugtraq untuk mengetahui bug terbarumu maka aku akan patch n pacth terus,aku akan jaga service-mu jangan sampai crash n aku akan menjadi firewallmu aku akan pasang portsentry, dan menyeting error pagemu " The page cannot be found Coz Has Been Owned by Someone get out!" aku janji gak bakalan ada macelinious program atau service yang hidden, karena aku sangat sayang dan mencintaimu.

Seandainya hatimu adalah sebuah system,
jangan ada kata "You dont have permission to access it" untuk aku, kalau ga mau di ping flood Atau DDos Attack jangan ah....! kamu harus menjadi sang bidadari penyelamatku.

Seandainya hatimu adalah sebuah system, ...?

Tapi sayang hatimu bukanlah sebuah system,
kamu adalah sang bidadari impianku, yang telah mengacaukan systemku!
Suatu saat nanti aku akan datang n mengatakan kalau di hatiku sudah terinfeksi virus yang Menghanyutkan, Ga ada anti virus yang dapat menangkalnya selain ...kamu.

Seandainya......
Seandaninya...

Kamis, 21 Juli 2011

Mengapa Twitter Lebih Menarik dari Facebook ?

sebenarnya facebook saat ini lebih popular daripada twitter, jumlah user facebook lebih banyak daripada user twitter, dan saat postingan ini ditulis, dari 100 urutan web terbanyak diakses di Indonesia, facebook menempati no 1 sedangkan twitter menempati urutan 17.

Namun jika kita lihat dari sisi lain “twitter ternyata lebih menarik daripada facebook”. Saya yakin suatu saat semua orang bosan dengan facebook, dan itu mulai terlihat sekarang, banyak teman tidak aktif lagi bermain facebook, tidak seperti masa awal booming.

Apa saja yang menarik dari twitter? dan apa saja yang membedakannya dengan facebook?
  1. Hanya 140 karakter
  2. Update status twitter hanya dibatasi 140 karakter (huruf, angka, simbol, atau spasi) sedangkan update status di facebook awalnya dibatasi 160 karakter kini dinaikkan menjadi 420 karakter. Karena di twitter hanya 140 karakter, maka kita harus menulis yang singkat dan perlu saja, apalagi kalau menyertakan tautan (link) kita benar-benar harus berpikir untuk memilih dan menyingkat kata. Sedangkan di facebook update status bisa panjang, bisa jadi satu paragraf, mungkin bisa menulis satu lirik lagu penuh :). Akhirnya kalau update status di facebook tidak usah bingung memilih dan menyingkat kata, tidak heran update status di facebook kadang ada yang terkesan bombastis
  3. No threaded comment
  4. Di facebook cara membalas update status adalah dengan menuliskan komentar yang muncul di bawah update status tersebut, begitu seterusnya secara berurutan (threaded). Di twitter beda, cara membalas update status adalah dengan menulis update status baru dengan menyertakan @namaorang yang dibalas. Ini yang membuat twitter menjadi istimewa. Bayangkan jika ada seseorang menulis update status hanya ditujukan untuk kita, tulisan itu diposting di halamanya, tentu tweet tersebut jadi lebih berkesan, kita jadi sungkan jika tidak me-reply. Karena itu di twitter user harus lebih aktif “menyapa” supaya dapat banyak tweet balasan :) (Cara reply menggunakan simbol “@” baru-baru ini juga ditiru oleh facebook)
  5. Followings dan followers
  6. Di twitter, kalau kita ingin mengikuti update status seseorang, harus menjadi “follower” tanpa “meminta” pertemanan (kecuali untuk yang mengaktifkan privacy). Jika di-follow, kita tidak harus membalas menjadi follower dia. Jadi timeline hanya berisi update status orang-orang yang kita pilih saja. Jika suatu saat tidak suka, kita bisa unfollow orang tersebut, otomatis update statusnya tidak ada dalam timeline kita. Di facebook, semua teman bisa membaca update status kita. Sebaliknya, kita juga bisa membaca update status semua teman kita itu. Tidak dibedakan apakah teman akrab / dekat, atau teman yang belum kenal sekalipun. Update status semua teman muncul di beranda kita, sulit mengatur supaya di beranda hanya muncul update status orang-orang yang kita pilih, mungkin caranya hanya dengan “memutuskan pertemanan”.
  7. Tanpa konfirmasi
  8. Di Twitter, Jika tidak mengaktifkan privacy, maka semua orang bisa membaca update status kita, termasuk orang yang belum punya akun twitter. Semua orang juga bisa follow tanpa harus meminta konfirmasi dari kita. Mungkin alasan ini yang membuat beberapa artis, selebritis, politikus, mentri, sampai presiden punya twitter. Akun mereka biasanya di follow oleh ribuan orang. Kalau di facebook tentu repot mengkonfirmasi satu-persatu permintaan teman yang jumlahnya puluhan ribu :).
  9. No game No quiz
  10. Sebenarnya layanan resmi dari twitter hanya update status tanpa aplikasi lain seperti foto, video, dan lain-lain. Jika di twitter bisa melakukan itu adalah karena bantuan aplikasi di luar twitter. Karena hanya update status, maka pembicaraan di twitter akan lebih fokus dan menarik, misalnya ketika ada musibah gempa, berita di twitter akan terasa lebih aktual. Sementara di facebook pada saat yang sama (saat terjadi gempa) masih terlihat orang-orang yang sibuk main game (contoh: mafia wars, pet society dan lain-lain), atau muncul juga laporan quiz-quiz yang kurang penting. Baru-baru ini facebook telah mengeluarkan versi lite dimana tidak memunculkan game dan quiz di beranda kita. (merasa tersaingi twitter?)
  11. Hashtags (#) dan Trending Topic
  12. Hashtags dipakai untuk menandai topik tertentu dalam pembicaraan di twitter, simbol yang digunakan adalah “#”. Dengan menggunakan hashtags, update status bisa dikelompokkan berdasarkan topik dalam hasil pencarian. Beberapa contoh hashtags yang pernah menjadi Trending Topic: #indonesiaunite, #jamansd, #mbahsurip, #pengakuan
    Trending topic adalah topik-topik yang sedang ramai dibicarakan oleh tweeps, biasanya ditampilkan 10 list di sidebar kanan timeline. Trending topic bisa bermanfaat bagi corporate branding dalam target pemasaran mereka, bisa pula bermanfaat bagi politikus untuk melihat isu-isu aktual, dan bermanfaat untuk siapa saja dalam mengikuti trend global, contoh: rilis film terbaru. Dan masih banyak manfaat lainnya. Hashtags dan Trending topic ini belum ada di facebook
  13. Banyak tools dan aplikasi pendukung
  14. Coba lihat timeline twitter kita, postingan tweet berasal dari macam-macam tools atau aplikasi, misalnya: tweetdect, ubertwitter, tweete, hahlo, twitpic, twhirl, twitterfox, dan lain-lain kalau disebutkan bisa ratusan :) salah satu contoh list aplikasi / tools pendukung twitter silahkan cek disini. Dan aplikasi tersebut bisa dipakai dari bermacam-macam platform: mulai web, mobile, Blackberry, iPhone, dan lain-lain. Kadang di beberapa aplikasi malah memiliki fitur yang lebih lengkap, lebih kompleks, lebih canggih daripada akses lewat web twitter itu sendiri. Misalnya di web twitter tidak ada fasilitas RT (retweet) tapi di aplikasi lainnya ada, di twitter tidak bisa upload foto, tapi kita bisa upload foto di twitpic. dan lain-lain. Sangat fleksibel. Lalu apakah facebook memiliki tools/aplikasi pendukung sebanyak twitter? jawabannya adalah: “tidak” :)
  15. Posting bersama berdasarkan group / minat
  16. Satu hal lagi yang belum ada di facebook adalah group posting, atau postingan orang banyak yang muncul dalam satu akun twitter. Contohnya: @infoll info lalu lintas jabotabek dan seluruh Indonesia, Grup-grup tersebut memiliki fungsi dan karakteristik masing-masing, ada yang informatif, kuliner, gokil, pasar, sampai religius, semuanya ada (dan masih banyak grup lainnya)postingan gokil yang pernah menjadi trending topic
  17. Mudah ditampilkan di Web / Blog
  18. Postingan twitter bisa kita tampilkan di web / blog, baik berupa widget juga bisa diintegrasikan bersama postingan konten. Postingan twitter juga memiliki RSS feed, sehingga data mentah dari twitter bisa flexibel di tampilkan dimana saja. Sebaliknya, update status di facebook belum bisa ditampilkan di web/blog dalam bentuk text. bisa ditampilkan tapi dalam bentuk image bersama widget facebook badge, tentunya sangat terbatas pengaturannya. Ada sangat banyak plugin pendukung twitter untuk CMS WordPress *mungkin jumlahnya mencapai puluhan atau ratusan, silahkan cek sendiri :)*. Sedangkan plugin twitter untuk CMS Joomla sudah mencapai 69 plugin (berdasarkan hasil pencarian).
  19. Banyak free icon
  20. Burung berwarna biru adalah salah satu contoh icon paling popular untuk twitter, ada juga icon huruf “t” kecil yang diambil dari logo twitter. Icon-icon tersebut sangat banyak kita temui. Kita bisa download secara gratis, dan kita bisa memakainys sebagai banner atau button atau icon di website kita.
    referensi : www.myfreeareas.co.cc/2010/10/10-alasan-mengapa-twitter-lebih-menarik.html
     
     
     

Rabu, 20 Juli 2011

Daftar Situs Pendidikan Terbaik

http://www.dikti.org/ Direktorat Pendidikan Tinggi (Dikti)
http://www.setjen.depdiknas.go.id/ Situr Resmi Sekretariat Jenderal Departemen Pendidikan Nasional
http://www.balitbang.depdiknas.go.id/ Situs Badan Penelitian dan Pengembangan Departemen Pendidikan Nasional
http://www.pustekkom.go.id/ Pusat Teknologi Komunikasi dan Informasi Departemen Pendidikan Nasional
http://www.dikdasmen.org/  Direktorat Jenderal Pendidikan Dasar dan Menengah
http://ditptksd.go.id/ Direktorat Pembinaan TK dan SD
http://www.dit-plp.go.id/ Direktorat Pendidikan Lanjutan Pertama
http://www.dikmenum.go.id/ Direktorat Pendidikan Menengah Umum
http://www.dikmenjur.go.id/ Direktorat Pendidikan Menengah Kejuruan

http://www.e-dukasi.net/  situs pendidikan untuk SMP,SMA,SMK
http://www.pesonaedu.com/  situs belajar matematika dan sains
http://duniabelajar.com/ situs pendidikan untuk SD
http://www.e-smartschool.com/ situs pendidikan untuk SD, SMP, SMA
http://www.bukamata.com situs berhitung untuk anak
http://www.fourthr.com situr pelatihan komputer
http://www.fisikanet.lipi.go.id situs belajar fisika
http://ww.edu-artikel.com situs artikel pendidikan
http://www.absasi.com/ situs pendidikan komputer
http://www.santalusia.com/ situs pendidikan komputer
http://www.pendidikan.tv/ situs pendidikan komputer
http://www.chem-is-try.org/ situs belajar fisika
http://www.ixl.com/ situs matematika anak
http://www.binus.ac.id/ situs resmi Universitas Bina Nusantara
http://www.undip.ac.id/ situs resmi Universitas Diponegoro
http://www.its.ac.id situs resmi Institut Teknologi 10 N0v Surabaya
http://www.itb.ac.id/ situs resmi Institut Teknologi Bandung
http://www.ui.ac.id/ situs resmi Universitas Indonesia
http://www.trisakti.ac.id/ situs resmi Universitas Trisakti
http://www.usk.ac.id/ situs resmi Universitas Syiah Kuala

Daftar Situs yang Sering Dikunjungi Orang Indonesia

Ringkasan ini tidak tersedia. Harap klik di sini untuk melihat postingan.

Selasa, 19 Juli 2011

Sejarah internet

Internet atau kepanjangannya dari Interconnected Network adalah sebuah sistem komunikasi global yang menghubungkan komputer-komputer dan jaringan-jaringan komputer di seluruh dunia, dimana di dalamnya terdapat berbagai sumber daya informasi dari mulai yang statis hingga yang dinamis dan interaktif.
Sejarah kemunculan dan perkembangan Internet dimulai pada :
Tahun 1962
Departemen Pertahanan Amerika, U.S. Defense Advanced Research Projects Agency(DARPA) memutuskan untuk mengadakan riset tentang bagaimana caranya menghubungkan sejumlah komputer sehingga membentuk jaringan organik. Program riset ini dikenal dengan nama ARPANET, yang tak lain untuk menghindari pemusatan informasi di satu titik yang dipandang rawan untuk dihancurkan apabila terjadi peperangan. Dengan cara ini diharapkan apabila satu bagian dari jaringan terputus, maka jalur yang melalui jaringan tersebut dapat secara otomatis dipindahkan ke saluran lainnya.
Tahun 1970
Sudah lebih dari 10 komputer yang berhasil dihubungkan satu sama lain sehingga mereka bisa saling berkomunikasi dan membentuk sebuah jaringan.
Tahun 1972
Roy Tomlinson berhasil menyempurnakan program e-mail yang ia ciptakan setahun yang lalu untuk ARPANET. Program e-mail ini begitu mudah sehingga langsung menjadi populer. Pada tahun yang sama, icon @juga diperkenalkan sebagai lambing penting yang menunjukkan “at” atau “pada”.
Tahun 1973
Jaringan komputer ARPANET mulai dikembangkan ke luar Amerika Serikat. Komputer University College di London merupakan komputer pertama yang ada di luar Amerika yang menjadi anggota jaringan Arpanet. Pada tahun yang sama, dua orang ahli komputer yakni Vinton Cerf dan Bob Kahn mempresentasikan sebuah gagasan yang lebih besar, yang menjadi cikal bakal pemikiran internet. Ide ini dipresentasikan untuk pertama kalinya di Universitas Sussex.
Tahun 1976
Tepatnya tanggal 26 Maret 1976, merupakan hari bersejarah, ketika Ratu Inggris berhasil mengirimkan e-mail dari Royal Signals and Radar Establishment di Malvern. Setahun kemudian, sudah lebih dari 100 komputer yang bergabung di ARPANET membentuk sebuah jaringan atau network.
Tahun 1979
Tom Truscott, Jim Ellis dan Steve Bellovin, menciptakan newsgroups pertama yang diberi nama USENET.
Tahun 1981
France Telecom menciptakan gebrakan dengan meluncurkan telpon televisi pertama, dimana orang bisa saling menelpon sambil berhubungan dengan video link.
Tahun 1982
Karena komputer yang membentuk jaringan semakin hari semakin banyak, maka dibutuhkan sebuah protokol resmi yang diakui oleh semua jaringan. Pada tahun ini dibentuk Transmission Control Protocol atau TCP dan Internet Protokol atau IP yang kita kenal semua. Sementara itu di Eropa muncul jaringan komputer tandingan yang dikenal dengan Eunet, yang menyediakan jasa jaringan komputer di negara-negara Belanda, Inggris, Denmark dan Swedia. Jaringan Eunet menyediakan jasa e-mail dan newsgroup USENET.
Tahun 1984
Untuk menyeragamkan alamat di jaringan komputer yang ada, maka di tahun ini diperkenalkan sistem nama domain, yang kini kita kenal dengan DNS atau Domain Name System. Komputer yang tersambung dengan jaringan yang ada sudah melebihi 1000 komputer lebih. Pada 1987 jumlah komputer yang tersambung ke jaringan melonjak 10 kali lipat manjadi 10.000 lebih.
Tahun 1988
Jarko Oikarinen dari Finland menemukan dan sekaligus memperkenalkan IRC atau Internet Relay Chat. Setahun kemudian, jumlah komputer yang saling berhubungan kembali melonjak 10 kali lipat dalam setahun. Tak kurang dari 100.000 komputer kini membentuk sebuah jaringan.
Tahun 1990
Merupakan  tahun yang paling bersejarah, ketika Tim Berners Lee menemukan program editor dan browser yang bisa menjelajah antara satu komputer dengan komputer yang lainnya, yang membentuk jaringan itu. Program inilah yang disebut www, atau Worl Wide Web.
Tahun 1992
Komputer yang saling tersambung membentuk jaringan sudah melampaui sejuta komputer, dan di tahun yang sama muncul istilah surfing the internet.
Tahun 1994
Situs internet telah tumbuh menjadi 3000 alamat halaman, dan untuk pertama kalinya virtual-shopping atau e-retail muncul di internet. Dunia langsung berubah. Di tahun yang sama Yahoo! didirikan, yang juga sekaligus kelahiran Netscape Navigator 1.0.
Sedangkan Sejarah Internet sendiri di Indonesia bermula pada awal tahun 1990-an, saat itu jaringan internet di Indonesia lebih dikenal sebagai paguyuban network, dimana semangat kerjasama, kekeluargaan & gotong royong sangat hangat dan terasa diantara para pelakunya. Agak berbeda dengan suasana Internet Indonesia pada perkembangannya yang terasa lebih komersial dan individual di sebagian aktifitasnya terutama yang melibatkan perdagangan Internet. Dan baru bisa menikmati layanan Internet komersial pada sekitar tahun 1994.
Referensi : http://anriz.com/sejarah-internet-dunia/

Kamis, 14 Juli 2011

Internet Pencegah PIKUN ???

Ini adalah berita gembira bagi para netters dan bloggers pada umumnya sekaligus bagi para lanjut usia ( lansia ) khususnya.

Karena dengan mengakses internet, kita tidak hanya dapat mengetahui informasi tetapi dengan surfing di dunia maya ini, dapat membantu untuk memperbaiki dan melatih fungsi otak.

Dan ini, khususnya bagi lansia, dapat mencegah pikun (dementia) yang seringkali mengancam orang lanjut usia, karena dengan mengakses internet berarti kita sudah melakukan atau melibatkan otak dalam sebuah aktivitas yang cukup rumit sehingga fungsi otak tetap dapat dipertahankan.

Dengan surfing di internet, ibaratnya kita seperti membaca sebuah buku, sehingga bagian otak yang berfungsi untuk pengendalian bahasa, pengendalian daya ingat dan daya visual akan ikut bekerja, bahkan menambahkan aktivitas tambahan bagi otak yaitu untuk pengendalian keputusan dan pertimbangan.

Ini yang membedakannya dengan membaca, karena bila kita surfing di internet maka kita akan dihadapkan dengan berbagai macam pilihan informasi yang harus kita pilih atau kita klik, dengan adanya keputusan yang harus dibuat inilah aktivitas bagian otak untuk pembuatan keputusan dan pertimbangan akan terus diasah.

Nah, bila lansia sering2 mencari informasi di internet akan menghambat sejumlah proses penuaan pada otak seperti pengurangan atau penciutan aktivitas sel otak dan akan membuat orang tua ini tetap segar ingatannya.

Ada juga beberapa kegiatan lain yang disinyalir dapat juga mencegah dementia/pikun yaitu bermain puzzle, bermain musik, main catur dan juga harus dibantu dengan menjaga makanan dengan gizi yang seimbang dan tidak lupa pula dengan olah raga yang teratur.


http://wahw33d.blogspot.com/2011/03/internet-pencegah-pikun.html#ixzz1Hs7mwhD9My sharing

Yang Paling Banyak Dicari di Internet

Ngomong...ngomong internet, kira-kira apa sich yang paling banyak dicari atau menjadi Hot Topics...., berikut ini adalah hal-hal yang paling banyak dicari di internet ......
1.    Software
Orang yang mengakses internet tentunya sebagian besar masih jauh lebih nyaman menggunakan notebook/laptop atau PC, dan tentunya mesin komputer seperti itu sangat membutuhkan software software tertentu agar bisa kita manfaatkan secara optimal.
2.    MP3/MP4
Apabila di komputer anda saat ini banyak koleksi MP3, pasti sebagian besar dari internet...hehehehehe...
3.    Game
Siapa sich yang gak ngerti game, apalagi sekarang banyak sekali Game online, mulai anak kecil sampai orang tua pasti suka....
4.    Buku
Apalagi bukunya gratis... , di internet banyak sekali ebook-ebook gratis lho...
5.    Jual Beli Online
Sudah jamannya beli tinggal klik n tidak berdesakan ato antri
6.    Hal hal yang berbau Gratis
Ini dia yang paling disuka orang.....kamu pun demikian khan..????
7.    Bisnis
Bisnis internet sedang menjamur... 
8.    Berita, Gosip & Info terbaru
Hahahaha .....siapa sich yang gak suka berita baru...
9.    Video dan Film    
Apalagi yang ini, pasti semua nyari....  


Semoga analisa ini banyak membantu.... 
salam PASTI !

Rabu, 13 Juli 2011

Yang Terjadi di Internet Selama 60 Detik

Apa yang terjadi jika kamu tidak terkoneksi dengan internet selama 60 detik? dan apa saja yang terupdate hanya dalam kurung waktu 1 menit tersebut? dan inilah beberapa hal yang akan kamu lewatkan hanya dalam 1 menit :
  • 1500+ postingan di blog
  • 98,000 twit terbaru
  • 12,000 iklan terbaru di craiglist(FJB Terbesar)
  • 20,000 postingan terbaru di Tumblr
  • 600 video terbaru di Youtube
  • 70 Domain Didaftarkan
  • 13,000 Aplikasi iPhone telah diunduh
  • 320 Akun Twitter terbaru
  • 100 Akun Linkedin terbaru
  • 6,600 Foto dipublish di Flickr
  • 125 Plugin WordPress terunduh
  • 50 Core WordPress terunduh
  • 79,364 Wall terkirim di Facebook
  • 695,000 Status Facebook diupdate
  • 510,040 Komentar muncul di Facebook
  • 1,700 Aplikasi Mozilla Firefox terunduh
  • 694,445 kata dicari di Google
  • 168 Juta Email terkirim
  • 60 Blog terbaru dibuat
  • 40 Pertanyaan di Yahoo answer dan 100 jawaban diberikan
  • 1,600 Orang Membaca di Scribd
  • 1 Kata terdefinisi di Urban Dictonaries
  • total 370,000 menit telepon di Skype
  • 13,000 jam musik streaming di Pandora
Seperti itulah yang terjadi di internet selama 60 detik, dan kamu sekarang telah tahu kenapa 1 menit begitu berharga di dunia maya.
Data Statistik Oleh : Go-globe

Selasa, 12 Juli 2011

Blog, Rating Tinggi di Google...

Anda punya Blog dan ingin Blog Anda  Sukses Masuk 10 Besar di Google,  Ikutilah langkah-langkah berikut ini :

1. Tentukan judul artikel yang akan diposting, Misalnya Alternative Adsense Pay Per Click Indonesia.
2. Pilih minimal 3 kata kunci yang ada di judul posting, misalnya kita pilih Adsense, Pay Per Click, dan Indonesia.
3. Tulis ulang ketiga kata kunci ini di paragraf pertama.
4. Di paragraf berikutnya masukkan lagi kata kunci tersebut secara terpisah. Gunakan kalimat yang baik, jangan terkesan mengulang-ngulang kata kunci.
5. Pada paragraf terakhir ulang sekali lagi kata kunci Alternative Adsense Pay Per Click Indonesia.
6. Masih ingat Cara optimalkan blog description, jangan lupa, masukkan juga ketiga kata kunci tersebut dalam description blog Anda.

Semoga Sukses...

Senin, 11 Juli 2011

Akibat Kecanduan Facebook...

Sssstttttt...., foto disamping adalah akibat kecanduan Facebook....., tapi bagus juga untuk selalu update informasi dan pertemanan...
Waspadalah...waspadalah...!!!!





Ada apa dengan GOOGLE


1.Google doodle yang pertama
Setiap orang pasti kenal dengan logo milik Google, simple dan begitu kita masuk halaman website google tersebut kita disambut dengan tulisan /logo Google yang cukup besar sehingga kita bisa mengingat logo Google tersebut dengan jelas. Tapi taukah kamu, google doodle pertama kali didesign dengan pesan berupa "out of office". Pada tahun 1998, Brin dan Page mengambil liburan akhir pekan mereka untuk pergi ke Burning Man Festival di Nevada. Burning Man doodle, didesign oleh orang-orang google dan ditaruh di homepage google, agar pengguna mengerti bahwa mereka sedang keluar dari kantor dan tidak dapat memperbaiki masalah-masalah teknis seperti crashnya server.

2. Angka menarik dari Google IPO
Salah satu fakta menarik yang dimiliki Google adalah Google memiliki nilai sebesar $ 2.718.281.828, dimana angka tersebut merupakan sepuluh digit pertama dari matematika konstant yaitu "e".

3. Tempat penyimpanan Google pertama kali terbuat dari LEGO
Tempat penyimpanan data yang dimiliki Google pertama kali terbuat dari LEGO, yang memiliki kapasitas penyimpanan sebesar 40 GB ( lebih kecil dari iPod Modern ).

4. Tweet pertama Google
Tweet pertama Google dikirim pada bulan februari 2009, yang berisi "“I’m 01100110 01100101 01100101 01101100 01101001 01101110 01100111 00100000 01101100 01110101 01100011 01101011 01111001 00001010.” Bagi anda yang tidak mengerti bilangan biner, arti dari bilangan ini adalah "I'm Feeling Lucky".

5. Google menyewa kambing
Google menyewa kambing, kalimat ini tidak hanya gurauan belaka, Google sengaja menyewa kambing-kambing dari California Grazing untuk mengurangi rumput-rumput yang ada di kantor Google. Google sengaja menyewa kambing-kambing ini karena menurut mereka kambing lebih ramah lingkungan dibanding dengan mesin pemotong rumput.

6. Google memberi pengaruh terhadap bahasa
pada tahun 2006, Meriam Webster dan Oxford English Dictionary memasukan "Google" ke dalam kosakata yang ada dalam kamus mereka.

7. Google adalah perusahaan pecinta anjing
Google adalah perusahaan yang sangat dekat dengan anjing, karena setiap karyawannya diperbolehkan membawa anjing ke kantor Google. Seperti anjing yang ada pada gambar diatas adalah anjing yang dimiliki oleh Urs Holzle, senior VP operation Google yang bernama Yoshka.

8. "Swedish Fish" snack resmi pertama di Google
pada february, 1999, permen karet "Swedish Fish" menjadi snack yang diorder pertama untuk dinikmati di kantor Google.Google adalah industri yang memberikan karyawannya minuman dan snack secara gratis. Bukan hanya itu saja, Google memberikan makan sebanyak 3 kali sehari kepada karyawannya, dan selama musim panas karyawan Google dapat menikmati BBQ yang ada di kantor google. Tetapi jika anda bekerja sebagai karyawannya, anda tidak perlu kuatir jika anda takut gemuk. karena Google memiliki Google gym.

9. Logo yang dimiliki Google tidak berada di tengah sampai 2001
Logo yang dimiliki Google tidak berada ditengah sampai pada 31 Maret 2001. Sebelumnya logo Google tersebut ada di posisi rata kiri, tidak beda jauh seperti logo yang dimiliki yahoo.

10. Google memiliki Dinosaurus di kantornya
Untuk menghilangkan kejenuhan yang ada di kantor, Google sepertinya tidak berhenti membuat sesuatu yang unik di kantornya. Jika anda masuk ke dalam kantor Google, maka anda akan menemukan sebuah tulang dinosaurus berjenis T-rex yang diberi nama "Stan", yang ditaruh dihalaman kantor Google. Dapat dibayangkan betapa menyenangkannya menjadi bagian dari Google, karena hidup dalam lingkungan kantor Google pastinya akan jauh dari kejenuhan.

Internet dan Perkembangannya...

Teknologi Informasi dan Telekomunikasi (Information and Communication Technology/ICT) merupakan tulang punggung aplikasi Web 2.0. Perkembangan Teknologi Informasi dan Komunikasi yang fenomenal dan menjadi awal munculnya aplikasi web adalah Internet. Internet yang berawal dari riset untuk pertahanan dan keamanan serta pendidikan berkembang menjadi perangkat pendukung bisnis yang sangat berpengaruh. Dalam kaitan dengan aplikasi Web 2.0 ini, terdapat beberapa peristiwa penting dalam sejarah internet.
Berawal pada tahun 1957, melalui Advanced Research Projects Agency (ARPA), Amerika Serikat bertekad mengembangkan jaringan komunikasi terintegrasi yang saling menghubungkan komunitas sains dan keperluan militer. Hal ini dilatarbelakangi oleh terjadinya perang dingin antara Amerika Serikat dengan Uni Soviet (tahun 1957 Soviet meluncurkan sputnik).
Perkembangan besar Internet pertama adalah penemuan terpenting ARPA yaitu packet switching pada tahun 1960. Packet switching adalah pengiriman pesan yang dapat dipecah dalam paket-paket kecil yang masing-masing paketnya dapat melalui berbagai alternatif jalur jika salahsatu jalur rusak untuk mencapai tujuan yang telah ditentukan. Packet switching juga memungkinkan jaringan dapat digunakan secara bersamaan untuk melakukan banyak koneksi, berbeda dengan jalur telepon yang memerlukan jalur khusus untuk melakukan koneksi. Maka ketika ARPANET menjadi jaringan komputer nasional di Amerika Serikat pada 1969, packet switching digunakan secara menyeluruh sebagai metode komunikasinya menggantikan circuit switching yang digunakan pada sambungan telepon publik.
Perkembangan besar Internet kedua yang dicatat pada sejarah internet adalah pengembangan lapisan protokol jaringan yang terkenal karena paling banyak digunakan sekarang yaitu TCP/IP (Transmission Control Protocol/ Internet Protocol). Protokol adalah suatu kumpulan aturan untuk berhubungan antarjaringan. Protokol ini dikembangkan oleh Robert Kahn dan Vinton Cerf pada tahun 1974. Dengan protokol yang standar dan disepakati secara luas, maka jaringan lokal yang tersebar di berbagai tempat dapat saling terhubung membentuk jaringan raksasa bahkan sekarang ini menjangkau seluruh dunia. Jaringan dengan menggunakan protokol internet inilah yang sering disebut sebagai jaringan internet.
Jaringan ARPANET menjadi semakin besar sejak saat itu dan mulai dikelola oleh pihak swasta pada tahun 1984, maka semakin banyak universitas tergabung dan mulailah perusahaan komersial masuk. Protokol TCP/IP menjadi protokol umum yang disepakati sehingga dapat saling berkomunikasi pada jaringan internet ini.
Perkembangan besar Internet ketiga adalah terbangunnya aplikasi World Wide Web pada tahun 1990 oleh Tim Berners-Lee. Aplikasi World Wide Web (WWW) ini menjadi konten yang dinanti semua pengguna internet. WWW membuat semua pengguna dapat saling berbagi bermacam-macam aplikasi dan konten, serta saling mengaitkan materi-materi yang tersebar di internet. Sejak saat itu pertumbuhan pengguna internet meroket.

Referensi : http://www.sejarah-internet.com/

Rabu, 06 Juli 2011

Perintah Khusus Pencarian Di Google


inurl: ialah sintaks perintah untuk membatasi pencarian yang hanya menghasilkan semua URL yang hanya berisi kata kunci informasi yang dimaksudkan. Sebagai contoh pencarian dalam pencarian,”inurl : database mdb”. Pencarian akan menghasilkan semua URL yang hanya mengandung informasi tentang “database mdb “.

cache: akan menunjukkan daftar web yang telah masuk kedalam indeks database Google. Sebagai contoh:
“cache:deffcon.org”, pencarian akan memperlihatkan list yang disimpan pada Google untuk page deffcon.org

link: ialah sintaks perintah pada Google yang akan menunjukkan daftar list webpages yang memiliki link pada webpage special. Sebagai contoh:“link:www.securityfocus.com” akan menunjuukan daftar webpage yang memiliki point link pada page SecurityFocus.

filetype: ialah sintaks perintah pada Google untuk pencarian data pada internet dengan ekstensi tertentu (i.e. doc, pdf or ppt etc). Sebagai contoh pada pencarian : “filetype:doc site:go.id confidental” ( tanpa tanda kutip). Pencarian akan menghasilkan file data dengan ekstensi “.doc” pada semua domain go.id yang berisi informasi “confidential”.

Intitle: ialah sintaks perintah untuk membatasi pencarian yang hanya menghasilkan judul yang mengandung informasi pada topik yang
dimaksud. Sebagai contoh pada pencarian, “intitle:
password admin “ ( tanpa tanda kutip ). Pencarian akan mencari page yang mengandung kata “ password “ sebagai judulnya dengan prioritas utama “admin” .
Jika pada pencarian terdapat dua query pencarian utama, digunakan sintaks allintitle: untuk pencarian secara lengkap. Sebagai contoh pada pencarian “allintitle:admin mdb”. Maka pencarian akan dibatasi pada dua subjek utama judul yaitu “admin” dan “mdb”.

related: sintaks ini akan memberikan daftar web pages yang serupa dengan web page yang di indikasikan.
Sebagai contoh: “related:www.securityfocus.com”, pencarian akan memberi daftar web page yang serupa dengan homepage Securityfocus.

link: ialah sintaks perintah pada Google yang akan menunjukkan daftar list webpages yang memiliki link pada webpage special. Sebagai contoh:“link:www.securityfocus.com” akan menunjuukan daftar webpage yang memiliki point link pada page SecurityFocus.

intext: sintaks perintah ini akan mencari kata kata pada website tertentu. Perintah ini mengabaikan link atau URL dan judul halaman. Sebagai contoh :
“intext:admin” (tanpa tanda petik), pencarian akan menghasilkan link pada web page yang memiliki keyword yang memiliki keyword admin.

Selasa, 05 Juli 2011

Fungsi Terbilang

Public Function Terbilang(sNilai As String) As String
Dim iPanjang%: Dim iDigit%
Dim iAngka%: Dim iSisa%
Dim iLoop%: Dim iLoopSatuan%
Dim iBatas%

Dim sAngka(9) As String
Dim sDigit() As String
Dim sDigitKalimat() As String
Dim sSatuan(6) As String
Dim sKalimat$: Dim sTeksAngka$
Dim sTeksDigit$: Dim sNilaiPoint$
Dim sDigitPoint() As String
Dim sDigitKalimatPoint() As String
Dim sTeksAngkaPoint$
Dim sNol$: Dim iNol As Integer

Dim bSe As Boolean

sAngka(0) = ""
sAngka(1) = "satu "
sAngka(2) = "dua "
sAngka(3) = "tiga "
sAngka(4) = "empat "
sAngka(5) = "lima "
sAngka(6) = "enam "
sAngka(7) = "tujuh "
sAngka(8) = "delapan "
sAngka(9) = "sembilan "

sSatuan(1) = ""
sSatuan(2) = "ribu "
sSatuan(3) = "juta "
sSatuan(4) = "milyar "
sSatuan(5) = "trilyun "
sSatuan(6) = "bilyun "

If InStr(sNilai, ",") <> 0 Then
sNilaiPoint = Mid(sNilai, InStr(sNilai, ",") + 1)
sNilai = Left(sNilai, InStr(sNilai, ",") - 1)
ElseIf InStr(sNilai, ".") <> 0 Then
sNilaiPoint = Mid(sNilai, InStr(sNilai, ".") + 1)
sNilai = Left(sNilai, InStr(sNilai, ".") - 1)
End If

iLoop = 0
Do While iLoop < Len(sNilaiPoint)
iLoop = iLoop + 1
Select Case Mid(sNilaiPoint, iLoop, 1)
Case "0"
sNol = "nol " & sNol
iNol = iNol + 1
Case Else
Exit Do
End Select
Loop

If sNilaiPoint <> "" Then
sNilaiPoint = Mid(sNilaiPoint, iNol + 1)
End If

'Nilai di belakang koma
Select Case Len(sNilaiPoint)
Case Is > 0
iPanjang = Len(Trim(sNilaiPoint))
Select Case iPanjang Mod 3
Case 0
iDigit = iPanjang / 3
iSisa = 3
Case Else
iDigit = (iPanjang \ 3) + 1
iSisa = iPanjang Mod 3
End Select

ReDim sDigitPoint(iDigit)
ReDim sDigitKalimatPoint(iDigit)

iLoop = 0
While iLoop < iDigit
iLoop = iLoop + 1
Select Case iLoop
Case iDigit
sDigitPoint(iLoop) = Right(sNilaiPoint, iSisa)
Case Else
sDigitPoint(iLoop) = Right(sNilaiPoint, 3)
sNilaiPoint = Left(sNilaiPoint, Len(sNilaiPoint) - 3)
End Select
Wend

sTeksAngka = ""
For iLoop = 1 To iDigit
sNilaiPoint = sDigitPoint(iLoop)

Select Case iLoop
Case iDigit
iBatas = iSisa
Case Else
iBatas = 3
End Select

sTeksAngka = sSatuan(iLoop)

For iLoopSatuan = 1 To iBatas
iAngka = Val(Right(sNilaiPoint, 1))
sNilaiPoint = Left(sNilaiPoint, iBatas - iLoopSatuan)
Select Case iLoopSatuan
Case 2

Select Case iAngka
Case Is <> 0

Select Case iAngka
Case 1

bSe = True
If Val(Right(sDigitPoint(iLoop), 1)) = 0 Then
sTeksAngka = "sepuluh " & sSatuan(iLoop)
ElseIf Val(Right(sDigitPoint(iLoop), 1)) = 1 Then
sTeksAngka = "sebelas " & sSatuan(iLoop)
Else
sTeksAngka = sAngka(Val(Right(sDigitPoint(iLoop), 1))) & _
"belas " & sSatuan(iLoop)
End If

Case Else

bSe = False
sTeksAngka = "puluh " & sTeksAngka

End Select

End Select

Case 3

Select Case iAngka
Case Is <> 0

Select Case iAngka
Case 1

bSe = True
sTeksAngka = "seratus " & sTeksAngka

Case Else

sTeksAngka = "ratus " & sTeksAngka

End Select

End Select

End Select

Select Case bSe
Case True
bSe = False
Case Else

Select Case iLoop
Case 2

If Right(sDigitPoint(2), 1) = 1 And iLoopSatuan = 1 Then
If Len(sDigitPoint(2)) = 1 Then
sTeksAngka = "se" & sTeksAngka
ElseIf Val(Mid(sDigitPoint(2), Len(sDigitPoint(2)) - 1, 1)) = 0 Then
sTeksAngka = "se" & sTeksAngka
Else
sTeksAngka = sAngka(iAngka) & sTeksAngka
End If
Else
sTeksAngka = sAngka(iAngka) & sTeksAngka
End If

Case Else

sTeksAngka = sAngka(iAngka) & sTeksAngka

End Select

End Select
Next

sDigitKalimatPoint(iLoop) = sTeksAngka
sTeksAngka = ""
Next

For iLoop = 1 To iDigit

Select Case sDigitKalimatPoint(iLoop)
Case Is <> sSatuan(iLoop)
sTeksAngka = sDigitKalimatPoint(iLoop) + sTeksAngka
End Select

Next

Select Case sTeksAngka
Case "": sTeksAngka = "nol "
End Select

sTeksAngkaPoint = "koma " & sNol & sTeksAngka

End Select

iPanjang = Len(Trim(sNilai))
Select Case iPanjang Mod 3
Case 0
iDigit = iPanjang / 3
iSisa = 3
Case Else
iDigit = (iPanjang \ 3) + 1
iSisa = iPanjang Mod 3
End Select

ReDim sDigit(iDigit)
ReDim sDigitKalimat(iDigit)

iLoop = 0
While iLoop < iDigit
iLoop = iLoop + 1

Select Case iLoop
Case iDigit
sDigit(iLoop) = Right(sNilai, iSisa)
Case Else
sDigit(iLoop) = Right(sNilai, 3)
sNilai = Left(sNilai, Len(sNilai) - 3)
End Select

Wend

sTeksAngka = ""
For iLoop = 1 To iDigit
sNilai = sDigit(iLoop)
Select Case iLoop
Case iDigit
iBatas = iSisa
Case Else
iBatas = 3
End Select

sTeksAngka = sSatuan(iLoop)

For iLoopSatuan = 1 To iBatas


iAngka = Val(Right(sNilai, 1))
sNilai = Left(sNilai, iBatas - iLoopSatuan)

Select Case iLoopSatuan
Case 2
Select Case iAngka
Case Is <> 0
Select Case iAngka
Case 1

bSe = True
If Val(Right(sDigit(iLoop), 1)) = 0 Then
sTeksAngka = "sepuluh " & sSatuan(iLoop)
ElseIf Val(Right(sDigit(iLoop), 1)) = 1 Then
sTeksAngka = "sebelas " & sSatuan(iLoop)
Else
sTeksAngka = sAngka(Val(Right(sDigit(iLoop), 1))) & _
"belas " & sSatuan(iLoop)
End If

Case Else

bSe = False
sTeksAngka = "puluh " & sTeksAngka
End Select

End Select
Case 3
Select Case iAngka
Case Is <> 0
Select Case iAngka
Case 1
bSe = True
sTeksAngka = "seratus " & sTeksAngka
Case Else
sTeksAngka = "ratus " & sTeksAngka
End Select
End Select
End Select

Select Case bSe
Case True
bSe = False

Case Else
Select Case iLoop
Case 2
If Right(sDigit(2), 1) = 1 And iLoopSatuan = 1 Then
If Len(sDigit(2)) = 1 Then
sTeksAngka = "se" & sTeksAngka
ElseIf Val(Mid(sDigit(2), Len(sDigit(2)) - 1, 1)) = 0 Then
sTeksAngka = "satu " & sTeksAngka
Else
sTeksAngka = sAngka(iAngka) & sTeksAngka
End If
Else
sTeksAngka = sAngka(iAngka) & sTeksAngka
End If
Case Else
sTeksAngka = sAngka(iAngka) & sTeksAngka
End Select

End Select
Next
sDigitKalimat(iLoop) = sTeksAngka
sTeksAngka = ""
Next

For iLoop = 1 To iDigit
Select Case sDigitKalimat(iLoop)
Case Is <> sSatuan(iLoop): sTeksAngka = sDigitKalimat(iLoop) + sTeksAngka
End Select
Next

Select Case sTeksAngka
Case "": sTeksAngka = "nol "
End Select

Terbilang = StrConv(Trim(sTeksAngka + sTeksAngkaPoint), vbProperCase)

End Function


Penggunaan:

Text1.Text = Terbilang("12000,20")

Fungsi Menghitung Waktu

Fungsi berikut digunakan untuk menghitung waktu/tanggal secara lebih detail. Dimana fungsi berikut dapat menampilkan Hari Bulan dan Tahun dari hasil proses.

Fungsi tersebut juga dapat digunakan dalam menghitung tanggal lahir seseorang, hanya dengan memasukan 2 paramter untuk diproses.

Function cari_umur(TanggalAwal As Date, TanggalAkhir As Date) As String
On Error GoTo salah
Dim tahun As Long, bln As Integer, bulan As Integer, thn As Long
Dim Counter As Integer, hari As Integer

hari = Format(CDate(TanggalAwal), "d")
bln = Format(CDate(TanggalAwal), "m")
thn = Format(CDate(TanggalAwal), "yyyy")

Do Until (hari = Format(CDate(TanggalAkhir), "d") And _
bln = Format(CDate(TanggalAkhir), "mm") And _
thn = Format(CDate(TanggalAkhir), "yyyy"))
hari = hari + 1


If hari = Format(CDate(TanggalAwal), "d") Then
bulan = bulan + 1 'jumlah bulan
Counter = 0 'jumlah hari
If bulan = 12 Then
bulan = 0
tahun = tahun + 1 'jumlah tahun
End If
Else
Counter = Counter + 1
End If

If CDate(hari & "/" & bln & "/" & thn) = CDate(Trim(TanggalAkhir)) Then Exit Do
If bln = 1 And hari = 31 Then
bln = bln + 1: hari = 0
ElseIf bln = 2 And hari = 29 And thn Mod 4 = 0 Then
bln = bln + 1: hari = 0
ElseIf bln = 2 And hari = 28 And thn Mod 4 > 0 Then
bln = bln + 1: hari = 0
ElseIf bln = 3 And hari = 30 Then
bln = bln + 1: hari = 0
ElseIf bln = 4 And hari = 30 Then
bln = bln + 1: hari = 0
ElseIf bln = 5 And hari = 31 Then
bln = bln + 1: hari = 0
ElseIf bln = 6 And hari = 30 Then
bln = bln + 1: hari = 0
ElseIf bln = 7 And hari = 31 Then
bln = bln + 1: hari = 0
ElseIf bln = 8 And hari = 31 Then
bln = bln + 1: hari = 0
ElseIf bln = 9 And hari = 30 Then
bln = bln + 1: hari = 0
ElseIf bln = 10 And hari = 31 Then
bln = bln + 1: hari = 0
ElseIf bln = 11 And hari = 30 Then
bln = bln + 1: hari = 0
ElseIf bln = 12 And hari = 31 Then
bln = 1: thn = thn + 1: hari = 0
End If
Loop

cari_umur = Counter & " hari " & bulan & " bulan " & tahun & " tahun"
Exit Function
salah:
If Err.Number = 13 Then
MsgBox "format tanggal salah"
End If
End Function

Private Sub Command3_Click()
'Mulai tanggal - s/d tanggal
MsgBox cari_umur(CDate(Text1), CDate(Text2))
End Sub

Jumat, 03 Juni 2011

Selamat Datang

Selamat datang di pilihan pasti

Share

Twitter Delicious Facebook Digg Stumbleupon Favorites