Senin, 26 Februari 2018

Internet Gratis dengan HTTP Injector

HTTP Injector adalah alat profesional untuk mengatur costume header HTTP. Ini digunakan untuk menghubungkan SSH / Proxy Anda dengan header khusus untuk membantu Anda mengakses situs web diblokir di balik firewall dengan dukungan tunneling SSH & server proxy menggunakan VPN Android built-in. Ini akan membantu Anda menjelajah internet secara pribadi dan aman.
Alat ini hanya untuk pengguna profesional. Dengan aplikasi ini anda bisa bermain internet gratis menggunakan SSH Tunnel yang bisa anda dapatkan dari internet.

Fitur:
- Mengamankan koneksi menggunakan SSH Tunnel
- Ubah permintaan keluar.
- Tidak perlu root HP [Pilih antara mode VPN atau iptables (root)]
- Tentukan server proxy alternatif untuk mengirim permintaan
- Menyediakan header alternatif dan kemampuan untuk melepaskan header dari tanggapan http yang masuk
- DNS Changer
- Built in Host Checker dan IP Hunter
- Built in klien SSH (Sama dengan Bitvise)
- Generator Payload
- Apps Filter
- Dukungan Android 4.0 ke Android 8.0
- Google DNS / DNS Proxy
- Kompresi data
- Rute IP
- Penghemat baterai
- Kemampuan untuk mengubah ukuran buffer, dll

Jenis Tunnel:
- HTTP Proxy + SSH
- SSH Saja

Mode Provider:
- Konfigurasi yang diekspor akan dienkripsi
- Mengunci dan melindungi pengaturan dari pengguna
- Tetapkan pesan khusus untuk pelanggan
- kunci pengaman perangkat keras

Untuk lebih mudah dalam menggunakan aplikasi ini ada baiknya anda menggunakan file konfigurasi yang sudah ada. File konfigurasi ini bisa anda dapatkan dari internet / cari di google (kalau yang gratis harus berusaha).
Jika file konfigurasi sudah anda dapatkan Impor file konfigurasi tersebut ke aplikasi HTTP Injector. atau menggunakan Open payload generator dan press generate (tidak perlu menyesuaikan setting) dan pilih salah satu server kita untuk terhubung

[ LINK ] Download HTTP Injector

Cara Setting HTTP Injector :

Anonytun - Merobah Quota Midnight dan Video jadi Reguler

Apakah koneksi internet anda dibatasi?
Berapa kali Anda mendapatkan kesalahan membuka situs web yang diblokir?
Apakah Anda mencari cara aman untuk menjelajah situs web dengan bebas di internet?
Seberapa sering Anda diblokir oleh firewall di tempat anda menggunakan internet?
Nah, AnonyTun adalah solusi Anda, karena memberikan koneksi VPN berkecepatan tinggi untuk melewati layanan yang dibatasi geo/wilayah secara harfiah di lokasi dan negara manapun. Aplikasi VPN (Virtual Private Network) gratis ini menyediakan koneksi aman untuk melindungi privasi Anda dan mengabaikan firewall secara anonim untuk mengakses situs web atau aplikasi tanpa batas atau batasan.
AnonyTun hadir dengan desain yang bersih dan rapi dan antarmuka sangat user-friendly sehingga Anda hanya perlu menekan tombol Connect untuk mengakses koneksi aman melalui SSL Tunnel, HTTP Tunnel or TCP Tunnel. Bagi mereka yang mencari pengaturan lebih lanjut, ada Pengaturan Stealth yang memungkinkan mereka mengubah Protokol Sambungan, Port Sambungan, Aktifkan opsi untuk terhubung melalui proxy induk, mengedit header TCP/HTTP kustom dan mengaktifkan pengaturan SSL lanjutan dan mengeditnya. Jadi, tidak masalah Anda hanya mencari aplikasi VPN yang cepat, aman, dan gratis, atau Anda pro dan mencari aplikasi free tunnel dengan pengaturan lanjutan.
Bagaimana VPN Proxy Server Gratis Stand Out dari Crowd itu? Nah, ada begitu banyak layanan VPN dan aplikasi koneksi tunnel yang tersedia di Play Store.

Tapi, mengapa AnonyTun? Karena:
Satu. Ini benar-benar gratis dan Anda tidak perlu mendaftar untuk mendapatkan hasil maksimal dari aplikasi tunnel gratis ini
Dua. Ini bisa diandalkan dan berkat beberapa server proxy Anda tidak akan terputus
Tiga. Ini cepat dan Anda tidak akan melihat adanya perbedaan kecepatan saat layanan berjalan
Empat. Ini tidak terbatas dan tidak ada batasan dalam hal penggunaan bandwidth
Lima. Pengaturannya sesederhana mendorong satu tombol Connect

