Pengenalan Kecerdasan Buatan

POKOK BAHASAN:

Definisi Kecerdasan Buatan
Sejarah Kecerdasan Buatan
Sub Disiplin Hmu dalam Kecerdasan Buatan
Lingkup Kecerdasan Buatan pada Aplikasi Komersial
Kecerdasan Buatan dan Kecerdasan Alami

TUJUAN BELAJAR:

Setelah mempelajari bab ini, mahasiswa diharapkan mampu :

Memahami definisi dari Kecerdasan Buatan
Memahami mengapa Kecerdasan Buatan penting, sebagai cabang dari Teknologi Informasi dan sumbangannya dalam perkembangan ilmu pengetahuan
Mengetahui aplikasi-aplikasi yang berkembang dalam kerangka KecerdasanBuatan
Memahami perbedaan Kecerdasan Alami dan Kecerdasan Buatan.

DEFINISI KECERDASAN BUATAN

Banyak cara untuk mendefinisikan Kecerdasan Buatan, diantaranya adalah :

Suatu studi yang mengupayakan bagaimana agar komputer berlaku cerdas
Studi yang membuat komputer dapat menyelesaikan persoalan yang sulit
Teknologi yang mensimulasikan kecerdasan manusia, yaitu bagaimana mendefinisikan
dan mencoba menyelesaikan persoalan menggunakan komputer dengan meniru
bagaimana manusia menyelesaikan dengan cepat.
Kecerdasan didefinisikan oleh John McCarthy, Stanford sebagai kemampuan untuk mencapai sukses dalam menyelesaikan suatu permasalahan.

Dengan definisi ini, Kecerdasan Buatan menawarkan baik media maupun uji teori kecerdasan. Teori-teori ini dapat dinyatakan dalam bahasa program komputer dan dibuktikan eksekusinya pada komputer nyata.

Program komputer standar hanya dapat menyelesaikan persoalan yang diprogram secara spesifik. Jika sebuah program standar perlu dirubah untuk menyesuaikan diri dengan suatu informasi baru, seluruh program harus dilihat satu persatu sampai kita dapatkan ruang optimal untuk menyisipkan perubahan atau modifikasi tersebut. Cara seperti ini tidak hanya memboroskan waktu, namun juga dapat mempengaruhi bagian tertentu dari program itu sehingga menyebabkan terjadinya error.

Sebaliknya, Kecerdasan Buatan dapat memungkinkan komputer untuk ‘berpikir’. Dengan cara menyederhanakan program,Kecerdasan Buatan dapat menirukan proses belajar manusia sehingga informasi baru dapat diserap dan digunakan sebagai acuan di masa-masa yang akan datang. Manusia dapat menyerap informasi baru tanpa perlu mengubah atau mempengaruhi informasi lain yang telah tersimpan. Menggunakan program Kecerdasan Buatan membutuhkan cara yang jauh lebih sederhana dibandingkan dengan memakai program standar tanpa Kecerdasan Buatan di dalamnya.

Teknik yang digunakan dalam Kecerdasan Buatan memungkinkan dibuatnya sebuah program yang setiap bagiannya mengandung langkah-langkah independen dan dapat diidentifikasi dengan baik untuk dapat memecahkan sebuah atau sejumlah persoalan. Setiap potong bagian program adalah seperti sepotong informasi dalam pikiran manusia. Jika informasi tadi diabaikan, pikiran kita secara otomatis dapat mengatur cara kerjanya untuk menyesuaikan diri dengan fakta atau informasi yang baru tersebut. Kita tidak perlu selalu mengingat setiap potong informasi yang telah kita pelajari. Hanya yang relevan dengan persoalan yang kita hadapi yang kita gunakan. Demikian pula dalam Kecerdasan Buatan, setiap potong bagian program Kecerdasan Buatan dapat dimodifikasi tanpa mempengaruhi struktur seluruh programnya. Keluwesan ini dapat menghasilkan program yang semakin efisien dan mudah dipahami.

SEJARAH KECERDASAN BUATAN

Kecerdasan Buatan termasuk bidang ilmu yang relatif muda. Pada tahun 1950-an para ilmuwan dan peneliti mulai memikirkan bagaimana caranya agar mesin dapat melakukan pekerjaannya seperti yang bisa dikerjakan oleh manusia. Alan Turing, seorang matematikawan Inggris pertama kali mengusulkan adanya tes untuk melihat bisa tidaknya sebuah mesi dikatakan cerdas. Hasil tes tersebut kemudian dikenal dengan

Turing Test, dimana si mesin tersebut menyamar seolah-olah sebagai seseorang di dalan suatu permainan yang mampu memberikan respon terhadap serangkaian pertanyaan yang diajukan. Turing beranggapan bahwa, jika mesin dapat membuat seseorang percaya bahwa dirinya mampu berkomunikasi dengan orang lain, maka dapat dikatakan bahwa mesin tersebut cerdas (seperti layaknya manusia).

Kecerdasan Buatan sendiri dimunculkan oleh seorang profesor dari Massachusetts Institute of Technology yang bernama John McCarthy pada tahun 1956 pada Dartmouth Conference yang dihadiri oleh para peneliti AI. Pada konferensi tersebut juga didefmisikan tujuan utama dari Kecerdasan Buatan, yaitu: mengetahui dan memodelkan proses-proses berfikir manusia dan mendesain mesin agar rapat menirukan kelakuan manusia tersebut.

Beberapa program AI yang mulai dibuat pada tahun 1956-1966, antara lain:

Logic Theorist, diperkenalkan pada Dartmouth Conference, program ini dapat membuktikan teorema-teorema matematika.
Sad Sam, diprogram oleh Robert K. Lindsay (1960). Program ini dapat mengetahui kalimat-kalimat sederhana yang ditulis dalam bahasa Inggris dan mampu memberikan jawaban dari fakta-fakta yang didengar dalam sebuah percakapan.
ELIZA, diprogram oleh Joseph Weinzenbaum (1967). Program ini mampu melakukan terapi terhadap pasien dengan memberikan beberapa pertanyaan.

SUB DISIPLIN ILMU DALAM KECERDASAN BUATAN

Persoalan-persoalan yang mula-mula ditangani oleh Kecerdasan Buatan adalah pembuktian teorema dan permainan (game). Seorang periset Kecerdasan Buatan yang bernama Samuel menuliskan program permainan catur yang tidak hanya sekedar bermain catur, namun program tersebut juga dibuat agar dapat menggunakan pengalamannya untuk meningkatkan kemampuannya. Sementara itu, Newell, seorang ahli teori logika berusaha membuktikan teorema-teorema matematika.

