Implementasi Algoritma Klasifikasi Data Mining Metode K-Means Clustering pada VB. Net

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:

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
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
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
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
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
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