Fitur Utama AnonyTun: •
  • Desain bersih dan rapi dengan super user-friendly • 
  • Tidak perlu registrasi •
  • Tidak dibutuhkan ROOT • 
  • Cepat, bebas dan aman • 
  • Tidak ada batasan Bandwidth (Bandwidth Unlimited) • 
  • Mendukung SSL Tunnel, HTTP Tunnel, dan TCP Tunnel •
  • Bypass segala jenis pembatasan • Gratis 

[ LINK ] Download AnonyTun.

Cara menggunakan Anonytun :

Minggu, 25 Februari 2018

Kali Linux 2018


Pada tahun 2018 ini, Kali Linux merilis versi terbaru yakni Kali Linux 2018.1. Pada kali linux 2018.1 ini berisi semua paket dan perbaikan bug yang telah diperbarui sejak rilis 2017.3 pada bulan November lalu.

Kernel Diperbarui ke 4.14
Kali Linux 2018.1 memiliki kernel 4.14.12 yang mengkilap.Kernel baru selalu memiliki banyak fitur baru dan kernel 4.14 tidak terkecuali, walaupun dua fitur baru benar-benar menonjol. Dukungan Enkripsi Secure Secure Memory - Secure Memory Encryption adalah fitur yang akan ada pada prosesor AMD yang lebih baru yang memungkinkan enkripsi dan dekripsi otomatis DRAM. Penambahan fitur ini berarti sistem tidak lagi (dalam teori) rentan terhadap serangan cold-boot karena, meski dengan akses fisik, memori tidak akan bisa dibaca. Peningkatan Batas Memori - Prosesor 64-bit saat ini (dan yang lebih tua) memiliki batas ruang alamat fisik 64 TB (TeraByte) dan 256 TB ruang alamat virtual (virtual address space / VAS), yang cukup untuk lebih dari satu dekade namun dengan beberapa perangkat keras server dikirimkan dengan 64 TBC memori, batas sudah tercapai. Untungnya, prosesor yang akan datang akan memungkinkan paging 5 tingkat, dukungan yang disertakan dalam kernel 4.14. Singkatnya, ini berarti bahwa prosesor baru ini akan mendukung memori internal 4 PB (PetaByte) dan 128 PB memori virtual.

Update Paket
Selain kernel yang diperbarui, kami juga mengupgrade sejumlah paket, termasuk zaproxy, secure-socket-funneling, pixiewps, seclists, burpsuite, dbeaver, dan reaver. Jika Anda sudah memiliki instalasi Kali, Anda dapat dengan mudah mendapatkan versi terbaru dari alat ini beserta semua hal lain yang telah diperbarui :

apt update && apt full-upgrade

