Membuat kriptografi dengan VB.net

Hai teman-teman Kali ini saya akan postingkan tentang  kriptografi. ide ini berawal dari pembelajaran kami dari pemrograman VB  di kampus. baiklah langsung azah ea para blogger.

pertama buatlah 5 form. yang dimana form 1 sebagai induk dan form 2-5 sebagai anak dari program tersebut.

buatlah form 1 sesuai dengan gambar dibawah ini.

Lalu copykan code ini :

Public Class Form1

    Private Sub CaesarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaesarToolStripMenuItem.Click

        Form2.Show()

    End Sub

Sistem operasi serve

Server merupakan komputer pusat yang dapat melayani semua komputer client yang terhubung dalam jaringan komputer. Sistem operasi server harus mempunyai tingkat keamanan / security yang lebih baik dari pada komputer client. berikut adalah sistem operasi untuk server dalam jaringan komputer.

1. Novell netware merupakan sistem operasi yang dikembangkan oleh Novell yang menggunakan sistem corporativ multitasking yang mampu menjalankan beberapa layanan dalam sebuah komputer.
2. Sistem Operasi Microsoft merupakan sistem operasi yang dikembangkan oleh microsoft. Berikut adalah sistem operasi server buatan microsoft:

• Windows NT merupakan sistem operasi jaringan untuk server yang sangat mendukung penggunaan TCP/IP, IPX/SPX, IIS dan protocol yang lain.
• Windows 2000 server merupakan sistem operasi yang dikembangkan dari windows NT dengan penambahan active directory yang digunakan untuk melakukan proses manajemen pengguna yang terhubung dalam jaringan. Windows 2000 juga lebih mudah instalasinya dibandingkan windows NT.
• Windows Server 2003 merupakan pengembangan dari versi sebelumnya dengan menambahkan fasilitas seperti Active directory dengan framework yang mudah melakukan proses integrasi antara program yang digunakan dalam jaringan, back up file dalam jaringan, dan sistem recovery yang dapat memperbaiki sistem operasi yang terhubung jaringan secara otomatis.

3. MAC OS merupakan sistem operasi yang khusu digunakan untuk komputer product Apple yang memunyai stabilitas yang tinggi untuk komputer server. Beberapa fasilitas lyang disediakan oleh MAC OS antara lain : berbagi printer dan file, service windows, manajemen workgroup, pembaruan server dalam jarak jauh dan lain-lain.
4. Linux merupakan sistem operasi yang tidak berbayar sehingga kebanyakan orang lebih banyak menggunakan sistem operasi ini. kelebihan sistem operasi linux dapat bertahan lama tanpa harus melakukan booting dalam waktu berhari-hari dan lebih aman dari serangan virus.

program vb net untuk menampilkan output

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load

        NIK.Items.Add("PM010")

        NIK.Items.Add("PS111")

        NIK.Items.Add("KU101")

        NIK.Items.Add("GD100")

        NIK.Items.Add("PM011")

        Jbtan.Items.Add("PM")

        Jbtan.Items.Add("PS")

        Jbtan.Items.Add("KU")

        stats.Items.Add("Menikah")

        stats.Items.Add("Tidak Menikah")

    End Sub

    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles NIK.SelectedIndexChanged

        Select Case NIK.Text

            Case "PM010"

                nma.Text = "Remington"

               

            Case "PS111"

                nma.Text = "Ferry"

               

            Case "KU101"

                nma.Text = "Irwandy"

               

            Case "GD100"

                nma.Text = "Chen Lee"

                

            Case "PM011"

                nma.Text = "Yee Yin"

               

        End Select

    End Sub

Program VB Net Untuk FORM PENGGAJIAN KARYAWAN

Berikut merupakan program Program VB Net Untuk FORM PENGGAJIAN KARYAWAN (Sistem Informasi Penggajian)

Untuk memasukkan image ke Button bisa dilihat pada artikel memasukkan image ke button pada VB Net

Untuk listing Program VB Net Untuk FORM PENGGAJIAN KARYAWAN (Sistem Informasi Penggajian)