Makin pesatnya perkembangan teknologi menyebabkan adanya perkembangan dan perluasan lingkup yang membutuhkan kehadiran Kecerdasan Buatan. Karakteristik cerdas sudah mulai dibutuhkan di berbagai disiplin ilmu dan teknologi. Kecerdasan Buatan tidak hanya merambah di berbagai disiplin ilmu yang lain. Irisan antara psikologi dan kecerdasan buatan melahirkan sebuah area yang dikenal dengan nama cognition & psycolinguistics. Irisan antara teknik elektro dengan kecerdasan buatan melahirkan berbagai ilmu seperti: pengolahan citra, teori kendali, pengenalan pola dan robotika.

Dewasa ini, Kecerdasan Buatan juga memberikan kontribusi yang cukup besar di bidang manajemen. Adanya sistem pendukung keputusan, dan Sistem Informasi Manajemen juga tidak lepas dari andil Kecerdasan Buatan.

Adanya irisan penggunaan Kecerdasan Buatan di berbagai disiplin ilmu tersebut menyebabkan cukup rumitnya untuk mengklasifikasikan Kecerdasan Buatan menurut disiplin ilmu yang menggunakannya. Untuk memudahkan hal tersebut, maka pengklasifikasian lingkup Kecerdasan Buatan didasarkan pada output yang diberikan yaitu pada aplikasi komersial (meskipun sebenarnya Kecerdasan Buatan itu sendiri bukan merupakan medan komersial).

Lingkup utama dalam Kecerdasan Buatan adalah:

Sistem Pakar (Expert System). Disini komputer digunakan sebagai sarana untuk menyimpan pengetahuan para pakar. Dengan demikian komputer akan memiliki keahlian untuk menyelesaikan permasalahan dengan meniru keahlian yang dimiliki
oleh pakar.
Pengolahan Bahasa Alami (Natural Language Processing). Dengan pengolahan bahasa alami ini diharapkan user dapat berkomunikasi dengan komputer dengan menggunakan bahasa sehari-hari.
Pengenalan Ucapan (Speech Recognition). Melalui pengenalan ucapan diharapkan manusia dapat berkomunikasi dengan komputer menggunakan suara.
Robotika & Sistem Sensor (Robotics & Sensory Systems).
Computer Vision, mencoba untuk dapat menginterpretasikan gambar atau obyek- obyek tampak melalui komputer.
Intelligent Computer-aided Instruction. Komputer dapat digunakan sebagai tutor yang dapat melatih dan mengajar.
Game playing.

Seiring dengan perkembangan teknologi, muncul beberapa teknologi yang juga bertujuan untuk membuat agar komputer menjadi cerdas sehingga dapat menirukan kerja manusia sehari-hari.

Teknologi ini juga mampu mengakomodasi adanya ketidakpastian dan ketidaktepatan data input. Dengan didasari pada teori himpunan, maka pada tahun 1965 muncul Logika Fuzzy. Kemudian pada tahun 1975 John Holland mengatakan bahwa setiap problem berbentuk adaptasi (alami maupu buatan) secara umum dapat diformulasikan dalam terminologi genetika. Algoritma Genetika ini merupakan simulasi proses evolusi Darwin dan operasi genetika atas kromosom.

LINGKUP KECERDASAN BUATAN PADA APLIKASI KOMERSIAL

Sejalan dengan berkembangnya permasalahan manusia, maka manusia harus menggunakan sumber daya secara eficien. Untuk melakukan hal tersebut, maka kita membutuhkan bantuan dengan kualitas yang tinggi dari komputer. Dalam kehidupan manusia, komputer dapat membantu dalam bidang:

Pertanian, komputer dapat mengkontrol robot yang melakukan kontrol terhadap hama, pemangkasan pohon, pemilihan hasil panen.
Pabrik, komputer dapat menkontrol robot yang harus mengerjakan pekerjaan berbahaya dan membosankan, inspeksi dan melakukan maintenance pekerjaan.
Kesehatan, komputer dapat membantu untuk mendiagnosis penyakit, melakukan monitoring kondisi pasien, memberikan treatment yang cocok.
Pekerjaan Rumah Tangga, komputer dapat memberikan nasihat dalam memasak dan berbelanja, membantu membersihkan lantai, memotong rumput, mencuci pakaian, dan melakukan maintenance terhadap pekerjaan.



KECERDASAN BUATAN DAN KECERDASAN ALAMI

Jika dibanding kecerdasan alami, kecerdasan buatan memiliki keuntungan komersial, antara lain:

Kecerdasan buatan lebih bersifat permanen.
Kecerdasan alami akan cepat mengalami perubahan.
Kecerdasan buatan lebih mudah diduplikasi dan disebarkan.
Kecerdasan buatan bersifat konsisten.
Kecerdasan buatan dapat didokumentasi.
Kecerdasan buatan dapat mengerjakan pekerjaan lebih cepat dibanding dengan kecerdasan alami.
Kecerdasan buatan dapat mengerjakan pekerjaan lebih baik dibanding dengan kecerdasan alami.

Keuntungan Kecerdasan alami:

Kreatif.
Kecerdasan alami memungkinkan orang untuk menggunakan pengalaman secara langsung. Sedang pada kecerdasan buatan hams bekerja dengan input-input simbolik.
Pemikiran manusia dapat digunakan secara luas, sedangkan kecerdasan buatan sangat terbatas.

RINGKASAN

Kecerdasan Buatan adalah studi yang berusaha membuat komputer menjadi cerdas.
Tujuan dari sisi teknologi dari Kecerdasan Buatan adalah untuk menyelesaikan permasalahan nyata.
Dari sisi ilmiah tujuan Kecerdasan Buatan adalah untuk menjelaskan variasi kecerdasan
Kecerdasan Buatan dapat membantu kita untuk menyelesaikan kesulitan, permasalahan nyata, menciptakan kesempatan baru dalam bisnis, teknologi dan area aplikasi yang lain. o Kecerdasan Buatan merupakan gudang untuk menjawab pertanyaan tradisional yang biasa ditanyakan pada ahli bahasa, philosophi, dokter dsb. Sehingga dengan demikian dapat membantu kita untuk menjadi semakin pintar.

Kecerdasan Buatan

Definisi

Bagian dari ilmu komputer yang membuat aga mesin (komputer) dapat melakukan pekerjaan seperti dan sebaik yang dilakukan oleh manusia.
Komputer tidak hanya digunakan sbg alat hitung tapi diharapkan untuk dapat diberdayakan untuk mengerjakan segala sesuatu yang bisa dikerjakan oleh manusia

Komputer harus dibekali pengetahuan dan kemampuan untuk menalar agar dapat bertindak seperti dan sebaik manusia.

Sudut Pandang Pengertian AI

Sudut Pandang Kecerdasan

Kecerdasan buatan akan membuat mesin menjadi ‘cerdas’ (mampu berbuat seperti apa yang dilakukan oleh manusia)

Sudut pandang penelitian