Download Kali Linux 2018.1 dari website reminya. (Link Download

Analisis Jaringan Menggunakan Wireshark

Wireshark adalah penganalisis protokol jaringan terdepan di dunia dan digunakan secara luas. Ini memungkinkan Anda melihat apa yang terjadi di jaringan Anda pada tingkat mikroskopis dan merupakan standar de facto (dan seringkali de jure) di banyak perusahaan komersial dan nirlaba, instansi pemerintah, dan institusi pendidikan. Perkembangan Wireshark tumbuh subur berkat kontribusi sukarelawan ahli jaringan di seluruh dunia dan merupakan kelanjutan dari sebuah proyek yang dimulai oleh Gerald Combs pada tahun 1998.

Wireshark memiliki seperangkat fitur yang meliputi: 
  • Inspeksi mendalam terhadap ratusan protokol, dengan lebih banyak ditambahkan setiap saat
  • Analisis live capture dan offline
  • Peramban paket standar three-pane
  • Multi-platform: Berjalan di Windows, Linux, macOS, Solaris, FreeBSD, NetBSD, dan banyak lainnya
  • Data jaringan yang diambil dapat diakses melalui GUI, atau melalui utilitas TTh-mode TShark
  • Filter tampilan lebih bagus
  • Analisis VoIP yang Kaya
  • Membaca / menulis banyak format file penangkapan yang berbeda: tcpdump (libpcap), Pcap NG, Catapult DCT2000, ipconfig Cisco Secure IDS, Monitor Jaringan Microsoft, Jaringan Sniffer Umum (terkompresi dan tidak terkompresi), Sniffer® Pro, dan NetXray®, Network Instruments Observer, NetScreen snoop, Novell LANalyzer, RADCOM WAN / LAN Analyzer, Shomiti / Finisar Surveyor, Tektronix K12xx, Visual Networks Visual UpTime, WildPackets EtherPeek / TokenPeek / AiroPeek, dan banyak lainnya
  • Capture file yang dikompres dengan gzip bisa didekompresi dengan cepat
  • Data langsung dapat dibaca dari Ethernet, IEEE 802.11, PPP / HDLC, ATM, Bluetooth, USB, Token Ring, Frame Relay, FDDI, dan lainnya (tergantung pada platform Anda)
  • Dukungan dekripsi untuk banyak protokol, termasuk IPsec, ISAKMP, Kerberos, SNMPv3, SSL / TLS, WEP, dan WPA / WPA2
  • Aturan mewarnai dapat diterapkan pada daftar paket untuk analisis intuitif yang cepat
  • Output dapat diekspor ke XML, PostScript®, CSV, atau teks biasa
  • Mendapatkan Wireshark
     
    Anda bisa mendownload Wireshark untuk Windows atau MacOS dari situs resminya (LINK Download). Jika Anda menggunakan Linux atau sistem mirip UNIX lainnya, Anda mungkin akan menemukan Wireshark di repositori paketnya. Misalnya, jika Anda menggunakan Ubuntu, Anda akan menemukan Wireshark di Ubuntu Software Center.

    Peringatan : Banyak organisasi tidak mengizinkan Wireshark dan alat serupa di jaringan mereka. Jangan gunakan alat ini di tempat kerja kecuali jika Anda memiliki izin.

 
Cara Menggunakan Wireshark :
1. Jalankan wireshark (bisa dari windows maupun dari MacOS)

 2. Waktu Pertama dijalankan maka akan nampak seperti gambar dibawah ini, pilih jaringan yang digunakan (misalnya : eth0, wifi dll), kemudian klick start capture (icon biru sudut kiri atas)

3. Proses capture paket mulai tampak diarea antar muka wireshark

 4. Click tombol “Stop” (icon merah sudut kiri atas) jika ingin berhenti melihat jalur lalu lintas paket.
5. Kode warna
Anda mungkin akan melihat paket yang disorot dalam berbagai warna berbeda. Wireshark menggunakan warna untuk membantu Anda mengidentifikasi jenis lalu lintas dalam sekejap. Secara default, ungu muda adalah lalu lintas TCP, biru muda adalah lalu lintas UDP, dan hitam mengidentifikasi paket dengan kesalahan-misalnya, pengirimannya tidak sesuai pesanan.

Untuk melihat dengan tepat arti kode warnanya, klik View> Coloring Rules. Anda juga dapat menyesuaikan dan memodifikasi aturan pewarnaan dari sini, jika Anda suka.

6. Menyaring Paket
Jika Anda mencoba untuk memeriksa sesuatu yang spesifik, seperti lalu lintas yang dikirim sebuah program saat menelepon ke rumah, ada baiknya menutup semua aplikasi lain yang menggunakan jaringan sehingga Anda dapat mempersempit lalu lintas. Namun, Anda mungkin akan memiliki sejumlah besar paket untuk disaring. Dari situlah filter Wireshark masuk. Cara paling dasar untuk menerapkan filter adalah dengan mengetikkannya ke dalam kotak filter di bagian atas jendela dan klik Apply (atau tekan Enter). Misalnya, ketik "tcp" dan Anda hanya akan melihat paket TCP. Saat Anda mulai mengetik, Wireshark akan membantu Anda melengkapi otomatis filter Anda.

Anda juga dapat mengeklik Analyze > Display Filters untuk memilih filter dari filter standar yang disertakan dalam Wireshark. Dari sini, Anda dapat menambahkan filter khusus Anda sendiri dan menyimpannya agar mudah diakses di masa mendatang.
Hal lain yang menarik yang bisa Anda lakukan adalah klik kanan sebuah paket dan pilih Follow> TCP Stream.

Anda akan melihat percakapan TCP lengkap antara klien dan server. Anda juga dapat mengklik protokol lain di menu Ikuti untuk melihat percakapan penuh untuk protokol lain, jika berlaku.

Tutup jendela dan Anda akan menemukan filter telah diterapkan secara otomatis. Wireshark menunjukkan paket yang membentuk pembicaraan.


Download Wireshark (LINK)

Internet Download Manager (IDM)

Internet Download Manager (IDM) adalah alat untuk meningkatkan kecepatan download hingga 5 kali, melanjutkan dan menjadwalkan download. Kemampuan pemulihan dan pemulihan kesalahan yang komprehensif akan memulai kembali unduhan yang rusak atau terputus karena kehilangan koneksi, masalah jaringan, shutdown komputer, atau pemadaman listrik tak terduga. Antarmuka pengguna grafis sederhana membuat IDM mudah digunakan dan mudah digunakan. Internet Download Manager memiliki akselerator logika unduh cerdas yang menampilkan segmentasi file dinamis cerdas dan teknologi download multipart aman untuk mempercepat unduhan Anda. Tidak seperti pengelola unduhan dan akselerator lainnya, Internet Download Manager mengunduh file secara dinamis selama proses download dan menggunakan kembali koneksi yang ada tanpa tahap sambung dan masuk tambahan untuk mencapai kinerja akselerasi terbaik.

Internet Download Manager mendukung server proxy, protokol ftp dan http, firewall, pengalihan, cookies, otorisasi, audio MP3 dan pemrosesan konten video MPEG. IDM terintegrasi dengan mulus ke dalam Microsoft Internet Explorer, Netscape, MSN Explorer, AOL, Opera, Mozilla, Mozilla Firefox, Mozilla Firebird, Avant Browser, MyIE2, dan semua browser populer lainnya untuk menangani unduhan secara otomatis. Anda juga bisa drag dan drop file, atau gunakan Internet Download Manager dari command line. Internet Download Manager dapat menghubungi modem Anda pada waktu yang ditentukan, mendownload file yang Anda inginkan, kemudian menutup telepon atau bahkan mematikan komputer Anda saat selesai.

Fitur lainnya termasuk dukungan multibahasa, preview zip, kategori download, scheduler pro, suara pada berbagai acara, dukungan HTTPS, prosesor antrian, bantuan dan tutorial html, perlindungan virus yang ditingkatkan pada penyelesaian download, download progresif dengan kuota (berguna untuk koneksi yang menggunakan beberapa jenis kebijakan akses yang adil atau FAP seperti Direcway, Direct PC, Hughes, dll.), akselerator download built-in, dan banyak lainnya.

Sampai saat IDM sudah Versi 6.30 dimana pada versi ini dilakukan penambahan terhadap kompatibilitas Windows 10, menambahkan panel unduh IDM untuk pemain web yang dapat digunakan untuk mendownload video flash dari situs seperti MySpaceTV, dan lainnya. Ini juga dilengkapi dengan dukungan Windows 8.1, Windows 7 dan Vista lengkap, grabber halaman video, scheduler yang dikembangkan ulang, dan dukungan protokol MMS. Versi baru ini juga menambahkan integrasi yang lebih baik untuk browser berbasis IE 11 dan IE, didesain ulang dan disempurnakan mesin download, integrasi canggih yang unik ke semua browser terbaru, toolbar yang disempurnakan, dan banyak perbaikan dan fitur baru lainnya.

Download IDM lengkap dengan Crack : IDM Versi 6.30 Build 6

Asli atau Plagiat, Cek Disini ?


Plagiarisme adalah perampasan yang salah dan pencurian dan publikasi bahasa, pemikiran, gagasan, atau ungkapan penulis lain dan representasi mereka sebagai karya asli seseorang. Plagiarisme dianggap sebagai ketidakjujuran akademis dan pelanggaran etika jurnalistik. Plagiarisme bukanlah kejahatan itu sendiri, tapi bisa merupakan pelanggaran hak cipta. Di kalangan akademisi dan industri, ini adalah pelanggaran etika yang serius.

Alat bantu yang digunakan untuk mengecek keaslian suatu karya ilmiah, artikel dan  bentuk karya tulisan lainnya bisa menggunakan website berikut :

Copyscape menyediakan layanan gratis yang memungkinkan Anda dengan mudah mencari plagiarisme secara online dan mengidentifikasi contoh pencurian konten. Cukup ketik URL konten asli Anda, dan Copyscape melakukan sisanya. Copyscape juga menawarkan layanan profesional untuk kebutuhan yang lebih maju.

Plagiatrism juga merupakan website yang menyediakan fasilitas gratis untuk mengecek keaslian karya ilmiah, artikel atau karya cipta lainnya.

3. Smallseotools

Alat SEO Kecil menawarkan detektor Plagiarisme secara online. Kita menyadari bahwa para siswa/mahasiswa mengandalkan alat detektor plagiarisme untuk menjalankan pemeriksaan plagiarisme pada makalah, tesis, dan esai mereka sebelum mengirimkannya. 
Smallseotools untuk saat ini boleh dikatakan yang terbaik dalam memyediakan versi pengecekan plagiat secara online gratis.

4. DupliChecker.com

DupliChecker.com adalah pemeriksa plagiarisme online gratis. Anda hanya perlu melakukan cek satu kali dengan cepat, cukup tempelkan teks ke kotak teks yang ditentukan di bagian atas halaman. Ini akan memberi Anda hasil langsung tanpa registrasi yang diperlukan.
Dengan DupliChecker.com  kita juga bisa menggunakan sampai 50 pencarian plagiarisme gratis setiap hari dengan cara mendaftar gratis di link berikut : https://www.duplichecker.com/register

5. Dustball
6. Plagium
7. PlagTracker


Sabtu, 24 Februari 2018

Plagiarism / Copy Paste Karya Orang Lain


Banyak orang menganggap plagiarisme sebagai menyalin karya orang lain atau meminjam gagasan asli orang lain. Tapi istilah seperti "penyalinan" dan "pinjaman" dapat menyamarkan keseriusan pelanggaran:

Menurut kamus online Merriam-Webster, untuk "menjiplak" berarti: mencuri dan mewariskan (ide atau kata-kata yang lain) sebagai miliknya sendiri untuk menggunakan (produksi orang lain) tanpa mengkredit sumbernya untuk melakukan pencurian sastra untuk menyajikan gagasan dan produk baru dan asli yang berasal dari sumber yang ada Dengan kata lain, plagiarisme adalah tindakan kecurangan. Ini melibatkan baik mencuri pekerjaan orang lain dan berbohong tentang hal itu sesudahnya.

Tapi bisakah kata-kata dan ide benar-benar dicuri?
Menurut hukum A.S., jawabannya adalah iya. Ekspresi gagasan orisinil dianggap kekayaan intelektual dan dilindungi oleh undang-undang hak cipta, seperti penemuan asli. Hampir semua bentuk ekspresi jatuh di bawah perlindungan hak cipta asalkan direkam dengan cara tertentu (seperti buku atau file komputer).

Semua hal berikut dianggap plagiarisme:
1. Membalik pekerjaan orang lain sebagai milik Anda sendiri
2. Menyalin kata atau ide dari orang lain tanpa memberi pujian
3. Gagal untuk menempatkan kutipan dalam tanda petik
4. Memberikan informasi yang salah tentang sumber kutipan
5. Mengubah kata tapi menyalin struktur kalimat dari seorang sumber tanpa memberi pujian
6. Menyalin begitu banyak kata atau gagasan dari sumber yang menghasilkan sebagian besar pekerjaan Anda, apakah Anda memberi penghargaan atau tidak

Sebagian besar kasus plagiarisme dapat dihindari, namun dengan mengutip sumber. Cukup dengan mengetahui bahwa materi tertentu telah dipinjam dan memberi audiens Anda informasi yang diperlukan untuk menemukan sumber itu biasanya cukup untuk mencegah plagiarisme. Lihat bagian kami tentang kutipan untuk informasi lebih lanjut tentang cara mengutip sumber dengan benar.

Bagaimana dengan gambar, video, dan musik?
Menggunakan gambar, video atau musik dalam karya yang telah Anda hasilkan tanpa mendapat izin yang benar atau memberikan kutipan yang tepat adalah plagiarisme. Kegiatan berikut sangat umum terjadi di masyarakat saat ini. Meski popularitas mereka, mereka masih dianggap plagiarisme.
  • Menyalin media (terutama gambar) dari situs lain untuk menempelkannya ke kertas atau situs web Anda sendiri.
  • Membuat video menggunakan cuplikan dari video orang lain atau menggunakan musik berhak cipta sebagai bagian dari soundtrack.
  • Melakukan musik berhak cipta orang lain (yaitu, bermain sampul).
  • Menyusun sepotong musik yang banyak meminjam dari komposisi lain.
  • Tentu saja, media ini menimbulkan situasi di mana bisa menjadi tantangan untuk menentukan apakah hak cipta atas suatu karya dilanggar atau tidak. Sebagai contoh: Foto atau pemindaian gambar berhak cipta (misalnya: menggunakan foto sampul buku untuk mewakili buku itu di situs web seseorang), Merekam audio atau video di mana musik atau video berhak cipta diputar di latar belakang, Menciptakan kembali karya visual dalam media yang sama. (misalnya: memotret foto yang menggunakan komposisi dan materi pelajaran yang sama seperti foto orang lain), Menciptakan kembali karya visual dalam media yang berbeda (misalnya: membuat lukisan yang mirip dengan foto orang lain), Mencampur ulang atau mengubah gambar, video, atau audio yang dilindungi hak cipta, bahkan jika dilakukan dengan cara yang asli.
Legalitas situasi ini, dan lainnya, akan tergantung pada maksud dan konteks di mana mereka diproduksi. Dua pendekatan teraman yang harus diambil dalam situasi ini adalah: 1) Hindari mereka sama sekali atau 2) Konfirmasikan izin penggunaan karya tersebut dan sebutkan dengan benar.