Imports System.Data.OleDb
Public Class frmpenggajian
    Public DB As OleDbConnection
    Public CMD As OleDbCommand
    Public ADP As OleDbDataAdapter
    Public DR 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:\0Program Visual II\DB\SMART.mdb"
        DB = New OleDbConnection(LOKASI)
        If DB.State = ConnectionState.Closed Then
            DB.Open()
        End If
    End Sub

    Sub RecordGaji()
        ADP = New OleDbDataAdapter("SELECT * FROM Penggajian", DB)
        DS = New DataSet
        ADP.Fill(DS, "Penggajian")
        DataGridView1.DataSource = DS.Tables("Penggajian")
    End Sub

    Sub TombolBaru()
        btnBaru.Enabled = True
        btnSimpan.Enabled = False
        btnEdit.Enabled = False
        btnHapus.Enabled = False
        btnBatal.Enabled = False
        btnKeluar.Enabled = True
    End Sub

    Sub TombolEdit()
        btnBaru.Enabled = False
        btnSimpan.Enabled = False
        btnEdit.Enabled = True
        btnHapus.Enabled = True
        btnBatal.Enabled = True
        btnKeluar.Enabled = False
    End Sub

    Sub TombolSimpan()
        btnBaru.Enabled = False
        btnSimpan.Enabled = True
        btnEdit.Enabled = False
        btnHapus.Enabled = False
        btnBatal.Enabled = True
        btnKeluar.Enabled = False
    End Sub

    Sub HapusForm()
        NoSlip.Text = ""
        NIK.Text = ""
        Tanggal.Value = Now
        Gaji.Text = "0"
        Total.Text = "0"
        Tunjangan.Text = "0"
        Jabatan.Text = ""
        Bagian.Text = ""
        Nama.Text = ""
        Call TombolBaru()
    End Sub
    Private Sub btnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaru.Click
        Call HapusForm()
        NoSlip.Focus()
    End Sub

    Private Sub frmpenggajian_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call HapusForm()
        Call OPENDB()
        Call RecordGaji()

        Call TampilNIK()
    End Sub

    Sub TampilNIK()
        NIK.Items.Clear()
        SQL = "SELECT NIK FROM Karyawan"
        CMD = New OleDbCommand(SQL, DB)
        DR = CMD.ExecuteReader
        While DR.Read
            NIK.Items.Add(DR("NIK"))
        End While
        DR.Close()
    End Sub

    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged
        CariNIK()
    End Sub

    Sub CariNIK()
        Dim xkode As String = ""
        Dim xkdBagian As String = ""
        Dim xkdJabatan As String = ""
        SQL = "SELECT a.Nama, b.NmJabatan, b.Gaji, c.NmBagian " & _
                        " FROM Karyawan a, Jabatan b, Bagian c " & _
                        " Where a.Bagian = c.KdBagian and a.Jabatan=b.Kdjabatan and NIK='" & NIK.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        DR = CMD.ExecuteReader
        DR.Read()
        If DR.HasRows = True Then
            Nama.Text = DR("Nama")
            Bagian.Text = DR("NmBagian")
            Jabatan.Text = DR("NmJabatan")
            Gaji.Text = DR("Gaji")
            Call prosesGaji()
        End If
        DR.Close()
    End Sub
    Sub prosesGaji()
        Tunjangan.Text = 0.25 * Gaji.Text
        Total.Text = CDbl(Tunjangan.Text) + CDbl(Gaji.Text)
    End Sub

    Private Sub NoSlip_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NoSlip.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        Dim xnik As String = ""
        Dim xkode As String = ""
        If tombol = 13 Then
            SQL = "SELECT * FROM Penggajian where NoSlip='" & NoSlip.Text & "'"
            CMD = New OleDbCommand(SQL, DB)
            DR = CMD.ExecuteReader
            DR.Read()
            If DR.HasRows = True Then
                Tanggal.Value = Format(DR("Tanggal"), "dd-MM-yyyy")
                xnik = DR("NIK")
                Gaji.Text = DR("Gaji")
                Total.Text = DR("Total")
                Tunjangan.Text = DR("Tunjangan")
                Call TombolEdit()
            Else
                xkode = NoSlip.Text
                Call HapusForm()
                NoSlip.Text = xkode
                Call TombolSimpan()
            End If
            DR.Close()
            NIK.Text = xnik
            NIK.Focus()
        End If
    End Sub

    Private Sub NoSlip_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NoSlip.TextChanged

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        SQL = "DELETE FROM Penggajian Where NoSlip='" & NoSlip.Text & "'"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnBaru_Click(sender, e)
        Call RecordGaji()
    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click
        Call btnBaru_Click(sender, e)
    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click
        Me.Close()
    End Sub

    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
        SQL = "UPDATE Penggajian SET NIK='" & NIK.Text & "', " & _
                            " Gaji='" & Gaji.Text & "', " & _
                            " Tanggal='" & Format(Tanggal.Value, "dd-MM-yyyy") & "', " & _
                            " Total='" & Total.Text & "', " & _
                            " Tunjangan='" & Tunjangan.Text & "' " & _
                            " Where NoSlip='" & NoSlip.Text & "'"

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

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        SQL = "INSERT INTO Penggajian(NoSlip, NIK, Tanggal, Gaji, Tunjangan, Total)" & _
                      "Values ('" & NoSlip.Text & "','" & _
                                    NIK.Text & "','" & _
                                    Format(Tanggal.Value, "dd-MM-yyyy") & "','" & _
                                    Gaji.Text & "','" & _
                                    Tunjangan.Text & "','" & _
                                    Total.Text & "')"
        CMD = New OleDbCommand(SQL, DB)
        CMD.ExecuteNonQuery()
        Call btnBaru_Click(sender, e)
        Call RecordGaji()
    End Sub