Kecerdasan buatan adlh suatu studi bgm membuat agar komputer dapat melakukan sesuatu sebaik yang dikerjakan oleh manusia.

Domain yang sering dibahas oleh para peneliti:

a. Mundane Task

Persepsi (vision & speech)
Bahasa alami (understanding, generation & translation)
Pemikiran yang bersifat commonsense
Robot control

b. Formal Task

Permainan/games
Matematika (geometri, logika, kalkulus integral, pembuktian)

c. Expert Task

Analisis finansial
Analisis medikal
Analisis ilmu pengetahuan
Rekayasa (desain, pencarian gagal, perencanaan manufaktur)

Sudut pandang bisnis

Kecerdasan buatan adalah kumpulan peralatan yang sangat powerful dan metodologis dalam menyelesaikan masalah-masalah bisnis.

Sudut pandang pemrograman

Kecerdasan buatan meliputi studi tentang pemrograman simbolik, penyelesaian masalah (problem solving) dan pencarian (searching)

Dua bagian utama dalam aplikasi kecerdasan buatan:

Basis Pengetahuan (Knowledge Base), berisi fakta-fakta teori, pemikiran dan hubungan
antara satu dengan lainnya.
Motor Inferensi (Inference Engine), yaitu kemampuan menarik kesimpulan berdasarkan pengalama

Kecerdasan Buatan Vs Kecerdasan Alami

Keuntungan Kecerdasan Buatan:

Lebih bersifat permanen, sdgkan kec. alami akancepat mengalami perubahan. Faktor sifat manusiayang pelupa.
Lebih mudah diduplikasi dan disebarkan, sdgkan mentransfer pengetahuan manusia dari satu org ke org lain membutuhkan proses yg sangat lama.
Lebih murah dibanding dengan kec. alami.
Menyediakan layanan komputer akan lebih mudah dan lebih murah dibandingkan dengan mendatangkan seseorang utk mengerjakan sejumlah pekerjaan dalam jangka waktu lama
Bersifat konsisten, krn merupakan bagian dari teknologi komputer sdgkan kec. alami akan senantiasa berubah-ubah
Dapat didokumentasikan, keputusan yang dibuat oleh komputer dapat didokumentasikan dengan mudah melalui log systemnya sdgkan kec. alami sangat sulit untuk direproduksi
Dapat mengerjakan pekerjaan lebih cepat Dapat mengerjakan pekerjaan lebih baik

Keuntungan Kecerdasan Alami:

Kreatif, kemampuan untuk menambah ataupun memenuhi pengetahuan sangat melekat di jiwa manusia.
Memungkinkan untuk menggunakan pengalaman secara langsung
Pemikiran manusia dapat digunakan secara luas, sdgkan kec. buatan sangat terbatas

Pemrograman Kec. Buatan Vs Konvesional
Dimensi Kec. Buatan Konvesional
Pemrosesan Mengandung konsep-konsep simbolik Algoritmik
Sifat Input Bisa tidak lengkap Harus Lengkap
Pencarian Kebanyakan bersifat heuristik Biasanya didasarkan pada algoritma
Keterangan Disediakan Biasanya tidak disediakan
Fokus Pengetahuan Data & informasi
Struktur Kontrol dipisahkan dari pengetahuan Kontrol terintegrasi dgn informasi
Sifat output Kuantitatif Kualitatif
Pemeliharaan & update Relatif mudah Sulit
Kemampuan menalar Ya tidak

Lingkup Kec. Buatan pada Aplikasi

Komersial

Lingkup Utama:

– Sistem Pakar (Expert System)

– Pengolahan Bahasa Alami (Natural Language Processing)

– Pengenalan Ucapan (Speech Recognition)

– Robotika&Sistem Sensor (Robotics&Sensory Systems)

– Computer Vision

– Intelligent Computer-aided Instruction

– Game Playing

Soft Computing

Definisi

Koleksi dari beberapa metodologi yang bertujuan untuk mengeksploitasi adanya toleransi terhadap ketidaktepatan, ketidakpastian, dan kebenaran parsial untuk dapat diselesaikan dengan mudah, robustness, dan biaya penyelesaiannya murah.

Unsur-unsur pokok dalam Soft Computing

– Sistem Fuzzy (mengakomodasi ketidaktepatan)

– Jaringan Syaraf (mengakomodasi pembelajaran)

– Probabilistic Reasoning (mengakomodasi ketidakpastian)

– Evolutionary Computing (optimasi)

Karakteristik Soft Computing:

– Memerlukan keahlian manusia, apabila direpresentasikan dalam bentuk aturan (IF-THEN)

– Model komputasinya diilhami oleh proses biologis

– Merupakan teknik optimasi baru

– Menggunakan komputasi numeris

– Memiliki toleransi kegagalan (meskipun kualitasnya berangsur-angsur memburuk)

Based Knowledge System

Dua pendekatan basis pengetahuan yang sangat umum digunakan,yaitu:

Penalaran berbasis aturan (Rule-Based Reasoning)

Pengetahuan direpresentasikan dengan menggunakan aturan berbentuk:IF-THEN.
Bentuk ini digunakan apabila kita memiliki sejumlah pengetahuan pakar pada suatu permasalahan tertentu,dan si pakar dapat menyelesaikan masalah tersebut secara berurutan.

Penalaran berbasis kasus (Case-Based Reasoning)

Basis pengetahuan akan berisi solusi-solusi yang telah dicapai sebelumnya,kmd akan diturunkan suatu solusi untuk keadaan yg terjadi sekarang (fakta yang ada).

Motor Inferensi (Inference Engnine)

Ada 2 cara dalam melakukan inferensi :

Forward Chaining

Pencocokan fakta atau pernyataan dimulai dari bagian sebelah kiri (IF dulu). Dengan kata lain, penalaran dimulai dari fakta terlebih dahulu untuk menguji kebenaran hipotesis

Backward Chaining

Pencocokan fakta atau pernyataan dimulai dari bagian sebelah kanan (THEN dulu). Dengan kata lain, penalaran dimulai dari hipotesis terlebih dahulu,dan untuk menguji kebenaran hipotesis tersebut dicari, harus dicari fakta-fakta yang ada dalam basis pengetahuan

Expert System

Ciri-ciri sistem pakar:

Memiliki fasilitas informasi yang handal
Mudah dimodifikasi
Dapat digunakan dalam berbagai jenis komputer.
Memiliki kemampuan untuk belajar beradaptasi

Permasalahan yang disentuh oleh Sistem Pakar:

