Algoritma Klasifikasi Data Mining adalah Algoritma Dasar yang digunakan untuk melakukan Proses Klasifikasi Data Mining dengan Menggunakan Metode K-Means Clustering. Algoritma pemrograman dapat ditulis dalam bentuk Algoritma Asosiasi Data Mining Algoritma Google, Algoritma Load Balancing. 
Penerapan  Data  Mining menggunakan  Algoritma Klasifikasi Data Mining Metode  Clustering pada VB. Net dan Sql Server 2000  terdiri  dari:
  1. Tampilan  Login
    Tampilan  Login  merupakan  tampilan  yang  digunakan  admin  untuk  login.  Untuk  proses  login  admin  harus  menginput  username  dan  password  yang  kemudian  sistem  akan  melakukan  pengecekan  ke  file  login.  tampilan  login  dapat  dilihat  pada  gambar  1.

    Gambar  1 Tampilan  Login  Admin  dan  Petugas

  2. Tampilan  Menu  Utama
    Tampilan  menu  utama  merupakan  tampilan  awal  aplikasi  untuk  dapat  melakukan  proses  Data  Mining  Pemetaan  Prestasi  Mahasiswa  Almuslim  Kabupaten  Bireuen  menggunakan  Metode  Clustering.

    Gambar  2 Tampilan  Menu  Utama

  3. Tampilan  Proses  Data  Fakultas
    Tampilan  proses  data  Fakultas  digunakan  untuk  menginput,  mengedit  dan  menghapus  data  fakultas  yang  ada  di  Universitas  Almuslim  Kabupaten  Bireuen.  Tampilan  Hasil  perancangan  proses  data  fakultas  dapat  dilihat  pada  gambar  3

    Gambar  3  Tampila  Proses  Data  Fakultas

    Source  code  proses  data  Fakultas  yang  digunakan  adalah  sebagai  berikut:
    Imports System.Data
    Imports System.Data.SqlClient
    Public Class F4
        Inherits System.Windows.Forms.Form
        Dim a As New OpenFileDialog
        Dim conn As SqlConnection
        Dim cmd As SqlCommand
        Dim rdr As SqlDataReader
        Dim dt As New DataSet
        Dim adapter As SqlDataAdapter
        Dim dv As New DataView
        Dim dc As DataColumn
        Sub IsiData()
            Dim Sql = "select *from fakultas ORDER BY kd_fak ASC"
            Try
                cmd = New SqlCommand(Sql, koneksi.koneksi)
                rdr = cmd.ExecuteReader
                dgv.Rows.Clear()
                Dim index As Integer
                Do While rdr.Read = True
                    index = dgv.Rows.Add
                    dgv.Rows(index).Cells(0).Value = dgv.RowCount
                    dgv.Rows(index).Cells(1).Value = rdr("kd_fak")
                    dgv.Rows(index).Cells(2).Value = rdr("n_fak")
                    dgv.Rows(index).Cells(3).Value = rdr("dekan")
                    ' index += 1
                Loop
            Finally
                If rdr IsNot Nothing Then rdr.Close()
            End Try
        End Sub
        Sub cek()
            Dim Sql = "select *from fakultas where kd_fak='" & kd_fak.Text & "'"
            Try
                cmd = New SqlCommand(Sql, koneksi.koneksi)
                rdr = cmd.ExecuteReader
                While rdr.Read = True

                    n_fak.Text = rdr("n_fak")
                    dekan.Text = rdr("dekan")
                End While
            Finally
                If rdr IsNot Nothing Then rdr.Close()
            End Try
        End Sub
        Private Sub F4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            koneksi.koneksi()
            IsiData()
        End Sub

        Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
            Dim simpan As Integer
            simpan = MsgBox("Apakah data sudah benar ?" & MessageBoxIcon.Question, vbYesNo, "Konfimasi Simpan")
            If (simpan = vbYes) Then
                Using sql As New SqlClient.SqlCommand("Insert Into fakultas(kd_fak,n_fak,dekan) Values (@kd_fak,,@n_fak @dekan)", koneksi.koneksi)
                    sql.Parameters.Add(New SqlClient.SqlParameter("@kd_fak", SqlDbType.Char)).Value = kd_fak.Text
                    sql.Parameters.Add(New SqlClient.SqlParameter("@n_fak", SqlDbType.VarChar)).Value = n_fak.Text
                    sql.Parameters.Add(New SqlClient.SqlParameter("@dekan", SqlDbType.VarChar)).Value = dekan.Text
                    sql.ExecuteNonQuery()
                    MessageBox.Show("dekan: " & dekan.Text & " Telah disimpan", "Data Sukses", MessageBoxButtons.OK)
                    koneksi.koneksi.Close()

                End Using
            End If
            kd_fak.Focus()
            IsiData()
        End Sub
    End Class

  4. Tampilan  Proses  Data  Prodi 
    Tampilan  proses  data  prodi  digunakan  untuk  menginput,  mengedit  dan  menghapus  data  program  studi  yang  ada  di  Universitas  Almuslim  Kabupaten  Bireuen.  Tampilan  Hasil  perancangan  proses  data  fakultas  dapat  dilihat  pada  gambar  4

    Gambar  4 Tampila  Proses  Data  Program  Studi

    Source  code  proses  data  Program  Studi  yang  digunakan  adalah  sebagai  berikut:
    Imports System.Data
    Imports System.Data.SqlClient
    Public Class F5
        Inherits System.Windows.Forms.Form
        Dim a As New OpenFileDialog
        Dim conn As SqlConnection
        Dim cmd As SqlCommand
        Dim rdr As SqlDataReader
        Dim dt As New DataSet
        Dim adapter As SqlDataAdapter
        Dim dv As New DataView
        Dim dc As DataColumn
        Sub IsiData()
            Dim Sql = "select *from prodi ORDER BY kd_pro ASC"
            Try
                cmd = New SqlCommand(Sql, koneksi.koneksi)
                rdr = cmd.ExecuteReader
                dgv.Rows.Clear()
                Dim index As Integer
                Do While rdr.Read = True
                    index = dgv.Rows.Add
                    dgv.Rows(index).Cells(0).Value = dgv.RowCount
                    dgv.Rows(index).Cells(1).Value = rdr("kd_pro")
                    dgv.Rows(index).Cells(2).Value = rdr("n_pro")
                    dgv.Rows(index).Cells(3).Value = rdr("jenjang")
                    dgv.Rows(index).Cells(4).Value = rdr("kapro")
                    ' index += 1
                Loop
            Finally
                If rdr IsNot Nothing Then rdr.Close()
            End Try
        End Sub
        Sub cekfak()
            Dim Sql = "select *from fakultas where n_fak='" & n_fak.Text & "'"
            Try
                cmd = New SqlCommand(Sql, koneksi.koneksi)
                rdr = cmd.ExecuteReader
                While rdr.Read = True
                    kd_fak.Text = rdr("kd_fak")
                End While
            Finally
                If rdr IsNot Nothing Then rdr.Close()
            End Try
        End Sub
        Sub isifak()
            Dim Sql = "select *from fakultas ORDER BY kd_fak ASC"
            Try
                cmd = New SqlCommand(Sql, koneksi.koneksi)
                rdr = cmd.ExecuteReader
                While rdr.Read = True
                    n_fak.Items.Add(rdr("n_fak"))
                End While
            Finally
                If rdr IsNot Nothing Then rdr.Close()
            End Try
        End Sub
        Sub cek()
            Dim Sql = "select *from prodi where kd_pro='" & kd_pro.Text & "'"
            Try
                cmd = New SqlCommand(Sql, koneksi.koneksi)
                rdr = cmd.ExecuteReader
                While rdr.Read = True

                    n_pro.Text = rdr("n_pro")
                    jenjang.Text = rdr("jenjang")
                End While
            Finally
                If rdr IsNot Nothing Then rdr.Close()
            End Try
        End Sub
        Private Sub F4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            koneksi.koneksi()
            IsiData()
            isifak()
        End Sub

        Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click
            Dim simpan As Integer
            simpan = MsgBox("Apakah data sudah benar ?" & MessageBoxIcon.Question, vbYesNo, "Konfimasi Simpan")
            If (simpan = vbYes) Then
                Using sql As New SqlClient.SqlCommand("Insert Into prodi(kd_pro,n_pro,jenjang,kapro) Values (@kd_pro,@n_pro,@jenjang,@kapro )", koneksi.koneksi)
                    sql.Parameters.Add(New SqlClient.SqlParameter("@kd_pro", SqlDbType.Char)).Value = kd_pro.Text
                    sql.Parameters.Add(New SqlClient.SqlParameter("@n_pro", SqlDbType.VarChar)).Value = n_pro.Text
                    sql.Parameters.Add(New SqlClient.SqlParameter("@jenjang", SqlDbType.VarChar)).Value = jenjang.Text
                    sql.Parameters.Add(New SqlClient.SqlParameter("@kapro", SqlDbType.VarChar)).Value = kapro.Text
                    sql.ExecuteNonQuery()
                    MessageBox.Show("Prodi: " & n_pro.Text & " Telah disimpan", "Data Sukses", MessageBoxButtons.OK)
                    koneksi.koneksi.Close()

                End Using
            End If
            kd_pro.Focus()
            IsiData()
        End Sub

        Private Sub n_fak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles n_fak.SelectedIndexChanged
            cekfak()
        End Sub
    End Class

  5. Tampilan  Proses  Data  Mahasiswa
    Tampilan  proses  data  mahasiswa  digunakan  untuk  menginput  dan  menghapus  data  mahasiswa  yang  ada  di  Universitas  Almuslim  Kabupaten  Bireuen.  Tampilan  Hasil  perancangan  proses  data  mahasiswa  dapat  dilihat  pada  gambar  5

    Gambar  5 Tampila  Proses  Data  Mahasiswa

    Source  code  proses  data  mahasiswa  yang  digunakan  adalah  sebagai  berikut:
    Imports System.Data
    Imports System.Data.SqlClient
    Public Class F2
        Inherits System.Windows.Forms.Form
        Dim a As New OpenFileDialog
        Dim conn As SqlConnection
        Dim cmd As SqlCommand
        Dim rdr As SqlDataReader
        Dim dt As New DataSet
        Dim adapter As SqlDataAdapter
        Dim dv As New DataView
        Dim dc As DataColumn
        Sub BukaDatabase()
            Try
                conn = New SqlConnection("server=; database=spktendersaw; trusted_Connection=true")
            Catch ex As Exception
                MsgBox(ex.Message)
                Application.Exit()
            End Try
        End Sub
        Sub cekfak()
            Dim Sql = "select *from fakultas where n_fak='" & n_fak.Text & "'"
            Try
                cmd = New SqlCommand(Sql, koneksi.koneksi)
                rdr = cmd.ExecuteReader
                While rdr.Read = True
                    kd_fak.Text = rdr("kd_fak")
                End While
            Finally
                If rdr IsNot Nothing Then rdr.Close()
            End Try
        End Sub
        Sub isifak()
            Dim Sql = "select *from fakultas ORDER BY kd_fak ASC"
            Try
                cmd = New SqlCommand(Sql, koneksi.koneksi)
                rdr = cmd.ExecuteReader
                While rdr.Read = True
                    n_fak.Items.Add(rdr("n_fak"))
                End While
            Finally
                If rdr IsNot Nothing Then rdr.Close()
            End Try
        End Sub
        Sub Isiprodi()
            Dim Sql = "select *from prodi where kd_fak='" & kd_fak.Text & "'"
            Try
                cmd = New SqlCommand(Sql, koneksi.koneksi)
                rdr = cmd.ExecuteReader
                Do While rdr.Read = True
                    n_pro.Items.Add(rdr("n_pro"))
                Loop
            Finally
                If rdr IsNot Nothing Then rdr.Close()
            End Try
        End Sub
        Sub cekpro()
            Dim Sql = "select *from prodi where n_pro='" & n_pro.Text & "'"
            Try
                cmd = New SqlCommand(Sql, koneksi.koneksi)
                rdr = cmd.ExecuteReader
                While rdr.Read = True
                    kd_pro.Text = rdr("kd_pro")
                End While
            Finally
                If rdr IsNot Nothing Then rdr.Close()
            End Try
        End Sub
        Sub cek()
            Dim Sql = "select *from nama where npm='" & npm.Text & "'"
            Try
                cmd = New SqlCommand(Sql, koneksi.koneksi)
                rdr = cmd.ExecuteReader
                While rdr.Read = True

                    nama.Text = rdr("nama")
                    ipk.Text = rdr("ipk")
                End While
            Finally
                If rdr IsNot Nothing Then rdr.Close()
            End Try
        End Sub
        Private Sub F2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            koneksi.koneksi()
            isifak()
        End Sub

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
            Try
                If npm.Text <> "" Then
                    Using sql As New SqlClient.SqlCommand("Insert Into mahasiswa(npm,nama,ipk) Values (@npm,@nama,@ipk )", koneksi.koneksi)
                        sql.Parameters.Add(New SqlClient.SqlParameter("@npm", SqlDbType.Char)).Value = npm.Text
                        sql.Parameters.Add(New SqlClient.SqlParameter("@nama", SqlDbType.VarChar)).Value = nama.Text
                        sql.Parameters.Add(New SqlClient.SqlParameter("@ipk", SqlDbType.Float)).Value = ipk.Text
                        sql.ExecuteNonQuery()
                        MessageBox.Show("nama: " & nama.Text & " Telah disimpan", "Data Sukses", MessageBoxButtons.OK)
                        koneksi.koneksi.Close()
                    End Using

                Else
                    MessageBox.Show("Ada Kesalahan !", "Gagal Menyimpan", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End If
            Catch ex As Exception
                MessageBox.Show("Data telah Ada")
            End Try

        End Sub

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
            Try
                If npm.Text <> "" Then
                    Using sql As New SqlClient.SqlCommand("update mahasiswa set nama=@nama,ipk=@ipk where npm='" & npm.Text & "'", koneksi.koneksi)
                        sql.Parameters.Add(New SqlClient.SqlParameter("@npm", SqlDbType.Char)).Value = npm.Text
                        sql.Parameters.Add(New SqlClient.SqlParameter("@nama", SqlDbType.VarChar)).Value = nama.Text
                        sql.Parameters.Add(New SqlClient.SqlParameter("@ipk", SqlDbType.VarChar)).Value = ipk.Text
                        sql.ExecuteNonQuery()
                        MessageBox.Show("nama: " & nama.Text & " Telah diubah", "Data Sukses", MessageBoxButtons.OK)
                        koneksi.koneksi.Close()
                    End Using

                Else
                    MessageBox.Show("Ada Kesalahan !", "Gagal Menyimpan", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End If
            Catch ex As Exception
                MessageBox.Show("Data telah Ada")
            End Try

        End Sub

        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
            Try
                If npm.Text <> "" Then
                    Using sql As New SqlClient.SqlCommand("delete from mahasiswa where npm='" & npm.Text & "'", koneksi.koneksi)
                        sql.ExecuteNonQuery()
                        MessageBox.Show("nama: " & nama.Text & " Telah dihapus", "Data Sukses", MessageBoxButtons.OK)
                        koneksi.koneksi.Close()
                    End Using

                Else
                    MessageBox.Show("Ada Kesalahan !", "Gagal Menyimpan", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End If
            Catch ex As Exception
                MessageBox.Show("Data telah Ada")
            End Try

        End Sub

        Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

        End Sub

        Private Sub nm_fakultas_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles n_fak.SelectedIndexChanged
            cekfak()
            Isiprodi()
        End Sub

        Private Sub n_pro_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles n_pro.SelectedIndexChanged
            cekpro()
        End Sub

        Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Dim oForm As New FImport
            oForm.MdiParent = F1
            oForm.Show()
        End Sub

        Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        End Sub
    End Class

  6. Tampilan  Proses  Clustering
    Tampilan  proses  Clustering  digunakan  untuk  proses  pengkelasan  data  pemetaan  prestasi  mahasiswa  Universitas  Almuslim  Kabupaten  Bireuen.  Tampilan  Hasil  perancangan  proses  Clustering  dapat  dilihat  pada  gambar  6

    Gambar  6  Tampila  Proses  Clustering  

    Source  code Algoritma Klasifikasi Data Mining  Metode K-Means proses  Clustering  yang  digunakan  adalah  sebagai  berikut:

Imports System.Data
Imports System.Data.SqlClient
Public Class F6
    Inherits System.Windows.Forms.Form
    Dim a As New OpenFileDialog
    Dim conn As SqlConnection
    Dim cmd As SqlCommand
    Dim rdr As SqlDataReader
    Dim dt As New DataSet
    Dim adapter As SqlDataAdapter
    Dim dv As New DataView
    Dim dc As DataColumn
    Sub IsiData()
        Dim Sql = "select *from mahasiswa ORDER BY npm ASC"
        Dim t1 As Double
        Try
            cmd = New SqlCommand(Sql, koneksi.koneksi)
            rdr = cmd.ExecuteReader
            dgv.Rows.Clear()
            Dim index As Integer
            Do While rdr.Read = True
                index = dgv.Rows.Add
                dgv.Rows(index).Cells(0).Value = dgv.RowCount
                dgv.Rows(index).Cells(1).Value = rdr("npm")
                dgv.Rows(index).Cells(2).Value = rdr("nama")
                dgv.Rows(index).Cells(3).Value = rdr("thn_masuk")
                dgv.Rows(index).Cells(4).Value = rdr("thn_yudisium")
                dgv.Rows(index).Cells(6).Value = rdr("ipk")
                dgv.Rows(index).Cells(9).Value = rdr("kd_pro")

                t1 = rdr("thn_yudisium") - rdr("thn_masuk")
                dgv.Rows(index).Cells(5).Value = t1

                If t1 <= 4 And rdr("ipk") > 3.51 Then
                    dgv.Rows(index).Cells(7).Value = "A1"
                    dgv.Rows(index).Cells(8).Value = "Cumlaude"
                ElseIf t1 <= 4 And rdr("ipk") > 2.76 Then
                    dgv.Rows(index).Cells(7).Value = "A2"
                    dgv.Rows(index).Cells(8).Value = "Sangat Memuaskan"
                ElseIf t1 <= 4 And rdr("ipk") >= 2.0 Then
                    dgv.Rows(index).Cells(7).Value = "A3"
                    dgv.Rows(index).Cells(8).Value = "Memuaskan"
                ElseIf t1 > 4 And rdr("ipk") > 3.51 Then
                    dgv.Rows(index).Cells(7).Value = "B1"
                    dgv.Rows(index).Cells(8).Value = "Memuaskan"
                ElseIf t1 > 4 And rdr("ipk") > 2.76 Then
                    dgv.Rows(index).Cells(7).Value = "B2"
                    dgv.Rows(index).Cells(8).Value = "Kurang Memuaskan"
                ElseIf t1 > 4 And rdr("ipk") >= 2.0 Then
                    dgv.Rows(index).Cells(7).Value = "B3"
                    dgv.Rows(index).Cells(8).Value = "Tidak Memuaskan"

                End If    ' index += 1

            Loop
        Finally
            If rdr IsNot Nothing Then rdr.Close()
        End Try
    End Sub
    Sub sim()
        conn = New SqlConnection("server=; database=datamining_prestasi_clustering; trusted_Connection=true")
        Try
            Using sql As New SqlClient.SqlCommand("Insert Into hasil(npm,kd_pro,kelas,ipk,ket,tahun) Values (@npm,@kd_pro,@kelas,@ipk,@ket,@tahun)", koneksi.koneksi)
                'Dim cmd As New SqlCommand
                sql.Parameters.Add(New SqlParameter("@npm", SqlDbType.VarChar))
                sql.Parameters.Add(New SqlParameter("@kd_pro", SqlDbType.VarChar))
                sql.Parameters.Add(New SqlParameter("@kelas", SqlDbType.VarChar))
                sql.Parameters.Add(New SqlParameter("@ipk", SqlDbType.VarChar))
                sql.Parameters.Add(New SqlParameter("@ket", SqlDbType.VarChar))
                sql.Parameters.Add(New SqlParameter("@tahun", SqlDbType.VarChar))
                conn.Open()
                For i As Integer = 0 To dgv.Rows.Count - 1
                    sql.Parameters("@npm").Value = dgv.Rows(i).Cells(1).FormattedValue
                    sql.Parameters("@kd_pro").Value = dgv.Rows(i).Cells(9).FormattedValue
                    sql.Parameters("@kelas").Value = dgv.Rows(i).Cells(7).FormattedValue
                    sql.Parameters("@ipk").Value = dgv.Rows(i).Cells(6).FormattedValue
                    sql.Parameters("@ket").Value = dgv.Rows(i).Cells(8).FormattedValue
                    sql.Parameters("@tahun").Value = tahun.Text
                    sql.ExecuteNonQuery()
                Next i
                MessageBox.Show("Data Telah disimpan", "Data Sukses", MessageBoxButtons.OK)
                conn.Close()

            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    Private Sub F6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        koneksi.koneksi()
        IsiData()
        sim()
    End Sub
End Class

Untuk Source Code Algoritma Klasifikasi Data Mining  Metode K-Means Clustering Lengkap silahkan isikan di komentar dibawah,

Jika Artikel ini bermanfaat, Silahkan dishare, dan Subscribe dan jangan lupa tinggalkan komentar Anda, Terima Kasih.
Ikuti kami untuk artikel selanjutnya

Subscribe to receive free email updates:

0 Response to "Implementasi Algoritma Klasifikasi Data Mining Metode K-Means Clustering pada VB. Net"

Post a Comment