Sumber Ilmu

Tuesday 2 July 2013

Membuat Program Kriptografi dengan Vb.Net 2008

Gambar 1 : Bentuk Enskripsi.

_________________________________________________________________________________

Gambar 2. Bentuk Deskripsi

_________________________________________________________________________________

Berikut Skrip Program :

(----------------------)

Public Class Form1

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

plainteks.Text = ""

chipertex.Text = ""

End Sub

Private Sub btnDeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDeskripsi.Click

Dim jumlah As Double = Len(plainteks.Text)

Dim x As String

Dim xkalimat As String = ""

Dim i As Double

Dim bil As Integer

For i = 1 To jumlah

x = Mid(plainteks.Text, i, 1)

bil = Asc(x) + 3

x = Chr(bil)

xkalimat = xkalimat + x

Next i

chipertex.Text = xkalimat

End Sub

Private Sub ens_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ens.Click

Dim jumlah As Double = Len(chipertex.Text)

Dim x As String

Dim xkalimat As String = ""

Dim i As Double

Dim bil As Integer

For i = 1 To jumlah

x = Mid(chipertex.Text, i, 1)

bil = Asc(x) - 3

x = Chr(bil)

xkalimat = xkalimat + x

Next i

chipertex.Text = xkalimat

End Sub

End Class

_________________________________________________________________________________

GRONSFIELD CHIPER

Skrip Program :

Public Class Menu_Utama

Private Sub CaesarChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaesarChiperToolStripMenuItem.Click

Caeser_Chiper.MdiParent = Me

Caeser_Chiper.Show()

End Sub

Private Sub GronsfeldChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GronsfeldChiperToolStripMenuItem.Click

Grondfeld_Chiper.MdiParent = Me

Grondfeld_Chiper.Show()

End Sub

Private Sub VernamChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VernamChiperToolStripMenuItem.Click

Vernam_Chiper.MdiParent = Me

Vernam_Chiper.Show()

End Sub

Private Sub VigenereChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VigenereChiperToolStripMenuItem.Click

Vegenere_Chiper.MdiParent = Me

Vegenere_Chiper.Show()

End Sub

Private Sub DesChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DesChiperToolStripMenuItem.Click

Des_Chiper.MdiParent = Me

Des_Chiper.Show()

End Sub

Private Sub RC4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RC4ToolStripMenuItem.Click

RC4.MdiParent = Me

RC4.Show()

End Sub

Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click

End

End Sub

Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked

End Sub

Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem1.Click

End

End Sub

End Class

_________________________________________________________________________________

VERNAM CHIPER

Skrip Program.

Public Class Vernam_Chiper

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

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

sKata = Plainteks.Text

jum = Len(sKata)

sKey = Kunci.Text

For i = 1 To jum

If j = Len(sKey) Then

j = 1

Else

j = j + 1

End If

nKata = Asc(Mid(sKata, i, 1)) - 65

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

nEnc = ((nKata + nKunci) Mod 26)

sPlain = sPlain & Chr((nEnc) + 65)

Next i

Chiperteks.Text = sPlain

End Sub

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

Plainteks.Text = ""

Kunci.Text = ""

Chiperteks.Text = ""

End Sub

Private Sub Plainteks_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Plainteks.KeyPress

e.KeyChar = UCase(e.KeyChar)

Dim tombol As Integer = Asc(e.KeyChar)

If Not (((tombol >= 65) And (tombol <= 90)) Or (tombol = 8)) Then

e.Handled = True

End If

End Sub

End Class

_________________________________________________________________________________

Caesar Chiper

Skrip Program.

Private Sub CaesarChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaesarChiperToolStripMenuItem.Click
Caeser_Chiper.MdiParent = Me
Caeser_Chiper.Show()
End Sub

Private Sub GronsfeldChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GronsfeldChiperToolStripMenuItem.Click
Grondfeld_Chiper.MdiParent = Me
Grondfeld_Chiper.Show()
End Sub

Private Sub VernamChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VernamChiperToolStripMenuItem.Click
Vernam_Chiper.MdiParent = Me
Vernam_Chiper.Show()
End Sub