Kamis, 22 Februari 2018

Program VB.Net Sederhana

Langkah-langkah pembuatan program VB.Net 1 File)
1. Buat sebuah Database yang terdiri dari 1 buah tabel (dalam contoh ini database dibuat
    menggunakan sql) :
 
    Nama Database : p2kpns
    Nama Tabel : Pegawai


2. Buka VB.Net, buatlah project (nama project : p2kpns) dan 1 buah form (nama form : PEGAWAI)
3. Tarik komponen-komponen yang dibutuhkan kedalam form, dalam contoh ini komponen yang 
    dibutuhkan terdiri dari 9 buah Label, 5 buah TextBox, 2 buah RadioButton, 1 buah 
    DiteTimePicker, 3 buah ComboBox, 6 buah tombol Button dan DataGridView untuk  menampilkan 
    hasil record yang tersimpan. Tampilan lengkap hasil desain seperti berikut :


 4. Sebelum memulai membuat coding programnya terlebih dahulu buatlah sebuah modul untuk 
     pemanggilan database.
kemudian ketik coding berikut dalam modul yang telah dibuat :

Imports System.Data.Odbc

Module Module1
    Public KONEKSI As OdbcConnection
    Public COMD As OdbcCommand
    Public levellogin As String

    Public Sub KONEKSIDATABASE()
        KONEKSI = New OdbcConnection("Driver={MYSQL ODBC 5.1 Driver};database=P2KPNS;server=localhost;uid=root")
        If KONEKSI.State = ConnectionState.Closed Then
            KONEKSI.Open()
        End If
    End Sub
