Teknologi Informasi dan Komunikasi

BAB I

PENDAHULUAN

Seiring dengan kemajuan teknologi yang mengglobal telah terpengaruh dalam segala
aspek kehidupan baik di bidang ekonomi, politik, kebudayaan, seni dan bahkan di dunia pendidikan.
Kemajuan teknologi adalah sesuatu yang tidak bisa kita hindari dalam kehidupan ini, karena
kemajuan teknologi akan berjalan sesuai dengan kemajuanm ilmu pengetahuan. Setiap inovasi
diciptakan untuk memberikan manfaat positif bagi kehidupan manusia. Memberikan banyak
kemudahan, serta sebagai cara baru dalam melakukan aktifitas manusia. Khusus dalam bidang
teknologi informasi sudah menikmati banyak manfaat yang dibawa oleh inovasi-inovasi yang
telah dihasilkan dalam dekade terakhir ini. Namun demikian, walaupun pada awalnya diciptakan
untuk menghasilkan manfaat positif, di sisi lain juga memungkinkan digunakan untuk hal negatif.


Kehadiran TIK dalam pendidikan bisa dimaknai dalam tiga paradigma, yaitu

(1) TIK sebagai alat atau berupa produk teknologi yang bisa digunakan dalam pendidikan
(2) TIK sebagai konten atau sebagai bagian dari materi yang bisa dijadikan isi dalam pendidikan, dan
(3) TIK sebagai program aplikasi atau alat bantu untuk manajemen pendidikan yang efektif dan efisien.

Ketiga paradigma tersebut disinergikan dalam sebuah kerangka sumberdaya TIK yang secara khusus
diposisikan dan diarahkan untuk mencapai visi dan misi pendidikan di Indonesia. Di era globalisasi
pendidikan, disadari ataupun tidak, tantangan dunia pendidikan ke depan akan lebih berat.
Oleh karena itu, optimalisasi TIK menjadi salah satu alternatif solusi dalam menopang dan
menggerakkan dunia pendidikan di kancah persaingan global. Dalam dunia pendidikan di
Indonesia, ada beberapa alasan problematik yang melatarbelakangi pentingnya pemanfaatan TIK, terutama dalam

(1) meningkatkan mutu pendidikan di semua jenjang
(2) mengatasi kesenjangan layanan pendidikan akibat kondisi geografis yang mana jika diabaikan akan menimbulkan disparitas mutu layanan, dan
(3) perubahan sosio-budaya masyarakat yang bergerak dinamis, dan
(4) memupuk rasa nasionalisme untuk menjaga kesatuan dan persatuan bangsa

Rumusan Masalah
Dari permasalahan yang penulis angkat, dapat dirumuskan masalah sebagai berikut

1. Bagaimana pengaruh perkembangan teknologi informasi dan komunikasi terhadap aktivitas pendidikan?
2. Bagaimana cara mengatasi perkembangan teknologi informasi dan komunikasi terhadap aktivitas pendidikan

Tujuan Penulisan

Tujuan penulisan makalah ini untuk memenuhi tugas mata kuliah ICT  dan untuk meningkatkatkan
pengetahuan penulis dalam memahami dampak teknologi informasi dan komunikasi terhadap aktivitas pendidikan.

Metode Penulisan

Dalam penulisan makalah ini penulis menggunakan metode penjabaran materi, adapun teknik
yang digunakan yaitu studi pustaka dengan mempelajari buku-buku, browsing internet
dan sumber lain untuk mendapatkan data untuk pembuatan makalah ini.

Sistematika Penulisan

BAB I   : Pendahuluan, yang terdiri dari latar belakang, rumusan masalah, tujuan penulisan, metode penulisan, dan sistematika penulisan.
BAB II  : Pembahasan yang terdiri dari perkembangan teknologi menurut para ahli, Teknologi
          Informasi dan Komunikasi (TIK), implementasi TIK dalam dunia pendidikan, dampak TIK terhadap aktivitas
          pendidikan. permasalahan dan solusi internet dalam dunia pendidikan.
BAB III : Penutup, yang terdiri dari kesimpulan.

Daftar Pustaka

BAB II

PEMBAHASAN


A. Perkembangan Teknologi Menurut Para Ahli

Nana Syaodih S. (1997: 67) menyatakan bahwa sebenarnya sejak dahulu teknologi sudah
ada atau manusia sudah menggunakan teknologi. Kalau manusia pada zaman dulu memecahkan
kemiri dengan batu atau memetik buah dengan galah, sesungguhnya mereka sudah menggunakan
teknologi, yaitu teknologi sederhana.
Terkait dengan teknologi, Anglin mendefinisikan teknologi sebagai penerapan
ilmu-ilmu perilaku dan alam serta pengetahuan lain secara bersistem dan menyistem untuk
memecahkan masalah. Ahli lain, Kast & Rosenweig menyatakan Technology is the art of utilizing
scientific knowledge. Sedangkan Iskandar Alisyahbana (1980:1) merumuskan lebih jelas dan
lengkap tentang definisi teknologi yaitu cara melakukan sesuatu untuk memenuhi kebutuhan
manusia dengan bantuan alat dan akal sehingga seakan-akan memperpanjang, memperkuat, atau
membuat lebih ampuh anggota tubuh, panca indera, dan otak manusia

Menurut Iskandar Alisyahbana (1980) Teknologi telah dikenal manusia sejak jutaan
tahun yang lalu karena dorongan untuk hidup yang lebih nyaman, lebih makmur dan
lebih sejahtera. Jadi sejak awal peradaban sebenarnya telah ada teknologi, meskipun
istilah “teknologi belum digunakan. Istilah “teknologi” berasal dari “techne “ atau
cara dan “logos” atau pengetahuan. Jadi secara harfiah teknologi dapat diartikan
pengetahuan tentang cara. Pengertian teknologi sendiri menurutnya adalah cara melakukan
sesuatu untuk memenuhi kebutuhan manusia dengan bantuan akal dan alat, sehingga seakan-akan
memperpanjang, memperkuat atau membuat lebih ampuh anggota tubuh, pancaindra dan otak manusia.

Sedangkan menurut Jaques Ellul (1967: 1967 xxv) memberi arti teknologi sebagai”
keseluruhan metode yang secara rasional mengarah dan memiliki ciri efisiensi dalam setiap bidang kegiatan manusia

B.  Teknologi Informasi dan Komunikasi (TIK)
Di era globalisasi peranan TIK menjadi semakin penting digunakan untuk mengungkapkan data
dan fakta menjadi sebuah informasi yang bisa dimanfaatkan. Kontribusi TIK tidak terlepas
dari suatu tanggung jawab agar data dan fakta pendidikan dapat dikumpulkan, dikelola, disimpan, diteliti, dibuktikan
dan disebarkan agar masyarakat mendapatkan informasi penting dengan benar secara efektif dan efisien.
TIK pada hakikatnya adalah alat untuk mendapatkan nilai tambah dalam menghasilkan suatu informasi yang
cepat, lengkap, akurat, transfaran dan mutakhir. Salah satu manfaat yang dapat dirasakan dalam kontribusi
TIK adalah teknologi internet. Internet sebagai media informasi telah memberikan peluang bagi setiap orang.

Pengenalan Teknologi Informasi dan Komunikasi (TIK), diharapkan dapat membuat
perubahan pesat dalam kehidupan yang mengalami penambahan dan perubahan dalam penggunaan
beragam produk TIK. Melalui perangkat Teknologi Informasi dan
Komunikasi, kita bisa mencari, mengeksplorasi, menganalisis, dan saling tukar informasi secara efisien dan efektif.
TIK akan memudahkan kita, mendapatkan ide dengan cepat dan bertukar pengalaman dari berbagai kalangan.
Dengan demikian, diharapkan dapat mengembangkan sikap inisiatif dan kemampuan belajar
mandiri, sehingga kita dapat memutuskan dan mempertimbangkan sendiri kapan dan dimana
penggunaan TIK secara tepat dan optimal, termasuk implikasinya saat ini dan dimasa yang akan datang.

Teknologi Informasi dan Komunikasi mencakup dua aspek, yaitu Teknologi Informasi dan Teknologi Komunikasi
Teknologi Informasi, meliputi segala hal yang berkaitan dengan proses, penggunaan sebagai alat bantu, manipulasi, dan
pengelolaan informasi. Sedangkan Teknologi Komunikasi merupakan segala hal yang berkaitan dengan penggunaan
alat bantu untuk memproses dan mentransfer data dari perangkat yang satu ke lainnya. Oleh karena itu, Teknologi
Informasi dan Teknologi Komunikasi adalah suatu padanan yang tidak terpisahkan  yang mengandung pengertian
luas tentang segala kegiatan yang terkait dengan pemrosesan, manipulasi, pengelolaan, dan transfer/pemindahan informasi antar media

Secara khusus, tujuan mempelajari Teknologi Informasi dan Komunikasi adalah:

1.    Menyadarkan kita akan potensi perkembangan teknologi informasi dan komunikasi yang terus
        berubah sehingga termotivasi untuk mengevaluasi dan mempelajari teknologi ini sebagai dasar untuk belajar sepanjang hayat.
2.    Memotivasi kemampuan  kita agar bisa beradaptasi dan mengantisipasi perkembangan TIK, sehingga bisa
        melaksanakan dan menjalani aktifitas kehidupan sehari hari secara mandiri dan lebih percaya diri.
3.    Mengembangkan kompetensi kita dalam menggunakan Teknologi Informasi dan Komunikasi untuk
        mendukung kegiatan belajar, bekerja, dan berbagai aktifitas dalam kehidupan sehari hari.
4.    Mengembangkan kemampuan belajar berbasis TIK, sehingga proses pembelajaran dapat lebih
        optimal, menarik, dan mendorong kita lebih terampil dalam berkomunikasi, terampil mengorganisasi informasi, dan terbiasa bekerjasama.
5.    Mengembangkan kemampuan belajar mandiri, berinisiatif, inovatif, kreatif, dan bertanggung
        jawab dalam penggunaan Teknologi Informasi dan Komunikasi untuk pembelajaran, bekerja, dan pemecahan masalah sehari hari

C. Implementasi TIK (ICT) dalam dunia pendidikan

Tidak bisa dipungkiri, keberadaan komputer saat ini bukan lagi merupakan barang mewah, Alat
ini sudah digunakan di berbagai bidang pekerjaan, termasuk dalam dunia pendidikan.
Saat ini jumlah guru yang ada adalah 2.692.217, dari jumlah trsebut yang memenuhi syarat
sertifikasi 727.381 orang atau sekitar 27%, sehingga diperlukan sekitar 1.964.836
atau 73% guru yang harus itingkatkan kualifikasi pendidikan dan profesionalismenya.
Dan yang juga menjadi masalah adalah rendahnya tingkat pemanfaatan ICT di sekolah
(Digital Divide) ICT dapat menunjang optimalisasi sekolah, karena potensi ICT cukup
besar, diantaranya
(1).Memperluas kesempatan belajar
(2) Meningkatkan efisiensi
(3) Meningkatkan kualitas belajar
(4) Meningkatkan kualitas mengajar
(5) Memfasilitasi pembentukan keterampilan
(6) Mendorong belajar sepanjang hayat berkelanjutan
(7) Meningkatkan perencanaan kebijakan dan manajemen
(8) Mengurangi kesenjangan digital.
Begitu besar peran ICT dalam pendidkan sehingga secara khusus pemerintah
dalam Pustekkom Diknas membagi peran ICT di sekolah modern menjadi
7 peran sekaligus sebagi pilar pendidikan. Ke-7 peran ICT tersebut yaitu


1. ICT sebagai gudang ilmu pengetahuan. Artinya dengan ICT sumber ilmu pengetahuan
menjadi begitu kaya bahkan melimpah, baik ilmu pengetahuan inti (core content)
dalam pelajaran sekolah maupun sebagai materi pengaya pembelajaran
(content suplement).Pada fungsi ini internet memiliki peran besar sebagai sumber
ilmu pengetahuan yang dapat diakses secara luas yang didalamnya telah terkoneksi
dengan ribuan perpustakaan digital, jutaan artikel/jurnal, jutaan e-book, dan lan-lain.

2. ICT sebagai alat bantu pembelajaran. Artinya bahwa pembelajaran saat ini lebih mudah
dengan bantuan ICT, untuk menghadirkan dunia di kelas dan dapat disajikan kepada seluruh
siswa melalui peralatan ICT seperti multimedia dan media pembelajaran hasil olahan komputer
seperi poster, grafik, foto, gambar, display, dan media grafis yang lainnya. Pemanfaatan CD
Interaktif, Video Pembelajaran, Multimedia presentasi, e-learning termasuk pada bagian ini

3. ICT sebagai fasilitas pendidikan. Dalam hal ini ICT sebagai saran yang melengkapi
fungsi sekolah sebagai lembaga pendidikan, terutama fasilitasfasilitas yang bernuansa
elektronik seperti labolatorium komputer, peralatan di laboratorium
bahasa, raung multimedia, studio rekaman suara, studio musik, studio produksi video dan editing

4. ICT sebagai standar kompetensi. Artinya ICT sebagai mata pelajaran yang kita
kenal Mata Pelajaran TIK. Mata pelajaran ini berisi standar kompetensi.

Selain peran TIK diatas, terdapat pendapat lain tentang peranan TIK dalam pendidikan yaitu :

1. TIK sebagai Keterampilan (skill) dan Kompetensi :

-    Setiap pemangku kepentingan harus memiliki kompentensi dan keahlian menggunakan TIK untuk pendidikan.
-    Informasi merupakan “bahan mentah” dari pengetahuan yang harus diolah melalui proses pendidikan.
-    Membagi pengetahuan antar satu peserta didik dengan yang lainnya bersifat mutlak dan tidak berkesudahan.
-    Belajar mengenai bagaimana cara belajar yang efektif dan efisien bagi pendidik, peserta didik, dan stakeholder.
-    Belajar adalah proses seumur hidup yang berlaku bagi setiap individu atau manusia

2. TIK sebagai Infrastruktur Pendidikan

-    Saat ini, bahan ajar banyak disimpan dalam format digital dengan model yang beragam seperti multimedia.
-    Para pendidik, instruktur dan peserta didik secara aktif bergerak dari satu tempat ke tempat lainnya
-       Proses pendidikan seharusnya dapat dilakukan dimana dan kapan saja.
-    Perbedaan letak geografi seharusnya tidak menjadi batasan pendidikan.

3. TIK sebagai Sumber Bahan Belajar
-    Ilmu pengetahuan berkembang sedemikian cepatnya.
-    Pendidik yang hebat tersebar di berbagai belahan dunia.
-    Buku-buku, bahan ajar, dan referensi diperbaharui secara kontinyu.
-    Inovasi memerlukan kerjasama pemikiran
-    Tanpa teknologi, proses peserta didikan yang “up-to-date” membutuhkan waktu yang lama.

4. TIK sebagai Alat Bantu dan Fasilitas Pendidikan
-    Penyampaian pengetahuan seharusnya mempertimbangkan konteks dunia nyatanya.
-    Memberikan ilustrasi berbagai fenomena ilmu pengetahuan untuk mempercepat penyerapan bahan ajar.
-    Peserta didik diharapkan melakukan eksplorasi terhadap pengetahuannya secara lebih bebas dan mandiri.
-    Akuisisi pengetahuan berasal dari interaksi antarpeserta didik dan pendidik.
-    Rasio antara pendidik dan peserta didik tidak dibatasi tergantung pada proses dan pemberian fasilitas

5. TIK sebagai Pendukung Manajemen Pendidikan

-    Setiap individu memerlukan dukungan pendidikan tanpa henti setiap harinya.
-    Transaksi dan interaksi interaktif antar-stakeholder memerlukan pengelolaan back-office yang kuat.
-    Kualitas layanan pada pengelolaan administrasi pendidikan seharusnya ditingkatkan secara bertahap.
-    Orang merupakan sumber daya yang sangat bernilai sekaligus terbatas dalam institusi.
-    Munculnya keberadaan sistem pendidikan inter dan antar organisasi

6. TIK sebagai Sistem Pendukung Keputusan

-    Setiap individu memiliki karekteristik dan bakat masing-masing dalam pendidikan.
-    Pendidik seharusnya meningkatkan kompetensi dan keterampilan pada berbagai bidang ilmu.
-    Sumber daya terbatas, pengelolaan yang efektif seharusnya dilakukan.
-    Institusi seharusnya tumbuh dari waktu ke waktu dalam hal jangkauan dan kualitas.
-    Pemerintah seharusnya memiliki pengetahuan tentang profil institusi pendidikan

Saat ini Depdiknas mempunyai program pengembangan Teknologi Informasi dan Komunikasi
secara besar besaran. Ada tiga posisi penting Depdiknas dalam program pengembangan TIK, yaitu:

1.  Bidang kejuruan, TIK menjadi salah satu jurusan di SMK. Pengembangan TIK secara
    teknis baik hardware dan software masuk dalam kurikum pendidikan. Dibentuknya ICT center
    di seluruh Indonesia. Untuk menghubungkan sekolah sekolah di sekitar ICT center dibangun WAN (Wireless Area Network) Kota.

2.  Pustekkom, sebagai salah satu ujung tombak dalam pengembangan TV pendidikan interaktif, E learning dan E SMA.
    Program ini bertujuan untuk mempersempit jurang perbedaan kualitas pendidikan antara kota besar dengan daerah