Interpretasi. Pengambilan keputusan dari hasil observasi,misal: pengawasan, pengenalan ucapan, analisis citra, interpretasi sinyal.
Prediksi. Misal: peramalan, prediksi demografis, peramalan ekonomi, prediksi lalulintas, estimasi hasil, militer, pemasaran, atau peramalan keuangan.
Diagnosa. Misal: medis, elektronis, mekanis, dan diagnosis perangkat lunak.
Perancangan. Misal: layout sirkuit dan perancangan bangunan.
Perencanaan. Misal: perencanaan keuangan, komunikasi, militer, pengembangan produk, routing,
dan manajemen proyek.
Monitoring. Misal: Computer-Aided Monitoring System.
Debugging, memberikan resepobat terhadap suatu kegagalan

Perbaikan.

Instruksi. Melakukan instruksi untuk diagnosis, debugging, dan perbaikan kinerja.
Kontrol. Melakukan kontrol terhadap interpretasi, prediksi, perbaikan,dan monitoring kelakuan sistem.

Garis besar pengembangan sistem pakar:

Mengidentifikasi masalah dan kebutuhan
Menentukan masalah yang cocok
Mempertimbangkan alternatif, menggunakan system pakar atau komputer tradisional
Menghitung pengembalian investasi
Memilih alat pengembangan
Rekayasa Pengetahuan
Merancang sistem
Melengkapi pengembangan
Menguji dan mencari kesalahan sistem
Memelihara sistem

PARADIGMS

Tipe-Tipe

Classification

Paradigma yang paling mudah untuk digunakan karena tujuan dari klaisifikasi ini hanya mengidentifikasikan pola umum atau trennya saja, bukan secara detail.
Disebut sebagai one-to-many-to-one selection exercise.
Contoh: Validasi hubungan kekeluargaan, general cek repair autocar.

Diagnosis

Sedikit lebih susah dibandingkan dengan klasifikasi karena tujuan utamanya adalah mengidentifikasikan secara detail pola hubungan penyebab dan efek/akibat nya dalam berbagai macam kemungkinan.
Disebut sebagai one-to-many-to-one exercise
Biasanya direpresentasikan dengan cara pohon keputusan and/or tabel pohon.

Hypothesize and Test

Sebuah paradigma untuk mengidentifikasikan tindakan terbaik dari sebuah ujicoba, kemudian melakukan evaluasi walaupun tindakan yang dilakukan tersebut tidak mendapat hasil sesuai yang diinginkan.
Bila tidak sukses akan dilakukan ujicoba lagi.
Secara operasional merupakan gabungan antara klasifikasi dan diagnosa.

Collisions

sebuah identifikasi ketentuan/batasan dalam paradigma untuk menentukan pola yang tidak diinginkan.
Analisa Collision ini seperti tujuan yang harus dilakukan oleh seorang tester.

Design and Configuration

Merupakan kumpulan dari berbagai paradigma dan akitifitas.
Salah satu contoh alat yang digunakan adalah MICON (Microprosessor Configurer), yang terdiri dari Logic Knowledge, Refinement Knowledge, Component Knowledge, Component Knowledge, Problem-solving Knowledge.

Planning And Scheduling

Secara umum berkaitan dengan jejaring dari bermacam paradigma lainnya.
Hasil akhir yang diharapkan dalam hal ini adalah bukan yang ‘salah satu’ terbaik dari perencanaan atau penjadwalan, tetapi salah satu yang bisa mengakomodasi semua batasan2/ketentuan yang diinginkan oleh user dan cukup memuaskan bagi user

Panduan Google Adsense

google adsense guides, Panduan Google Adsense, mendaftar google adsense. Google adsense sebuah program yang menyediakan iklan untuk di tampilkan di halaman blog/website kita yang bernama Google Adsense. Program ini memberikan peluang untuk para blogger dalam menghasilkan uang melalui blognya, apabila iklan google tersebut di klik oleh visitor maka pemilik blog atau website tersebut berhak mendapatkan bayaran dari google berupa uang dollar. seperti itulah garis besar tentang Pengertian google Andsense.

Baca Informasi tentang Cara blog di terima Google Adsense

Google.com memiliki sebuah program untuk para pemilik website atau website perusahaan yang ingin mempromosikan iklannya di internet yang bernama Google Adwords. Program ini disediakan untuk para pemasang iklan agar dapat mempromosikan situsnya kepada pengguna internet lainnya dengan harapan mendapatkan pengunjung apa bila iklan itu di klik dan perusahaan tersebut wajib membayar apabila berhasil di klik oleh pengunjung.
panduan google adsense

Google Adword akan menyebarkan iklannya di website atau blog dan hasil pencarian di google, dan blog kita pun bisa dipromosikan agar mendapatkan visitor asalkan harus memiliki modal untuk mengikuti program google adwords ini. Dalam hal ini orang yang beriklan di google adwords di sebut advertiser, dan orang yang memanfaatkan Google Adsense di sebut Publisher. Jadi sudah seharusnya kita mendapatkan bayaran dari program ini, karena kita telah membantu para advertiser mempromosikan iklannya yang di pasang di google adwords di halaman blog kita.
Untuk mendaftar di program adsense ini, yang harus dimiliki oleh kita adalah blog atau website, karena program ini akan menampilkan iklannya di halaman situs kita, maka dari itu wajib untuk memiliki blog. Jika sampai saat ini Anda masih belum memiliki blog Anda bisa baca artikel saya mengenai cara membuat blog
Setelah Anda memiliki blog (disarankan blog yang berbayar) Anda bisa mendaftarkan blog Anda dan mengisi beberapa data beserta alamat url situs blognya. nanti anda akan dikirimkan email dari Google Adsense Bahwa team mereka akan mereview website atau blog kita lebih dulu biasanya membutuhkan waktu 1 sampai 2 minggu. Setelah review selesai kita akan menerima email lagi dari team mereka.
Apabila blog/situs kita di terima kita sudah bisa memasang kode iklan di situs kita. sementara jika jika permohonan kita di tolak, kita bisa mendaftarkan diri kembali tapi harus di perbaiki dulu blog kita sebelum mendaftar kembali seperti menulis kontent yang berkualitas dan mengikuti aturan blog dari google webmaster agar kita bisa lolos dari review tahap pertama.
Program ini akan membayar kita apabila kita telah mendapatkan penghasilan mencapai $100. Anda tidak bisa mengambil uang jika belum mencapai nilai nominal yang di haruskan. Setiap Akhir Bulan anda baru bisa melakukan proses pembayaran, bisa menggunakan Cek ataupun Western Union Quick Cash.
Jika pengiriman pembayaran melalui Cek membutuhkan waktu 1-2 minggu, tapi jika menggunakan western union Quick Cash Anda bisa mencairkan uang Anda sehari setelah tanggal pembayaran. Biasanya para publisher Indonesia yang mengikuti program Google Adsense ini kebanyakan dari mereka untuk mencarikan uangnya dengan pembayaran Western Union Quick Cash karena lebih cepat dan mencairkan uangnya disa di lakukan di kantor pos atau Bank yang memiliki label Western Union Quick Cash.