End Class

Teknik Berkebun Emas untuk Keuntungan Maksimal

Emas sering dimanfaatkan para investor sebagai alat hedging (lindung nilai) sekaligus instrumen investasi jangka panjang karena harga emas yang relatif stabil dalam jangka pendek namun bisa mengalami kenaikan signifikan dalam jangka panjang mengikuti atau melebihi tingkat inflasi. Namun dengan tren bullish harga emas beberapa tahun belakangan ini, banyak investor yang memanfaatkan momen tersebut untuk mendapatkan keuntungan dari jual beli emas jangka pendek yang biasa disebut sebagai berkebun emas.
Sistem berkebun emas memanfaatkan jasa pegadaian yang disediakan oleh bank ataupun lembaga lainnya untuk memperbesar modal dalam membeli emas di mana emas yang sudah ada di tangan digadaikan untuk mendapatkan modal membeli emas berikutnya yang kemudian digadaikan lagi. Sistem seperti ini memungkinkan investor untuk membeli emas dengan modal lebih sedikit yang kemudian dijual pada saat yang tepat untuk memperoleh keuntungan jangka pendek maupun jangka panjang. Sistem ini juga menguntungkan pihak bank karena bisa meningkatkan omset penjualan produk gadainya.
Lebih jelasnya, mari kita lihat contoh cara berkebun emas yang biasa dilakukan para pekebun emas:
Beli emas batangan 25 gram seharga Rp 10jt (per gram Rp 400rb) yang kemudian digadaikan, dapat Rp 8jt (asumsi nilai taksiran 80% dari nilai emas)
Beli emas 25 gram lagi dari uang Rp 8jt + Rp 2jt dari modal sendiri dan kemudian digadaikan lagi, dapat lagi Rp 8jt, gadaikan lagi untuk dibelikan emas. Ulangi beli gadai ini berulang-ulang.
Di sini kita asumsikan investor membeli sampai emas ke-5. Emas terakhir ini disimpan untuk modal menebus emas kembali nanti.

7 Cara Alami Terbaik Menghilangkan Bekas Luka