End Module

5. Kemudian pindah ke form, untuk memulai membuat coding lakukan langkah-langkah berikut :

- Double Click Form, kemudian ketik :

Public Class Pegawai
    Dim cmdpegawai As New OdbcCommand
    Dim dapegawai As OdbcDataAdapter
    Dim drpegawai As OdbcDataReader
    Dim tkodeunit, tkodegol, tkodejab As String
    Dim KET As Char

Private Sub Pegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        KONEKSIDATABASE()
        Call tampilview()
        Call tampilgol()
        Call tampiljabatan()
        Call tampilunit()
        tnip.Text = ""
        Call KOSONG()
        Call TIDAKAKTIF()
        tnip.MaxLength = 21
 End Sub

'untuk pengosongan form 
    Sub KOSONG()
        tnama.Text = ""
        ttempat.Text = ""
        tgol.Text = ""
        tjabatan.Text = ""
        tunit.Text = ""
        tlaki.Checked = False
        tperempuan.Checked = False
        tgol.Text = ""
        ttelp.Text = ""
        talamat.Text = ""
    End Sub

    'untuk mengaktifkan textbox dan komponen lainnya
    Sub AKTIF()
        tnama.Enabled = True
        ttempat.Enabled = True
        tgol.Enabled = True
        tlaki.Enabled = True
        tperempuan.Enabled = True
        tgol.Enabled = True
        tjabatan.Enabled = True
        tunit.Enabled = True
        ttelp.Enabled = True
        talamat.Enabled = True
        ttgl.Enabled = True
        simpan.Enabled = True
        hapus.Enabled = True
        koreksi.Enabled = True
        batal.Enabled = True
    End Sub
    
    'untuk mengnon-aktifkan textbox dan komponen lainnya
    Sub TIDAKAKTIF()
        tnama.Enabled = False
        ttempat.Enabled = False
        tgol.Enabled = False
        tlaki.Enabled = False
        ttgl.Enabled = False
        tperempuan.Enabled = False
        tgol.Enabled = False
        tjabatan.Enabled = False
        tunit.Enabled = False
        ttelp.Enabled = False
        talamat.Enabled = False
        simpan.Enabled = False
        hapus.Enabled = False
        koreksi.Enabled = False
        batal.Enabled = False
    End Sub
    
    'untuk membuat isi combobox
    Sub tampilgol()
        tgol.Items.Add("Pembina Utama / IVe")
        tgol.Items.Add("Pembina Utama Madya / IVd")
        tgol.Items.Add("Pembina Utama Muda / IVc")
        tgol.Items.Add("Pembina Tingkat I / IVb")
        tgol.Items.Add("Pembina / IVa")
        tgol.Items.Add("Penata Tingkat I / IIId")
        tgol.Items.Add("Penata / IIIc")
        tgol.Items.Add("Penata Muda Tingkat I / IIIb")
        tgol.Items.Add("Penata Muda / IIIa")
        tgol.Items.Add("Pengatur Tingkat I / IId")
        tgol.Items.Add("Pengatur / IIc")
        tgol.Items.Add("Pengatur Muda Tingkat I / IIb")
        tgol.Items.Add("Pengatur Muda / IIa")
        tgol.Items.Add("Juru Tingkat I / Id")
        tgol.Items.Add("Juru / Ic")
        tgol.Items.Add("Juru Muda Tingkat I / Ib")
        tgol.Items.Add("Juru Muda / Ia")
    End Sub

    Sub tampiljabatan()
        Dim str As String = "select kode,nama from jabatan order by kode"
        If KONEKSI.State = ConnectionState.Closed Then
            KONEKSI.Open()
        End If
        cmdpegawai = New OdbcCommand(str, KONEKSI)
        drpegawai = cmdpegawai.ExecuteReader
        Try
            While drpegawai.Read
                tjabatan.Items.Add(drpegawai!kode & "   |   " & drpegawai!nama)
            End While
        Catch ex As Exception
            MsgBox("Data Jabatan kosong, Input data Jabatan dari Form Jabatan", vbOKOnly, "Warning...")
        Finally
            cmdpegawai.Dispose()
        End Try
    End Sub

    Sub tampilunit()
        Dim str As String = "select kode,nama from unitkerja order by kode"
        If KONEKSI.State = ConnectionState.Closed Then
            KONEKSI.Open()
        End If
        cmdpegawai = New OdbcCommand(str, KONEKSI)
        drpegawai = cmdpegawai.ExecuteReader
        Try
            While drpegawai.Read
                tunit.Items.Add(drpegawai!kode & "   |   " & drpegawai!nama)
            End While
        Catch ex As Exception
            MsgBox("Data Unit Kerja kosong, Input data Unit Kerja dari Form Unit Kerja", vbOKOnly, "Warning...")
        Finally
            cmdpegawai.Dispose()
        End Try
    End Sub