3.  Jardiknas (Jejaring Pendidikan Nasional), bertujuan untuk mengintegrasikan kedua program di atas
    agar terbentuk sebuah jaringan yang menghubungkan semua sekolah di Indonesia. Sehingga diperkirakan
    di masa depan semua sekolah di Indonesia akan terkoneksi dengan internet. Melihat program yang diadakan
    oleh Depdiknas kita bisa memanfaatkan fasilitas tersebut karena bersifat terbuka.

Pengembangan TIK untuk mendukung peningkatan mutu pendidikan di Indonesia adalah sesuatu yang mutlak.
Dalam Renstra Departemen Pendidikan Nasional tahun 2005-2009, program pengembangan TIK bidang pendidikan
akan dilaksanakan melalui tahap-tahap sebagai berikut.

1. Tahap pertama meliputi
(a) merancang sistem jaringan yang mencakup jaringan internet, yang menghubungkan
    sekolah-sekolah dengan pusat data dan aplikasi, serta jaringan internet sebagai
    sarana dan media komunikasi dan informasi di sekolah
(b) merancang dan membuat aplikasi database
(c) merancang dan membuat aplikasi manajemen untuk pengelolaan pendidikan di pusat, daerah, dan sekolah, dan
(d) merancang dan membuat aplikasi pembelajaran berbasis web, multimedia, dan interaktif.

2. Tahap kedua meliputi
(a) melakukan implementasi sistem pada sekolah-sekolah di Indonesia yang meliputi \
    pengadaan sarana/prasarana TIK dan pelatihan tenaga pelaksana dan guru dan
(b) merancang dan membuat aplikasi pembelajaran

3. Tahap ketiga dan keempat adalah tahap memperluas implementasi sistem di sekolah-sekolah


Uraian di atas lebih berfokus pada tahapan-tahapan yang diharapakan dilakukan Depdiknas
dalam kurung waktu tahun 2005-2009 dalam rangka pengembangan TIK dalam pendidikan.
Dalam merealisasikan rencana ini, Depdiknas membangun ICT Center Kabupaten/Kota melalui
Program Jardiknas yang terdiri atas jaringan komputer, internet, dan TV Edukasi.
ICT Center ini akan terkoneksi dengan sekolah-sekolah dan kantor dinas pendidikan
Selain itu, guru perlu juga diperlengkapi dengan pengetahuan dan keterampilan yang
cukup untuk menggunakan perangkat TIK. Untuk itu, manajemen sekolah perlu mengetahui
kesiapan dan pelatihan TIK yang dibutuhkan guru.

D. Dampak TIK terhadap aktivitas pendidikan

Tahukah kita selain membawa manfaat yang besar Teknologi Informasi dan Komunikasi (TIK)
juga mempunyai pengaruh buruk yang besar pula pada perkembangan generasi anak bangsa.
Saat ini perangkat yang paling mempengaruhi anak pelajar Indonesia saat ini antara lain :

1.    Komputer
2.    Handphone
3.    MP4 player
4.    Game Console
5.    Media tontonan seperti Televisi dan Film

Namun kali ini kita akan membahas salah satu diantaranya yaitu pengaruh buruk Teknologi Komputer.
Pengaruh positif atau negatif yang bisa muncul dari alat ini tentu saja lebih banyak tergantung
dari pemanfaatannya. Bila anak-anak dibiarkan menggunakan komputer secara sembarangan, pengaruhnya
bisa jadi negatif. Sebaliknya, komputer akan memberikan pengaruh positif bila digunakan
dengan bijaksana, yaitu membantu pengembangan intelektual dan motorik anak.

Pengaruh buruk  lewat internet

Mampu mengakses internet sesungguhnya merupakan suatu awal yang baik bagi
pengembangan wawasan anak. Sayangnya, anak juga terancam dengan banyaknya informasi
buruk yang membanjiri internet. Melalui internetlah berbagai materi bermuatan
seks, kekerasan, dan lain-lain dijajakan secara terbuka dan tanpa penghalang.
Sebuah studi yang menunjukkan bahwa satu dari 12 anak di Canada sering menerima
pesan yang berisi muatan seks, tawaran seks, saat tengah berselancar di internet.


Pengaruh Buruk Terlalu Sering Bermain Komputer

Kecanduan bermain komputer ditengarai memicu anak menjadi malas menulis, menggambar
atau pun melakukan aktivitas sosial. Kecanduan bermain komputer bisa terjadi terutama
karena sejak awal orangtua tidak membuat aturan bermain komputer. Seharusnya, menurut
Rizal, orangtua perlu membuat kesepakatan dengan anak soal waktu bermain komputer.
Misalnya, anak boleh bermain komputer sepulang sekolah setelah selesai mengerjakan
PR hanya selama satu jam. Waktu yang lebih longgar dapat diberikan pada hari libur.
Pengaturan waktu ini perlu dilakukan agar anak tidak berpikir bahwa bermain komputer
adalah satu-satunya kegiatan yang menarik bagi anak. Pengaturan ini perlu diperhatikan
secara ketat oleh orangtua, setidaknya sampai anak berusia 12 tahun. Pada usia yang
lebih besar, diharapkan anak sudah dapat lebih mampu mengatur waktu dengan baik

- Menimbang untung ruginya mengenalkan komputer pada anak, pada akhirnya memang amat
  tergantung pada kesiapan orangtua dalam mengenalkan dan mengawasi anak saat bermain komputer.
- Selain itu juga pihak sekolah harus ikut andil dalam memberikan pengarahan terbaik
  agar siswa/siswi dapat mempergunakan Teknologi Informasi dan Komunikasi ke arah yang positif.
- Pemerintah sebagai pengendali semua sistem penyedia Informasi harusnya lebih aktif
  dalam mengontrol penggunaan Teknologi Informasi dan Komunikasi untuk Generasi Anak Bangsa.

Sadar atau tidak sadar Teknologi Informasi dan Komunikasi telah membawa perubahan besar
terhadap Generasi Penerus Bangsa, hanya tinggal kita yang bisa atau tidak membawa
perubahan itu ke arah yang positif atau negatif

E.   Permasalahan dan Solusi internet dalam dunia Pendidikan

Kendala bidang pendidikan ini dapat diatasi dengan adanya internet yang bisa diakses oleh peserta
didik di perguruan tinggi. Berbagai macam informasi seperti perpustakaan online, jurnal online, majalah, dan
bahkan buku-buku teks yang dapat di-download gratis dari berbagai situs yang ada dalam dunia internet.
Mahasiswa bisa mencari apapun yang berkaitan dengan materi perkuliahan disampaikan dosen di
kelas, untuk memperbandingkan, memperkaya pengetahuan, dan mencari sesuatu yang memerlukan kejelasan dan pemahaman mendalam

Permasalahan selalu timbul dalam dunia pendidikan adalah kekurangan informasi dan referensi akibat
terbatasnya jumlah sarana belajar. Ketersediaan buku – buku di perpustakaan terutama pada lembaga
pendidikan swasta cukup memprihatinkan dan sangat jauh dari harapan jika yang menjadi tujuan adalah
melahirkan sarjana-sarjana berkualitas dari universitas

Namun pada praktiknya, sosialisasi internet bagi dunia pendidikan tidak semudah yang
dibayangkan dan diharapkan banyak pihak, menurut Rahardjo (2001), terbatasnya pemanfaatan
teknologi informasi ini dipengaruhi oleh beberapa hal, diantaranya kurangnya penguasaan bahasa
Inggris, kurangnya sumber informasi dalam bahasa Indonesia, mahalnya biaya akses internet, dan ketidaksiapan tenaga pendidik

Faktor pertama, merupakan permasalahan utama dalam memanfaatkan segala teknologi hasil karya masyarakat Barat.
Produk-produk teknologi yang sampai ke tangan masyarakat dunia umumnya menggunakan komunikasi berbahasa Inggris
sehingga menyulitkan bagi para pengguna seperti mahasiswa Indonesia yang Jurnal Ilmiah umumnya masih memiliki
kemampuan rendah dalam bahasa asing, sedangkan banyak informasi-informasi dan ilmu pengetahuan
direkayasa dalam bahasa internasional tersebut

Faktor kedua, keterbatasan informasi dan ilmu pengetahuan dalam bahasa Indonesia, menjadi
salah satu penyebab rendahnya penggunaan internet dalam negeri. Kesadaran masyarakat
Indonesia untuk berbagi ilmu pengetahuan masih sangat rendah dibanding di luar negeri.
Informasi masih dianggap suatu hal pribadi dan berharga mahal yang tidak dapat diakses
oleh seluruh orang, menjadikan pengetahuan hanya berkembang untuk diri pribadi dan
komunitas tertentu saja.

Faktor ketiga, adalah kendala mahalnya biaya untuk menggunakan internet di dalam negeri.
Untuk mengakses internet pribadi dengan menggunakan jaringan telepon milik pemerintah
seseorang harus mengeluarkan biaya hampir sepuluh ribu rupiah per jam sehingga membatasi
pemanfaatan internet tersebut. Solusi ini dapat dipecahkan dengan menggunakan internet
pada warung-warung internet dengan biaya yang lebih murah antara dua ribu sampai tiga ribu
rupiah per jam. Namun masih saja terlalu mahal untuk seorang mahasiswa apabila harus
menggunakan dalam frekuensi tinggi (selalu mengakses).

Faktor terakhir, permasalahan dari tenaga pendidik itu sendiri yang masih belum siap
menggunakan teknologi internet dalam proses pengajarannya akibat kurangnya kemampuan
dosen dalam bidang ini. Seorang dosen tidak akan pernah menyarankan kepada mahasiswa
memperkaya wawasan dengan fasilitas internet akibat kekurangmampuannya sendiri.
Dampak akhir yang terjadi mahasiswa tidak akan termotivasi untuk mengembangkan
diri jika dosen tidak pernah menyarankan pemanfaatan sumber ilmu non formal tersebut

Masalah terpenting dari sekian faktor penghambat di atas terletak pada faktor ketiga dan
keempat yakni mahalnya biaya akses dan keterbatasan dosen. Jika kendala bahasa tidak
menjadi masalah, lambat laun mahasiswa akan terus belajar dengan sendirinya dengan
tingginya frekuensi penggunaan internet, sehingga mereka akan lebih memahami penguasaan
istilah-istilah asing dari internet tersebut. Sumber motivator utama dari dosen adalah
faktor terpenting dalam mensosialisasikan kegiatan penunjang pembelajaran. Misalnya untuk
melengkapi informasi tentang sebuah kajian masalah di dalam kelas, mahasiswa dianjurkan
untuk membuka homepage milik dosen, atau mengakses situs-situs lain yang disarankan dosen

Dari segi mahalnya biaya kendala ini dapat diatasi dengan berperan penting lembaga pendidikan/universitas
untuk mengembangkan sistem pembelajaran internet dengan membangun sebuah jaringan internet di
lembaga pendidikan, menyediakan sarana penyewaan dengan biaya yang lebih murah dibanding warung internet milik penguasaha bisnis

 BAB III

METODOLOGI PENELITIAN

1.    A. Tujuan Penelitian

1. Untuk mengetahui perkembangan teknologi informasi dan komunikasi terhadap aktivitas pendidikan
2. Mengetahui cara mengatasi perkembangan teknologi informasi dan komunikasi terhadap aktivitas pendidikan

B.        Waktu dan Tempat Penelitian

          Penelitian sederhana dilaksanakan pada bulan Januari 2011 di lingkungan pendidikan SMP Negeri 11      Jakarta.

C.       Metode Penelitian

          Studi ini berbentuk studi kepustakaan berupa menggali informasi tentang ilmu pengetahuan dan

          Teknologi dalam kaitannya untuk mengembangkan teknologi informasi dan komunikasi terhadap aktivitas pendidikan.

BAB IV

PENUTUP

KESIMPULAN

Ilmu pengetahuan dan teknologi berkembang terus, bahkan dewasa ini berlangsung dengan pesat.
Perkembangan itu bukan hanya dalam hitungan tahun, bulan, atau hari, melainkan jam, bahkan menit atau detik, terutama
berkaitan dengan teknologi informasi dan komunikasi yang ditunjang dengan teknologi elektronika. Pengaruhnya
meluas ke berbagai bidang kehidupan, termasuk bidang pendidikan. Pengaruh perkembangan ilmu pengetahuan
dan teknologi yang sangat cepat ini memberikan dampak positif dan dampak negatif.
Perkembangan ilmu pengetahuan dan teknologi berdampak positif dengan semakin terbuka dan
tersebarnya informasi dan pengetahuan dari dan ke seluruh dunia menembus batas ruang dan waktu.
Dampak negatifnya yaitu terjadinya perubahan nilai, norma, aturan, atau moral kehidupan yang bertentangan
dengan nilai, norma, aturan, dan moral kehidupan yang dianut masyarakat. Menyikapi keadaan ini, maka peran
pendidikan sangat penting untuk mengembangkan dampak positif dan memperbaiki dampak negatifnya. Pendidikan
tidak antipati atau alergi dengan perkembangan ilmu pengetahuan dan teknologi, namun sebaliknya
menjadi subyek atau pelopor dalam pengembangannya.


Pustaka
S.P.Hariningsih. 2005. Teknologi Informasi. Penerbit Graha Ilmu
Gairola, C. M. (2004). Information and Communications Technology for Development. New Delhi: Elsevier

Kirim pesan lewat CMD

gak pake basa basi langsung ke TKP
Jalankan service mesangger dengan cara masuk ke : run >>ketikan “services.msc”>>pilih mesangger>>
setelah itu klik kanan dan pilih properties
pilih start up nya secara automatic lalu pilih apply
kemudian klik tombol start maka aplikasi mesangger sudah di jalankan

 nah setelah mengaktifkan services mesangger maka anda bisa memulai chatting lewar command prompt dengan cara :

masuk ke command Prompt dengan cara : run >> ketikan ” CMD “
untuk mengenalkan name address pada system maka ketikan perintah “net name” lalu enter
setelah nama komputer dan workgroup nya muncul maka aplikasi telah berhasi. bila tidak muncul masuk kembali ke service mesangger lalu restart
maka anda bisa mengirim pesan lewat command prompt dengan cara : ketika “net send (alamat ip/nama komputer yang di tuju) (pesan).
“tidak usah memakai tanda kurung”
untuk percobaan sebaiknya mengirim ke komputer sendiri terlebih dahulu

berhubung  banyak pertanyaan penggunaan netsend pada window 7 dan windows vista maka akan saya jelaskan:

    untuk windows 7 dan vista tidak menggunakan “net send” tp menggunakan “msg”
    untuk service msg nya secara otomastis sudah berjalan pada windows vista dan windows 7 jadi tgl menjalankan peritnahnya
    selamat mencoba :D

semua berjalan dengan syarat :

    service mesangger sudah aktif
    kedua komputer dalam 1 network

SCAN VIRUS

www.virustotal.com

cara nambah speed koneksi diclient warnet(ambil dikit koneksi tetangga)

Kali ini saya akan memberikan cara gimana sedot dikit bandwith tetangga.. maklumlah ya,,,
kali ini sering sekali kalau kita hotspotan dan banyak tetangga yang menggunakan server kita.
jadi lambat deh koneksi kita.
terlebih lagi bagi penguna Broadband / VSAT.....
tapi langkah itu mungkin tidak ada lagi... inilah cara jitu kutik kutik bandwith orang lain

langsung aje ye  :

Membuka browser Mozilla firefox kamu terserah itu yang modelnya kayak apa tapi diusahakan yang versi terbaru..

Pada addres bar ketikkan about:config Lalu akan muncil gambar seperti di bawah ini
> Klik I’ll be careful, I promise
Cari string di bawah ini ( pastikan semua string di set ke ”true”)
contoh penggantiannyaNetwork.http.pipelining false > klik kanan dan pilih “toggle”.

Network.http.pipelining true
Network.http.pipelining.maxreguests 64
Network.http.proxy.pipelining true
Network.proxy.share_proxy_setting false ( yang ini biarkan tetap false )

Lalu buat string baru, caranya klik kiri satu kali di mana saja,
klik kanan>new>integer.

Ketikkan nglayout.initialpaint.delay dan beri nilai 0
Kemudian refresh ato tekan F5

Pada addres bar ketikkan about:blank

Ganti kode:

browser.tabs.showSingleWindowModePrefs = true
network.http.max-connections = 64
network.http.max-connections-per-server = 20
network.http.max-persistent-connections-per-proxy = 10
network.http.max-persistent-connections-per-server = 4
network.http.pipelining = true
network.http.pipelining.maxrequests = 100
network.http.proxy.pipelining = true
network.http.request.max-start-delay = 0
network.http.request.timeout = 300
nglayout.initialpaint.delay = 0
network.dns.disableIPv6 = true
Restart mozilla.

Untuk Cable DSL

Ganti kode:

network.http.pipelining = true
network.http.proxy.pipelining = true
network.http.pipelining.maxrequests = 30
nglayout.initialpaint.delay = 0″

Untuk ADSL Cable

Ganti kode:

network.http.max-connections : 64
network.http.max-connections-per-server : 21
network.http.max-persistent-connections-per-server : 8
network.http.pipelining : true
network.http.pipelining.maxrequests : 100
network.http.proxy.pipelining : true
nglayout.initialpaint.delay = 0

Untuk Dial IP (Dial Up)

Ganti kode:

browser.cache.disk_cache_ssl : true
browser.xul.error_pages.enabled : true
content.interrupt.parsing : true
content.max.tokenizing.time : 3000000
content.maxtextrun : 8191
content.notify.backoffcount : 5
content.notify.interval : 750000
content.notify.ontimer : true
content.switch.threshold : 750000
network.http.max-connections : 32
network.http.max-connections-per-server : 8
network.http.max-persistent-connections-per-proxy : 8
network.http.max-persistent-connections-per-server : 4
network.http.pipelining : true
network.http.pipelining.maxrequests : 8
network.http.proxy.pipelining : true
nglayout.initialpaint.delay : 750
plugin.expose_full_path : true
signed.applets.codebase_principal_support : true