Private Sub VigenereChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VigenereChiperToolStripMenuItem.Click
Vegenere_Chiper.MdiParent = Me
Vegenere_Chiper.Show()
End Sub

Private Sub DesChiperToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DesChiperToolStripMenuItem.Click
Des_Chiper.MdiParent = Me
Des_Chiper.Show()
End Sub

Private Sub RC4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RC4ToolStripMenuItem.Click
RC4.MdiParent = Me
RC4.Show()
End Sub

Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
End
End Sub

Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked

End Sub

Private Sub KeluarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem1.Click
End
End Sub
End Class

Public Class Caeser_Chiper

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim jumlah As Double = Len(Plainteks.Text)
Dim x As String
Dim xkalimat As String = ""
Dim i As Double
Dim bil As Integer
For i = 1 To jumlah
x = Mid(Plainteks.Text, i, 1)
bil = Asc(x) + 3
x = Chr(bil)
xkalimat = xkalimat + x
Next i
Chiperteks.Text = xkalimat
End Sub

Private Sub Deskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Deskripsi.Click
Dim jumlah As Double = Len(Chiperteks.Text)
Dim x As String
Dim xkalimat As String = ""
Dim i As Double
Dim bil As Integer
For i = 1 To jumlah
x = Mid(Chiperteks.Text, i, 1)
bil = Asc(x) - 3
x = Chr(bil)
xkalimat = xkalimat + x
Next i
Plainteks.Text = xkalimat
End Sub

End Class
_________________________________________________________________________________

Desc Chiper.

Public Class Des_Chiper

Private Sub Enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enkripsi.Click

'Dim key As String, kunciChar As String, katabaru As String

Dim Pos As Long

Dim i As Long, Side1 As String, Side2 As String

Dim nEnc As Long

Dim j As Integer

Pos = 1

For i = 1 To Len(Plaintext.Text)

Plaintext.Text = Mid(Plaintext.Text, i, 1)

kunci.Text = Mid(kunci.Text, Pos, 1)

Chipertext.Text = Chipertext.Text & Chr(Asc(Plaintext.Text)) Or Asc(Kunci.Text)

If Pos = Len(kunci) Then Pos = 0

Pos = Pos + 1

Next i

j = Len(Chipertext.Text) Mod 2 = 0

If j Then

Side1 = Strings.Left(Chipertext.Text, (Len(Chipertext.Text) / 2))

Side2 = Strings.Right(Chipertext.Text, (Len(Chipertext.Text) / 2))

Chipertext.Text = Side1 & Side2

End If

nEnc = Chipertext.Text

End Sub

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

Plaintext.Text = ""

Chipertext.Text = ""

End Sub

End Class

_________________________________________________________________________________

Vigner Chiper

Skrip Program.

Public Class Vegenere_Chiper

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

Plaintext.Text = ""

Chipertext.Text = ""

Kunci.Text = ""

End Sub

Private Sub Enkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Enkripsi.Click

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

sKata = Plaintext.Text

Jum = Len(sKata)

sKey = Kunci.Text

For i = 1 To Jum

If J = Len(sKey) Then

J = 1

Else

J = J + 1

End If

nKata = Asc(Mid(sKata, i, 1)) + 0

nKunci = Asc(Mid(sKey, J, 1)) + 0

nEnc = ((nKata + nKunci) Mod 256)

sPlain = sPlain & Chr((nEnc))

Next i

Chipertext.Text = sPlain

End Sub

End Class

_________________________________________________________________________________

Selamat Belajar.

Sunday 2 June 2013