Penggunaan Listview Pada Visual Basic Net 2008

Listview digunakan untuk menampung beberapa/banyak data sekaligus ke dalam suatu komponen dan bisa di proses secara keseluruhan.

Dengan menggunakan listview data bisa tertampung semua. Namun kelemahan listview yaitu jika project berhenti maka data data yang di listview akan hilang, karna sifat listveiw ini non volatile.

berikut program Penggunaan Listview Pada Visual Basic Net 2008

Design form berikut ini
2

Ketikkan listing program berikut ini

Public Class Form1

Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
‘Untuk Keluar dari program
End
End Sub

Private Sub btnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBersih.Click
‘Membersihkan isian NIP, Nama, Golongan dan Gaji
NIP.Text = “”
Nama.Text = “”
Golongan.Text = “”
Gaji.Text = “”
‘Untuk memfocuskan NIP
NIP.Focus()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘Mengisikan data ke Combo NIP
NIP.Items.Add(“4021001”)
NIP.Items.Add(“4021002”)
NIP.Items.Add(“4021003”)
NIP.Items.Add(“4021004”)

‘Mengisikan data ke Combo Golongan
Golongan.Items.Add(“IIIA”)
Golongan.Items.Add(“IIIB”)
Golongan.Items.Add(“IIIC”)
Golongan.Items.Add(“IVA”)

Call BuatTabel() ‘ untuk memaggil sub BuatTabel()
End Sub

Sub BuatTabel()
‘membuat colom pada listview
LV.Columns.Add(“NIP”, 80, HorizontalAlignment.Center)
LV.Columns.Add(“Nama”, 100, HorizontalAlignment.Left)
LV.Columns.Add(“Golongan”, 80, HorizontalAlignment.Center)
LV.Columns.Add(“Gaji Rp.”, 90, HorizontalAlignment.Right)
‘menjadikan listview detail artinnya nampak sebagai baris dan kolom
LV.View = View.Details
‘menampilkan garis sebagai pembatas baris dan kolom
LV.GridLines = True
‘untuk membuat seluruh satu baris tersorot saat di klik
LV.FullRowSelect = True
End Sub

Private Sub NIP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIP.SelectedIndexChanged
‘Untuk menseleksi hasil pemilihan NIP
Select Case NIP.Text
Case “4021001” : Nama.Text = “Aldyan”
Case “4021002” : Nama.Text = “Mesran”
Case “4021003” : Nama.Text = “Surya Darma Nasution”
Case “4021004” : Nama.Text = “Azanuddin”
Case Else
Nama.Text = “” ‘Apabila tidak ada yang sama
End Select
End Sub

Private Sub Golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Golongan.SelectedIndexChanged
‘Untuk menseleksi hasil pemilihan Golongan
Select Case Golongan.Text
Case “IIIA” : Gaji.Text = 1500000
Case “IIIB” : Gaji.Text = 1750000
Case “IIIC” : Gaji.Text = 1900000
Case “IVA” : Gaji.Text = 2500000
Case Else
Gaji.Text = 0 ‘Apabila tidak ada yang sama
End Select
End Sub

Private Sub btnIsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIsi.Click
‘mendefinisikan variabel listviewitem dengan nama lst
Dim lst As New ListViewItem

‘memasukkan NIP ke teks listview
lst.Text = NIP.Text

‘memasukkan Nama, Golongan dan Gaji sebagai Subitems dari listview
lst.SubItems.Add(Nama.Text)
lst.SubItems.Add(Golongan.Text)
lst.SubItems.Add(Gaji.Text)
‘memasukkan ke listviewitem di listview
LV.Items.Add(lst)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
‘menghapus semua isi yang ada di listview
LV.Items.Clear()
End Sub

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
‘menghapus isian listview yang tersorot
LV.Items.Remove(LV.SelectedItems(0))
End Sub

End Class

Demikianlah artikel Penggunaan Listview Pada Visual Basic Net 2008, semoga dapat membantu anda dalam belajar bahasa pemrograman.

Tag : Penggunaan Listview Pada Visual Basic Net 2008, Komponen listview, belajar bahasa pemrograman, bahasa pemrograman , bahasa pemrograman visual basic net, tempat download program

Bila bermanfaat silahkan share Penggunaan Listview Pada Visual Basic Net 2008 ini dengan teman anda, Terima kasih sebelumnya

Pemakaian Fungsi String Pada Program VB Net

1 Fungsi string pada program vb net yang dibahas pada artikel ini yaitu Left, Right, Mid.

Pemakaian fungsi string pada program vb net digunakan untuk mengambil beberapa deretan string dari string yang ada.

A. Fungsi String Left, digunakan untuk mengambil nilai string dari posisi sebelah kiri.

Contoh penggunaan :

xkata = left(kata, jumlah)

kata = “Program VB Net”
xkata = left(kata,4)
maka xkata bernilai “Prog”

B. Fungsi String Right, digunakan untuk mengambil nilai string dari posisi sebelah kanan.

Contoh penggunaan :

xkata = right(kata, jumlah)

kata = “Program VB Net”
xkata = right(kata,6)

maka xkata bernilai “VB Net”

C. Fungsi String Mid, digunakan untuk mengambil nilai dari posisi tengah kata.

Contoh penggunaan :

xkata = mid(kata, posisi, jumlah)

kata = “Ayo Belajar Bahasa Pemrograman VB Net”
xkata = Mid(kata, 5, 26)

maka xkata bernilai “Belajar Bahasa Pemrograman”

Form design terdiri atas Textbox1, Textbox2, Textbox3, Textbox4, dan Button, seperti pada Gambar Cover artikel.

Berikut merupakan contoh listing program pemakaian fungsi string pada program VB Net.

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim kata As String = TextBox1.Text

TextBox2.Text = Microsoft.VisualBasic.Left(kata, 6)
TextBox3.Text = Microsoft.VisualBasic.Right(kata, 6)
TextBox4.Text = Microsoft.VisualBasic.Mid(kata, 5, 26)
End Sub
End Class

Pada pemrograman Visual Basic Net, pemakaian fungsi Left, Right dan Mid harus digunakan juga referensi Microsoft.VisualBasic sehingga bisa digunakan.

Demikianlah artikel pemakaian fungsi string pada program VB Net , semoga semakin menyukai belajar bahasa pemrograman.

Tag : Pemakaian Fungsi String Pada Program VB Net, program vb net, bahasa belajar pemrograman, pemrograman Visual Basic Net

Bila bermanfaat silahkan share Pemakaian Fungsi String Pada Program VB Net ini dengan teman anda, Terima kasih sebelumnya

Menampilkan Record Ke ComboBox Dengan Visual Basic Net 2008

Jika sejumlah data data yang diinputkan ke database access dapat ditampilkan ke dalam suatu combobox tentu asik bukan?