::::::::::::: NB

Kemudian klik menu :
Untuk OS windows XP : tools > options.

Untuk OS linux (vector) : edit > preference.
Untuk Setting yang berbeda di
beberapa OS edit > advanced.

Pada options allow web sites to install software beri tanda centang untuk mengaktifkan ato masuk ke
tab ADVANCE lalu pilih sub tab UPDATE kemudian centangi installed add-ons lalu oke

Kemudian tekan refresh atau juga dapat tekan F5

Langkah selanjutnya adalah download program:.

Switchproxytool v 1.3.4
Mozilla Ver 3.4 Ke bawah.
Fasterfox ==>untuk Mozilla ver 3.5 Ke atas.
google <search google> atau apa aja yang menurut kamu bener awokawowk

Next

1. Extrack file yang telah anda download tadi.

2. Kemudian install file tersebut dengan cara klik kanan filenya > open
   > pilih select the program from a list
   > untuk membuka file tersebut pilih browse
   > cari folder Mozilla firefox di program file
   > lalu pili firefox.exe
   > lalu OKE
   > lalu pilih install now
   > untuk mengaktifkan program tersebut pilih restart firefox..

3. Dan Open lagi Mozilla anda tadi.

—->>SwitchProxy yang anda gunakan tadi dapat Mengganti Proxy Secara Otomatis
Di Browser Mozilla FireFox.

—->>Langkah diatas Efektif dilakukan Di Warnet atau Hotspot Yang ramai untuk
Menyedot Bandwidth ke PC atau laptop Anda.

Point blank Error,exit game,room master bermasalah

login bisa, masuk lobi bisa, masuk room bisa, giliran udah di room, udah maen sekitar satu menitan
.....eh semua char malah diem nggak bisa jalan, kalau udah kayak gini sebentar lagi
muncul tulisan "Exit game, koneksi bermasalah dengan room master"
ckckkckckck,kalau berlarut-larut bisa bahaya,,,,
tapi untung barusan udah bisa lancar lagi, ternyata solusinya, port Point Blank mesti dibuka dulu. Aku memakai modem DSL-526B dari D-link.
Berikut langkah-langkah membuka port Point Blank di modem DSL-526B :

    >>>Buka browser, kemudian ketik 192.168.1.1
    Isi username dan passwordnya, secara default untuk username dan passwordnya adalah : admin

    >>>Setelah login, klik tab Advance Setup di sebelah kiri
    >>>Di Advance Setup pilih NAT > Port Triggering > Add
    >>>Klik Custom Application dan isi dengan PB
    Di bawahnya pada baris pertama untuk Trigger Port Start, Trigger
    End Start, Open Port Start, Open Port End isi dengan angka 39190, sedangkan
    Trigger Protocol dan Open Protocol pilih TCP

    >>>Selanjutnya di baris kedua untuk Trigger Port Start dan Open Port Start
    isi dengan angka 40000, sedangkan Trigger Port End dan Open Port End
    isi dengan 40009, untuk Trigger Protocol dan Open Protocol pilih UDP
   
    >>>Setelah itu klik save/apply.

Biar lebih jelas, silakan liat gambar di bawah ini :

Cara mempercepat koneksi jaringan di client warnet

Sebagai contoh semakin tinggi kecepatan koneksi internet sangat mempengaruhi dari
harganya contoh gampangnya telkom speedy dengan harga koneksi perbulan
dari 200rb hingga 1,7 juta yang membedakan satu sama lainnya adalah kecepatan koneksinya..
Tetapi bagaimana cara kita mempercepat koneksi bila komputer kita berada dalam sebuah jaringan
dengan koneksi tunggal semisal di warnet??? Nah, pada postingan
kali ini saya akan mencoba share pengalaman saya.
Tips mempercepat koneksi internet ini hanya berlaku untuk warnet
saja, dan warnetnya menggunakan mozilla firefox sebagai browsernya.
Sistem kerja dasarnya adalah mempercepat koneksi internet di komputer kita
dengan menyedot bandwitdh komputer lain di dalam 1 jaringan warnet. Mungkin
sedikit terkesan “licik” tapi apalah daya jika kita sedang melakukan suatu kerjaan
yang urgent sedangkan koneksinya lemot banget karena warnet lagi full apalagi jika
banyak yang melakukan download. Jadi koneksi internet kita jadi lebih cepat dan yang
lain jadi sedikit lambat, dan disaat warnet sedang full semua komputer jadi lambat,
jadi cara ini tidak akan ada yang menyadarinya.

langsung saja berikut tips untuk memeprcepat koneksi internet di Warnet:

1. Di addres bar mozzila ketik about:config kemudian akan terlihat tulisan yang banyak sekali.

2. Gunakan fasilitas ctrl+f untuk mencari beberapa kata dan merubahnya, kata yang di cari adalah sebagai berikut:

    Network.http.pipelining; False <– klik 2 kali ubah “False” menjadi “True“

    Network.http.pipelining.maxrequests; 4 <– klik 2 kali ubah “4” menjadi “30“

    Network.http.proxy.pipelining; False <– klik 2 kali ubah “False” menjadi “True“

3. Kemudian klik kanan di bagian/bawah yang kosong/putih terus pilih
   new terus integer/bilangan bulat untuk yang berbahasa indonesia, lalu
   kolom pertama isikan nglayout.initialpaint.delay lalu tekan enter
   satu kali dan masukan angka 0 dan tekan enter kembali.

4. Restart ulang Mozilla firefoxnya.

5. Selamat berinternet ria dan menikmati koneksi yang lebih cepat daripada

lagi-lagi javascript hkhkhkhkk

Javascript....!!!!!!!!!!!
yang mau memperdalam javascript dapat mengunjungi situs ini...dan
macam aplikasi yang bisa kamu download di sini

Blok situs via notepad

Eeheemmm....
Saya mencoba untuk memberi sedikit Tips dan Trik buat kawan-kawan yang senang
dengan suasana baru dan pengetahuan baru.Mudah-mudahan berguna.
Kali ini Saya akan membahas Bagai mana cara meng Hack sebuah situs melalui notepad
mengapa saya mempostingkan Trik dan Tips ini?
tentu karna pengalaman saya dikampus yg sempat kesal menunggu lama seseorang
berhenti bermain Facebook atau lainnya Nah inilah
yang membuat saya berpikir smalaman bagai mana caranya menghack alamat facebook
Kita mulai oke..
Pertama-tama Klik Start > Run. tulis semuanya kat-kata ini "C:/Windows/System32/drivers/etc/hosts" tanpa tanda petik
trus klik OK.
Buka Notepad, trus cari kata“127.0.0.1 localhost”

Kata dibawah "127.0.0.1 localhost" ditulis nama website yang akan
diblok.Contoh:127.0.0.1 www.youporn.com.Lalu simpan/save.

Menghindari perubahan registry

saya akan mencoba memberi Tips dan Trik atau pun tutorial Regedit = Registry Editor di operating system
windows yang berfungsi untuk mengatur beberapa fungsi dari kerja dari windows.
Terkadang ada saja kawan kita atau orang lain yang coba iseng atau jahil mengutak-atik registry komputer tanpa kita ketahui, untuk
menghindari hal itu Tips Jaringan Komputer akan memberi solusinya

Untuk menghindari adanya perubahan yang dilakukan oleh
orang yang “Tidak Bertanggungjawab” maka kita harus menjaga agar
peluang ini tidak dipergunakan mereka untuk mengacak-acak registry kita.
Kita matikan fasilitas untuk membuka Regeditini.

Caranya :
1. Klik Start -> Run
2. ketik “gpedit.msc” enter
3. lalu akan muncul jendela “Group Policy Editor”
4. klik “User Configuration -> Administrative Templates -> System
5. lalu disebelah kanan, pilih “Prevent access to registry editing tools”
6. klik dua kali, lalu muncul windows baru dan pilih “Disable“
7. klik “Ok”
Lalu tutup jendela “Group Policy Editor”
Selesai
Selamat mencoba

NB: kalau mau mengaktifkan lagi, ikuti petunjuk no.6 dan pilih “Enable“

TAMAN

Taman punya kita berduatak lebar luas, kecil sajasatu tak kehilangan lain dalamnya.Bagi kau dan aku cukuplah
Taman kembangnya tak berpuluh warna
Padang rumputnya tak berbanding permadani
halus lembut dipijak kaki.
Bagi kita bukan halangan.
Karena
dalam taman punya berdua
Kau kembang, aku kumbang
aku kumbang, kau kembang.
Kecil, penuh surya taman kita
tempat merenggut dari dunia dan ‘nusia (Chairil Anwar)

wifi dimana mana di mana aja mwnya

Indonesia WiFi merupakan jaringan akses wireless broadband yang menjadi media untuk menikmati layanan internet berkecepatan tinggi serta berbagai layanan multimedia lainnya.


Menggunakan teknologi Wireless Fidelity (WiFi) terbaru berdasarkan pada
spesifikasi IEEE 802.11 yang populer digunakan untuk menghubungkan antar komputer, smartphone, laptop dan perangkat lainnya, serta menghubungkan komputer dan perangkat lain ke internet atau ke jaringan kabel (ethernet) LAN. Teknologi ini sudah dilengkapi dengan sistem kontrol dan monitoring terpadu menjadikan Indonesia WiFi dapat menyalurkan lebih dari satu layanan broadband dengan tingkat kualitas masing-masing yang dapat dijaminkan.


Indonesia WiFi (@wifi.id) menyediakan layanan public internet berbasis teknologi WiFi/ Hotspot dalam rangka mendukung program percepatan dan perluasan pembangunan ekonomi Indonesia di bidang ICT yang telah dicanangkan oleh Pemerintah Republik Indonesia. Dalam memenuhi hal tersebut, saat ini Indonesia WiFi (@wifi.id) telah dan akan menyiapkan jutaan titik jaringan internet nirkabel (WiFi/ Hotspot) secara nasional di berbagai lokasi untuk mendukung kebutuhan informasi digital bagi masyarakat. Jaringan @wifi.id yang handal dan tersebar luas di seluruh wilayah Indonesia akan memberikan kenyamanan dan jaminan koneksi berkualitas tinggi kepada seluruh penggunanya.


Jaringan Indonesia WiFi juga memiliki kemampuan pengaturan berbagai skema bisnis agar dapat secara fleksibel memenuhi kebutuhan Anda sebagai :
Pemilik / pengelola area publik yg ingin menyediakan layanan internet broadband bagi pengunjung tanpa harus berinvestasi besar untuk membangun jaringan.
Pengelola kawasan pendidikan (kampus /sekolah) yang ingin menyediakan akses internet bagi siswa dengan jaminan kualitas layanan per user (per siswa).
Pemilik / pengelola kawasan komersial yang ingin menyediakan layanan internet bagi penyewa atau pengguna dengan berbagai skema pembayaran yang dapat disesuaikan dengan keinginan Anda.
Pengelola Gerai yang berkeinginan memberikan layanan internet bagi para tamu dengan sentuhan spesial dari produk dan layanan Anda
Pengelola komunitas yang ingin memberikan akses internet untuk para anggota sekaligus dapat menyampaikan informasi2 terbaru kepada anggotanya.
Penyelenggara Event MICE (Multimedia, Information, Communication, Edutainment) yang ingin memberikan akses internet serta informasi lain melalui media WiFi selama periode tertentu saja.
Pemilik atau Management hotel yang ingin menyediakan akses Internet bagi para tamu untuk periode tertentu dengan tingkat layanan yang diseuaikan jenis kamar.
sumber

10 bencana teraneh

10. Amukan Gajah Hutan Chandka

Pada musim semi 1972, Area Hutan Chandka di India – yang sudah dilanda kekeringan- diserang gelombang bahang juga. Gajah lokal, yang biasanya tidak menjadi masalah, menjadi gelisah karena suhu yang tinggi dan kurangnya air. Pada musim panas situasi semakin buruk. Puncaknya pada 10 juli, Segerombolan gajah-gajah mengamuk dan menyerang 5 desa, meninggalkan kerusakan besar-besaran.

9. Peracunan Massal di Basra
Bulan September 1971 pengiriman 90,000 metrik ton biji gandum tiba di pelabuhan Irak Basra. Jewawut Amerika dan gandum meksiko- yang telah diproses secara kimia dengan methyl-mercury untuk mencegah pembusukan- disemprot pink untuk mengindikasi bahwa sangat beracun dan tulisan peringatan tercetak jelas di bungkusnya- Cuma dalam bahasa Inggris dan Spanyol. Sebelum didistribusikan ke petani, ternyata sudah dicuri dari dok dan dijual sebagai makanan ke penduduk yang kelaparan. Pemerintah Irak, malu atas kealpaan ini, singkat cerita dan tidak sampai dua tahun wartawan Amerika melaporkan bukti 6,530 rumah sakit menangani kasus keracunan merkuri. Pejabat pemerintah mengakui 459 meninggal, namun jumlah sebenarnya diperkirakan sekitar 6,000 dengan 100.000 lainnya menderita efek permanen seperti kebutaan, tuli dan kerusakan otak.

8. Ledakan Reaksi Berantai di Texas City
Pada 15 April ,1947, kapal pengangkut Perancis memasuki dok Texas City, dan mengambil 1,400 ton pupuk ammonium nitrate. Malam itu api muncul di bagian bawah dek kapal. Menjelang pagi kepulan asap hitam membuat port authorities karena perusahaan kimia Monsanto hanya berjarak 700 kaki. Seorang pria berdiri di dok, menyaksikan, tugboat dipersiapkan untuk menyeret kapal pengangkut ke tengah laut. Kobaran api menyebar ke luar dari rongsokan kapal, dan dalam hitungan menit Monsanto meledak, membunuh dan menghancurkan ratusan pekerja dan saksi yang melihat ledakan permulaan. Kebanyakan distrik perdagangan hancur, dan api mengamuk sepanjang tepian laut, dimana sejumlah besar tang gas butane dalam keadaan terancam meledak. Tidak lama setelah tengah malam, kapal pengangkut kedua- juga membawa nitrat- meledak, dan seluruh kejadian terulang kembali. Lebih dari 500 orang meninggal dan 1000 lainnya luka-luka.

7. Peristiwa Tunguska
Pada 30 juni,1908 ledakan besar terjadi di dekat Podkamennaya (Under Rock) Sungai Tunguska yang sekarang dikenal Krasnoyarsk Krai of Russia. Ledakan sepertinya disebabkan oleh meteor atau pecahan komet dengan panjang sekitar 20m(60 kaki). Meskipun meteor atau komet dianggap hancur sebelum sampai di bumi, peristiwa ini masih dianggap peristiwa tubrukan. Energi ledakan diperkirakan antara 10 dan 20 megaton TNT, 1,000 kali lebih dahsyat dari bom yang dijatuhkan di Hiroshima atau setara dengan Castle Bravo, bom nuklir terkuat yang diledakkan US. Ledakan Tunguska menumbangkan kira-kira 80 juta pohon di sekitar 2,150 kilimeter persegi. Kerusakannya saat ini masih bisa dilihat dari satelit di angkasa.

6. Robohnya The Empire State Building
Pada sabtu pagi 28 juli 1945, veteran Army pilot mengudara dengan B-25 light bomber dari Bedford, Massachusetts, menuju Newark, New Jersey, co-pilot dan marinir muda juga di dalam. Kabut membuat jarak pandang lemah. Kira-kira sejam kemudian, orang-orang di jalan tengah kota Manhattan menyadari raungan pesawat yang memekik semakin tajam dan menyaksikan dengan ngeri bomber tiba-tiba muncul dari kabut asap, melesat diantara gedung bertingkat dan kemudian terjun menubruk sisi Empire State Building. Serpihan pesawat dan bangunan runtuh berbarengan. Lubang besar menganga di lantai 78, satu dari mesin pesawat menabrak 7 dinding dan keluar dari sisi lain bangunan dan mesin lain terjerembab di cerobong lift. Saat tank bahan bakar meledak, 6 lantai ditelan api, dan gasoline yang terbakar mengalir di sisi lain bangunan. Untungnya, sedikit kantor yang buka pada hari sabtu, dan hanya 11 orang-plus 3 pengendara pesawat meninggal.

5. The Gillingham Fire Demonstration
Tiap tahun pemadam kebakaran Gillingham, di Kent, England, akan membangun ‘rumah’ sementara dari kayu dan kain untuk demonstrasi populer memadamkan kebakaran pada pesta acara tahunan Gillingham Park. Setiap tahun, juga, beberapa pria lokal dipilih dari banyak kandidat . Pada 11 juli 1929, 9 bocah laki-laki-umur 10 sampai 14- dan 6 pemadam kebakaran berpakaian seakan-akan sedang pesta perkawinan, memanjat lantai ke tiga dari ‘rumah’ itu dengan tali dan tangga. Rencananya adalah menyalakan api di lantai pertama, menyelamatkan ‘pesta perkawinan’ dengan tali dan tangga dan kemudian meledakkan rumah kosong untuk mendemokan penggunaan fire hoses. Karena kesalahan, api menyala duluan, Penonton mengira tubuh yang mereka lihat adalah gurauan dan bertepuk tangan meriah, sementara pemadam kebakaran diluar menyemprotkan air karena mengetahui bencana sesungguhnya. ke 15 orang meninggal di dalam rumah.