Bagi sebagian orang, mempunyai bekas luka seperti bekas cacar, bekas jerawat, lecet atau luka karena teriris benda tajam bisa sangat memengaruhi kepercayaan diri.
Terutama jika bekas luka tersebut berada di betis, paha, lengan atau wajah. Menghilangkan bekas luka lama atau baru memang tidaklah mudah. Jika bekas luka tersebut tidak dirawat dengan benar maka luka tersebut bisa jadi tidak akan pernah hilang selamanya atau luka tersebut dapat menjadi keloid.
Tak heran jika beberapa orang khawatir akan hal tersebut bahkan rela melakukan cara apa saja. Berbagai produk lotion khusus atau salep khusus pun dibeli, bahkan ada juga yang nekat melakukan operasi plastik atau laser agar kulitnya menjadi mulus kembali tanpa peduli berapa biaya yang harus dikeluarkan!
Sebenarnya, selain pengobatan modern, ada alternatif yang tidak kalah ampuhnya untuk menghilangkan bekas luka. Alternatif tersebut dapat dilalui dengan menggunakan bahan tradisional.
Artikel ini merangkum 7 cara alami terbaik yang sudah dirasakan manfaatnya oleh banyak orang untuk menghilangkan bekas luka mereka. Penasaran dengan bahan tradisonal apa saja yang dapat dicoba? Berikut adalah uraiannya.

• Mentimun
  Buah yang dalam bahasa latinnya mempunyai nama Cucumis sativus ini tidak hanya mengandung vitamin C dan potasium yang baik untuk menangkal radikal bebas, tetapi  juga memiliki kandungan  air yang cukup tinggi dan menyegarkan. Joel Schlessinger,MD, ahli kulit dari Omaha, Nebraska, menyimpulkan bahwa mentimun juga memiliki kandungan silika yang dapat meningkatkan produksi kolagen dan mencegah munculnya keriput.  Tidak heran, banyak produk yang menggunakan mentimun sebagai bagian penting dalam perawatan kulit baik untuk mengencangkan, melembabkan kulit, mengatasi jerawat, dan bahkan untuk menghilangkan bekas luka pada kulit. Untuk menghilangkan bekas luka, cuci bersih mentimun, kemudian potong mentimun menjadi kecil-kecil lalu haluskan dengan blender atau ditumbuk. Setelah halus, oleskan pada bekas luka dan biarkan sepanjang malam. Jika dilakukan dengan rutin maka bekas luka dapat berangsur-angsur menjadi samar dan hilang.
• Madu
  Cairan yang menyerupai sirup, kental dan memiliki rasa manis ini juga bisa merangsang regenerasi sel, mendinginkan, mengurangi nyeri dan menghilangkan bekas luka. Agar mendapatkan manfaat dari madu, James F Balch dan Phyllis A. Balch, dalam Prescription for Nutritional Healing menganjurkan untuk menggunakan madu yang masih alami. Oleskan madu secara merata pada luka. Biarkan selama 20-30 menit. Kemudian, bilas dengan air hangat. Lakukan beberapa kali sehari dan rutin.
• Teh Hijau
  Para ahli kesehatan menyimpulkan bahwa daun teh hijau memiliki kandungan antioksidan  bernama Epigallocatechin Gallate (EGCG). Kandungan antioksidan ini memiliki kekuatan 200 kali lebih hebat dari vitamin E dan sudah terbukti dapat mengurangi aktivitas hormon penyebab jerawat, mengurangi peradangan pada kulit, mengontrol produksi minyak serta menghilangkan bekas luka yang ditimbulkan akibat jerawat. Selain dikonsumsi sebagai minuman, daun teh hijau dapat juga dijadikan toner. Caranya, basahkan kapas atau handuk kecil dengan air daun teh hijau yang sudah diseduh. Lalu, usapkan kapas atau handuk kecil tersebut pada bagian luka yang sudah dibersihkan.
• Daun Pare
  Pare, tanaman yang terkenal dengan buahnya yang pahit ini merupakan salah satu tanaman herbal yang sudah banyak dikenal manfaatnya untuk kesehatan. Dan ternyata, selain buahnya, daunnya pun dapat kita gunakan untuk menyamarkan bekas luka. Caranya, cuci sampai bersih segenggam daun Pare yang masih segar. Lalu, remas-remas sampai halus. Tambahkan sedikit air hangat, lalu peras. Kemudian, campurkan air perasan tersebut dengan 2 sendok makan tepung beras hingga teksturnya seperti lotion. Kemudian, aduk sampai merata. Balurkan pada bagian bekas luka. Biarkan sampai kering dan bilas sampai bersih.