Wah, bagaimana programnya? Jangan takut, berikut merupakan program untuk menampilkan record ke combobox dengan visual basic net 2008.

Terlebih anda harus buat dulu database access nya, dengan deskripsi berikut ini :

Nama Database : SmartSolution.Mdb
Nama Table : Buku
Field
1. Kode type Text
2. Judul type Text
3. Pengarang type Text
4. Penerbit type Text

Isikan minimal 2 data pada data buku tersebut.

Form yang didesain cukup satu form dengan combobox1 di form tersebut.

Ketikkan listing program menampilkan record ke combobox dengan visual basic net 2008

Imports System.Data.OleDb

Public Class Form1
Public DB As OleDbConnection
Public CMD As OleDbCommand
Public ADP As OleDbDataAdapter
Public RS As OleDbDataReader
Public DS As New DataSet
Dim SQL As String

Public Sub OpenDB()
Dim LOKASI = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source =E:DatabaseSmartSolution.mdb”
DB = New OleDbConnection(LOKASI)
If DB.State = ConnectionState.Closed Then
DB.Open()
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call OpenDB()
‘Perintah SELEC ditambah karakter T
SQL = “SELEC * FROM BUKU”
CMD = New OleDbCommand(SQL, DB)
RS = CMD.ExecuteReader
ComboBox1.Items.Clear()
Do While RS.Read()
ComboBox1.Items.Add(RS(“judul”))
Loop
End Sub
End Class

Nah sudah lihat program diatas bukan? yuk belajar bahasa pemrograman visual basic dot net .

Demikianlah bahasa pemrograman visual basic net 2008, untuk menampilkan record ke combobox dengan visual basic net 2008 .

Terima kasih.

Tag : Menampilkan Record Ke ComboBox Dengan Visual Basic Net 2008, belajar bahasa pemrograman, bahasa pemrograman, tempat download program, bahasa pemrograman visual basic net, program vb net

Merancang Menu Pada Program VB Net

v Menu digunakan untuk menggabungkan beberapa form pada program visual basic net. Adanya menu pemanggilan form form program vb net menjadi lebih mudah dan gampang.

Langkah langkah bekerja dengan menu :

1. Tambahkan satu form program vb net dengan cara click Project | Add Windwos Form,
b
Pada Name dirubah menjadi menuutama, kemudian click Add
n

2. Kemudian tambahkan komponen menuStrip pada toolbox menus & toolbar dengan cara double click,
z

sehingga form menjadi berikut ini :
z

Click tulisan Type Here, sehingga form menjadi berikut ini, dan ketikkan File.
a

Untuk pindah ke bawah dengan cara Tekan ENTER
s
Ketik Data Buku kemudian Data Anggota seperti gambar tersebut. Tambah kan juga tanda minus (-) dan Keluar Program di bawah – tersebut.

3. Sampai saat ini menu program vb net sudah jadi.
t
mengetikkan perintah menu dengan cara :

Untuk keluar dari program menu, isikan perintah me.close() pada bagian keluar program dengan cara, double click keluar program.

Untuk memanggil form yang lain, double click Data Anggota, lalu ketikkan perintah Form1.Show()

Berikut merupakan listing merancang menu pada program VB Net

Public Class menuutama

Private Sub DataAnggotaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataAnggotaToolStripMenuItem.Click
Form1.Show()
End Sub

Private Sub KeluarProgramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarProgramToolStripMenuItem.Click
Me.Close()
End Sub
End Class

Demikianlah artikel merancang menu pada program VB Net , semoga bermanfaat.

Program Koneksi Database Access Dari Visual Basic Net 2008

Wah hari sudah menunjukkan pukul 02:30 WIB dini hari. Hemmm sudah pagi toh? heheheh namun saya yakin masih semangat belajar kan? (belajar kehidupan) 😀

Menjelang surya terbit nih ada postingan mengenai Program Koneksi Database Access Dari Visual Basic Net 2008

Silahkan anda buat dahulu database access.
Nama Database : BPC.mdb
Nama Table : Barang
Field
1. Kode type Text
2. Nama type Text
3. Harga type Number
4. Jumlah type Number

Kemudian design form pada VB.NET 2008 dengan hanya satu komponen yaitu DataGridView saja yang ada di bagian Data (pada Toolbox)

Kemudian ketikkan listing Program Koneksi Database Access Dari Visual Basic Net 2008 berikut ini.

Imports System.Data.OleDb
Public Class Form1
Public DB As OleDbConnection
Public ADP As OleDbDataAdapter
Public DS As New DataSet

Public Sub OpenDB()
Dim LOKASI = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source =E:DatabaseBPC.mdb”
DB = New OleDbConnection(LOKASI)
If DB.State = ConnectionState.Closed Then
DB.Open()
End If
End Sub

Sub TampilProduk()
‘ Tambahkan huruf T pada perintah SELEC
ADP = New OleDbDataAdapter(“SELEC * FROM BARANG”, DB)
DS = New DataSet
ADP.Fill(DS, “Barang”)
DataGridView1.DataSource = DS.Tables(“Barang”)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call OpenDB()
Call TampilProduk()
End Sub
End Class

Demikianlah artikel Program Koneksi Database Access Dari Visual Basic Net 2008 , semoga bermanfaat !
Wah hari sudah menunjukkan pukul 02:30 WIB dini hari. Hemmm sudah pagi toh? heheheh namun saya yakin masih semangat belajar kan? (belajar kehidupan) 😀

Menjelang surya terbit nih ada postingan mengenai Program Koneksi Database Access Dari Visual Basic Net 2008

Silahkan anda buat dahulu database access.
Nama Database : BPC.mdb
Nama Table : Barang
Field
1. Kode type Text
2. Nama type Text
3. Harga type Number
4. Jumlah type Number

Kemudian design form pada VB.NET 2008 dengan hanya satu komponen yaitu DataGridView saja yang ada di bagian Data (pada Toolbox)

Kemudian ketikkan listing Program Koneksi Database Access Dari Visual Basic Net 2008 berikut ini.

Imports System.Data.OleDb
Public Class Form1
Public DB As OleDbConnection
Public ADP As OleDbDataAdapter
Public DS As New DataSet

Public Sub OpenDB()
Dim LOKASI = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source =E:DatabaseBPC.mdb”
DB = New OleDbConnection(LOKASI)
If DB.State = ConnectionState.Closed Then
DB.Open()
End If
End Sub

Sub TampilProduk()
‘ Tambahkan huruf T pada perintah SELEC
ADP = New OleDbDataAdapter(“SELEC * FROM BARANG”, DB)
DS = New DataSet
ADP.Fill(DS, “Barang”)
DataGridView1.DataSource = DS.Tables(“Barang”)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call OpenDB()
Call TampilProduk()
End Sub
End Class