Membuat Program Mencari Gaji Pegawai

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nmapgwai.Items.Add("Ibrahim")
        nmapgwai.Items.Add("Baim")
        nmapgwai.Items.Add("Yuni")
        gol.Items.Add("IIIA")
        gol.Items.Add("IIIB")
        gol.Items.Add("IIIC")
    End Sub

    Private Sub gol_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles gol.SelectedIndexChanged
        If gol.Text = "IIIA" Then
            gaji.Text = 1500000
            pjak.Text = 0.15 * gaji.Text
        ElseIf gol.Text = "IIIB" Then
            gaji.Text = "2500000"
            pjak.Text = 0.15 * gaji.Text
        ElseIf gol.Text = "IIIC" Then
            gaji.Text = "3500000"
            pjak.Text = 0.5 * gaji.Text
        End If
        pinjaman.Focus()
        gaji.Enabled = False
        pjak.Enabled = False
        gaji.BackColor = Color.Azure
        pjak.BackColor = Color.Azure
    End Sub

    Private Sub Pros_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Pros.Click
        gjibersih.Text = "Rp" & (gaji.Text - pinjaman.Text - pjak.Text)
    End Sub

    Private Sub bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bersih.Click
        nmapgwai.Text = ""
        gol.Text = ""
        gaji.Text = ""
        pjak.Text = ""
        pinjaman.Text = ""
        gjibersih.Text = ""

    End Sub

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

Menyimpan Data Ke List View menggunakan VB.Net 2008

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        KodeP.Items.Add("TOK-MED-001")
        KodeP.Items.Add("PAB-BEL-002")
        KodeP.Items.Add("RUM-TEM-003")
        KodeP.Items.Add("TOK-MAR-004")
        KodeP.Items.Add("SWA-BIN-005")
        KodeP.Items.Add("PAB-PAK-006")
        tol_T.Enabled = False
        pajak.Enabled = False
        tol_T.BackColor = Color.Azure
        pajak.BackColor = Color.Azure
        biayabeban.Enabled = False
        hrgakwh.Enabled = False
        tipe.Enabled = False
        tipe.BackColor = Color.Azure
        jmlp.Enabled = False
        buatTabel()
    End Sub
    Private Sub KodeP_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles KodeP.SelectedIndexChanged
        Dim X, Y, Z As String
        Dim jml As Integer
        jml = Len(KodeP.Text)
        X = Microsoft.VisualBasic.Left(KodeP.Text, 3)
        Y = Microsoft.VisualBasic.Mid(KodeP.Text, 3)
        Z = Microsoft.VisualBasic.Right(KodeP.Text, 3)
        daerah.Items.Clear()
        daerah.Text = ""

        Select Case X
            Case "TOK"
                tipe.Text = "TOKO"
                daerah.Items.Add("MEDAN")
                daerah.Items.Add("MARENDAL")
                biayabeban.Text = 150000
                hrgakwh.Text = 500

            Case "PAB"
                tipe.Text = "PABRIK"
                daerah.Items.Add("BELAWAN")
                daerah.Items.Add("LUBUK PAKAM")

                biayabeban.Text = 1000000
                hrgakwh.Text = 10000

            Case "RUM"
                tipe.Text = "RUMAH"
                daerah.Items.Add("TEMBUNG")
                biayabeban.Text = 50000
                hrgakwh.Text = 200
            Case "SWA"
                tipe.Text = "SWALAYAN"
                daerah.Items.Add("BINJAI")
                biayabeban.Text = 400000
                hrgakwh.Text = 1500
        End Select

    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim x As Integer

        If kwh1.Text = "" Or kwh2.Text = "" Then
            MsgBox("ISI dulu pemakain kwh blan ini/bulan lalu", MsgBoxStyle.Information, "Baca")
        Else
            jmlp.Text = kwh2.Text - kwh1.Text
            x = Val(biayabeban.Text) + Val(hrgakwh.Text)
            tol_T.Text = x * jmlp.Text
            pajak.Text = tol_T.Text * 0.015
        End If

    End Sub
    Sub buatTabel()
        With LV
            .Columns.Add("Kode Pelangan", 100, HorizontalAlignment.Left)
            .Columns.Add("Tipe", 100, HorizontalAlignment.Left)
            .Columns.Add("Daerah", 100, HorizontalAlignment.Left)
            .Columns.Add("Biaya Beban", 100, HorizontalAlignment.Left)
            .Columns.Add("Harga /kwh", 100, HorizontalAlignment.Left)
            .Columns.Add("kwh Bulan ini", 100, HorizontalAlignment.Left)
            .Columns.Add("kwh Bulan lalu", 100, HorizontalAlignment.Left)
            .Columns.Add("Jumlah Pemakaian", 100, HorizontalAlignment.Left)
            .Columns.Add("Total Pemakain", 120, HorizontalAlignment.Left)
            .Columns.Add("PAJAK", 100, HorizontalAlignment.Left)
            .GridLines = True
            .FullRowSelect = True
            .View = View.Details
        End With
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim lst As New ListViewItem
        lst.Text = KodeP.Text
        lst.SubItems.Add(tipe.Text)
        lst.SubItems.Add(daerah.Text)
        lst.SubItems.Add(biayabeban.Text)
        lst.SubItems.Add(hrgakwh.Text)
        lst.SubItems.Add(kwh1.Text)
        lst.SubItems.Add(kwh2.Text)
        lst.SubItems.Add(jmlp.Text)
        lst.SubItems.Add(tol_T.Text)
        lst.SubItems.Add(pajak.Text)
        LV.Items.Add(lst)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        LV.Items.Clear()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        KodeP.Text = ""
        tipe.Text = ""
        daerah.Text = ""
        biayabeban.Text = ""
        hrgakwh.Text = ""
        kwh1.Text = ""
        kwh2.Text = ""
        jmlp.Text = ""
        tol_T.Text = ""
        pajak.Text = ""
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        MsgBox("Bye....bye...bye...", MsgBoxStyle.Information, "Info")
        Me.Close()
    End Sub