- Double click textbox NIP (Namenya : TNIP), ketik coding berikut :

Private Sub tnip_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tnip.TextChanged
        If Len(tnip.Text) < 21 Then
            Exit Sub
        End If
        If KONEKSI.State = ConnectionState.Closed Then
            KONEKSI.Open()
        End If
        Dim str As String = "select * from pegawai where nip ='" & tnip.Text & "'"
        cmdpegawai = New OdbcCommand(str, KONEKSI)
        drpegawai = cmdpegawai.ExecuteReader
        drpegawai.Read()
        If drpegawai.HasRows Then
            tnama.Text = drpegawai!nama
            ttempat.Text = drpegawai!tempat
            ttgl.Value = drpegawai!tanggal
            If drpegawai!jekel = "L" Then
                tlaki.Checked = True
            ElseIf drpegawai!jekel = "P" Then
                tperempuan.Checked = True
            End If
            ttelp.Text = drpegawai!telp
            talamat.Text = drpegawai!alamat
            tkodeunit = drpegawai!kodeunit
            tgol.Text = drpegawai!kodegol
            tkodejab = drpegawai!kodejab

            Dim str2 As String = "select kode,nama from jabatan where kode = '" & tkodejab & "'"
            cmdpegawai = New OdbcCommand(str2, KONEKSI)
            drpegawai = cmdpegawai.ExecuteReader
            drpegawai.Read()
            If drpegawai.HasRows Then
                tjabatan.Text = drpegawai!kode & "   |   " & drpegawai!nama
            End If

            Dim str3 As String = "select kode,nama from unitkerja where kode = '" & tkodeunit & "'"
            cmdpegawai = New OdbcCommand(str3, KONEKSI)
            drpegawai = cmdpegawai.ExecuteReader
            drpegawai.Read()
            If drpegawai.HasRows Then
                tunit.Text = drpegawai!kode & "   |   " & drpegawai!nama
            End If

            TIDAKAKTIF()
            koreksi.Enabled = True
            hapus.Enabled = True
            batal.Enabled = True
            Exit Sub
        End If
        KOSONG()
        AKTIF()
        tnama.Focus()
        koreksi.Enabled = False
        hapus.Enabled = False
        cmdpegawai.Dispose()
        KONEKSI.Close()
    End Sub