4. Ledakan Tabung Gas Pittsburg
Tabung gas silinder besar- yang terbesar di dunia saat itu- berada di jantung pusat industri Pittsburgh, Pennsylvania, mengalami kebocoran. Di pagi hari 14 november 1927, tukang reparasi pergi untuk memperbaikinya- dengan lampu tiup yang terbuka. Sekitar pukul 10 mereka menemukan kebocorannya. Tangki yang berisi 5 juta kubik gas alam, naik ke udara seperti balon dan meledak. Potongan metal, dengan berat 100 lbs, berserakan ke jarak yang cukup jauh, dan efek kombinasi dari tekanan udara dan api menyisakan kehancuran ber mil kuadrat. 28 orang tewas dan ratusan lainnya terluka.

3. Banjir Tetes Tebu di The Great Boston

15 januari 1919, pekerja dan penduduk Boston’s North End, kebanyakan orang Irlandia dan Italia, sedang diluar menikmati matahari siang di hari yang hangat. Tiba-tiba, dengan peringatan yang singkat, tangki besi cor yang besar milik perusahaan penyulingan murni pecah dan gelombang besar tetes-tebu mentah berwarna hitam, setinggi dua lantai, menenggelamkan jalanan dan mengalir perlahan menuju area tepi laut. Bukan saja pejalan kaki tapi juga kereta kuda tidak bisa lari dari gelombang ini.2 juta galon tetes-tebu yang sedianya akan dijadikan minuman menenggelamkan sejumlah orang -21 pria, wanita dan anak-anak tewas tenggelam. Kuda-kuda itu sebenarnya hanya terjebak di lengketnya cairan tebu tersebut, polisi terpaksa menembaknya. Boston berbau tetes-tebu selama seminggu, dan pelabuhan menjadi coklat sampai musim panas.

2. Kepanikan Gereja Baptis The Shiloh
2000 orang, kebanyakan kulit hitam, berkumpul di Shiloh Baptist Church Birmingham, Alabama, pada 19 September, 1902, demi mendengar ceramah Booker T. Washington. Tembok gerejanya baru. Tangga curam, menempel pada dinding. Setelah ceramah selesai, ada sedikit perselisihan yang memperebutkan kursi kosong, keluarlah kata-kata ‘fight’ dari salah satu anggota paduan suara, rupanya kerumunan salah interpretasi menjadi ‘fire’ sehingga semua orang berlarian keluar menuju pintu. Pintu yang tidak lebar tentu saja tidak mampu menampung ribuan massa yang berdesakan, apalagi tangga pintunya cukup curam, insiden tarik menarik dan saling menginjak berakhir dengan tewasnya 115 orang, dengan posisi bertumpuk di depan pintu gereja sampai setinggi 10 kaki.

1.Invasi Ular di St. Pierre
Aktifitas volkanis di ‘bald mountain’ tinggi diatas St Pierre, Martinique, biasanya tidak begitu penting sehingga banyak penduduk tidak menggubris adanya asap dari kawah dan beberapa gempa kecil selama April 1902. Pada awal Mei, bagaimanapun, hujan abu mulai turun terus menerus, dan bau sulfur yang menyengat mengisi udara sekitar. Rumah penduduk yang ada di lereng gunung tidak bisa lagi dihuni, lebih dari 100 ular fer-de-lances (-ini nih jenis ular yang besar dan berbisa yang ada di Amerika-) mulai melata menyerbu seperempat penduduk mulat(-mulat tuh campuran negro ma caucasian-) di St Pierre. Ular sepanjang 6 kaki ini membunuh 50 orang dan tak terhitung jumlah binatang lainnya. Namun pembasmian baru saja dimulai, Pada 5 mei longsoran dari lumpur yang mendidih tumpah ke laut, diikuti tsunami yang membunuh ratusan orang, 3 hari kemudian, 8 mei, Mt Pelee akhirnya meledak, mengirimkan lava putih dan bebatuan yang mematikan ke kota. Dalam waktu 3 menit St Pierre hancur total. Dari 30.000 populasi, hanya 2 yang selamat.

otak atik system di ps3 bakal di ben permanent

Berbicara tentang sebuah kejahatan cyber memang tidak pernah akan ada habisnya. Meskipun kejahatan hacker tidak melukai seseorang secara langsung, namun kerugian yang diakibatkan ternyata juga tidak main-main. Lalu bagaimana dengan hukuman yang layak diberikan untuk seseorang yang telah melakukan kejahatan di dunia cyber dengan melakukan berbagai tindakan hacking? Setiap perusahaan tentu punya cara mereka masing-masing untuk menindak-lanjuti perkara ini.

 

Sony telah memberitahukan secara resmi untuk tindak kejahatan seperti ini. Untuk mereka yang melakukan perbuatan jahat seperti pembajakan software pada Sony, atau melakukan hal-hal seperti hacking pada PlayStation Network tidak akan diberi ampun lagi. Akun yang mereka pakai akan tidak dapat digunakan seumur hidup, atau yang biasa dikenal dengan ban permanent. Langkah yang diambil oleh Sony ini dilakukan agar setiap orang yang mencoba atau ingin mencoba berbuat jahat pada dunia cyber dapat berpikir dua kali sebelum benar-benar mendapati akun mereka terblokir untuk selamanya.

Hal ini dilakukan secara keras mengingat Sony telah kecewa dengan sebuah software untuk sistem pada PlayStation 3 yang baru-baru ini dirilis oleh seorang hackers padahal Sony tidak pernah membuatnya sebelumnya. Terkadang meski telah ada peraturan yang dibuat, hackers sepertinya tidak gentar dengan peraturan-peraturan yang berlaku itu. Jadi hukuman keras seperti ini mungkin dapat membuat mereka berpikir lebih banyak lagi jika tidak ingin membeli ulang konsol PlayStation 3 mereka.

 

Sesungguhnya setiap pengguna memang tidak berhak untuk mengotak-atik sistem yang ada pada Sony PlayStation 3. Hal ini dikarenakan mereka juga sudah mematenkan sistem yang mereka gunakan tersebut. Selain itu setiap pembeli yang lainnya tentu akan sangat dirugikan, karena seharusnya mereka mendapatkan apa yang sesungguhnya diberikan oleh Sony, bukan buatan hackers yang ilegal.

"Pengguna atau pelanggan yang melakukan tindakan melanggar aturan atau melakukan pembajakan software, maka akses mereka pada PlayStation Network dan juga akses servis mereka ke Sony Entertainment Network untuk PlayStation 3 makan akan dihentikan untuk selamanya". Begitu ungkap salah seorang perwakilan dari Sony. Untuk gamers yang dulu pernah melakukan tindakan-tindakan diatas, masih diberi kesempatan untuk menghapus semua file yang pernah dirubuah pada sistem PlayStation 3 jika tidak ingin di ban permanent.

 

empat orang yang pernah naik mesin waktu

Pergi melintasi waktu ke masa depan atau masa lalu menjadi impian  setiap orang. Siapa yang tak mau merubah kegagalan di masa kini bila  dapat mencegahnya di masa lalu? Atau, seperti apa kondisi dunia di masa  depan?

Berbagai film fiksi ilmiah pun banyak yang mengangkat  mimpi manusia ini. Contohnya saja Back to The Future dan Terminator yang  begitu dikenal. Pertanyaannya, apakah mungkin manusia melakukan  perjalanan melintasi waktu? 4 orang di bawah ini mengaku pernah  melakukannya.
 
 
1. Andrew D. Basiago
 Basiago  adalah seorang pengacara yang juga anggota MENSA. Ia mengklaim dirinya  pernah pergi dengan mesin waktu. Menurutnya, di tahun 60-an dan 70-an  pihak militer Amerika Serikat membuat proyek rahasia "Project Pegasus".  Dan Basiago terpilih untuk pergi menjelajahi waktu dalam mesin yang  telah dibuat.
Petualangan Basiago sampai ke masa 1 juta SM  melihat kehidupan dinosaurus. Lalu pergi ke tahun 2045 mengambil  mikrofilm penting. Ia juga mengaku pernah menjemput Barack Obama saat  masih sekolah. 


 Semua terdengar seperti kisah fiksi menggelikan.  Anehnya, dalam salah satu perjalanan waktu Basiago mengaku pernah ke  masa awal Amerika dan bertemu Abraham Lincoln terkait dengan alamat  Gettysburg. Bukti tersebut ia rekam dengan kamera. Coba lihat pada foto  berikut ini.
 


 
 2. William Stillings



 Bila ada Batman, pasti ada Robin. Nah, peran William Stillings bisa dibilang sebagai 'Robin' bagi Andrew Basiago.

Stillings  mengaku bersama Basiago terdaftar dalam program DARPAdi tahun 80-an.  Mereka berdua lalu dikirim ke Planet Mars dengan mesin khusus yang bisa  'melompat' begitu cepat. Mudahnya, kamu sudah menonton film Jumper?  Begitulah kira-kira, pergi ke tempat lain dalam sekejap mata.

Pengakuan  Stillings mengemuka bulan September 2011 silam. Menurutnya, setelah  tiga puluh tahun berlalu ia dan Basiago melakukan reuni dan saling  berbagi kenangan saat melintasi waktu bersama-sama.

Rupanya tak  cuma mereka berdua yang 'pernah' pergi ke Mars. Masih ada 100 ribu orang  lainnya yang ikut program DARPA. Masalahnya, CIA menggunakan  obat-obatan tertentu yang bisa menghapus memori mereka. Wah, jadi mirip  film Men In Black...


 
 3. John Titor
 Awal  tahun 2000 dunia internet gempar oleh pengakuan John Titor yang mengaku  datang dari masa depan. Menurut Titor, ia seorang tentara Amerika dari  tahun 2036 yang kembali masa sekarang untuk mengambil komputer IBM lama  karena harus men-debug programnya agar tak menjadi masalah di masa  depan.

Titor mengatakan di tahun 2015 nanti akan terjadi Perang  Dunia III. Rusia akan meluncurkan serangan nuklir terhadap Amerika, Cina  dan Eropa. Ia juga sempat memperingatkan akan terjadi perang sipil di  Amerika tahun 2008 seperti yang pernah terjadi dulu. Nyatanya, ucapan  Titor tak terbukti.







4. James Burda
Sebelum  membahas James Burda, kita perlu ketahui dulu tentang chiropractor.  Yakni termasuk dalam pengobatan alternatif, yang mana berkonsentrasi  masalah penyembuhan dengan terapi pada tulang belakang, persendian, dan  jaringan lunak.
Kembali pada kisah James Burda, ia mengaku  memiliki keahlian chiropactor dan dapat menyembuhkan segala penyakit  dengan kekuatan yang diperolehnya: dari perjalanan waktu.
Burda  tidak hanya bisa menyembuhkan penyakit seseorang, lebih jauh ia bisa  melihat ke saat sang pasien mengalami penyebab cedera. Dengan cara ini,  Burda bisa memilih metode terbaik guna kesembuhan si pasien. Bukan itu  saja, ia pun bisa menyembuhkan pasien dari jarak jauh tanpa perlu  bertemu.
Pengakuan Burda ditentang oleh Dewan Chiropactors di  Ohio, dan ijin prakteknya pun dicabut. Meskipun ada klaim bahwa sembilan  dari sepuluh pasien puas dengan pelayanannya.

Setiap orang memiliki money archetype (budaya dalam diri saat menghadapi keuangan) yang berbeda. Perbedaan archetype ini membuat cara pandang seseorang terhadap uang menjadi berbeda pula. Termasuk bagaimana seseorang memperlakukan uang.

Tipe archetype bukan menunjukkan kepribadian Anda, namun lebih dalam mengarahkan tempat di mana anda berada. Artinya, bagaimana karakter dan kebiasaan Anda mengenai pengelolaan keuangan bisa dikenali dari sini. Dengan mengenali karakter ini, sebagai individu Anda bisa menghindari dari kebocoran keuangan. Dampak positif lainnya lebih terasa pada pasangan. Anda dan pasangan bisa lebih saling mengenali dan mampu mencari solusi keuangan yang menyeimbangkan hubungan.

Coach Yuza Aziz dan Coach Tom MC Ifle, pemilik iCOACH, memaparkan delapan macam money archetype dan dampaknya:

1. Innocent
Seseorang yang memiliki tipe ini cenderung memiliki rasa takut , tidak percaya diri, dan tidak mau memikirkan masalah keuangan. Orang-orang tipe ini memiliki rasa ketakutan yang tinggi ketika dihadapkan dengan hal-hal yang berhubungan dengan keuangan. Dia merasa tidak memiliki kekuatan dan kemampuan untuk mengatur segala seuatu tentang uang.

Dampaknya, jika seseorang mendapatkan uang dalam jumlah besar, akan mudah habis. Karena kebiasaan yang dimiliki orang dengan tipe ini cenderung tidak bertanggungjawab dengan uang.

2. Victim
Kebanyakan orang yang memiliki tipe ini cenderung akan menyalahkan orang lain ketika mengalami suatu masalah. Mereka akan merasa khawatir jika masalah yang dihadapi akan berbalik menimpa diri mereka. Oleh karena itu, untuk menyelamatkan diri, mereka akan menyalahkan orang lain sebagai penyebab terjadinya masalah tersebut. Karakter mendasarnya, orang tipe ini tidak mudah percaya kepada orang lain. 
 Dampaknya, uang menjadi tidak produktif. Karena tipe victim ini tidak mempercayakan uangnya untuk investasi atau menabung di bank, misalnya. Uang hanya akan disimpan dalam brankas atau bahkan di bawah bantal, karena tidak percaya lembaga keuangan.

3. Martyr
Orang-orang pada tipe ini memiliki kecenderungan berkorban buat orang lain. Meskipun demikian, setelah berkorban untuk orang lain, mereka mengharapkan suatu balasan. Sisi negatifnya, dengan banyaknya pengorbanan yang dilakukan untuk orang lain, orang tipe ini seringkali mengabaikan dirinya sendiri.

Dampaknya, tipe martyr ini tidak pernah bisa menabung. Orang lain akan sangat mengandalkan si martyr ini untuk meminjam uang. Bahayanya lagi, tipe ini tidak berani atau bahkan malas menagih piutang.

4. Fool
Tipe ini cenderung memiliki spontanitas yang tinggi, dan bertindak tanpa dipikirkan lebih matang. Mereka tidak berpikir tentang masa depan. Apa yang ada sekarang, itulah yang dilakukan.

"Fool di sini lebih kepada konyol. Karakternya malas, mengharap uang cepat atau instan," kata Tom, menyebut tipe ini sebagai spekulator yang tidak disiplin. Dampaknya, spekulator ini berani berhutang hanya untuk kesenangan semata.

5. Tyran
Orang-orang yang memiliki tipe ini cenderung takut kehilangan uang. Biasanya, orang pada tipe ini memiliki sifat yang serakah dan tidak pernah puas. Seringkali mereka bekerja terlalu keras tanpa memperdulikan berbagai hal lain di sekelilingnya. Bahkan tidak jarang juga, orang pada tipe ini tidak memperhatikan kesehatannya.

Dampaknya, tipe ini selalu merasa tidak pernah cukup dengan kondisi keuangannya. Akhirnya cenderung memanipulasi dan terlalu mengontrol.

6. Warrior
Berbeda dengan kelima tipe di atas, tipe ini memiliki kecenderungan untuk menciptakan ide menjadi realitas. Orang-orang dengan tipe ini memiliki sifat yang bijaksana, mempunyai target yang jelas untuk masa depan, dan juga kalkulatif dalam perhitungan pemasukan dan pengeluaran. Mereka juga memiliki kepercayaan diri dan sukses dalam masalah keuangan.

Tipe ini sangat sehat, kata Tom. Orientasinya yang jelas menuju sasaran membuatnya sukses secara finansial. Tipe seperti ini biasanya ditemui pada para pengusaha sukses yang disiplin dengan keuangannya.

7. Magician
Orang yang memiliki tipe ini cenderung menjadikan masa lalu sebagai suatu pembelajaran. Mereka juga berusaha untuk mengubah suatu ide menjadi realitas walaupun terlihat tidak mungkin. Orang-orang dengan tipe ini cenderung memiliki sifat idealis, percaya diri, dan mengandalkan diri sendiri. Mereka percaya bahwa mereka memang dapat mengerjakannya.

Tipe seperti inilah yang diharapkan, kata Tom. Dia menjadi tuan atas uangnya dan tidak menjadi hamba atas uang, apalagi mendewakan uang.

8. Creator/Artist
Tipe ini biasanya mengikuti panggilan hati dalam melakukan berbagai hal. Mereka juga memiliki sifat yang idealis dan spiritual yang cukup baik. Mereka juga terbiasa untuk menciptakan sesuatu.

Kecenderungannya, tipe ini bekerja demi passion dan tidak realistis. Bahkan terlalu ekstrem, seakan tidak membutuhkan uang.

Dengan mengenali berbagai tipe ini, Anda sebagai individu apalagi bersama pasangan bisa saling menyeimbangkan diri. Dengan begitu akan lebih mudah menemukan perencanaan dan solusi keuangan.

Tips cara meninggikan badan (yang pendek jangan tersinggung ya hkhk)

1. Makan Dengan Menu Seimbang
   Makan setiap hari (sarapan, makan siang, makan malam dan minum malam). Pastikan setiap hidangan yang diambil adalah seimbang. Hal ini sebagai stimulan agar tubuh dapat memproduksi hormon penumbuh secara seimbang.