• Daun Mint
  Tanaman yang terkenal dengan nama Mentha Piperita ini adalah sebuah tanaman herbal yang banyak digunakan untuk berbagai produk seperti odol, obat kumur maupun minyak angin. Selain itu, daun mint juga memiliki manfaat yang baik untuk kesehatan kulit. Daun mint juga sering digunakan untuk membantu jerawat, luka bakar, dan bahkan juga ampuh untuk menghilangkan bekas luka. Caranya, ambillah beberapa lembar daun mint. Cuci bersih dan haluskan hingga membentuk scrub. Selanjutnya oleskan ke area luka Anda.
• Lidah Buaya
  Tanaman ini biasa dikenal sebagai tanaman penumbuh rambut secara alami. Belakangan, lidah buaya juga digunakan untuk perawatan kulit. Tak heran, karena kandungan lignin dan asam amino yang terdapat pada tanaman ini dapat melembabkan kulit dan meregenerasi sel kulit.  Lidah buaya juga memiliki anti-radang yang dapat mengurangi radang pada kulit dan menghilangkan bekas luka. Caranya, cukup oleskan lendir lidah buaya pada bekas luka secara rutin. Berhati-hatilah agar tidak kena bagian getah dari lidah buaya tersebut karena getah tersebut dapat membuat kulit terasa gatal.
• Noni Juice
  Noni juice mengandung senyawa scopoletin, senyawa ini sangat efektif sebagai zat anti-radang. Beberapa orang yang sudah mengetahui kandungan dari Noni juice bahkan menggunakannya untuk menghilangkan bekas luka bakar mereka. Basahkan handuk kecil dengan Noni juice. Lalu, kompres bekas luka tersebut dan biarkan hingga mengering. Kemudian, bilas dengan air hangat. Lakukan secara rutin sehari 2-3 kali sehari sampai bekas lukanya hilang.

Menggunakan bahan-bahan alami untuk menghilangkan bekas luka, membuat Anda bebas dari efek samping, biayanya juga terjangkau dan dapat dilakukan semua orang di rumah sendiri.
Sekadar informasi, seperti diuraikan di atas, Noni juice dapat membantu menghilangkan luka, ternyata selain untuk luka, Noni juice banyak sekali manfaatnya, khususnya dapat membantu penyembuhan berbagai jenis penyakit berat, seperti darah tinggi, kolesterol, asam urat, stroke, stress, sulit tidur dan banyak lagi.

Cara Membuat Blog Pada Blogspot

Langkah langkah cara membuat blog pada blogspot, menggunakan Blogspot :

1. Buat akun email di http://gmail.com
2. Setelah akun email terbuat, masuk di email tersebut kemudian buka buat tab baru di browser  dan ketikkan alamat http://blogspot.com
3. Sehingga muncul tampilan berikut ini :



4. Silahkan anda klik Get started sehingga muncul tahap 1 pembuatan blog, yaitu Sign Up.





5. Silahkan anda isi data tersebut :

Display Name :
Gender :
checklist :  I accept the terms of service

seperti berikut ini :



Selanjutnya click CONTINUE

cara bobol pasword fb orang lain

"cara bobol fb orang lain"

1.masukan nama korban di pencarian fb

2.klik pada "tentang"

3.liat email korban

4.buka akun yahoo,pesan

5.masukan email korban dan kirim ke yahoo.

6.selamat mencoba

                  cara ke dua