- Double click RadioButton Laki-Laki dan Perempuan (Namenya : tlaki, tperempuan), 
   ketik coding berikut :

Private Sub tlaki_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tlaki.CheckedChanged
        KET = "L"
End Sub

Private Sub tperempuan_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tperempuan.CheckedChanged
        KET = "P"
End Sub

- Double tombol tambah, simpan, koreksi, hapus, batal dan close
   ketik coding berikut :

Private Sub tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah.Click
        KOSONG()
        tnip.Text = ""
        tnip.Focus()
        TIDAKAKTIF()
End Sub

Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
        Dim str As String
        Try
            If KONEKSI.State = ConnectionState.Closed Then
                KONEKSI.Open()
            End If
            str = "insert into pegawai(nip,nama,tempat,tanggal,jekel,kodegol,kodejab,kodeunit" & _
                    ",alamat,telp) values('" & tnip.Text & "','" & tnama.Text & "','" & ttempat.Text & "'," & _
                    "'" & Format(ttgl.Value, "yyyy-MM-dd") & "','" & KET & "','" & tgol.Text & _
                    "', '" & LSet(tjabatan.Text, 3) & "','" & LSet(tunit.Text, 3) & "','" & talamat.Text & "','" & ttelp.Text & "')"
            cmdpegawai = New OdbcCommand(str, KONEKSI)
            cmdpegawai.ExecuteNonQuery()
            tampilview()
            tnip.Text = ""
            KOSONG()
            TIDAKAKTIF()
            tnip.Focus()
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            cmdpegawai.Dispose()
            KONEKSI.Close()
        End Try
End Sub