2. Tidur Yang Cukup
   Salah satu cara alami untuk menambah tinggi badan adalah meluangkan waktu sebanyak 8 jam sehari di atas tempat tidur. Kurang tidur menyebabkan tubuh minim dalam menghasilkan hormon pertumbuhan. Bagi balita, usahakan mendapatkan waktu tidur yang cukup, yaitu sekitar 9 jam, sedangkan bagi remaja dan dewasa tidurlah sekitar 7-8 jam sehari.
3. Makan Sebelum Latihan
   Sebelum melakukan aktifitas untuk meninggikan badan, makanlah makanan yang mempunyai kandungan protein dan karbohirat sekurang-kurangnya 2 jam sebelum kita melakukan senam atau olahraga. Ahli makanan telah mendapati seseorang yang melakukan olahraga dengan perut kosong akan mengalami penurunan penghasilan hormon pertumbuhan sebanyak 54%.
4. Makanan Sebelum Tidur
   Hal terakhir yang patut diperhatikan adalah, jangan makan makanan dalam jumlah yang banyak sebelum kita tidur. Hal ini dilakukan agar tubuh tidak banyak menggalakan penghasilan hormon insulin. Badan kita akan menghasilkan hormon pertumbuhan dalam waktu 2 jam sesudah makan. Penghasilan hormon insulin akan menurunkan penghasilan hormon pertumbuhan.
5. Lakukan Latihan Secara Maksimal
   Seseorang yang kerap melakukan olahraga atau senam peninggi badan akan menghasilkan lebih banyak hormon pertumbuhan. Pastikan kita melakukan latihan sekurang-kurangnya 3 kali seminggu, minimal 20 menit setiap sesi (olahraga yang dianjurkan adalah pull-up atau renang).
6. Konsumsi Makanan Tambahan
   Pengambilan asam amino dalam pil muti-vitamin sebelum kita olahraga boleh membantu dalam penghasilan hormon pertumbuhan.

Tips Cara menghilangkan bekas luka dengan cara alami

1. Mentimun : Untuk mengurangi bekas luka dengan mentimun, hancurkan mentimun hingga membentuk pasta. Setelah itu, letakkan pada bekas luka dan diamkan sepanjang malam. Lakukan ini selama beberapa malam, dan Anda akan melihat bekas luka sedikit demi sedikit menghilang.
2. Teh Hijau : Yang perlu Anda lakukan di sini adalah celupkan kapas ke dalam teh hijau, dan kemudian pijat bekas luka Anda dengan itu.
3. Gooseberry India : Perawatan bekas luka alami ini juga dikenal sebagai amalaki. Tidak hanya membantu memperlembut bekas luka, tapi juga efektif menghalangi munculnya bekas luka di kemudian hari.
4. Minyak Pangkal Biji Bunga Mawar : Minyak ini digunakan dalam berbagai kosmetik dan telah terbukti menunjukkan hasil yang bagus, terutama untuk menghilangkan bekas luka akibat jerawat. Untuk menggunakan pengobatan alami ini, maka Anda perlu melakukan pemiijatan dengan menggunakan minyak biji pangkal bunga mawar pada bekas luka di kulit dua kali sehari selama 15 menit.
5. Minyak Zaitun : Pijatlah bekas luka Anda dengan minyak zaitun beberapa kali sehari. Maka dapat dipastikan bahwa bekas luka tersebut akan lenyap dalam beberapa hari. Perlu juga Anda ketahui bahwa ada beberapa cara yang tidak dapat bekerja dengan baik. Ada beberapa sumber menyatakan bahwa mederma (yang merupakan jenis bawang ekstrak) bekerja seperti mukjizat untuk menghilangkan bekas luka.
6. Jus Lemon : Jus lemon bertindak seperti pemutih alami, sehingga cukup efektif dalam mengobati luka. Namun, jangan berlebihan, karena asam sitrat yang terkandung dalam jus lemon sebenarnya dapat menyebabkan kerusakan pada kulit Anda jika digunakan dalam jangka panjang.
7. Vitamin C : Vitamin ini membantu dalam proses pembekuan darah yang sangat diperlukan untuk penyembuhan luka. Cobalah untuk menemukan perawatan bekas luka alami ini dalam bentuk krim karena krim yang mengandung vitamin C merupakan cara yang paling efektif. Selain itu, makan makanan yang kaya akan vitamin C juga bermanfaat.
8. Tea Tree Oil : Anda dapat mencoba menggosok minyak pohon teh ke bekas luka dan ulangi ini beberapa kali per hari. Beberapa orang mengklaim bahwa bekas luka Anda dapat hilang dalam beberapa hari!
9. Madu : Madu merupakan salah satu bahan yang efektif untuk menghilangkan bekas luka. Anda dapat menggunakan madu dengan cara mengoleskan madu ke bekas luka dan diamkan semalaman. Untuk hasil maksimal, lakukan cara ini berulang-berulang.
10. Bawang Putih : Bahan ini sangat mudah ditemukan di rumah dan merupakan bahan yang sangat efektif digunakan untuk pencegahan munculnya bekas luka. Anda hanya perlu memotong setengah siung bawang putih, kemudian menggosokkannya pada luka/jerawat untuk mencegah munculnya bekas di kemudian hari.

Tips cara menurunkan berat badan dengan cepat (DIET)

1. Tidak perlu menghindari golongan makanan tertentu tapi tetap menjaga keseimbangan nutrisi yang masuk kedalam tubuh. Karena untuk menjaga agar tubuh tetap sehat, tubuh kita membutuhkan air, vitamin, karbohidrat, lemak, mineral dan juga serat yang bisa didapatkan dengan memperbanyak mengkonsumsi sayuran dan buah-buahan
2. Tetap memperhatikan kebutuhan protein tubuh. Tubuh kita setiap harinya memerlukan 30 kg protein yang bisa dihasilkan dengan mengkonsumsi daging, susu atau sumber makanan dari polong-polongan, padi-padian dan kacang-kacangan
3. Jangan menghindari semua jenis lemak karena bagaimanapun juga tubuh tetap membutuhkan lemak sekitar 50 gram setiap harinya tetapi konsumsilah lemak pilihan yang bisa didapatkan dari gandum, kacang-kacangan dan minyak zaitun atau makanan yang mengndung lemak tak jenuh
4. Makanlah hanya disaat lapar dan hindari makan sampai kekenyangan serta gantilah cemilan-cemilan yang banyak mengandung lemak dan glukosa dengan mengkonsumsi buah-buahan
5. Perbanyak minum air putih sedikitnya 8 gelas setiap hari
6. Lakukan detoxifikasi secara berkala
7. Tambahkan makanan nutrisi herbal untuk menjaga vitalitas dan daya tahan tubuh
8. Ubahlah gaya hidup anda dengan berperilaku hidup sehat

Ramnit lagi,,,Shortcut lagi,,,suremmm Amat,,,

Ramnit lagi, ramnit lagi...!!!!!!!!!
arggggg....!!!!!!!
1.  Win32/Ramnit.H
2.  a variant of Win32/Wapomi.A ,Wapomi.B,Wapomi.K
3.  Win32/Viking-CG
4.  Win32/Ramnit G
5.  Win32/Renosator
6.  Win32/PWSTOOL.RAS.A
7.  Win32/Alman.NAB
8.  Win32/Kolab-N1(trj)
9.  Inf/Autorun-DE(worm)
10. Win32/malware-gen.

Insya Allah artikel ini bermanfaat khususnya buat
pribadi saya umumnya buat temen"
Kita tidak hanya perlu membasmi atau menghapus virus ramnit
saja tapi juga butuh penangkalnya, mau tau caranya menghapus virus ramnit?
silahkan disimak dipelajari dan dipraktekkan

Artikel menghapus virus ramnit (Virus Copy of Shortcut (1)(2)(3)(4) Recycler Autorun.inf)
ini tanpa install ulang,mengapa tanpa install ulang? Karena ada APLIKASI DATABASE nya.
Tool yang dibutuhkan:

1. Antivirus PCMAV Express Ramnit Killer
2. Antivirus NOD32 ON-DEMAND MANUAL SCANER PORTABLE
3. Antivirus SMADAV REV 9.1.1  / 9 Oktober 2012 sudah keluar versi terbarunya silahkan download di website resminya
4. Unlocker 1.9.1 Freeware
5. Avast free versi 7 sudah keluar versi terbarunya silahkan
   download di website resminya (antivirus ini sebagai penangkalnya
   salute buat avast walaupun belum update sudah mampu ngeblok autorun.inf nya ramnit)
6. Ccleaner

Berikut langkah langkah pembasmian virus ramnit alias
Virus Copy of Shortcut (1)(2)(3)(4) Recycler Autorun.inf:

 .HAPUS DULU SEMUA ANTIVIRUS YANG ADA DIKOMPUTER>>>"NO COMENT"
 .Download semua tools (ada di menu download kecuali avast) ke dalam CD Kosong gunakan warnet atau   komputer temen yang bersih dari virus
 .Putuskan komputer dari koneksi Internet
 .Matikan System Restore komputer,Klik kanan My Computer>Properties>System Restore>Turnoff System Restore on all drives
 .Show Hidden File klik Tools>Folder Options>View>Klik Show Hidden Files and Folder
  buang centang Hide extensions..dan Hide Protected..bila ada pertanyaan Yes aja.
 .Matikan fungsi autorun lewat start-run atau bisa dengan Win+R dan ketikan gpedit.msc .
  pada computer configuration-system klik 2x pada “Turn off autoplay” klik enable
  dan bawahnya klik pada All drive dan lakukan hal sama pada user configuration
 .Tekan CTRL+ALT+DEL pada Menu Processes cari SVCHOST.EXE dengan User Name nya Account
  Anda kemudian klik End Process, SVCHOST.EXE palsu ini ada dua cek lagi ya..!
 .Maaf ya rada lama hkhkhkhk
  tapi kesabaran mampu mengalahkan segalanya kan ga mau install ulang owakaoakoak
 .Sekarang kita bunuh virusnya caranya Klik Start>Run>Browse..cari folder Microsoft
  klik Kemudian Delete, ada di c:\Program Files\Microsoft\watermark.exe
 .Jalankan Ramnit Killer dari CD Anda sampai selesai ( hanya membersihkan ramnit A), lakukan 2 ataw 3 x scan sampai yakin bersih
 .Jalankan NOD32 ON-DEMAND MANUAL SCANER PORTABLE out of date database biarin aja.
 .Setelah Antivirus NOD32 muncul klik Menu ACTION pada IF AN ALERT IS GENERATED
  rubah menjadi Clean terus pada IF CLEANING CANNOT BE PERFORMED rubah menjadi Delete.
  Pada Menu Scanning Targets Klik Select All terus Klik Scan&Clean tunggu sampai selesai.
 .Jika Nod32 minta restart ikutin saja, jangan lupa scan sekali lagi pake NOD32 ON-DEMAND
  MANUAL SCANER PORTABLE, kalo perlu lakukan 4 ataw 5 x scan sampai yakin bersih
 .Sekarang (install) gunakan Smadav untuk repair Regestry Windows (userinit.exe ini yang dirusak oleh ramnit) klik Fix All
 .Selanjutnya (install) gunakan Unlocker untuk menghapus folder atau file sisa virus yang susah di hapus seperti Recycled atau autorun.inf
  caranya mudah install kemudian jalankan Unlocker cari file atau folder yang susah dihapus pada menu option klik Delete
 .Jalankan Ccleaner untuk menghapus file template windows dengan cepat
 .Untuk meyakinkan sisa virus habis, Gunakan Avast Free antivirus register
  avastnya agar supaya 1 tahun bisa pake. Cari di Google.

Uji coba Kalimat diatas hanya pada Windows Xp dan berhasil
untuk Windows 7 Belum coba. Sekali lagi semoga artikel ini bermanfaat.
Saya tulis ulang karena masih banyak virus ramnit
(Virus Copy of Shortcut (1)(2)(3)(4) Recycler Autorun.inf)
Tambahan lagi nih : Untuk mempercepat proses scan setelah step ke 7 boleh install unlocker
terus jalankan program ini cari Folder SYSTEM VOLUME INFORMATION di setiap partisi drive
delete folder yang ada didalam folder SYSTEM VOLUME INFORMATION , di folder ini ternyata
mendem juga nih virus ramnit dan filenya tidak sedikit ternyata banyak disinilah sebenarnya
kehebatan antivirus AVAST bekerja bisa tembus sampai ke SYSTEM VOLUME INFORMATION Windows.

BLANK BLINK VISUAL BASIC 6

Visual Basic adalah sebuah alat yang memungkinkan kita untuk membuat
aplikasi berbasis Windows GUI (Graphical User Interface).
Aplikasi yang dihasilkan mirip seperti aplikasi-aplikasi windows lainnya, seperti MS Word, MS Excel, Wordpad, dsb; sehingga user yang terbiasa bekerja di lingkungan windows akan cepat menguasai aplikasi yang kita buat nantinya.

Aplikasi yang dibuat dengan Visual Basic bekerja berdasarkan event-event. Contoh event : user klik tombol, pilih menu, dll. Jadi ketika tidak ada event yang terjadi (user tidak melakukan apa-apa), aplikasi berada dalam kondisi tidak aktif. Sebenarnya semua aplikasi windows bekerja berdasarkan event-event. Contoh : MS Word tidak akan melakukan pekerjaan sebelum kita menyuruhnya (ketik teks, pilih warna, format font, dsb).

Penggunaan event ini sangat menguntungkan, karena kita tidak perlu menyelesaikan aplikasi hanya untuk mencoba sebuah event tertentu. Contoh : untuk melihat apakah aplikasi kita dapat membuka file, kita cukup menjalankan event tersebut (biasanya pemilihan menu file open).
Sejarah Visual Basic

- Visual Basic for DOS dan Visual Basic for Windows diperkenalkan pada tahun 1991
- Visual Basic 3 dikeluarkan pada tahun 1993
- Visual Basic 4 dirilis pada akhir 1995 dengan menambahkan dukungan untuk aplikasi 32 bit.
- Visual Basic 5 dikeluarkan pada akhir 1996 dengan menghilangkan dukungan pembuatan aplikasi 16 bit.
- Visual Basic 6, 1998. Aplikasi yang dibuat dengan Visual Basic 6 dapat berjalan pada Windows 95, 98, Millenium, NT, 2000.
Pembuatan Aplikasi

Langkah Umum
1. Buat interface aplikasi dengan menempatkan control atau object pada form.
2. Modifikasi properti control.
3. Buat kode pada event-event dari control, dan kode pelengkap (bukan event, misalnya fungsi/prosedur yang kita buat sendiri).
Dengan adanya event, maka kita dapat mengerjakan aplikasi per event. Jika satu event sudah berjalan dengan benar, kerjakan event yang lain. Dengan demikian cara kita membuat aplikasi menjadi modular (kerjakan event 1, event 2, event 3, dst sehingga menjadi aplikasi yang sebenarnya). Cara ini juga memudahkan kita untuk men-debug program apabila terjadi kesalahan.
Visual Basic berjalan pada 3 mode :
- Mode Design, dalam modus inilah pembuatan aplikasi dilaksanakan
- Mode Run, dalam mode ini aplikasi dijalankan.
- Mode Break, dalam mode ini aplikasi di hentikan sementara mengaktifkan Visual Basic Debugger (untuk mendebug program, biasanya dilakukan untuk melacak kesalahan/error).
Visual Basic IDE (Integrated Development Environment)

Window Utama
Window Utama terdiri dari Title Bar, Menu Bar, dan Toolbar. Pada Title Bar terdapat nama project, dan mode Visual Basic. Menu Bar menyimpan menu-menu yang berguna dalam pembuatan aplikasi. Dalam Toolbar kita dapat menemukan sejumlah shortcut dari menu-menu pada Menu Bar. Pada Window Utama juga terdapat posisi form dan ukuran form relatif terhadap layar dalam ukuran Twips.

Form
Di dalam form inilah kita membuat user interface aplikasi yang akan kita buat dengan menempatkan control-control. Bayangkan form sebagai kanvas, di dalam “kanvas” inilah kita akan menggambar bagaimana bentuk GUI aplikasi.

Toolbox
Didalam Toolbox kita dapat menemukan control-control yang dapat dipergunakan pada form. Control-control yang lain dapat ditambah dengan mengakses menu Project  Components atau dengan menekan tombol Ctrl + T.

Window Properties
Kita dapat merubah property-property dari object pada window property ini. Drop down pada window property menyimpan control-control pada form yang sedang aktif. Window property mempunyai 2 macam view, Alphabetic dan Categorized.
Form Layout Window
Dalam window ini kita dapat melihat posisi form relatif terhadap layar monitor kita.
Window Project
Window ini memperlihatkan daftar form dan module aplikasi yang sedang kita kerjakan.
Menempatkan control pada form

Ada 2 cara untuk menempatkan control pada form :
1. Klik ganda control pada toolbox. Aksi ini akan menambahkan control tersebut pada form dengan ukuran standar (default) di tengah-tengah Form.
2. Klik control di Toolbox, lalu pindahkan mouse pointer ke form. Tekan dan tahan tombol kiri mouse, drag sampai ukuran yang diinginkan, lepas tombol mouse.
Untuk memindahkan control, klik controlnya lalu pindahkan ke tempat yang anda inginkan. Pemindahan dapat juga dilakukan dengan menekan tombol Ctrl dan tombol panah kanan, kiri, atas atau bawah dengan catatan bahwa control yang ingin dipindahkan harus mendapat fokus.
Untuk merubah ukuran control, pindahkan mouse pointer ke tepi control, tekan dan tahan tombol kiri, drag sehingga didapat ukuran yang diinginkan. Cara lain yaitu dengan cara menekan tombol Shift dan tombol panah atas, bawah, kiri, atau kanan dengan catatan control yang ingin dirubah ukurannya harus mendapat fokus. Namun demikian, beberapa control tidak dapat dirubah ukurannya, contoh : CommonDialog, Timer.
Penamaan Control
Yang dimaksud dengan penamaan yaitu memberikan nilai kepada property Name pada control (semua control mempunyai property Name). Adapun aturannya :
1.Maksimal 40 karakter
2.Diawali dengan huruf
3.Hanya boleh mengandung huruf, angka, dan garis bawah “_”.