1. Dengan cara Phising / FakeLogin.
Cara ini cukup efektif dilancarkan oleh pencuri password, biasanya si calon korban adalah para netters yang nyubi, atau kita pun bisa masuk perangkap mereka jika kita lengah. indikasinya: biasanya mereka mengirimkan pesan melalui email yang isinya ajakan atau tawaran untuk menambahkan daftar teman mereka, lalu mereka memberikan link dan membawa kita untuk login ke akun kita… disinilah mereka bekerja, tampilan halaman depan dibuat sedemikian rupa sehingga mirip dengan situs aslinya,
sebagai contoh buka link ini.. jangan lupa sebelum masuk biasanya ada WARNING “situs ini telah dilaporkan sebagai pemalsuan web” klik abaikan saja jika ingin melihat
jika anda login di halaman tersebut, maka semua data anda akan masuk ke database si pencuri password.
kalo sudah gini kan bisa repot kita..nah sekarang gimana cana antisipasinya??
Caranya sih cukup simpel,
- Pastikan anda Login di www.facebook.com [kalo alamat FB ada tambahan sesuatu, itu berarti situs palsu misal http://www.airdata.nl/libraries/tcpdf/config/lang/facebook/index.html]
-Jangan bagikan alamat email anda pada sembarang orang yang tidak anda kenal.[biasanya sih orang2 yang gabung di grup cara cepat dapat teman sering menyertakan alamat email]
-Jangan pernah berfikir untuk membobol FB orang dengan cara download software facebook hacker, karena jika anda ingin menggunakannya anda harus login dan menuliskan alamat email dan password, terbukti malah paswword anda yang akan di hacked.
2. Dengan cara KeyLoger
Bagi anda pengguna jasa Warnet untuk melakukan aktifitas browsing ato mungkin buka facebook, anda harus berhati hati dengan para hacker yang menggunakan Keyloger untuk mencuri pasword anda. cara ini sudah di buat sebelum jejaring Friendster dan MySpace masih berdiri. dulunya sih dibuat untuk memperbaiki jika ada kerusakan pada sistem.
Cara ini cukup efektif dilancarkan oleh pencuri password, biasanya si hacker menginstall di komputer warnet, calon korban adalah semua pengguna PC yang sudah terinstal keyloger tidak terkecuali kita pun bisa masuk perangkap mereka jika kita lengah.
ini adalah contoh software KeyLoger

cara mengatasinya sih pernah di bahas di tips facebook aman. tapi akan saya bahas lagi deh,,

KeyLoger adalah pencatatan setiap kali tombol pada keyboard di tekan.
contoh: sAya beLajar hAck Facebook 360 hAri 12 deTik *
tulisan di atas akan tercatat di keyloger seperti dibawah ini:
s [shift] a y a [space] b e [shift] l a j a r [space] h [shift] a c k [space] [shift] f a c e b o o k [space] 3 6 0 [space] h [shift] a r i [space] 1 2 [space] d e [shift] t i k [space] [shift] 8
memang agak ribet sih bacanya, namun para hacker sudah punya cara cepat untuk mengkonfersi bahasa key loger..
Dengan demikian, walau kita menggunakan password kombinasi angka huruf dan karakter, tetap saja dengan keyloger akan tercatat semua aktifitas pada keyboard. anda bisa mendownloadnya disini
Antisipasi dengan cara:
-jika anda memiliki flashdisk anda bisa tulis alamat email pada notepad, copy-paste jika ingin login [anda tidak akan melakukan aktifitas pengetikan pada user name ato email dan sebagainya]
jika perlu dengan paswordnya juga.
-jika pasword adalah angka silahkan anda buka aplikasi kalkulator pada windows, bisa di jadikan sebagai virtual key. gunakan dengan cara klik pada angka, kemudian copast pada bagian password.
-ataw anda gunakan virtual key yang disediakan pada operating system komputer dengan cara:
Klick start >> kemudian All Program >> kemudian accessories >> kemudian accesbility >> kemudian On-screen keyboard
nanti akan muncul seperti ini:

kemudian anda buka notepad
Klick start >> kemudian All Program >> kemudian accessories >> kemudian pilih Notepad
setelah anda membuka notepad silahkan klik pada virtual kerboard sesuai dengan alamat email anda, setiap klik akan muncul pada notepad, jika sudah selesai tekan [ctrl]+[a] lalu [ctrl]+[c] kemudian anda pastekan pada halaman facebook dengan menekan [ctrl]+[v] ingat pada www.facebook.com
lakukan hal yang sama pada password anda
dengan demikian anda tidak melakukan aktifitas pada keyboard
3. Hack Facebook dengan Facebook Freezer
cara ini hanya dilakukan oleh orang yang iseng saja, FacebookFreezer bekerja agar akun yang di Freez tidak bisa masuk ke akunnya..

Penggunaan Listview Pada Visual Basic Net 2008

Berita Terkait

Penggunaan Listview Pada Pemrograman Visual Basic

Artikel berikut ini membahas bagaimana 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




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