End Class

Hasil Program.

Wednesday 15 May 2013

Membuat Aplikasi Penggajian beserta Listviewnya

Berikut Skripnya :

Public Class Form1

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

nik.Items.Add("001")

nik.Items.Add("002")

nik.Items.Add("003")

jabatan.Items.Add("Mandor")

jabatan.Items.Add("Kepala Bagian")

jabatan.Items.Add("Staf")

stttus.Items.Add("Menikah")

stttus.Items.Add("Tidak Menikah")

Timer1.Start()

With LV

.Columns.Add("Nama", 80, HorizontalAlignment.Left)

.Columns.Add("NIK", 100, HorizontalAlignment.Left)

.Columns.Add("Jabatan", 100, HorizontalAlignment.Left)

.Columns.Add("Gaji", 100, HorizontalAlignment.Left)

.Columns.Add("Pajak", 100, HorizontalAlignment.Left)

.Columns.Add("Status", 100, HorizontalAlignment.Left)

.Columns.Add("Tujangan Keluarga", 100, HorizontalAlignment.Left)

.Columns.Add("Total Gaji", 100, HorizontalAlignment.Left)

.GridLines = True

.FullRowSelect = True

.View = View.Details

End With

End Sub

Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

Select Case nik.Text

Case "001" : nama.Text = "Oncom"

Case "002" : nama.Text = "Udin"

Case "003" : nama.Text = "Ujang"

End Select

End Sub

Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged

Select Case jabatan.Text

Case "Mandor" : gaji.Text = 1750000

Case "Kepala Bagian" : gaji.Text = 2500000

Case "Staf" : gaji.Text = 1250000

End Select

pjak.Text = 0.15 * gaji.Text

End Sub

Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles stttus.SelectedIndexChanged

Select Case stttus.Text

Case "Menikah" : tnjklrga.Text = 0.15 * gaji.Text

Case "Tidak Menikah" : tnjklrga.Text = 0

End Select

End Sub

Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

ttalgaji.Text = Val(gaji.Text) + Val(tnjklrga.Text) - Val(pjak.Text)

End Sub

Private Sub Baru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Baru.Click

stttus.Text = ""

nama.Text = ""

jabatan.Text = ""

gaji.Text = ""

stttus.Text = ""

tnjklrga.Text = ""

pjak.Text = ""

ttalgaji.Text = ""

nik.Text = ""

End Sub

Private Sub klut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles klut.Click

End

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Label9.Text = Now.ToLongTimeString

End Sub

Private Sub nama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nama.TextChanged

End Sub

Private Sub LV_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged

With LV

.Columns.Add("Nama", 80, HorizontalAlignment.Left)

.Columns.Add("NIK", 100, HorizontalAlignment.Left)

.Columns.Add("Jabatan", 100, HorizontalAlignment.Left)

.Columns.Add("Gaji", 100, HorizontalAlignment.Left)