Secara kesepakatan, untuk mempermudah membaca kode program, para programmer Visual Basic memberi awalan / prefix 3 huruf.

Jenis Control
Prefix
CommandButton
Label
TextBox
Frame
CheckBox
ComboBox
Timer
OptionButton
HscrollBar
DirListBox
Shape
Image
OLE Container Control
PictureBox
OptionButton
ListBox
VscrollBar
DriveListBox
FileListBox
Line
Data cmd
lbl
txt
fra
chk
cbo
tmr
opt
hsb
dir
shp
img
ole
pic
opt
lst
vsb
drv
fil
lin
dat
Visual Basic Object

Berikut ini akan kita bahas beberapa objek-objek dari Visual Basic.

1. Label
Label digunakan untuk menampilkan teks pada layar. Penamaan object label biasanya diberi awalan “lbl” untuk membedakannya dari object-object yang lain. Contoh: lblNamaPegawai, dapat digunakan untuk menamai sebuah label yang dipergunakan untuk menampilkan nama pegawai di form. Seperti object-object yang lain, label juga mempunyai property yang dapat dirubah/disetting pada waktu design-time atau pada waktu running-time. Beberapa property yang sering digunakan:

a. Alignment
Digunakan untuk memberi efek perataan tulisan pada label. Left Justify (rata kiri), Right Justify (rata kanan), Center (rata tengah).
b. Appereance
Digunakan dalam efek tampilan object. Flat atau 3D. Hanya dapat diatur pada design-time.
c. Autosize
Digunakan dalam penentuan ukuran object. Jika bernilai True maka ukuran label akan disesuaikan dengan ukuran tulisan/captionnya. Jika bernilai False maka ukuran label dapat kita tentukan sendiri.
d. BackColor
Digunakan dalam penentuan warna latar belakang dari label.
e. BackStyle
Digunakan dalam penentuan sifat label terhadap object lain yang berada dibawahnya. Transparent digunakan agar object lain yang berada dibawah label tersebut terlihat. Opaque digunakan agar object lain yang berada dibawah label tidak terlihat.
f. BorderStyle
Digunakan dalam penentuan border/garis tepi dari label. Gunakan None untuk membuat label tanpa border, atau Fixed Single untuk membuat label dengan border.
g. Caption
Mungkin ini property dari label yang paling sering kita atur. Dimana property caption menentukan tulisan apa yang akan ditampilkan oleh label tersebut.
h. Enable
Digunakan dalam penentuan apakah label itu dapat menerima event (click, double click, dsb) dengan nilai True atau tidak bila nilainya False.
i. Font
Digunakan dalam penentuan efek tulisan/caption. Jenis huruf, tebal, miring dapat ditentukan disini.
j. Fore Color
Digunakan dalam penentuan efek warna tulisan/caption label.
k. Visible
Digunakan dalam penentuan apakah label tersebut dapat terlihat atau tidak. Jika True maka kita dapat melihat label tersebut, sedangkan jika False kita tidak dapat melihat label tersebut.
2. TextBox
TextBox biasa dipakai untuk interaksi dengan user yang memerlukan input data dari keyboard. Misalnya kita gunakan textbox untuk nama user. Penamaan textbox diberi awalan “txt”. Sebagian besar property textbox sama dengan label, tetapi ada beberapa yang berbeda dan atau mempunyai arti yang tidak persis sama.
a. Enable
Jika property Enable dari textbox di set menjadi True maka kita dapat mengedit isi dari textbox, sedangkan jika bernilai False kita tidak dapat mengedit isi dari textbox tersebut.
b. MultiLine
Digunakan untuk menentukan apakah tulisan dalam textbox dapat terdiri dari beberapa baris. Jika bernilai True maka isi textbox dapat terdiri dari beberapa baris, sedangkan jika False hanya terdiri dari 1 baris.
c. Alignment
Berbeda dengan label, pada textbox property Alignment hanya dapat bekerja bila property MultiLine bernilai True.
d. PasswordChar
Digunakan untuk mengganti tampilan karakter yang kita ketik. Misalnya PasswordChar bernilai “*”, maka setiap karakter yang kita ketik akan ditampilkan dengan karakter “*” tersebut.
e. ScrollBar
Digunakan untuk menentukan apakah textbox tersebut memakai scrollbar atau tidak. None tanpa scrollbar, Horizontal jika textbox memakai scrollbar horizontal, Vertical jika textbox memakai scrollbar vertical, Both jika textbox memakai scrollbar horizontal dan vertical.
f. Text
Property textbox yang paling sering kita atur. Yaitu property tulisan/isi textbox.
3. CommandButton
CommandButton merupakan implementasi tombol pada Visual Basic. Jika kita memakai program berbasis windows yang lain, biasanya mereka menggunakan command button untuk interaksi user, seperti tombol OK, Cancel, Save, dsb. Awalan yang dipakai adalah “cmd”. Property commandbutton sebagian besar sama dengan label. Beberapa perbedaan:
a. Cancel
Jika property ini bernilai True maka kita tidak perlu meng-klik tombol tersebut, kita cukup menekan tombol escape (ESC) pada keyboard. Dalam satu form hanya ada 1 tombol yang dapat mempunyai nilai True pada property Cancel-nya.
b. Default
Jika property ini bernilai True maka kita tidak perlu meng-klik tombol tersebut, kita cukup menekan tombol ENTER pada keyboard. Dalam satu form hanya ada 1 tombol yang dapat mempunyai nilai True pada property Default-nya.
4. OptionButton
OptionButton biasanya digunakan dalam pemilihan, dimana hanya satu pilihan yang dapat dipilih pada suatu saat tertentu. Penempatan OptionButton tergantung pada container-nya. Sekumpulan OptionButton dalam satu container, dianggap dalam satu grup dimana hanya ada 1 OptionButton yang dapat dipilih. Lihat gambar dibawah ini.
Disini 3 OptionButton dianggap satu grup dalam 1 container, yaitu form. Oleh karena itu hanya ada 1 OptionButton yang dapat dipilih (Option1). Bandingkan dengan gambar dibawah ini.
Dalam gambar diatas ada 2 OptionButton yang dipilih (Option2 dan Option4). Hal ini dimungkinkan karena container yang dipakai berbeda (Frame1 dan Frame2).
Jika sebuah OptionButton dipilih, maka property Value-nya bernilai True. Jika tidak dipilih maka Value-nya bernilai False.
5. CheckBox
Berbeda dengan OptionButton yang hanya dapat dipilih 1 dalam 1 container, kita dapat memilih satu, beberapa, atau bahkan semua checkbox karena chekbox tidak tergantung kepada container-nya. Walaupun begitu, kita dapat menempatkannya pada container seperti Frame untuk memberikan tampilan yang lebih jelas.
Property Value dari CheckBox terdiri dari 3 kemungkinan, 0-Unchecked, 1-Checked, 2-Grayed. Jadi dalam gambar kiri atas, nilai property Value Check1 adalah 0, Check2 adalah 1, dan Check3 adalah 2.
6. Menu Editor
Menu Editor dapat kita gunakan untuk membuat sistem menu dari program aplikasi. Jika terbiasa menggunakan program berbasis windows, tentu tidak asing lagi dengan istilah menu. Contoh : di dalam Microsoft Word kita dapat menemui menu-menu File, Edit, View dan sebagainya.
Untuk memulai pembuatan menu, aktifkan Menu Editor pada Toolbar Visual Basic. Jika icon nya disabled, aktifkan/tampilkan dulu form tempat dimana kita akan membuat sistem menu tersebut. Cara yang lain yaitu dengan klik kanan pada form tempat dimana kita akan membuat sistem menu lalu pilih Menu Editor.
Isi dari Caption akan ditampilkan pada layar, seperti property Caption pada Label. Jika Captionnnya diberi tanda “&” berarti selain mengklik menu kita dapat juga menggunakan tombol Alt dan huruf yang menyertai dibelakang tanda “&”.
Isi dari Name adalah merupakan pengenal menu, seperti juga pada property Name pada object-object lainnya.
Menu juga dapat dilengkapi dengan Shortcut yang dapat dipilih dari Drop Down yang tersedia. Satu Shortcut hanya dapat diberikan kepada satu menu. (Contoh: Jika Ctrl+O sudah diberikan kepada Open, maka tidak bisa diberikan kepada menu Font, misalnya.)
Atur property Enabled untuk mengatur apakah menu dapat dipilih atau tidak dan property Visible untuk mengatur apakah menu dapat dilihat atau tidak.
Gunakan tombol panah kiri/kanan untuk mengatur indent dari menu. Menu yang berindent (menjorok ke dalam/kanan) adalah merupakan sub menu dari menu diatasnya yang menjorok lebih kekiri. Dalam gambar diatas, menu New dan Open merupakan sub menu dari menu File.
Fungsi String
Adakalanya didalam pembuatan sebuah program kita perlu memanipulasi string. Manipulasi ini dapat dilakukan dengan cara menggunakan fungsi-fungsi bawaan Visual Basic yang memang diperuntukkan untuk memanipulasi string. Berikut diberikan beberapa fungsi yang sering dipakai. (Catatan: dalam program, penulisan string diapit dengan tanda kutip ganda).
1. Val(string)
Fungsi Val menerima sebuah argumen berupa string dan merubahnya menjadi numerik. Contoh: Val(“1990″) akan menghasilkan angka 1990. Val(“1990 AD”) akan menghasilkan angka 1990. Val(“Th 1990″) akan menghasilkan angka 0.
2. Left(string, length)
Fungsi Left yang menerima 2 buah argumen yaitu string dan length, akan menghasilkan string sepanjang length karakter. Contoh: Left(“Global”,3) akan menghasilkan “Glo”
3. Right(string,length)
Jika fungsi Left mengambil karakter dari kiri, maka fungsi Right akan mengambil karakter dari kanan string sebanyak length karakter.
Contoh: Right(“Global”,3) akan menghasilkan “bal”
4. Mid(string,start,length)
Fungsi Mid akan mengambil karakter dari string dimulai pada posisi start sepanjang length karakter.
Contoh: Mid(“Global”,3,3) akan menghasilkan “oba”
5. Ltrim(string)
Fungsi Ltrim akan membuang semua spasi yang berada disebelah kiri string.
Contoh: Ltrim(“ Global”) akan menghasilkan “Global”
6. Rtrim(string)
RTrim akan membuang semua spasi yang berada disebelah kanan string.
Contoh: Nama = Ltrim(“Global ”) akan menghasilkan “Global”
7. Trim(string)
Fungsi Trim akan membuang semua spasi yang berada disebelah kanan dan di sebelah kiri string.
Contoh: Trim(“ Global ”) akan menghasilkan “Global”
8. Len(string)
Fungsi Len akan menghitung jumlah karakter yang terdapat pada string.
Contoh: Len(“Global”) akan menghasilkan 6
9. UCase(string)
Fungsi UCase akan merubah semua huruf pada string menjadi huruf besar/huruf kapital.
Contoh: UCase(“Global”) akan menghasilkan “GLOBAL”
10. LCase(string)
Kebalikannya dari UCase, LCase akan merubah semua huruf pada string menjadi huruf kecil.
Contoh: LCase(“GlobAL”) akan menghasilkan “global”
Percabangan Bersyarat
If..Then
IF THEN
hanya akan dijalankan bila benar
Contoh:
If Text1.Text = “Hallo” Then MsgBox “Hallo Juga!”
If..Then..Else
IF THEN
ELSE
END IF
Jika benar, jalankan , jika tidak jalankan .
Contoh:
If Val(Text1.Text) > 65 Then
MsgBox “Selamat! Anda Lulus”
Else
MsgBox “Maaf! Anda Tidak Lulus”
End If
Penggunaan IF..THEN..ELSE dapat saling berkait (nested):
IF THEN
ELSE
IF THEN
ELSE
END IF
END IF
Contoh:
If Val(Text1.Text) > 80 then
MsgBox “Nilai = A”
Else
If Val(Text1.Text) > 60 then
MsgBox “Nilai = B”
Else
MsgBox “Nilai = C”
End If
End If
Baris kode diatas dapat disederhanakan menjadi:
IF THEN
ELSEIF THEN
ELSE
END IF
Contoh:
If Val(Text1.Text) > 80 then
MsgBox “Nilai = A”
ElseIf Val(Text1.Text) > 60 then
MsgBox “Nilai = B”
Else
MsgBox “Nilai = C”
End If
Select Case
Digunakan untuk memilih dari beberapa pilihan bergantung pada nilai yang akan diuji. Pengujian dilakukan dari blok case teratas sampai terbawah, dan hanya ada satu blok case yang akan dijalankan.
SELECT CASE
CASE
CASE
CASE ELSE
END SELECT
Contoh:
Select Case Text1.Text
Case “A”
MsgBox “Nilai = 4″
Case “B”
MsgBox “Nilai = 3″
Case “C”
MsgBox “Nilai = 2″
Case “D”
MsgBox “Nilai = 1″
End Select