Demikianlah artikel Program Koneksi Database Access Dari Visual Basic Net 2008 , semoga bermanfaat !
Wah hari sudah menunjukkan pukul 02:30 WIB dini hari. Hemmm sudah pagi toh? heheheh namun saya yakin masih semangat belajar kan? (belajar kehidupan) 😀

Menjelang surya terbit nih ada postingan mengenai Program Koneksi Database Access Dari Visual Basic Net 2008

Silahkan anda buat dahulu database access.
Nama Database : BPC.mdb
Nama Table : Barang
Field
1. Kode type Text
2. Nama type Text
3. Harga type Number
4. Jumlah type Number

Kemudian design form pada VB.NET 2008 dengan hanya satu komponen yaitu DataGridView saja yang ada di bagian Data (pada Toolbox)

Kemudian ketikkan listing Program Koneksi Database Access Dari Visual Basic Net 2008 berikut ini.

Imports System.Data.OleDb
Public Class Form1
Public DB As OleDbConnection
Public ADP As OleDbDataAdapter
Public DS As New DataSet

Public Sub OpenDB()
Dim LOKASI = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source =E:DatabaseBPC.mdb”
DB = New OleDbConnection(LOKASI)
If DB.State = ConnectionState.Closed Then
DB.Open()
End If
End Sub

Sub TampilProduk()
‘ Tambahkan huruf T pada perintah SELEC
ADP = New OleDbDataAdapter(“SELEC * FROM BARANG”, DB)
DS = New DataSet
ADP.Fill(DS, “Barang”)
DataGridView1.DataSource = DS.Tables(“Barang”)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call OpenDB()
Call TampilProduk()
End Sub
End Class

Demikianlah artikel Program Koneksi Database Access Dari Visual Basic Net 2008 , semoga bermanfaat !
Wah hari sudah menunjukkan pukul 02:30 WIB dini hari. Hemmm sudah pagi toh? heheheh namun saya yakin masih semangat belajar kan? (belajar kehidupan) 😀

Menjelang surya terbit nih ada postingan mengenai Program Koneksi Database Access Dari Visual Basic Net 2008

Silahkan anda buat dahulu database access.
Nama Database : BPC.mdb
Nama Table : Barang
Field
1. Kode type Text
2. Nama type Text
3. Harga type Number
4. Jumlah type Number

Kemudian design form pada VB.NET 2008 dengan hanya satu komponen yaitu DataGridView saja yang ada di bagian Data (pada Toolbox)

Kemudian ketikkan listing Program Koneksi Database Access Dari Visual Basic Net 2008 berikut ini.

Imports System.Data.OleDb
Public Class Form1
Public DB As OleDbConnection
Public ADP As OleDbDataAdapter
Public DS As New DataSet

Public Sub OpenDB()
Dim LOKASI = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source =E:DatabaseBPC.mdb”
DB = New OleDbConnection(LOKASI)
If DB.State = ConnectionState.Closed Then
DB.Open()
End If
End Sub

Sub TampilProduk()
‘ Tambahkan huruf T pada perintah SELEC
ADP = New OleDbDataAdapter(“SELEC * FROM BARANG”, DB)
DS = New DataSet
ADP.Fill(DS, “Barang”)
DataGridView1.DataSource = DS.Tables(“Barang”)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call OpenDB()
Call TampilProduk()
End Sub
End Class

Demikianlah artikel Program Koneksi Database Access Dari Visual Basic Net 2008 , semoga bermanfaat !
Wah hari sudah menunjukkan pukul 02:30 WIB dini hari. Hemmm sudah pagi toh? heheheh namun saya yakin masih semangat belajar kan? (belajar kehidupan) 😀

Menjelang surya terbit nih ada postingan mengenai Program Koneksi Database Access Dari Visual Basic Net 2008

Silahkan anda buat dahulu database access.
Nama Database : BPC.mdb
Nama Table : Barang
Field
1. Kode type Text
2. Nama type Text
3. Harga type Number
4. Jumlah type Number

Kemudian design form pada VB.NET 2008 dengan hanya satu komponen yaitu DataGridView saja yang ada di bagian Data (pada Toolbox)

Kemudian ketikkan listing Program Koneksi Database Access Dari Visual Basic Net 2008 berikut ini.

Imports System.Data.OleDb
Public Class Form1
Public DB As OleDbConnection
Public ADP As OleDbDataAdapter
Public DS As New DataSet

Public Sub OpenDB()
Dim LOKASI = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source =E:DatabaseBPC.mdb”
DB = New OleDbConnection(LOKASI)
If DB.State = ConnectionState.Closed Then
DB.Open()
End If
End Sub

Sub TampilProduk()
‘ Tambahkan huruf T pada perintah SELEC
ADP = New OleDbDataAdapter(“SELEC * FROM BARANG”, DB)
DS = New DataSet
ADP.Fill(DS, “Barang”)
DataGridView1.DataSource = DS.Tables(“Barang”)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call OpenDB()
Call TampilProduk()
End Sub
End Class

Demikianlah artikel Program Koneksi Database Access Dari Visual Basic Net 2008 , semoga bermanfaat !

Program Kriptografi Vigenere Dengan Visual Basic dot NET 2008

Berikut ini merupakan pembelajaran atas Program Kriptografi Vigenere Dengan Visual Basic dot NET 2008.

Lumayan terkenal juga, karna sudah menggunakan kunci, namun masih tergolong klasik. Silahkah anda pelajari programnya. 🙂

Design Form Program Kriptografi Vigenere Dengan Visual Basic dot NET 2008 berikut :
w

Ketik listing program berikut :

Public Class Form1

Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
Chipertext.Text = Enkripsi(Plaintext.Text, Kunci.Text)
End Sub

Function Enkripsi(ByVal Teks As String, ByVal Kunci As String) As String
Dim j As Integer
Dim jum As Integer
Dim sKey As String
Dim nKata As Integer
Dim nKunci As Integer
Dim sKata As String
Dim sPlain As String
Dim nEnc As Integer
j = 0
jum = Len(Teks)
sPlain = “”
sKey = Kunci
sKata = Teks
For i = 1 To jum
If j = Len(sKey) Then
j = 1
Else
j = j + 1
End If
nKata = Asc(Mid(sKata, i, 1))

nKunci = Asc(Mid(sKey, j, 1))

nEnc = ((nKata + nKunci) Mod 256)

sPlain = sPlain & Chr((nEnc))
Next i
Enkripsi = sPlain
End Function
End Class

Demikianlah artikel Program Kriptografi Vigenere Dengan Visual Basic dot NET 2008 , semoga bermanfaat saat belajar bahasa pemrograman.

Tag : Program Kriptografi Vigenere Dengan Visual Basic dot NET 2008, kriptografi vigenere, belajar kriptografi, belajar bahasa pemrograman, bahasa pemrograman