.Columns.Add("Pajak", 100, HorizontalAlignment.Left)

.Columns.Add("Status", 100, HorizontalAlignment.Left)

.Columns.Add("Tujangan Keluarga", 100, HorizontalAlignment.Left)

.Columns.Add("Total Gaji", 100, HorizontalAlignment.Left)

.GridLines = True

.FullRowSelect = True

.View = View.Details

End With

End Sub

Private Sub input_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles input.Click

Dim lst As New ListViewItem

lst.Text = nama.Text

lst.SubItems.Add(nik.Text)

lst.SubItems.Add(jabatan.Text)

lst.SubItems.Add(gaji.Text)

lst.SubItems.Add(pjak.Text)

lst.SubItems.Add(stttus.Text)

lst.SubItems.Add(tnjklrga.Text)

lst.SubItems.Add(ttalgaji.Text)

LV.Items.Add(lst)

End Sub

Private Sub hpusdata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hpusdata.Click

LV.Items.Remove(LV.SelectedItems(0))

End Sub

Private Sub hpustable_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hpustable.Click

LV.Items.Clear()

End Sub

http://mesran.blogspot.com/2013/05/tugas-ti-p1101.html

Tuesday 30 April 2013

Menampilkan Data Mysql Di ListView vb.net 2008

Sebelum membuat program terlebih dahulu buatlah sebuah database yang natinya akan kamu pakai di program , pada kasus ini saya membuat database dengan nama“mysqltut” dan tabel bernama “people” dengan tipe data dapat di lihat pada gambar di bawah ini .

setelah database di buat, next kita akan membuat project vb.net , misalkan saya membuat sebuah project yang saya beri nama “MySql Tutorial”

Setelah membuat project selanjutnya kita akan memasukkan referensi tambahan yang berguna agar vb.net dapat memahami perintah-perintah mysql (mysql.data.dll) yaitu dengan cara buka menu “project – > add reference”

Setalah menambah referensi Mysql , next pada form default yang ada , anda tambahkan sebuah toolbox listview , sehingga tampilan form yang ada sebagai berikut .

Dan jangan lupa atur propertis dari list view tadi menjadi sebagai berikut

pada jendela di atas pilih edit Columns , sehingga tampilan menjadi sebagai berikut

Untuk Kolom deader nya silahkan anda atur sendiri sesuai dengan data yang ada di data base (di propertis kolom header , misc -> Text)

setalah semua interface kita buat selnjutnya adalah bagian souce code pada form (klik 2 kali form) pada text editor yang tersedia masukkan code-code berikut ini

Imports MySql.Data.MySqlClient

Public Class Form1

Public sConnection As New MySqlConnection

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

If sConnection.State = ConnectionState.Closed Then
sConnection.ConnectionString = “SERVER = localhost; USERID = root; PASSWORD =; DATABASE = mysqltut;”
sConnection.Open()
End If
LoadPeople()
End Sub

Public Sub LoadPeople()

Dim sqlQuery As String = “SELECT * FROM people”
Dim sqlAdapter As New MySqlDataAdapter
Dim sqlCommand As New MySqlCommand
Dim TABLE As New DataTable
Dim i As Integer
With sqlCommand
.CommandText = sqlQuery
.Connection = sConnection
End With
With sqlAdapter
.SelectCommand = sqlCommand
.Fill(TABLE)
End With
For i = 0 To TABLE.Rows.Count – 1
With lvPeople
.Items.Add(TABLE.Rows(i)(“id”))
With .Items(.Items.Count – 1).SubItems
.Add(TABLE.Rows(i)(“fname”))
.Add(TABLE.Rows(i)(“mname”))
.Add(TABLE.Rows(i)(“lname”))
End With
End With
Next

End Sub

End Class

Sumber Ilmu

Join This Site

Recent Post

Membuat Program Kriptografi dengan Vb.Net 2008

Membuat Program Mencari Gaji Pegawai

Menyimpan Data Ke List View menggunakan VB.Net 2008

Membuat Aplikasi Penggajian beserta Listviewnya

Menampilkan Data Mysql Di ListView vb.net 2008

Send Quick Massage

Pages