Pemindahan Fokus pada Textbox
Pemindahan fokus untuk textbox dapat dilakukan dengan 3 cara. Cara pertama ialah dengan menggunakan mouse, klik textbox yang ingin kita isi. Cara kedua ialah dengan menggunakan tombol “Tab” pada keyboard. Cara yang ketiga ialah dengan menggunakan kode pada event “keypress”.
Dengan cara pertama, kita cukup meng-klik textbox yang kita mau dengan mouse. Dengan cara ini pemindahan fokus textbox agak sulit dilakukan karena tangan kita harus meraih mouse dan menekan tombol kiri pada textbox yang ingin diisi terlebih dahulu.
Dengan cara kedua, pemindahan menjadi lebih mudah karena kita hanya cukup menekan tombol tab. Pada cara ini perpindahan fokus tergantung dari property TabIndex masing-masing textbox. Dimana nilai terkecil akan menerima fokus terlebih dahulu.
Cara ketiga lebih mudah lagi, karena perpindahan tidak tergantung pada property TabIndex tersebut. Cukup tekan enter dan kita set textbox mana yang akan menerima fokus berikutnya.
‘Kode dibawah ini akan memindahkan fokus ke Text2 setelah kita menekan Enter pada Text1
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn then
Text2.SetFocus
End If
End Sub
Penggunaan event Change pada textbox
Event Change pada textbox terjadi bila kita merubah isi dari textbox melalui pengisian langsung pada textbox yang bersangkutan atau melalui perubahan setting pada property Text-nya pada saat running-time.
‘Kode dibawah ini akan menambahkan “a” dengan isi dari Text1 dan menyimpannya ke Text2
Private Sub Text1_Change()
Text2.Text = “a” & Text1.Text
End Sub
Tipe-Tipe Data dalam Visual Basic
Tipe Data Range Karakter
Integer -32768 s/d 32767 %
Long -2147483648 s/d 2147483647 &
Single Negatif: -3,402823E38 s/d -1,401298E-45
Positif: 1,401298E-45 s/d 3,402823E38 !
Double Negatif: -1,79769313486232E308 s/d
-4,94065645841247E-324
Positif: 4,94065645841247E-324 s/d
1,79769313486232E308 #
Currency -922337203685477,5808 s/d
922337203685477,5807 @
String 0 s/d 2 milyar karakter (win32)
0 s/d 65535 karakter (win16) $
Byte 0 s/d 255
Boolean True (Benar) dan False (Salah)
Date 1 Januari 100 s/d 31 Desember 9999
Object Referensi Object
Variant Null, Error, dan seluruh tipe data lain diatas
Database Programming Dengan VB6
Membuat Database
Pembuatan database yang dibahas pada modul ini mencakup pembuatan database Microsoft Access (*.mdb) dengan menggunakan Visual Basic Add-Ins yaitu Visual Data Manager.
Untuk menjalankan Visual Data Manager, pilih menu Add-Ins  Visual Data Manager pada menu utama VB 6.0. Setelah itu akan muncul tampilan seperti dibawah ini.
Untuk membuat sebuah database, pilih menu File  New  Microsoft Access  Version 7.0 MDB.
Setelah itu akan muncul tampilan yang meminta kita untuk memasukkan nama file database dan lokasinya.
Setelah menentukan lokasi dan nama databasenya, tekan tombol Save hingga muncul tampilan berikut.
Klik kanan pada Database Window dan pilih New Table, sehingga tampil window Table Structure.
Ketikkan TbBarang pada Table Name lalu tekan Add Field yang akan menampilkan form berikut
Ketikkan KodeBarang pada Name sebagai nama dari field yang pertama. Pilih Text pada Type untuk menentukan tipe data dari field Kode Barang. Isikan 8 pada Size untuk menentukan lebar data yang dapat disimpan pada field tersebut. Klik OK.
Untuk menambahkan field-field yang lain, isi lagi Name, pilih Type dan isi Size. Jika semua field sudah dimasukkan, tekan Close untuk menutup window Add Field.
Penambahan Index dilakukan dengan cara yang hampir sama dengan penambahan Field. Klik Add Index hingga muncul tampilan
Ketikkan IdxKodeBarang pada Name sebagai nama dari index. Setelah itu pilih field yang ingin di-index pada Available Fields. Field yang di-Index akan tampil pada Indexed Fields. Dengan menggunakan Index, maka record-record akan diurutkan berdasarkan field yang diindex. Selain itu dengan adanya Index, kita dapat menggunakan metode Seek untuk mencari record. Dengan cara ini pencarian record lebih cepat daripada dengan cara sequential dengan metode Find.
Bound Control
Di dalam Visual Basic, terdapat sebuah control yang disebut Data Control. Dengan Data Control ini dan beberapa control yang dapat dihubungkan dengan Data Control (disebut juga Data-Bound Control), kita dapat membuat sebuah program database sederhana dengan mudah.
Walaupun demikian, tidak semua database di support oleh Visual Basic Data Control. Access dan dBase adalah beberapa contoh yang telah disupport oleh Visual Basic. Untuk lebih jelasnya letakkan sebuah Data Control pada form, lihat property Connect pada Data Control. Disana dapat dilihat list yang disupport oleh Visual Basic.
Untuk pemakaian, letakkan sebuah Data Control pada form. Set property DatabaseName dengan nama database Access beserta path-nya. Set property RecordSource dengan nama table yang ingin digunakan. Visual Basic juga memungkinkan penggunaan statement SQL SELECT dan query yang disimpan pada database Access.
Selain menghubungkan form dengan database, Data Control juga dapat digunakan untuk navigasi record-record.
Kasus I : Browsing Database dengan Bound Control
Buat sebuah project dengan nama prjBound.vbp. Selanjutnya lihat tabel di bawah :
Object Property Setting
Form Name frmBarang
Caption Pemeliharaan Data Barang
Data Name datBarang
Caption Barang
DatabaseName c:\vb\data.mdb
RecordSource tbBarang
Text Name txtKodeBarang
DataField KodeBarang
DataSource datBarang
Text
Name txtNama
DataField Nama
DataSource datBarang
Text Name txtHargaSatuan
DataField HargaSatuan
DataSource datBarang
Object Property Setting
Text Name txtStok
DataField Stok
DataSource datBarang
Gunakan Visual Basic Menu Editor untuk membuat menu sbb:
Caption Name
&File mnuFile
—-E&xit mnuFileExit
Pada event click untuk mnuFileExit ketikkan perintah:
Private Sub mnuFileExit_Click()
Unload Me
End Sub
Jalankan program, perhatikan bahwa textbox langsung terisi dengan data record pertama dalam tabel tbBarang. Coba juga melakukan navigasi record-record dengan mengklik First Record, Previous Record, Next Record, Last Record. Perhatikan juga bahwa isi text akan otomatis di-update berdasarkan navigasi yang kita lakukan.
Selain itu, jika kita melakukan perubahan pada data yang aktif, perubahan akan otomatis disimpan apabila kita berpindah record. Dengan demikian kita sudah dapat membuat sebuah aplikasi database sederhana tanpa kode sedikitpun. Pada contoh diatas, kode program hanya untuk menu keluar aplikasi.
Namun demikian, aplikasi ini tidak / belum dapat melakukan validasi pemasukan data, menambah data ataupun menghapus data. Untuk itu kita perlu memodifikasi aplikasi tersebut diatas.
Kasus II : Validasi Data
Agar aplikasi kita dapat melakukan validasi data, maka kita harus memodifikasi aplikasi sebelummnya. Tehnik yang dilakukan ialah dengan menggunakan event Validate dari Data Control.
Setiap navigasi – merubah posisi record / pindah ke record lain, Visual Basic akan menjalankan event Validate dari Data Control tersebut. Di dalam event inilah kita akan menulis kode yang nantinya dapat memvalidasi data yang akan disimpan ke dalam database.
Perubahan posisi record dengan data control dinyatakan dengan konstanta Visual Basic : vbDataActionMoveFirst – pindah ke record pertama, vbDataActionMovePrevious – pindah ke record sebelumnya, vbDataActionMoveNext – pindah 1 record ke depan, dan vbDataActionMoveLast – pindah ke record terakhir. Jadi di dalam event ini kita akan mengecek berdasarkan konstanta di atas.
Selanjutnya kita cek apakah pengisian data sudah sesuai dengan peraturan yang kita buat, misalnya textbox KodeBarang harus diisi. Jika setelah kita cek KodeBarang tidak diisi, maka keluarkan pesan dan set Action menjadi dbDataActionCancel (konstanta built-in Visual Basic yang akan membatalkan).
Buka project diatas, lalu ketikkan kode dibawah ini sebagai Validate event dari data control :
Private Sub datBarang_Validate (Action As Integer, Save As Integer)
If Action = vbDataActionMoveFirst or Action = vbDataActionMovePrevious or Action = vbDataActionMoveNext or Action = vbDataActionMoveLast then
If txtKodeBarang.Text = “” then
Msgbox “Kode Barang harus diisi”, vbExclamation
txtKodeBarang.SetFocus
Action = vbDataActionCancel
End If
End If
End Sub
Jika user melakukan perpindahan record, maka cek property text pada txtKodeBarang. Jika textbox tersebut kosong, keluarkan pesan error, lalu set focus pada textbox tersebut dan batalkan perpindahan pointer record.
Catatan:
Konstanta Visual Basic Nilai Pengganti
vbDataActionCancel 0
vbDataActionMoveFirst 1
vbDataActionMovePrevious 2
vbDataAvtionMoveNext 3
vbDataActionMoveLast 4
Kasus III : Menyediakan Fitur Undo pada Aplikasi
Situasi : setelah user melakukan perubahan pada bound control tetapi sebelum melakukan perpindahan pointer record untuk menyimpan perubahan, user ingin membatalkan perubahan yang ia buat. Untuk itu Visual Basic telah menyediakan UpdateControls Method dari Data Control. Dengan mengeksekusi method ini, maka Visual Basic akan membaca ulang database dan mengisi bound control dengan data asli dari database.
Modifikasi project diatas dengan merubah sistem menu menjadi :
Caption Name
&File mnuFile
—-E&xit mnuFileExit
&Edit mnuEdit
—-&Undo mnuEditUndo
Ketikkan kode berikut :
Private Sub mnuEditUndo_Click()
datBarang.UpdateControls
End Sub
Dengan adanya kode diatas, maka jika user memilih menu Edit  Undo, semua textbox akan terisi dengan data asli sebelum user melakukan perubahan.
Kasus IV : Menambah Record
Penambahan record pada bound controls dapat dilakukan dengan 2 cara : dengan merubah property data control atau dengan bantuan kode.
Property yang harus dirubah agar kita dapat menambah record baru ialah property EOFAction. Set property tersebut dengan 2 – AddNew. Dengan demikian jika pointer record telah berada pada record terakhir, penekanan tombol Move Next akan menyebabkan Visual Basic menambahkan record baru dan mengisi semua bound control dengan nilai default dari database (biasanya kosong / tidak diisi). Setelah entry data selesai, penyimpanan dilakukan oleh Visual Basic jika kita berpindah pointer ke record lain atau menambah record baru.
Cara lain yaitu dengan menggunakan kode. Buka project sebelumnya, kembalikan setting property EOFAction pada keadaan semula 0 – Move Last dan rubah sistem menu menjadi :
Caption Name
&File mnuFile
—-E&xit mnuFileExit
&Edit mnuEdit
—-&Undo mnuEditUndo
&Data mnuData
—-&Add Record mnuDataAdd
—-&Save Record mnuDataSave
Ketikkan kode dibawah ini :
Private Sub Form_Load()
mnuDataSave.Enabled = False
End Sub
Private Sub mnuDataAdd_Click()
datBarang.Recordset.AddNew
mnuDataSave.Enabled = True
mnuDataAdd.Enabled = False
txtKodeBarang.SetFocus
End Sub
Private Sub mnuDataSave_Click()
datBarang.Recordset.Update
mnuDataSave.Enabled = False
mnuDataAdd.Enabled = True
End Sub
Ketika user memilih menu Data  Add, metode AddNew dari data control akan mereset textbox menjadi nilai defaultnya (kosong / tidak diisi) dan menyiapkan tempat untuk record baru nantinya. Selanjutnya menu Save akan di-enable dan menu Add akan di-disable dan merubah focus ke txtKodeBarang.
Ketika user memiih menu Data  Save, metode Update akan mengkopi isi dari textbox ke dalam database dan mengupdate table sebagai langkah akhir penyimpanan. Selanjutnya menu Save akan di-disable dan menu Add akan di-enable.
Kasus V : Menghapus Data
Kadang diperlukan juga suatu fitur aplikasi yaitu untuk menghapus data. Penghapusan ini biasanya dilakukan apabila, misalnya, penjualan suatu barang tertentu dihapuskan atau dengan kata lain kita tidak menjual barang tersebut lagi untuk seterusnya.
Untuk itu buka kembali project diatas. Rubah sistem menu menjadi :
Caption Name
&File mnuFile
—-E&xit mnuFileExit
&Edit mnuEdit
—-&Undo mnuEditUndo
&Data mnuData
—-&Add Record mnuDataAdd
—-&Save Record mnuDataSave
—-&Delete Record mnuDataDelete
Lalu ketikkan kode berikut :
Private Sub mnuDataDelete_Click()
if MsgBox(“Hapus data ini ?”, vbQuestion + vbYesNo + vbDefaultButton2) = vbYes then
datBarang.Recordset.Delete
datBarang.Recordset.MoveFirst
End If
End Sub
Jika user memilih menu Data  Delete Record, maka akan keluar kotak pesan yang menanyakan konfirmasi penghapusan. Jika user benar-benar ingin menghapus data (user pilih Yes), maka record aktif akan dihapus. Selanjutnya pointer record akan berpindah ke record pertama. Ini untuk menghindari error sebab setelah record dihapus, pointer record tidak akan menuju ke suatu record yang valid.
Kasus VI : Browse Data dengan DBGrid
Untuk user yang biasa menggunakan aplikasi Spreadsheet (Lotus, Excel), mungkin membutuhkan suatu cara penyajian data dalam bentuk tabel. Untuk menyediakan fitur tersebut, kita dapat menggunakan control Data Bound Grid (DBGrid).
Buka kembali project diatas. Tambahkan sebuah CommandButton pada form tersebut :
Object Property Setting
CommandButton Name cmdBrowseBarang
Caption Browse Data Barang
Ketikkan kode berikut sebagai event klik dari tombol yang baru kita buat tersebut:
Private Sub cmdBrowseBarang_Click()
frmBrowseBarang.Show vbModal
End Sub
Maksudnya ialah agar menampilkan form frmBrowseBarang tersebut sebagai modal. Sebelum from frmBrowseBarang ditutup, user tidak akan bisa pindah ke form yang lain.
Setelah itu tambah 1 buah form, 1 buah data control, sebuah DBGrid dan CommandButton:
Object
Property Setting
Form Name frmBrowseBarang
Caption Browse Data Barang
Data Name datBarang
Caption Barang
DatabaseName c:\vb\data.mdb
RecordSource tbBarang
Visible False
DBGrid Name grdBrowseBarang
Align 1 – vbAlignTop
DataSource datBarang
CommandButton Name cmdExit
Caption Keluar
Ketikkan kode berikut sebagai event click dari cmdExit :
Private Sub cmdExit_Click()
Unload Me
End Sub
Jadi jika user klik tombol Keluar, form akan di-unload dan kembali ke form sebelumnya.
Untuk mengisi judul kolom-kolom DBGrid, klik kanan pada DBGrid tersebut dan pilih Retrieve Fields. Judul kolom tersebut akan terisi otomatis berdasarkan nama field dari table tbBarang.
Klik kanan DBGrid, pilih Properties…, pada tab General kita dapat memberikan judul untuk DBGrid tersebut dengan mengisi box Caption.
Jika ingin merubah judul kolom, pilih tab Columns dan rubah Caption dari kolom-kolom tersebut.
Agar user dapat menambahkan data baru langsung pada DBGrid, rubah property AllowAddNew menjadi True atau dengan membari tanda centang pada AllowAddNew pada tab General.
Agar user dapat menghapus data langsung pada DBGrid, rubah property AllowDelete menjadi True atau dengan memberi tanda centang pada AllowDelete pada tab General.
Setelah program dijalankan, DBGrid akan langsung terisi dengan data dari database. Selain itu user dapat menambah data baru, merubah data dan menghapus langsung pada DBGrid.
Data Access Object
Dengan Data Control, kita dapat dengan mudah membuat aplikasi database tanpa atau dengan sedikit kode. Walupun demikian Data Control membatasi akses kita terhadap database itu sendiri. Untuk dapat melakukan kontrol penuh terhadap database dengan fleksibilitas yang besar, Microsoft Jet database engine menyediakan metode lain yaitu dengan menggunakan Data Access Object (DAO) – walaupun dengan koding yang lebih banyak.
Deklarasikan variabel database dan recordset
Contoh:
Dim dbBarang As Database
Dim rsPemilik As Recordset
Set database dan recordset
Contoh:
Set dbBarang = OpenDatabase(“c:\data.mdb”)
Set rsPemilik = db.OpenRecordset(“tbPemilik”)
Catatan: tbPemilik adalah nama tabel.
Menambah record baru
Contoh:
rsPemilik.AddNew
rsPemilik!KodePemilik = txtKodePemilik.Text
rsPemilik!NamaPemilik = txtNamaPemilik.Text
rsPemilik.Update
Mencari data dengan index
Contoh:
rsPemilik.Index = “idxKodePemilik”
rsPemilik.Seek “=”, txtCari.Text
Menghapus record
Contoh:
rsPemilik.Delete
rsPemilik.MoveFirst/MoveLast
Catatan: setelah penghapusan data, pointer record tidak menunjuk ke record yang valid. Oleh karena itu untuk menghindari masalah, pindahkan pointer record ke record pertama/terakhir.
Merubah data
Contoh:
rsPemilik.Edit
rsPemilik!KodePemilik = txtKodePemilik.Text
rsPemilik!NamaPemilik = txtNamaPemilik.Text
rsPemilik.Update
Catatan : Untuk menghapus atau merubah data, data yang ingin dirubah / dihapus harus dijadikan record aktif dengan terlebih dahulu melakukan pencarian terhadap record tersebut. Jika data yang dicari ada, baru dapat dilakukan penghapusan / perubahan.
Contoh Kasus : Pembuatan aplikasi pemeliharaan data barang
Object Property Setting
Form Name FrmBarang
Caption Pemeliharaan Data Barang
TextBox Name txtKodeBarang
Text Kosongkan
TextBox Name txtNama
Text Kosongkan
TextBox Name txtHargaSatuan
Text Kosongkan
TextBox Name txtStok
Text Kosongkan
Frame Caption Kosongkan
CommandButton Name cmdAdd
Caption &Tambah
CommandButton Name cmdEdit
Caption &Rubah
CommandButton Name cmdDelete
Caption &Hapus
CommandButton Name cmdExit
Caption &Keluar
Listing Kode
Dim dbBarang As Database
Dim rsBarang As Recordset
Deklarasi variabel database dan recordset
Sub DisableBox()
txtNama.Enabled = False
txtNama.BackColor = vbButtonFace
txtHargaSatuan.Enabled = False
txtHargaSatuan.BackColor = vbButtonFace
txtStok.Enabled = False
txtStok.BackColor = vbButtonFace
End Sub
Prosedur DisableBox akan men-disable-kan textbox Nama, HargaSatuan dan Stok
Sub EnableBox()
txtNama.Enabled = True
txtNama.BackColor = vbWhite
txtHargaSatuan.Enabled = True
txtHargaSatuan.BackColor = vbWhite
txtStok.Enabled = True
txtStok.BackColor = vbWhite
End Sub
Prosedur EnableBox akan meng-enable-kan textbox Nama, HargaSatuan dan Stok
Sub ClearBox()
txtKodeBarang.Text = “”
txtNama.Text = “”
txtHargaSatuan.Text = “”
txtStok.Text = “”
txtKodeBarang.SetFocus
End Sub
Prosedur ClearBox akan membersihkan textbox KodeBarang, Nama, HargaSatuan dan Stok serta merubah focus ke KodeBarang.
Sub ClearBox2()
txtNama.Text = “”
txtHargaSatuan.Text = “”
txtStok.Text = “”
End Sub
Prosedur ClearBox2 akan membersihkan textbox Nama, HargaSatuan dan Stok.
Private Sub cmdAdd_Click()
rsBarang.AddNew
rsBarang!KodeBarang = txtKodeBarang
rsBarang!Nama = txtNama
rsBarang!HargaSatuan = txtHargaSatuan
rsBarang!Stok = txtStok
rsBarang.Update
ClearBox
DisableBox
cmdAdd.Enabled = False
End Sub
Jika user klik tombol Add, method AddNew akan menyediakan tempat untuk data / record baru. Selanjutnya field-field akan diisi berdasarkan textbox yang bersangkutan. Setelah itu method Update akan melakukan penyimpanan, panggil prosedur ClearBox dan DisableBox, disable-kan tombol Add.
Private Sub cmdDelete_Click()
rsBarang.Delete
rsBarang.MoveFirst
ClearBox
cmdEdit.Enabled = False
cmdDelete.Enabled = False
End Sub
Jika user klik tombol Delete, data aktif yang ditampilkan di layar akan dihapus, lalu panggil prosedur ClearBox dan disable-kan tombol Edit dan Delete. Untuk menghapus data sebelumnya jalankan terlebih dahulu fasilitas pencarian untuk mencari dan memindahkan pointer record ke record yang ingin dihapus tersebut.
Private Sub cmdEdit_Click()
If cmdEdit.Caption = “&Rubah” Then
EnableBox
cmdEdit.Caption = “&Simpan Perubahan”
cmdDelete.Enabled = False
Else
rsBarang.Edit
rsBarang!KodeBarang = txtKodeBarang
rsBarang!Nama = txtNama
rsBarang!HargaSatuan = txtHargaSatuan
rsBarang!Stok = txtStok
rsBarang.Update
ClearBox
DisableBox
cmdEdit.Caption = “&Rubah”
cmdEdit.Enabled = False
End If
End Sub
Jika captionnya “Rubah”, penekanan tombol akan memanggil prosedur EnableBox, merubah Caption tombol menjadi “Simpan Perubahan” dan men-disable-kan tombol Delete.
Jika captionnya “Simpan Perubahan”, simpan perubahan data ke dalam database, panggil ClearBox, DisableBox, rubah caption menjadi “Rubah” dan disablekan tombol tersebut.
Private Sub cmdExit_Click()
Unload Me
End Sub
Tombol Exit akan membawa user keluar dari program.
Private Sub Form_Load()
Set dbBarang = OpenDatabase(App.Path + “\glosell.mdb”)
Set rsBarang = dbBarang.OpenRecordset(“TbBarang”)
DisableBox
cmdAdd.Enabled = False
cmdEdit.Enabled = False
cmdDelete.Enabled = False
End Sub
Buka database dan recordset, panggil DisableBox, disable-kan tombol Add, Edit dan Delete.
Private Sub txtKodeBarang_Change()
If Len(txtKodeBarang) < 8 Then
ClearBox2
DisableBox
cmdAdd.Enabled = False
Exit Sub
End If
rsBarang.Index = “IdxKodeBarang”
rsBarang.Seek “=”, txtKodeBarang
If Not rsBarang.NoMatch Then
txtNama.Text = rsBarang!Nama
txtHargaSatuan.Text = rsBarang!HargaSatuan
txtStok.Text = rsBarang!Stok
cmdEdit.Enabled = True
cmdDelete.Enabled = True
Else
EnableBox
ClearBox2
cmdAdd.Enabled = True
End If
End Sub
Private Sub txtKodeBarang_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Private Sub txtNama_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Aplikasi Database dengan 2 Tabel atau Lebih
Dalam pembuatan aplikasi database, ada kemungkinan pemakaian database dengan 2 tabel atau lebih. Misalnya dalam aplikasi penjualan, diperlukan tabel Pelanggan, Barang dan Transaksi. Dimana ketika kita melakukan Transaksi Penjualan, Pelanggan yang membeli dan Barang yang dibelinya akan kita simpan ke dalam tabel Transaksi.
Untuk lebih jelasnya diberikan contoh kasus sebagai berikut :
Buatlah sebuah aplikasi penjualan dengan menggunakan database Access yang terdiri dari 3 tabel tbPelanggan, tbBarang dan tbTransaksi dengan ketentuan field-field sebagai berikut:
Tabel tbPelanggan
Field Name Field Type Field Size
KodePelanggan Text 5
Nama Text 20
Alamat Text 100
Telepon Text 8
Tabel diindex berdasarkan field KodePelanggan dengan nama index idxKodePelanggan
Tabel tbBarang
Field Name Field Type Field Size
KodeBarang Text 5
Nama Text 20
Harga Currency
Stok Integer
Tabel diindex berdasarkan field KodeBarang dengan nama index idxKodeBarang
Tabel tbTransaksi
Field Name Field Type Field Type
NoTrans Text 5
Tanggal Date/Time
KodePelanggan Text 5
KodeBarang Text 5
Jumlah Integer
Total Currency
Tabel diindex berdasarkan field NoTrans dengan nama index idxNoTrans
Selanjutnya, buatlah form Menu Utama, Data Pelanggan ,Data Barang dan Transaksi.
Input Kode Barang dan Kode Pelanggan pada form Transaksi dilakukan dengan memilih data yang ada dari dropdown yang tersedia. Untuk itu kita mempergunakan DBCombo dari Microsoft Data Bound List Controls 6.0.
Object Type Property Setting
Data Name dtaPelanggan
Caption Pelanggan
DatabaseName c:\vb\data.mdb
RecordSource tbPelanggan
Visible False
DBCombo Name dbcKodePelanggan
ListField KodePelanggan
RowSource dtaPelanggan
Style 2 – dbcDropDownList
Data Name dtaBarang
Caption Barang
DatabaseName c:\vb\data.mdb
RecordSource tbBarang
Visible False
DBCombo Name dbcKodeBarang
ListField KodeBarang
RowSource dtaBarang
Style 2 – dbcDropDownList
Deklarasikan recordset pencarian pada General Declaration:
Public rsBarangCari as Recordset
Public rsPelangganCari as Recordset
Set recordset dengan tabel database pada Form_Load (asumsi : db adalah variabel untuk database yang telah diset ke file database)
Set rsBarangCari = db.OpenRecordset(“tbBarang”)
Set rsPelangganCari = db.OpenRecordset(“tbPelanggan”)
rsBarangCari.Index = “idxKodeBarang”
rsPelangganCari.Index = “idxKodePelanggan”
Pada event Click dbcKodePelanggan ketikkan:
Private Sub dbcKodePelanggan_Click(Area As Integer)
If Area = dbcListArea then
rsPelangganCari.Seek “=”,dbcKodePelanggan.Text
txtNamaPelanggan.Text = rsPelangganCari!Nama
End If
End Sub
Pada event Click dbcKodeBarang ketikkan:
Private Sub dbcKodeBarang_Click(Area As Integer)
If Area = dbcListArea then
rsBarangCari.Seek “=”,dbcKodeBarang.Text
txtNamaBarang.Text = rsBarangCari!Nama
txtHargaSatuan.Text = rsBarangCari!Harga
End If
End Sub
Setelah program dijalankan, bukalah form Transaksi. Perhatikan bahwa kita cukup memilih KodePelanggan dari dropdown yang tersedia maka NamaPelanggan akan terisi secara otomatis. Hal ini berlaku pula jika kita memilih KodeBarang dari drop down yang tersedia, Namabarang dan Harga Satuan akan terisi secara otomatis.
Adapun untuk penyimpanan, yang kita simpan adalah KodePelanggan (didapat dari dbcKodePelanggan.Text) dan KodeBarang (didapat dari dbcKodeBarang.Text).
Pembuatan Laporan pada Visual Basic
Pendahuluan
Pembuatan report / laporan dimaksudkan agar user dapat menghasilkan keluaran / output berupa cetakan ke atas kertas. Laporan ini biasanya diperlukan oleh para manajer untuk pengambilan keputusan-keputusan.
Sebelumnya pembuatan laporan harus menggunakan program dari luar seperti Seagate Crystal Report, atau dengan mengkoding sendiri semua langkah-langkah dari pembacaan data, looping, pencetakan dan format laporannya. Tentu saja pembuatan laporan dengan cara koding seperti ini tidak mudah karena diperlukan berlembar-lembar kertas agar dapat dicapai format laporan yang diinginkan.
Untunglah Microsoft menyadari hal ini dan memasukkan fitur pembuatan laporan pada Visual Basic versi 6, yaitu Microsoft Data Report Designer. Dengan fitur ini, programmer dapat dengan mudah membuat laporan karena sifatnya yang WYSIWYG dan mirip seperti pembuatan form pada umumnya. Laporan yang dihasilkan pun defaultnya hanya di-preview, sehingga dapat mengurangi penggunaan kertas yang tidak perlu untuk mencoba melihat hasilnya. Laporan juga dapat dikonversikan ko format umum seperti HTML.
Pembuatan Laporan dengan MS Data Report Designer
Buat project baru (standard exe) pada Visual Basic. Pilih menu Project  Add Data Environment untuk menambahkan Data Environment pada project.
Klik kanan pada Connection1 dan pilih Properties. Pada window yang muncul kemudian, pilih Microsoft Jet 4.0 OLE DB Provider lalu klik Next. (Jika tidak ada, dapat juga digunakan Microsoft Jet 3.51 OLE DB Provider)
Catatan: Microsoft Jet 4.0 OLE DB Provider dapat ditemukan apabila di komputer telah terinstall MS Access 2000.
Isikan path dan nama file database (*.mdb) atau tekan tombol … untuk mencari filenya (browse). Setelah itu tekan tombol Test Connection untuk mengetes apakah sudah dapat terkoneksi dengan database tersebut dan klik OK.
Klik kanan kembali pada Connection1 dan pilih Add Command
Klik kanan pada Command1 untuk menampilkan form berikut
Pilih option Database Object lalu pilih Table dari dropdown di sebelahnya. Setelah itu pilih nama tabel pada Object Name. Klik Apply lalu OK.
Tambahkan sebuah Data Report dengan memilih Project  Add Data Report
Klik dan tahan Command1 pada Data Environment, lalu drag ke Data Report pada Detail (Section1) sehingga tampilan Data Report menjadi seperti dibawah ini.
Perhatikan bahwa semua field dari tabel telah berada pada Report. Selanjutnya atur posisinya sesuai keperluan.
Langkah selanjutnya adalah menentukan sumber data untuk Data Report tersebut. Untuk itu pilih property DataSource pada Data Report dan pilih DataEnvironment1 pada dropdown yang tersedia.
Setelah itu pilih Command1 pada dropdown property DataMember. Tambahkan sebuah form pada project. Pada Form_Load ketikkan kode berikut:
DataReport1.Show
Jika langkah-langkah diatas telah dijalankan dengan benar, maka ketika program dijalankan, datareport1 akan muncul.
Catatan : 2 buah Icon yang berada diatas kegunaannya berturut-turut adalah untuk mencetak dan untuk export laporan yang ada ke format lain, misalnya, HTML.
Pembuatan Laporan dengan Menggunakan Crystal Report.
Jika di dalam Visual Basic versi 5 terdapat pilihan untuk menginstall Crystal Report, maka pada Visual Basic versi 6 pilihan tersebut dihilangkan. Hal ini mungkin dilakukan karena Visual basic versi 6 sudah mempunyai Data Report Designer yang dapat digunakan untuk pembuatan laporan.
Namun demikian bukan berarti kita tidak dapat menggunakan Crystal Report. Crystal Report dapat ditemukan pada CD instalasi Visual Basic pada folder/direktory “D:\Common\Tools\VB\Crysrept\” (ganti D dengan drive CDROM Anda). Setelah berada di dalam folder/direktory ini, jalankan file Crystl32.exe untuk menginstall Crystal Report.
Setelah diinstall, Crystal Report dapat Anda temui pada menu Add-Ins Visual Basic, yaitu Report Designer.
Menjalankan Crystal Report
Pilih menu Add-InsReport Designer untuk menampilkan window utama Crytal Report seperti dibawah ini.
Membuat Report Baru
Pilih menu File  New untuk menampilkan windows berikut ini
Klik pada tombol Standard untuk menampilkan window Report Expert.
Memasukkan Database
Pada tab Step1: Tables, klik pada Data File untuk menampilkan window Choose Database File. Di window ini Anda dapat mem-browse direktory untuk mencari file database yang akan dipakai sebagai sumber data dari report yang akan kita buat.
Setelah file database yang diinginkan ditemukan, tekan tombol Add untuk menampilkan kembali tab Step1: Tables.
Menambahkan Tabel
Pada tab Step1: Tables, pilihlah tabel yang ingin dimasukkan ke dalam report, lalu klik Next >>.
Melihat/Modifikasi Relasi Tabel-Tabel
Jika tabel yang dimasukkan lebih dari satu, maka pada tab 2: Links anda dapat melihat/memodifikasi hubungan antara tabel-tabel. Selanjutnya tekan Next >>.
Menambahkan Field-field
Pada tab 3: Fields, Anda dapat memilih field-field mana saja yang ingin ditampilkan di dalam report. Terlebih dahulu klik field-nya pada Database Fields lalu klik Add ->, atau klik All -> untuk memasukkan semua field. Klik Next >>.
Menentukan Sortir Data
Pada tab 4: Sort, Anda dapat memilih field yang akan di sort dan ordernya. Pada gambar terlihat bahwa laporan akan diurutkan berdasarkan Field KodeBarang secara menaik (Ascending).
Menentukan Field yang akan di Total
Pada tab 5: Total, Anda dapat memilih field-field yang akan ditotalkan.
Memilih Field Filter
Pada tab 6: Select, Anda dapat memilih field yang akan difilter. Sebagai acuan, yang biasanya dipilih adalah field yang di-index.
Memilih Report Style
Pada field 7: Style, Anda dapat memberi judul pada laporan yang Anda buat. Anda juga dapat memilih style dari laporan Anda, apakah bentuk Standard, Table, dsb. Gambar style yang dipilih akan ditampilkan di sebelah kanan. Setelah itu Anda dapat mengklik Preview Report untuk melihat hasil laporan yang Anda buat.
Gambar Preview Report dapat dilihat seperti gamabr dibawah ini.
Jika Anda pilih tab Design maka Anda dapat merubah desain dari laporan yang baru Anda buat.
Merubah Desain Report
Di dalam tab Design ini Anda dapat menambahkan Field dari Tabel, Text Field, sampai dengan menambahkan gambar pada laporan Anda.
Menambahkan Field
Untuk menambahkan field, pilih menu InsertDatabase Field. Pada window yang tampil, pilih field yang ingin di-insert lalu klik Insert.
Jika Anda ingin menambahkan tulisan pada report. Pilih menu InsertText Field. Pada window yang keluar, isikan teks yang akan ditampilkan.
Klik Accept, setelah itu letakkan Text Field di tempat yang diinginkan. Pilih tab Preview untuk menampilkan report dengan Text Field yang baru dimasukkan.
Merubah Format Tanggal
Di dalam tab Design kita dapat juga merubah format tampilan dari field tanggal. Contohnya merubah format tanggal dari “dd/mm/yyyy” menjadi “dd-mm-yyyy”. Klik kanan pada Field Tanggal lalu pilih Change Format.
Pada window yang tampil, Anda dapat merubah format tampilan dari tanggal tersebut.
- Use Windows Default Format : field tanggal tersebut akan mengikuti format dari penanggalan system Windows.
- Suppress if Duplicated : apabila ada dua nilai yang sama, yang akan ditampilkan hanya satu nilai.
- Hide when Printing : jika report tersebut diprint, field tidak akan ikut tercetak.
- Alignment : Left (rata kiri), Center (rata tengah), Right (rata kanan), atau Default (standar).
- MDY : field akan berformat “mm-dd-yyyy”, DMY berformat “dd-mm-yyyy” serta YMD akan berformat “yyyy-mm-dd”.
Anda dapat memilih format angka bulan, tanggal dan tahun pada dropdown yang tersedia. Anda juga dapat sekaligus merubah karakter pemisah tanggal, bulan dan tahun.
Setelah perubahan selesai, klik OK untuk kembali ke tab Design.
Setelah kembali pada tab Design, perubahan yang dilakukan langsung diterapkan.
Merubah Format Angka Currency
Pada tab Design, klik kanan pada Field HargaSatuan dan pilih Change Format.
- Use Windows Default Format : Format Angka akan mengikuti format System Windows Anda.
- Suppress if Duplicated : ahnya menampilkan satu nilai walaupun ada nilai yang sama.
- Suppress if Zero : apabila jika nilainya 0 maka field tidak akan diisi.
- Hide when Printing : nilai tidak akan tercetak.
- Decimals : memilih format nilai desimal.
- Rounding : memilih pembulatan nilai.
- Negatives : memilih format tampilan nilai negatif.
- Currency Symbol : akan ditambahkan simbol Mata Uang pada nilai.
- One Symbol Per Page : hanya akan menampilkan satu simbol mata uang per halaman.
- Fixed : Simbol Mata Uang berada di kiri sedangkan nilai angka berada di kanan, sehingga kemungkinan ada spasi antara simbol dan nilai.
- Floating : simbol mata uang dan nilai berdekatan, rata kanan sehingga kemungkinan ada spasi di sebelah kiri simbol mata uang.
- Position : menentukan letak simbol mata uang.
- Decimal Separator : menentukan pemisah angka desimal
- Thousands Separator : menentukan pemisah angka ribuan
- Leading Zero : menentukan apakah ada angka 0 di depan.
Setelah perubahan selesai dilakukan, klik OK.
Menambah Gambar pada Laporan
Untuk menambah gambar pada laporan, pilih menu InsertPicture. Cari file yang diinginkan lalu klik OK. Selanjutnya letakkan gambar di tempat yang diinginkan.
Hasil dari perubahan diatas dapat di lihat pada gambar dibawah ini.
Setelah modifikasi selesai, simpan report dengan nama file : “Laporan Data Barang.rpt”.
Memanggil Report dari Visual Basic
Pertama-tama yang perlu dilakukan ialah menambahkan Crystal Report Control. Tekan Ctrl+T dan tandai Crystal Report Control 4.6 untuk menampilkan icon Crystal Report di Toolbox.
Langkah selanjutnya adalah menempatkan control pada form. Untuk itu buka lagi project Aplikasi Pemeliharaan Data Barang. Tempatkan sebuah CommandButton dan sebuah Crystal Report Control 4.6.
Object Property Setting
CommandButton Name cmdLaporan
Caption &Laporan
Crystal Report Control 4.6 Name rptLaporan
Pada event Click cmdLaporan ketikkan kode berikut:
rptLaporan.ReportFileName = app.path & _
“\Laporan Data Barang.rpt”
rptlaporan.PrintReport
Jalankan program. Tekan tombol Laporan, maka akan muncul form Crystal Report yang berisikan laporan data barang yang kita buat tadi