Bila bermanfaat silahkan share Program Kriptografi Vigenere Dengan Visual Basic dot NET 2008 ini dengan teman anda, Terima kasih sebelumnya

Penggunaan Perintah Select Case pada Visual Basic.Net Dalam Pemilihan Data

Bila sebelumnya pembahasan kasus nilai menggunakan IF jamak, maka pada pembahasan ini digunakan Case Select untuk memilih Nama Pegawai dan Gaji Pegawai.

Bila di ketahui terdapat 4 Pegawai dengan NIP yang berbeda dan Golongan juga terdapat 4 jenis. Untuk Nama pegawai dan Gaji nilai data boleh nilai berapa saja.

Berikut akan di bahas dalam Penggunaan Perintah Select Case pada Visual Basic.Net Dalam Pemilihan Data

Design lah Form berikut ini :
c

Berikut listing Programnya

Public Class Form1

Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
‘Untuk Keluar dari program
End
End Sub

Private Sub btnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBersih.Click
‘Membersihkan isian NIP, Nama, Golongan dan Gaji
NIP.Text = “”
Nama.Text = “”
Golongan.Text = “”
Gaji.Text = “”
‘Untuk memfocuskan NIP
NIP.Focus()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘Mengisikan data ke Combo NIP
NIP.Items.Add(“4021001”)
NIP.Items.Add(“4021002”)
NIP.Items.Add(“4021003”)
NIP.Items.Add(“4021004”)

‘Mengisikan data ke Combo Golongan
Golongan.Items.Add(“IIIA”)
Golongan.Items.Add(“IIIB”)
Golongan.Items.Add(“IIIC”)
Golongan.Items.Add(“IVA”)
End Sub

Private Sub NIP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIP.SelectedIndexChanged
‘Untuk menseleksi hasil pemilihan NIP
Select Case NIP.Text
Case “4021001” : Nama.Text = “Aldyan”
Case “4021002” : Nama.Text = “Mesran”
Case “4021003” : Nama.Text = “Surya Darma Nasution”
Case “4021004” : Nama.Text = “Azanuddin”
Case Else
Nama.Text = “” ‘Apabila tidak ada yang sama
End Select
End Sub

Private Sub Golongan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Golongan.SelectedIndexChanged
‘Untuk menseleksi hasil pemilihan Golongan
Select Case Golongan.Text
Case “IIIA” : Gaji.Text = 1500000
Case “IIIB” : Gaji.Text = 1750000
Case “IIIC” : Gaji.Text = 1900000
Case “IVA” : Gaji.Text = 2500000
Case Else
Gaji.Text = 0 ‘Apabila tidak ada yang sama
End Select
End Sub
End Class

Demikianla artikel Penggunaan Perintah Select Case pada Visual Basic.Net Dalam Pemilihan Data semoga artikel ini dapat membantu anda dan mari semangat belajar bahasa pemrograman.

Tag : Penggunaan Perintah Select Case pada Visual Basic.Net Dalam Pemilihan Data, Select Case, program vb.net, vb net, bahasa pemrograman, belajar bahasa pemrograman, bahasa pemrograman, bahasa pemrograman visual basic net, tempat download program

Bila bermanfaat silahkan share Penggunaan Perintah Select Case pada Visual Basic.Net Dalam Pemilihan Data ini dengan teman anda, Terima kasih sebelumnya

Program Edit dan Hapus Data Database Access Dengan VB Net

Program pembelajaran pada malam ini membahas tentang edit dan penghapusan data pada database access.

Terlebih dahulu persiapkan tabel Access.
Nama Database : SmartSolution.mdb
Nama Table : Buku
Field
1. Kode tipe Text
2. Judul tipe Text
3. Pengarang tipe Text
4. Penerbit tipe Text

Design Program Edit dan Hapus Data Database Access Dengan VB Net

53formdesign edit hapus

Listing Program Edit dan Hapus Data Database Access Dengan VB Net

Imports System.Data.OleDb
Public Class Form1
Public DB As OleDbConnection
Public CMD As OleDbCommand
Public ADP As OleDbDataAdapter
Public DS As New DataSet
Dim SQL As String

‘ membuat koneksi ke Database Access
Public Sub OpenDB()
Dim LOKASI = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source =E:DatabaseSmartSolution.mdb”
DB = New OleDbConnection(LOKASI)
If DB.State = ConnectionState.Closed Then
DB.Open()
End If
End Sub

‘ untuk menampilkan table buku pada datagridview melalui komponen Dataset
‘ perintah SELEC tambahkan huruf T
Sub TampilBuku()
ADP = New OleDbDataAdapter(“SELEC * FROM Buku”, DB)
DS = New DataSet
ADP.Fill(DS, “Buku”)
DataGridView1.DataSource = DS.Tables(“Buku”)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call OpenDB()
Call btnBaru_Click(sender, e)
Call TampilBuku()
End Sub

‘ Double click button baru dan ketik perintah berikut ini
‘ membersihkan isian textbox
Private Sub btnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaru.Click
Kode.Text = “”
Judul.Text = “”
Pengarang.Text = “”
Penerbit.Text = “”
End Sub

‘ Double click DataGridView dan rubah event menjadi CellClick dan ketik perintah berikut ini
‘ menampilkan data dari datagridview ke textbox
Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
Dim ubah As Integer = Nothing
ubah = DataGridView1.CurrentRow.Index
With DataGridView1
Kode.Text = .Item(0, ubah).Value
Judul.Text = .Item(1, ubah).Value
Pengarang.Text = .Item(2, ubah).Value
Penerbit.Text = .Item(3, ubah).Value
End With
End Sub

‘ Double click button hapus dan ketik perintah berikut ini :
‘ bagian menghapus data
Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
SQL = “DELETE FROM BUKU Where Kode='” & Kode.Text & “‘”
CMD = New OleDbCommand(SQL, DB)
CMD.ExecuteNonQuery()
Call btnBaru_Click(sender, e)
Call TampilBuku()
End Sub

‘ Double click button edit ketik perintah berikut ini :
‘ bagian mengedit data
Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
SQL = “UPDATE Buku SET Judul='” & Judul.Text & “‘,” & _
” Pengarang='” & Pengarang.Text & “‘,” & _
” Penerbit='” & Penerbit.Text & “‘ ” & _
” Where Kode='” & Kode.Text & “‘”

CMD = New OleDbCommand(SQL, DB)
CMD.ExecuteNonQuery()
Call btnBaru_Click(sender, e)
Call TampilBuku()
End Sub
End Class

Demikianlah artikel Program Edit dan Hapus Data Database Access Dengan VB Net , semoga bermanfaat,

Asik lho belajar bahasa pemrograman. Yuk Belajar Bahasa Pemrograman Visual Basic dot Net .

Selamat Malam.