Private Sub koreksi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles koreksi.Click
        If ToolTip3.Tag = "aa" Then
            AKTIF()
            simpan.Enabled = False
            ToolTip3.Tag = "bb"
            ToolTip3.ToolTipTitle = "Update"
        ElseIf ToolTip3.Tag = "bb" Then
            Dim str As String
            Try
                If KONEKSI.State = ConnectionState.Closed Then
                    KONEKSI.Open()
                End If
                str = "update pegawai set nama='" & tnama.Text & "',tempat='" & ttempat.Text & _
                    "' ,tanggal='" & Format(ttgl.Value, "yyyy-MM-dd") & "',jekel='" & KET & _
                    "' ,kodegol = '" & tgol.Text & "', kodejab = '" & LSet(tjabatan.Text, 3) & _
                    "' ,kodeunit = '" & LSet(tunit.Text, 3) & "', alamat='" & talamat.Text & _
                    "',telp='" & ttelp.Text & "' WHERE nip='" & tnip.Text & "'"
                cmdpegawai = New OdbcCommand(str, KONEKSI)
                cmdpegawai.ExecuteNonQuery()
                tampilview()
                tnip.Text = ""
                KOSONG()
                TIDAKAKTIF()
                tnip.Focus()
                ToolTip3.Tag = "aa"
                ToolTip3.ToolTipTitle = Nothing
            Catch ex As Exception
                MsgBox(ex.ToString)
            Finally
                cmdpegawai.Dispose()
                KONEKSI.Close()
            End Try
        End If

    End Sub

Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        Dim str, str1 As String
        Try
            If MsgBox("Yakin data dihapus...?", MsgBoxStyle.YesNo, "Konfirmasi") = MsgBoxResult.Yes Then
                If KONEKSI.State = ConnectionState.Closed Then
                    KONEKSI.Open()
                End If

                str1 = "select sasarankerja.nip,perilaku.nip FROM sasarankerja,perilaku WHERE sasarankerja.nip='" & tnip.Text & "' or perilaku.nip='" & tnip.Text & "'"
                cmdpegawai = New OdbcCommand(str1, KONEKSI)
                drpegawai = cmdpegawai.ExecuteReader
                drpegawai.Read()
                If drpegawai.HasRows Then
                    MsgBox("Data tidak bisa dihapus, karena terkait dengan data lain...", vbExclamation, "Warning")
                    Exit Sub
                End If

                str = "DELETE FROM pegawai WHERE nip='" & tnip.Text & "'"
                cmdpegawai = New OdbcCommand(str, KONEKSI)
                cmdpegawai.ExecuteNonQuery()
                tampilview()
                tnip.Text = ""
                KOSONG()
                TIDAKAKTIF()
                tnip.Focus()
            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            cmdpegawai.Dispose()
            KONEKSI.Close()
        End Try

    End Sub

Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batal.Click
        KOSONG()
        tnip.Text = ""
        tnip.Focus()
        TIDAKAKTIF()

End Sub

Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click
        Me.Dispose()

End Sub


-  terakhir ketik coding berikut untuk menampilan data dalam datagridview:

Sub tampilview()
        If KONEKSI.State = ConnectionState.Closed Then
            KONEKSI.Open()
        End If
        cmdpegawai.CommandType = CommandType.Text
        Dim str As String = "select pegawai.nip,pegawai.nama,pegawai.tempat,pegawai.tanggal" & _
            ",pegawai.kodegol,jabatan.nama,unitkerja.nama from pegawai,jabatan" & _
            ",unitkerja where pegawai.kodejab = jabatan.kode and " & _
            "pegawai.kodeunit = unitkerja.kode order by pegawai.nama asc"
        cmdpegawai = New OdbcCommand(str, KONEKSI)
        drpegawai = cmdpegawai.ExecuteReader
        tampil.Rows.Clear()
        With tampil
            .ColumnCount = 6
            .Columns(0).Name = "N I P"
            .Columns(1).Name = "Nama Pegawai"
            .Columns(2).Name = "Tempat/Tgl. Lahir"
            .Columns(3).Name = "Pangkat/Gol.Ruang"
            .Columns(4).Name = "Jabatan"
            .Columns(5).Name = "Unit Kerja"
            .Columns(0).Width = 130
            .Columns(1).Width = 190
            .Columns(2).Width = 250
            .Columns(3).Width = 150
            .Columns(4).Width = 150
            .Columns(5).Width = 350
        End With
        While drpegawai.Read
            With tampil
                Dim baris As Object() = New Object() {drpegawai.GetString(0).ToString, drpegawai.GetString(1).ToString, drpegawai.GetString(2).ToString & ", " & drpegawai.GetValue(3),
                drpegawai.GetString(4).ToString, drpegawai.GetString(5).ToString, drpegawai.GetString(6).ToString}
                .Rows.Add(baris)
            End With
        End While
        cmdpegawai.Dispose()
        KONEKSI.Close()

End Sub

Semoga contoh program ini bisa dijadikan panduan bagi kita yang ingin mencoba membuat program vb.net.
--------------------------------------------------------------------