Source Code VB6 Penerapan Algoritma Fuzzy C-Means

Source Code VB6 Penerapan Fuzzy C-Means - Hasil analisa penulis selaku pembuat skripsi mahasiswa menyatakan tidak ada yang berani memposting code program penerapan fuzzy c-means ke dalam artikel, hal demikian penulis tidak dapat mengetahui penyebabnya. Untuk itu pada artikel kali ini penulis ingin berbagi cara penerapan logika algoritma fuzzy c-means ke dalam code visual basic 6.0.

Sebelumnya berikut tampilan hasil yang penulis buat:

Tampilan Hasil

Dan Berikut Code Program yang ada pada form diatas:


'////   Pembentukan Fuzzy  C-means   /////
Sub FUZZYCMEANS()
Dim i As Integer
Dim baris As Integer
Call BukaDatabase
    tabel.Clear
    tabel.Rows = 2
    tabel.Cols = 13
    tabel.FixedRows = 1
    baris = 0
    tabel.TextMatrix(0, 0) = "Kode Calon"
    tabel.TextMatrix(0, 1) = "Nama"
    tabel.TextMatrix(0, 2) = "Jenis Kelamin"
    tabel.TextMatrix(0, 3) = "Tempat Lahir"
    tabel.TextMatrix(0, 4) = "Tanggal Lahir"
    tabel.TextMatrix(0, 5) = "Alamat"
    tabel.TextMatrix(0, 6) = "Pendidikan Akhir (K1)"
    tabel.TextMatrix(0, 7) = "Agama"
    tabel.TextMatrix(0, 8) = "NoTelepon"
    tabel.TextMatrix(0, 9) = "Pengalaman (K2)"
    tabel.TextMatrix(0, 10) = "Kesehatan (K3)"
    tabel.ColWidth(0) = 1000
    tabel.ColWidth(1) = 2000
    tabel.TextMatrix(0, 11) = "Warga Negara"
    tabel.TextMatrix(0, 12) = "Nilai Test (K4)"
    tabel.ColWidth(2) = 1500
    tabel.ColWidth(3) = 1500
    tabel.ColWidth(4) = 1500
    tabel.ColWidth(5) = 1500
    tabel.ColWidth(6) = 2000
    tabel.ColWidth(7) = 1500
    tabel.ColWidth(8) = 1800
    tabel.ColWidth(9) = 1800
    tabel.ColWidth(10) = 1800
    tabel.ColWidth(11) = 1800
    tabel.ColWidth(12) = 2000
For i = Val(NilaiTest.Text) To Val(TTOT.Text)
            Set RSREKAP = New ADODB.Recordset
            RSREKAP.Open " Select * from REKAP " & " Where NILTES='" _
            & i & "'" _
            , KONEKSI, adOpenDynamic, adLockBatchOptimistic
            Do While Not RSREKAP.EOF
            On Error Resume Next
                    baris = baris + 1
                    tabel.Rows = baris + 1
                    tabel.TextMatrix(baris, 0) = RSREKAP!KdCalon
                    tabel.TextMatrix(baris, 1) = RSREKAP!Nama
                    tabel.TextMatrix(baris, 2) = RSREKAP!JenisKelamin
                    tabel.TextMatrix(baris, 3) = RSREKAP!TempatLahir
                    tabel.TextMatrix(baris, 4) = RSREKAP!TanggalLahir
                    tabel.TextMatrix(baris, 5) = RSREKAP!Alamat
                    tabel.TextMatrix(baris, 6) = RSREKAP!PendidikanAkhir
                    tabel.TextMatrix(baris, 7) = RSREKAP!Agama
                    tabel.TextMatrix(baris, 8) = RSREKAP!NoTelepon
                    tabel.TextMatrix(baris, 9) = RSREKAP!Pengalaman
                    tabel.TextMatrix(baris, 10) = RSREKAP!Kesehatan
                    tabel.TextMatrix(baris, 11) = RSREKAP!WNI
                    tabel.TextMatrix(baris, 12) = RSREKAP!NILTES
                    RTBKET.SelRTF = tabel.TextMatrix(baris, 6) & vbTab & tabel.TextMatrix(baris, 9) & vbTab & vbTab & vbTab & tabel.TextMatrix(baris, 10) & vbTab & vbTab & tabel.TextMatrix(baris, 12) & vbCrLf
                    RSREKAP.MoveNext
            Loop
Next i
End Sub
' /// Menentukan nilai akir nilai tes   ///
Sub MKCalon()
Dim i As Integer
Dim vntgjl As Variant
Dim vnDummy As Variant
Call BukaDatabase
RSCalon.Requery
Set RSCalon = New ADODB.Recordset
RSCalon.Open "Select * From Calon order by NILTES", _
KONEKSI, adOpenDynamic, adLockBatchOptimistic
   Do While Not RSCalon.EOF
      vntgjl = RSCalon!NILTES
      If IsNull(vntgjl) Then vntgjl = ""
      TTOT.Text = CStr(vntgjl)
      RSCalon.MoveNext
   Loop
End Sub

Sub MKREKAP()
Dim i As Integer
Dim vntgjl As Variant
Dim vnDummy As Variant
Call BukaDatabase
List2.Clear
RSREKAP.Requery
Set RSREKAP = New ADODB.Recordset
RSREKAP.Open "Select * From REKAP order by NILTES", _
KONEKSI, adOpenDynamic, adLockBatchOptimistic
   Do While Not RSREKAP.EOF
      vntgjl = RSREKAP!NILTES
      If IsNull(vntgjl) Then vntgjl = ""
      List2.AddItem CStr(vntgjl)
      List2.Text = CStr(vntgjl)
      RSREKAP.MoveNext
   Loop
End Sub
'///    Membuat Keterangan Pada Form    ///
Sub KETERANGAN()
MGrs = String$(120, "-")
RTBKET.SelRTF = "Jumlah Cluster" & " = " & "4" & " : " & vbCrLf
RTBKET.SelRTF = "Jumlah Kebutuhan" & " = " & Val(Text2.Text) & vbCrLf
RTBKET.SelRTF = "Kategori Pengelompokan" & " :" & vbCrLf
RTBKET.SelRTF = "Cluster 1" & vbTab & " = " & "Pendidikan Terakhir" & vbCrLf
RTBKET.SelRTF = "Cluster 2" & vbTab & " = " & "Pengalaman" & vbCrLf
RTBKET.SelRTF = "Cluster 3" & vbTab & " = " & "Kesehatan" & vbCrLf
RTBKET.SelRTF = "Cluster 4" & vbTab & " = " & "Nlai Test" & vbCrLf
RTBKET.SelRTF = "Hasil Pengelompokan Berdasarkan Cluster 1 - 4" & vbTab & vbCrLf & MGrs & vbCrLf
RTBKET.SelRTF = "C1" & vbTab & "C2" & vbTab & vbTab & vbTab & "C3" & vbTab & vbTab & "C4" & vbTab & vbCrLf & MGrs & vbCrLf
End Sub

Sub SIMPANCMEANS()
        SqlInsert = "INSERT INTO CMeans " _
        & " (KdCalon,Nama,JenisKelamin,TempatLahir,TanggalLahir,Alamat,PendidikanAkhir,Agama,NoTelepon,Pengalaman,Kesehatan,WNI,NILTES)" _
        & " VALUES('" _
        & tabel.TextMatrix(baris, 0) & "','" _
        & tabel.TextMatrix(baris, 1) & "','" _
        & tabel.TextMatrix(baris, 2) & "','" _
        & tabel.TextMatrix(baris, 3) & "','" _
        & tabel.TextMatrix(baris, 4) & "','" _
        & tabel.TextMatrix(baris, 5) & "','" _
        & tabel.TextMatrix(baris, 6) & "','" _
        & tabel.TextMatrix(baris, 7) & "','" _
        & tabel.TextMatrix(baris, 8) & "','" _
        & tabel.TextMatrix(baris, 9) & "','" _
        & tabel.TextMatrix(baris, 10) & "','" _
        & tabel.TextMatrix(baris, 11) & "','" _
        & tabel.TextMatrix(baris, 12) & "')"
        KONEKSI.Execute SqlInsert, , adCmdText
        RSCMeans.Requery
End Sub
Private Sub CKeluar_Click()
Unload Me
End Sub
Sub HPSDATA()
SqlDelete = "DELETE FROM REKAP WHERE NILTES"
KONEKSI.Execute SqlDelete, , adCmdText
RSREKAP.Requery
End Sub

Sub PROSESPEMBATASANDATA()
Dim i As Integer
'List4.Clear
For i = 0 To LISTTDAKDIBUTUHKAN.ListCount - 1
Set RSREKAP = New ADODB.Recordset
RSREKAP.Open " Select * from REKAP " & " Where NILTES ='" _
& LISTTDAKDIBUTUHKAN.List(i) & "'" _
, KONEKSI, adOpenDynamic, adLockBatchOptimistic
Do While Not RSREKAP.EOF
On Error Resume Next
Text1.Text = RSREKAP!KdCalon
RSREKAP.MoveNext
Loop
    SqlDelete = "DELETE FROM REKAP WHERE  " _
    & " KdCalon='" & Text1.Text & "'"
    KONEKSI.Execute SqlDelete, , adCmdText
    RSREKAP.Requery
Next i
FUZZYCMEANS
End Sub

Sub TAHAPPERTAMA()
Dim i As Integer
On Error GoTo redam
LISTTDAKDIBUTUHKAN.Clear
ALLREKAPNILAI.Selected(i) = False
TSREKAP.Text = Val(TALLSREKAP.Text) - Val(Text2.Text)
For i = 0 To Val(TSREKAP.Text) - 1
        ALLREKAPNILAI.Selected(i) = True
        LISTTDAKDIBUTUHKAN.AddItem ALLREKAPNILAI.List(i)
        LISTTDAKDIBUTUHKAN.Selected(i) = True
Next i
PROSESPEMBATASANDATA
redam:
End Sub

Private Sub CProses_Click()
Dim i As Integer
Dim a As Integer
Dim K As Integer
Dim P As Integer
Dim baris As Integer
Me.MousePointer = vbHourglass
HPSDATA
RTBKET.TextRTF = ""
T1.Text = PendidikanAkhir.ListIndex
T2.Text = PendidikanAkhir.ListCount - 1
PI.Text = Pengalaman.ListIndex
PC.Text = Pengalaman.ListCount - 1
KK1.Text = Kesehatan.ListIndex
KK2.Text = Kesehatan.ListCount - 1
Call KETERANGAN
Call BukaDatabase
    tabel.Clear
    tabel.Rows = 2
    tabel.Cols = 13
    tabel.FixedRows = 1
    baris = 0
    tabel.TextMatrix(0, 0) = "Kode Calon"
    tabel.TextMatrix(0, 1) = "Nama"
    tabel.TextMatrix(0, 2) = "Jenis Kelamin"
    tabel.TextMatrix(0, 3) = "Tempat Lahir"
    tabel.TextMatrix(0, 4) = "Tanggal Lahir"
    tabel.TextMatrix(0, 5) = "Alamat"
    tabel.TextMatrix(0, 6) = "Pendidikan Akhir (K1)"
    tabel.TextMatrix(0, 7) = "Agama"
    tabel.TextMatrix(0, 8) = "NoTelepon"
    tabel.TextMatrix(0, 9) = "Pengalaman (K2)"
    tabel.TextMatrix(0, 10) = "Kesehatan (K3)"
    tabel.TextMatrix(0, 11) = "Warga Negara"
    tabel.TextMatrix(0, 12) = "Nilai Test (K4)"
    tabel.ColWidth(0) = 1000
    tabel.ColWidth(1) = 2000
    tabel.ColWidth(2) = 1500
    tabel.ColWidth(3) = 1500
    tabel.ColWidth(4) = 1500
    tabel.ColWidth(5) = 1500
    tabel.ColWidth(6) = 2000
    tabel.ColWidth(7) = 1500
    tabel.ColWidth(8) = 1800
    tabel.ColWidth(9) = 1800
    tabel.ColWidth(10) = 1800
    tabel.ColWidth(11) = 1800
    tabel.ColWidth(12) = 2000
ALLREKAPNILAI.Clear
For a = T1.Text To T2.Text
    For K = KK1.Text To KK2.Text
        For P = PI.Text To PC.Text
            For i = Val(NilaiTest.Text) To Val(TTOT.Text)
            Set RSCalon = New ADODB.Recordset
            RSCalon.Open " Select * from Calon " & " Where PendidikanAkhir  & Pengalaman & Kesehatan & NILTES='" _
            & PendidikanAkhir.List(a) & Pengalaman.List(P) & Kesehatan.List(K) & i & "'" _
            , KONEKSI, adOpenDynamic, adLockBatchOptimistic
                Do While Not RSCalon.EOF
                    On Error Resume Next
                    baris = baris + 1
                    tabel.Rows = baris + 1
                    tabel.TextMatrix(baris, 0) = RSCalon!KdCalon
                    tabel.TextMatrix(baris, 1) = RSCalon!Nama
                    tabel.TextMatrix(baris, 2) = RSCalon!JenisKelamin
                    tabel.TextMatrix(baris, 3) = RSCalon!TempatLahir
                    tabel.TextMatrix(baris, 4) = RSCalon!TanggalLahir
                    tabel.TextMatrix(baris, 5) = RSCalon!Alamat
                    tabel.TextMatrix(baris, 6) = RSCalon!PendidikanAkhir
                    tabel.TextMatrix(baris, 7) = RSCalon!Agama
                    tabel.TextMatrix(baris, 8) = RSCalon!NoTelepon
                    tabel.TextMatrix(baris, 9) = RSCalon!Pengalaman
                    tabel.TextMatrix(baris, 10) = RSCalon!Kesehatan
                    tabel.TextMatrix(baris, 11) = RSCalon!WNI
                    tabel.TextMatrix(baris, 12) = RSCalon!NILTES
                    ALLREKAPNILAI.AddItem RSCalon!NILTES
                    RSCalon.MoveNext
                        SqlInsert = "INSERT INTO REKAP " _
                        & " (KdCalon,Nama,JenisKelamin,TempatLahir,TanggalLahir,Alamat,PendidikanAkhir,Agama,NoTelepon,Pengalaman,Kesehatan,WNI,NILTES)" _
                        & " VALUES('" _
                        & tabel.TextMatrix(baris, 0) & "','" _
                        & tabel.TextMatrix(baris, 1) & "','" _
                        & tabel.TextMatrix(baris, 2) & "','" _
                        & tabel.TextMatrix(baris, 3) & "','" _
                        & tabel.TextMatrix(baris, 4) & "','" _
                        & tabel.TextMatrix(baris, 5) & "','" _
                        & tabel.TextMatrix(baris, 6) & "','" _
                        & tabel.TextMatrix(baris, 7) & "','" _
                        & tabel.TextMatrix(baris, 8) & "','" _
                        & tabel.TextMatrix(baris, 9) & "','" _
                        & tabel.TextMatrix(baris, 10) & "','" _
                        & tabel.TextMatrix(baris, 11) & "','" _
                        & tabel.TextMatrix(baris, 12) & "')"
                        KONEKSI.Execute SqlInsert, , adCmdText
                        RSREKAP.Requery
                        TALLSREKAP.Text = ALLREKAPNILAI.ListCount
                Loop
            Next i
        Next P
    Next K
Next a
Call MKCalon
Call TAHAPPERTAMA
Me.MousePointer = vbDefault
End Sub
Private Sub Form_Load()
MKCalon
FMU.Enabled = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
FMU.Enabled = True
End Sub

Private Sub Text2_Change()
If Val(Text2.Text) <= 0 Then
Text2.Text = ""
End If
End Sub

Aplikasi ini berjalan jika dibatuh dengan database, artikel ini hanya berisi pada bagian fuzzy  c-means. jika anda seorang programer, tentu anda dapat menggunakan coding di atas, tapi jika anda belum paham, anda dapat menghubungi penulis. terima kasih.

Random Huruf Menggunakan Visual Basic 6.0

Random Huruf Menggunakan Visual Basic 6.0 - kenapa artikel ini penulis buat, ini dikarenakan proses random huruf sangat di perlukan dalam pembuatan program skripsi, seperti halnya dalam pembuatan no otomatis untuk kode pada suatu input data, jika anda harus mengentrikan secara manual, hal demikian penulis rasa kurang baik, dikarenakan program yang nantinya anda buat itu tentunya bertujuan agar pengguna lebih mudah dalam entri data dan tidak manual lagi.

dari alasan diatas, penulis berharap artikel ini dapat anda gunakan sebagai tambahan kelengkapan aplikasi yang anda buat. Adapun bentuk hasil dari Random Huruf Menggunakan Visual Basic 6.0 adalah sebagai berikut:

Random Huruf Menggunakan Visual Basic 6.0

dari tampilan diatas diperlukan:
1 buah listbox, 1 buah textbox, dan 1 buah tombol

Adapun Code program yang harus di masukkan ada dibawah ini:
copy saja dan langsung dimasukkan kedalam form

Private Sub Command1_Click()
Dim A As String
    Dim B As String
    Dim C As String
    Dim D As String
    Dim E As String
    Dim F As String
    Dim G As String
    Dim H As String
    Dim I As String
    Dim J As String

    A = Random
    B = Random
    C = Random
    D = Random
    E = Random
    F = Random
    G = Random
    H = Random
    I = Random
    J = Random

    Text1 = A + B + C + D + E + F + G + H + I + J
    List1.AddItem Text1
End Sub

Function RandomNum() As Integer
    RandomNum = Int((9 - 1 + 1) * Rnd + 1)
End Function

Function RandomChar() As String
    Dim Char As Integer
    Char = Int((26 - 1 + 1) * Rnd + 1)
    If Char = 1 Then RandomChar = "A": Exit Function
    If Char = 2 Then RandomChar = "B": Exit Function
    If Char = 3 Then RandomChar = "C": Exit Function
    If Char = 4 Then RandomChar = "D": Exit Function
    If Char = 5 Then RandomChar = "E": Exit Function
    If Char = 6 Then RandomChar = "F": Exit Function
    If Char = 7 Then RandomChar = "G": Exit Function
    If Char = 8 Then RandomChar = "H": Exit Function
    If Char = 9 Then RandomChar = "I": Exit Function
    If Char = 10 Then RandomChar = "J": Exit Function
    If Char = 11 Then RandomChar = "K": Exit Function
    If Char = 12 Then RandomChar = "L": Exit Function
    If Char = 13 Then RandomChar = "M": Exit Function
    If Char = 14 Then RandomChar = "N": Exit Function
    If Char = 15 Then RandomChar = "O": Exit Function
    If Char = 16 Then RandomChar = "P": Exit Function
    If Char = 17 Then RandomChar = "Q": Exit Function
    If Char = 18 Then RandomChar = "R": Exit Function
    If Char = 19 Then RandomChar = "S": Exit Function
    If Char = 20 Then RandomChar = "T": Exit Function
    If Char = 21 Then RandomChar = "U": Exit Function
    If Char = 22 Then RandomChar = "V": Exit Function
    If Char = 23 Then RandomChar = "W": Exit Function
    If Char = 24 Then RandomChar = "X": Exit Function
    If Char = 25 Then RandomChar = "Y": Exit Function
    If Char = 26 Then RandomChar = "Z": Exit Function
End Function

Function Random() As Variant
    Dim Randm As Integer
    Randm = Int((3 - 1 + 1) * Rnd + 1)
    'If Randm = 1 Then
        Random = RandomNum
    'Else
        Random = RandomChar
    'End If
End Function

Jika ada pertanyaan bisa anda hubungi penulis, terima kasih

SISTEM PERSEDIAAN OBAT PADA PUSKESMAS MENGGUNAKAN METODE NAÏVE BAYES

SISTEM PERSEDIAAN OBAT PADA PUSKESMAS MENGGUNAKAN METODE NAÏVE BAYES (STUDI KASUS PUSKESMAS TALANG TINGGI SELUMA)

Pada Skripsi ini dibahas mengenai prediksi persediaan obat menggunakan metode naive bayes pada puskesmas Talang Tinggi Seluma.
Jika anda ingin skripsi lengkapnya, anda dapat menghubungi pengulis di fb: mesa bkl,
Berikut skripsinya

BAB I PENDAHULUAN

1.1. Latar Belakang

Puskesmas adalah sebuah unit pelayanan kesehatan yang bergerak dibidang jasa dalam hal pelayanan kesehatan kepada masyarakat. Sistem pencatatan persediaan obat yang digunakan saat ini masih mengunakan cara manual baik dalam penyediaan maupun pengeluaran obat tersebut, tentu saja hal ini kurang efisien.

Algoritma Naive Bayes Classifiers merupakan salah satu algoritma yang terdapat pada teknik klasifikasi. Naive Bayes merupakan pengklasifikasian dengan metode probabilitas dan statistik yang dikemukan oleh ilmuwan Inggris Thomas Bayes, yaitu memprediksi peluang di masa depan berdasarkan pengalaman dimasa sebelumnya sehingga dikenal sebagai Teorema Bayes. Teorema tersebut dikombinasikan dengan Naive dimana diasumsikan kondisi antar atribut saling bebas. (Bustami, 2014)
Puskesmas Talang Tinggi Seluma belum dapat memprediksi kebutuhan persediaan obat
berdasarkan data obat yang di perlukan, ini disebabkan sistem pemesanan masih bersifat manual, yang mana pengecekan data persediaan obat satu persatu dan kemudian direkap kedalam buku lalu dipindahkan kedalam Laporan Permohonan Obat (LPO) dan diajukan ke Gudang Farmasi Kabupaten Seluma.
Dengan mengecek data persediaan obat satu persatu, hal ini dapat menyebabkan kekeliruan, dikarenakan pada ruang apotik puskesmas terdapat 200 jenis obat, sedangkan pada setiap jenis obat terdapat berbagai macam obat. Kekeliruan penghitungan obat akan berdampak pada keberlebihan obat, sedangkan obat yang berlebih akan menumpuk dan lama kelamaan akan kadaluarsa dan tidak dapat lagi digunakan dan dibakar.
Berdasarkan uraian diatas maka penulis tertarik untuk mengangkat judul pada skripsi ini yang berjudul: “Sistem Persediaan Obat Pada Puskesmas Menggunakan Metode Naïve Bayes (Studi Kasus Puskesmas Talang Tinggi Seluma)”, Sehingga dengan sistem ini diharapkan dapat memprediksi persediaan obat yang harus dipasok sebelum obat itu habis, sistem persediaan obat nantinya akan di olah menggunakan metode Naïve Bayes.

1.2. Rumusan Masalah

Berdasarkan latar belakang yang telah diuraikan diatas, Bagaimana membuat aplikasi sistem persediaan obat yang terorganisir dan mudah digunakan?

1.3. Batasan Masalah

Karena keterbatasan waktu, maka ruang lingkup permasalahan dalam merancang perangkat lunak ini antara lain:

1. Implementasikan metode Naïve Bayes Classifiers Untuk Sistem Persediaan Obat,
2. Penelitian dilakukan di Puskesmas Talang Tinggi Seluma, jalan Mayjen Sutoyo Km. 49 Desa Talang Tinggi Kecamatan Seluma Barat 38883.
3. Adapun jenis data yang akan diolah adalah data persediaan obat.

1.4. Tujuan Penelitian

1. Untuk membuat sebuah aplikasi yang membantu dalam Sistem prediksi persediaan obat,
2. Untuk Mengontrol setiap laporan data persediaan obat agar tidak terjadi kekeliruan dalam pendataan laporan,
3. Untuk Mempermudah dalam membuat rekap data data persediaan obat

1.5. Manfaat Penelitian

1. Dengan adanya sistem persediaan obatini, dapat membantu dalam kinerja dalam melakukan pelaporan, pengecekan dan penyimpanan data,
2. Dapat menghemat waktu dalam pengerjaan data-data yang berhubungan dengan persediaan obat, dapat membantu dalam keakuratan data yang disampaikan, data yang penting tidak tercecer sebagaimana sebelumnya

BAB III METODOLOGI PENELITIAN

3.1. Subjek Penelitian

Puskesmas Talang Tinggi dibangun pada tahun 1992 dan terletak di kecamatan Seluma Barat Kabupaten Seluma tepatnya di Jalan Raya Bengkulu Tais KM 49. Batas-batas wilayah Puskesmas Talang Tinggi:

1. Sebelah Timur berbatasan dengan PT Agri Andalas
2. Sebelah Selatan berbatasan dengan Wilayah Kerja Puskesmas Tais
3. Sebelah Barat berbatasan dengan perbukitan Bukit Barisan
4. Sebelah Utara berbatasan dengan Wilayah Kerja Puskesmas Tumbu‟an

Luas wilayah Puskesmas Talang Tinggi adalah 10.245 KM2 meliputi 9 (sembilan) desa dan terdiri 9 (sembilan) posyandu, dan 9 (sembilan) desa terdapat 4 (empat) desa terletak di daerah terpencil, yaitu Purbosari, Talang Perapat, Tanjung Agung dan Lubuk Lagan, sedangkan 5 (lima) desa lagi terletak di desa biasa, yaitu: Talang Tinggi, Pagar Agung, Lunjuk dan Air Latak, dan tambahan satu desa pemekaran yaitu Desa Sengkuang Jaya, rata-rata tempuh menuju ke Puskesmas dengan jarak terdekat yaitu ± 15 menit sedangkan jarak terjauh yaitu ± ½ (setengah) jam. Jumlah penduduk wilayah kerja Puskesmas Talang Tinggi yaitu 9.388 jiwa dengan penduduk miskin yaitu ± 4.489 jiwa.
Mata pencaharian penduduk di wilayah kerja Puskesmas Talang Tinggi yaitu sebagian besar petani, terutama petani karet, sawit dan petani padi, sedangkan sebagian kecil adalah di sector buruh, jasa dan Pegawai Negeri Sipil.

3.1.1. Tempat dan Waktu

Penelitian Penelitian ini di laksanakan di Puskesmas Talang Tinggi, Jalan Mayjen Sutoyo KM. 49 38883 Desa Talang Tinggi Kecamatan Seluma Barat Kabupaten Seluma Provinsi Bengkulu, Penelitian ini berlangsung selama 3 bulan dimulai dari Juni sampai dengan September 2016.

3.1.2. Struktur Organisasi

Struktur organisasi perusahaan dapat diartikan sebagai mekanismemekanisme formal dengan organisasi dikelola. Struktur organisasi menunjukkan kerangka dan susunan pola tetap yang saling berhubung diantara fungsi-fungsi, bagian-bagian, posisi-posisi maupun orang-orang yang menunjukkan kedudukan, tugas serta tanggung jawab yang berbeda dalam organisasi. Berdasarkan organisasi secara keseluruhan dan satuan kerjanya akan mempengaruhi struktur sosial. Struktur organisasi Puskesmas Talang Tinggi dapat dilihat pada gambar dibawah ini:

Struktur Organisasi

3.2. Metode Penelitian

Dalam melakukan peranelitian ini, mengunakan metode pengembangan sistem yang mana tahapan dalam pengembangan sistem terdiri dari enam tahapan yaitu;

1. Survey, bertujuan mengetahui ruang lingkup pekerjaan
2. Analisis data, bertujuan untuk memahami sistem yang ada mengidentifikasi masalah dan
3. cara solusinya.
4. Desain, bertujuan untuk mendesain sestem baru yang dapat menyelesaikan masalah yang dihadapi.
5. Pembuatan, membuat sistem yang sudah didesain atau menyiapkan semua yang dibutuhkan sparti perangkat keras dan perangkat lunaknya. 
6. Implementasi, bertujuan untuk mengimplementasikan sistem yang baru.
7. Pemeliharaan, bertujuan agar sistem dapat berjalan secara optimal.

3.3. Metode Pengumpulan Data

Adapun metode pengumpulan data yang digunakan dalam penelitian ini adalah sebagai berikut:

a. Studi Pustaka (Library Research)

Metode ini dilakukan dengan cara mengadakan peninjauan terhadap buku-buku, referensi, dan sumber data yang lainnya yang berhubungan dengan masalah yang diteliti, yaitu masalah penerapan Algoritma Naive Bayes Classifiers dalam memprediksi persediaan obat pada Puskesmas Talang Tinggi Seluma dan mendapatkan landasan teori dalam penelitian yang kemudian dijadikan sebagai patokan dalam menarik suatu kesimpulan.

b. Study Lapangan (Field Research)

Metode ini dilakukan dengan cara mangadakan hubungan langsung terhadap objek yang diteliti, ditempu dalam penelitian ini adalah:

1. Wawancara, yaitu mengumpulkan data dengan cara tanya jawab kepada pihak apoteker Puskesmas Talang Tinggi Seluma.
2. Observasi, yaitu mengadakan pengamatan langsung pada kegiatan yang dilakukan Puskesmas Talang Tinggi Seluma.
3. Dokumentasi, yaitu mengumpulkan data dari dokumentasi, atau catatan-catatan yang ada pada Puskesmas Talang Tinggi Seluma.
3.4. Software Dan Hardware
Adapun Software dan Hardware yang digunakan dalam penelitian ini adalah:
a. Software
Adapun Software yang digunakan dalam penelitian ini adalah:
1. Sisitem operasi Windows XP Service Pack II
2. Aplikasi Microsoft Visual Basic 6.0
b. Hardware
Adapun hardware yang dibutukan pada penelitian ini adalah:
1. Satu Unit Laptop Asus
a. Prosessor Intel Pentium Core i7
b. Memori 4 GB
c. Hardisk 512 GB
2. Optical Mouse
3. Printer Canon IP2700

3.5. Metode Perancangan Sistem

3.5.1. Analisa Sistem Aktual

Sebelum melakukan pengembangan terhadap suatu sistem, telebih dahulu penulis menganalisa sistem yang dipakai pada puskesmas Talang Tinggi Seluma, dalam proses prediksi persediaan obat, hal ini belum dilakukan.

3.5.2. Analisa Sistem Baru

Dalam penelitian ini penulis akan membuat suatu aplikasi sebagai media untuk memprediksi perdeiaan obat. 

Diagram Konteks

B. Data Flow Diagram Level 0

Gambar 3.3. Data Flow Diagram Level

0

C. ERD (Entity Relationship Diagram)

Gambar 3.4. Diagram ERD

Download Judul Skripsi Teknik Informatika Siap Bimbingan

Bagi temen-temen yang lagi sibuk ngurusin skripsi khususnya jurusan teknik informatika, penulis bermaksud untuk membantu, barangkali di antara judul di bawah ini ada yang cocok dengan judul yang anda garap.

Berikut Judul yang mungkin bermanfaat bagi anda, dan siap di pesan melalui E-Mail:

Download Judul Skripsi Teknik Informatika Siap Bimbingan I

Download Judul Skripsi Teknik Informatika Siap Bimbingan II

Download Judul Skripsi Teknik Informatika Siap Bimbingan III

Download Judul Skripsi Teknik Informatika Siap Bimbingan IV

Dari Beberapa Judul diatas dapat anda pesan satu atau semuanya (borongan), soal harga urusan kedua.

Untuk Pemesanan Skripsi Lengkap Dari Halaman Sampul, Daftar Isi, BAB I, BAB II, BAB III, BAB IV, BAB V, Dan Daftar Pustaka Serta Program Aplikasinya, ada dapat menghubungi penulis di:

Facebook : Mesa Bkl

E-Mail     : mesakomputer@gmail.com

HP           : 0853-6789-7220

Cara Pembelian:

• Hubungi No HP 0853-6789-7220

• Transper Jumlah Nominal ke Rekening 

BRI UNIT TEDUNAN Atas nama AKSA 5696-01-005889-53-0

• Kirim Bukti Transper ke E-Mail: mesakomputer@gmail.com

• Hubungi lagi No HP 0853-6789-7220 untuk konfirmasi telah melakukan Transper

Selanjutnya Penulis akan mengirim file lengkap skripsi yang anda inginkan ke E-Mail anda.

Konfirmasi lagi setelah file skripsi telah masuk ke E-Mail anda

Terima Kasih

Aplikasi Penilaian Rapor Siswa Pada SMP Menggunakan VB 6.0

Sistem Aplikasi Penilaian Rapor Siswa Pada SMP Budi Mulia Kota Bengkulu Berbasis Microsoft Visual Basic 6,0

Aplikasi Penilaian Rapor Siswa Pada SMP Menggunakan VB 6.0

Laporan Semester II (Penaikan Kelas)

Gambar diatas merupakan bentuk tampilan Aplikasi Penilaian Rapor Siswa Pada SMP Menggunakan VB 6.0. Penulis mohon maaf tidak semuahnya tampilan bisah penulis tampilkan, karena menurut penulis cuma menu di atas yang paling penting dalam aplikasi ini.

Sedangkan pada bagian bawah ini merupakan isi dari BAB I Skripsi yang telah penulis buat. untuk BAB II sampai BAB Penutup tidak dapat penulis masukan secara keseluruhan, hal ini dikarenakan banyak hal, penulis yakin pembaca dapat memahami apa maksud dari penulis. sorry ya... :D

Agar pembaca tidak merasa kecewa, penulis dapat mengubungi penulis melalui via telpon atau E-Mail, tetera pada akhir halaman ini.

BAB I
PENDAHULUAN

1.1. Latar Belakang

Perkembangan teknologi dibidang informatika khususnya perkembangan sistem aplikasi pada komputer pada saat ini sangat banyak. Perkembangan ini dapat mempermudah dan mempercepat suatu pekerjaan, sehingga lebih efektif dan efisien terutama dari segi waktu. Namun perkembangan ini menuntut agar sumber daya manusia nya menjadi lebih maju agar dapat memanfaatkan perkembangan teknologi yang ada. Pada saat ini, hampir semua sekolah sudah memiliki komputer dan perkembangan teknologinya. Hanya saja belum digunakan secara optimal, baik untuk pengolahan data ataupun untuk sistem informasi. Berdasarkan pada hal tersebut, maka penulis mencoba melihat pada salah satu SMP yang berada di Kota Bengkulu yang sudah memiliki sistem komputerisasi tetapi dalam pengelolaan nilai rapor masih melakukan pengolahan nilai secara manual. SMP yang dituju adalah SMP Budi Mulia, disini didapatkan bahwa pengolahan nilai rapor membuat guru yang mengolah nilai untuk rapor merasa kesulitan karena menghabiskan banyak waktu. Berdasarkan pada permasalahan diatas, maka penulis mencoba membuat dan merancang sistem aplikasi yang dapat membantu dalam proses pengolahan nilai rapor pada SMP Budi Mulia. Dari uraian permasalahan tersebut maka penulis mengambil judul “ Sistem Aplikasi Penilaian Rapor Siswa Pada SMP Budi Mulia Kota Bengkulu Berbasis Microsoft Visual Basic 6,0”

1.2. Rumusan Masalah

Berdasarkan uraian permasalahan pada latar belakang, maka dapat dirumuskan masalah “Bagaimana membuat sistem aplikasi penilaian rapor siswa pada SMP Budi Mulia Kota Bengkulu berbasis Microsoft Visual Basic 6,0?”

1.3. Batasan Masalah

Agar masalah yang dibahas tidak menyimpang, maka penulis membatasi permasalahan yaitu : perancangan sistem aplikasi penilaian rapor siswa pada SMP Budi Mulia Kota Bengkulu berbasis Microsoft Visual Basic 6,0.

1.4 Tujuan Penelitian 

a. Tujuan Umum 

Tujuan penulisan ini adalah menghasilkan sistem aplikasi penilaian rapor siswa yang dapat digunakan pada SMP Budi Mulia Kota Bengkulu berbasis Microsoft Visual Basic 6,0.

b.Tujuan Khusus

Tujuan khusus dari penulisan ini adalah membantu dan meringankan pekerjaan penilaian rapor siswa pada SMP Budi Mulia Kota Bengkulu melalui sistem aplikasi yang dihasilkan.

1.5 Manfaat Penelitian

Adapun manfaat dari penulisan ini adalah :

1.5.1 Bagi Penulis

1. Dapat membuat sistem aplikasi penilaian rapor siswa pada SMP Budi Mulia Kota Bengkulu.
2. Sebagai pembelajaran serta menambah pengalaman dalam merancang suatu sistem aplikasi.

b1.5.2 Bagi SMP Budi Mulia

1. Dapat memiliki dan menggunakan sistem aplikasi penilaian rapor siswa pada SMP Budi Mulia berbasis Microsoft Visual Basic 6,0.
2. Dapat membantu untuk menghemat waktu dalam penilaian rapor siswa pada SMP Budi Mulia Kota Bengkulu.

Bagi pembaca yang menginginkan aplikasi lengkap atau file skripsi lengkap dengan judul diatas, silakan hubungi di :

NO HP  : 0853-6789-7220
E-Mail  : mesakomputer@gmail.com
FB         :  Mesa Bkl

Silakan request, seperti biasa penulis akan meminta sedikit belanja atas karya penulis, (NEGO).
Terima kasih telah berkunjung di blog ini. baca terus artikel dari blog ini, setiap minggu ada artikel terbaru yang berhubungan skripsi. Salam...............

Contoh Skripsi Implementasi Algoritma Fuzy Subtrcative Clustering

Contoh Skripsi Implementasi Algoritma Fuzy Subtrcative Clustering- lebih lengkapnya judul skripsi yang akan dibahas adalah : Implementasi Algoritma Fuzy Subtrcative Clustering Untuk Aplikasi Pengelompokan Kategori Film.

Pada artikel kali ini kita bahas sedikit mengenai penerapan  Algoritma Fuzy Subtrcative Clustering.

Untuk mengelompokkan kategori film, pada artikel yang memuat suatu karya skripsi yang telah penulis buat dankemarin alhamdullilah sudah wisudah tahun 2014 kemari. lumayan lama :D

Berdasarkan hasil penelitian kami, pada suatu film terdapat beberapa kategori, diantaranya jenis film, tahun release, dan bintang film, kategori ini yang kami jadikan kategori pengelompokan, dan hasilnya lumayan. Setelah selesai pembuatan kemarin baru kami menyadari sebenarnya hasil dari pengelompokan fungsinya adala untuk pencarian cepat data film.

Pengelompokan kategori film ini dibuat menggunakan aplikasi visual basic 6.0 (VB6), dan laporannya dibuat menggunakan cristal report 8.5

ini ni tampilan dari aplikasinya:

Proses Pengelompokan

Laporan Hasil Pengelompokan

Dari ucapan sebelumya, dari kata skripsi barang pasti ada data skripsinya.

Disini penulis akan memberikan isi dari BAB I dari skripsi yang telah penuli buat. silakan di apa-apain (gratis).

Implementasi Algoritma Fuzy Subtrcative Clustering Untuk Aplikasi Pengelompokan Kategori Film

BAB I
PENDAHULUAN

1.1. Latar Belakang 

Perkembangan komputer dewasa ini telah mengalami banyak perubahan yang sangat pesat, seiring dengan kebutuhan manusia yang semakin banyak dan kompleks. Komputer yang pada awalnya hanya digunakan oleh para akademisi dan militer, kini telah digunakan secara luas di berbagai bidang, misalnya: bisnis, kesehatan, pendidikan, pisikologi, perfilman, permainan dan sebagainya. Hal ini mendorong para ahli untuk semakin mengembangkan komputer agar dapat membantu kerja manusia atau bahkan melebihi kemampuan kerja manusia.

Film adalah media komunikasi yang bersifat audio visual untuk menyampaikan suatu pesan kepada sekelompok orang yang berkumpul di suatu tempat tertentu. Pada dasarnya film dapat dikelompokan ke dalam dua pembagian dasar, yaitu kategori film cerita dan non cerita. Pendapat lain menggolongkan menjadi film fiksi dan non fiksi. Film cerita adalah film yang diproduksi berdasarkan cerita yang dikarang, dan dimainkan oleh aktor dan aktris. Film non cerita adalah film yang mengambil kenyataan sebagai subyeknya, yaitu merekam kenyataan dari pada fiksi tentang kenyataan. (Sumarno, 1996:10) 

Pada prinsipnya Fuzy Subtractive Clustering didasarkan atas ukuran densitas (potensi) titik-titik data dalam suatu ruang (variabel). Titik dengan jumlah tetangga terbanyak akan dipilih sebagai pusat cluster. Titik yang sudah terpilih sebagai pusat cluster ini akan dikurangi densitasnya. Kemudian algoritma akan memilih titik lain yang memiliki tetangga terbanyak untuk dijadikan sebagai pusat cluster yang lain. Hal ini dilakukan sampai semua titik diuji. Teknik yang dikenal dalam data adalah clustering,  berupa proses pengelompokan sejumlah data atau objek ke dalam cluster group sehingga setiap dalam cluster akan berisi data yang semirip mungkin dan berbeda dengan objek dalam cluster yang lainnya (Klir, 1995). 

Proses pencarian data film pada Rental Film Untra Disc Kota Bengkulu selama ini dengan cara manual, yakni dengan cara mencari data film yang diinginkan yang tercatat pada suatu buku, hal ini dianggap kurang efektif dan efisien waktu, dikarnakan hal ini dilakukan berulang-ulang pada banyaknya jumlah peminjam film.
Berdasarkan uraian diatas maka penulis tertarik untuk mengangkat judul pada skripsi ini yang berjudul: “Implementasi Algoritma Fuzy Subtrcative Clustering Untuk Aplikasi Pengelompokan Kategori Film”.

1.2. Rumusan Masalah 

Berdasarkan latar belakang diatas, maka yang menjadi permasalahan adalah bagaiman menggimplementasikan Algoritma Fuzy Subtrcative Clustering Untuk Aplikasi Pengelompokan Kategori Film.

1.3. Batasan Masalah

Karena keterbatasan waktu, maka ruang lingkup permasalahan dalam merancang perangkat lunak ini antara lain:

1. Implementasikan Algoritma Fuzy Subtrcative Clustering Untuk Aplikasi Pengelompokan Kategori Film
2. Pengelompokan yang berhubungan dengan persamaan dan ketidaksamaan jenis film, kategori film dan tahun keluaran.
3. Film yang di jadikan sebagai sampel pada penelitian ini yaitu dari tahun 2010 sampai dengan 2014

1.4. Tujuan Penelitian

Tujuan penyusunan skripsi ini adalah untuk menggimplementasikan Algoritma Fuzy Subtrcative Clustering Untuk Aplikasi Pengelompokan Kategori Film.

1.5. Manfaat Penelitian

1. Bagi Penulis

Sebagai tambahan ilmu pengetahuan di bidang informatika serta menggimplementasikan Algoritma Fuzy Subtrcative Clustering Untuk Aplikasi Pengelompokan Kategori Film.

2. Bagi Pembaca

Dapat dijadikan referensi bahan acuan untuk menambah pengetahuan dan menggimplementasikan Algoritma Fuzy Subtrcative Clustering Untuk Aplikasi Pengelompokan Kategori Film

Barang Kali.... ada yang penelitiannya sama dengan hasil karya penulis, silakan anda download link dibawah ini skripsi dan programnya:

Skripsi Full

Program VB

Source Code VB 6 Random Huruf dan Angka

Source Code VB 6 Random Huruf dan Angka

Source Code VB 6 Random Huruf dan Angka - Kedengaranya sepeleh, tapi di dalam pemrograman visual basic, baik itu VB 6 atau VB Net dan bahasa pemrograman lainnya hal ini sangat di perlukan, terutama pembuatan no otomatis pada entry data.

Coba anda bayangkan, apabila anda harus mengentrykan data secara manual pada kode primary key input data anda, sudah barang pasti akan sangat menyibukkan. Dengan bantuan sedikit coding dari penulis anda dapat mengentrikan no data secara cepat dan tidak perlu anda hiraukan, kecil kemungkinan akan terjadi duplicated.

Untuk membuat Source Code VB 6 Random Huruf dan Angka, pertama anda buka dulu aplikasi visual basic anda tentunya, setelah itu silakan anda copy coding di bawah ini.

Langka-langka kerja:

tambahkan module lalu copy coding ini:

' pembuatan no otomatis disiniPublic Function RandomNumber(startNum As Integer, endNum As Integer) As Integer
    Randomize
    RandomNumber = Int(((endNum - startNum + 1) * Rnd) + startNum)
End Function
' menukar dua karakter dalam sebuah stringPublic Function swap(text As String, pos1 As Integer, pos2 As Integer)
    Dim temp As String
    temp = Mid(text, pos1, 1)
    text = Mid(text, 1, pos1 - 1) + Mid(text, pos2, 1) + Mid(text, pos1 + 1)
    text = Mid(text, 1, pos2 - 1) + temp + Mid(text, pos2 + 1)
    swap = text
End Function
' mengacak kataPublic Function scrambleWord(ByVal text As String)
    Dim scrambleStrength As Integer, pos1 As Integer, pos2 As Integer
    Dim i As Integer
 
    ' mungkin tidak perlu lebih tinggi dari ini    scrambleStrength = (Len(text) - 1) * 2

    For i = 0 To scrambleStrength
        pos1 = RandomNumber(1, Len(text))
        pos2 = RandomNumber(1, Len(text))
        text = swap(text, pos1, pos2)
    Next
    scrambleWord = text
End Function
Public Function scrambleInput(text As String)
    Dim words() As String, i As Integer
    words = Split(text, " ") ' split is a VB function for breaking a string into an array of strings
    For i = 0 To UBound(words)
        ' menguraikan setiap kata        words(i) = scrambleWord(words(i))
    Next
 
    ' string output scrambled text    scrambleInput = Join(words, " ")
End Function

Selanjutnya, apabila coding diatas sudah anda masukkan kedalam module, kemudian pada form anda tambahkan coding dibawah ini:

' Text 1 adalah sasaran (inpu/output)

Private Sub Command1_Click()
Text1 = scrambleInput(Text1)
End Sub

Kalau masih belum jelas juga perhatikan gambar berikut:

Source Code VB 6 Random Huruf dan Angka

Demikianlah artikel tentang Source Code VB 6 Random Huruf dan Angka, penulis harap dapat bermanfaat bagi pengunjung sekalian.

Jangan lupa berkunjung lagi pada blog ini dan simak artikel menarik lainnya, penulis akan memposting aneka pelajaran lain di lain hari. Terima Kasih

Salam Hangat Semoga Anda Bisah Membuat Aplikasi Sekala Besar Nantinya.

Contoh Skripsi Fuzzy C-Means Dan Metode AHP

Contoh Skripsi Fuzzy C-Means Dan Metode AHP - Pada arkitel kali ini, penulis bermaksud ingin membagikan hasil karya, artikel ini dibuat berdasarkan skripsi mahasiswa yang penulis buat, dan syukurlah sudah wisudah di bulan 3 - 2016 kemarin, di salah satu universitas di Bengkulu.

Adapun judul dari skripsi yang penulis garap kemarin berjudul "

KOMBINASI METODE FUZZY C-MEANS CLUSTERING DAN METODE AHP (ANALYTIC HIERARCHY PROCESS) UNTUK PEMILIHAN CALON PENYELENGGARA PEMILIHAN UMUM

Program apklikasi ini di buat menggunakan Microsoft Visual Basic 6.0, dan laporan di buat menggunakan Cristal Refort 8.5. 

Adapun Abstrak dari skripsi pada artikel ini adalah sebagai berikut:

Tempat dan waktu penelitian dilakukan Kelurahan Pasar Baru Kota Bengkulu, metode yang digunakan dalam penelitian ini adalah metode fuzzy c-means clustering dan metode AHP (Analytic Hierarchy Process). Permasalahan yang akan diselesaikan yaitu bagaimana merancang sebuah sistem pendukung keputusan dengan menggunakan metode kombinasi Fuzzy C-Means (FCM) dan Analytic Hierarchy Process (AHP) untuk Pemilihan Calon Penyelenggara Pemilihan Umum.

Dari pembahasan didapat kesimpulan bahwa kombinasi Metode Fuzzy C-Means Clustering Dan Metode Ahp (Analytic Hierarchy Process) untuk pemilihan calon penyelenggara pemilihan umum yang dibangun menggunakan bahasa pemrograman Visual Basic 6.0, dapat menjadi solusi alternatif dalam membantu proses pemilihan calon penyelenggara pemilihan umum, sehingga proses pemilihan calon penyelenggara pemilihan umum yang di inginkan lebih mudah.

Place and research time done/conducted by Sub-District Of New Market of Town of Bengkulu, method which is used in this research is method of fuzzy clustering c-means and method of AHP (Analytic Hierarchy Process). Problems to be finished by that is how designing a system supporter of decision by using combination method of Fuzzy C-Means (FCM) and of Analytic Hierarchy Process (AHP) for the Election of Candidate Organizer of General Election.

From solution got by conclusion that Method combination of Fuzzy C-Means Clustering And Method of AHP (Analytic Hierarchy Process) for the election of candidate organizer of woke up general election use Language of program Visual of Basic 6.0, can become alternative solution in assisting process election of candidate organizer of general election, so that process election of candidate organizer of general election which in wishing is easier.

Hasil dan Pembahasan pada BAB IV pada skripsi ini adalah sebagai berikut:

Tampilan Menu Utama

Pada Menu ini terdapat tombol data calon, tombol data syarat, tombol proses C-Means, tombol proses AHP, tombol hasil seleksi, tombol daftar calon dan tombol keluar.Adapun bentuk dari tampilan menu utama dapat terlihat pada gambar ini:

Tampilan Menu Utama

Tampilan Menu Input Data Calon

Menu input data calon berfungsi untuk menambahkan data calon calon dengan menginputkan kode calon, nama dan lainnya, apabila telah selesai di inputkan maka dilanjutkan dengan mengkilk tombol simpan untuk menyimpan data ke dalam database, sedangkan untuk merubah/ mengoreksi data, dengan cara memilik data calon berdasarkan kode calon lalu merubah data yang diinginkan, selanjutnya mengklik tombol koreksi. Untuk menghapus data dengan cara memilih data calon berdasarkan kode calon dan kemudian mengklik tombol hapus. Dapat dilihat pada gambar di bawah ini:

Input Data Calon

Tampilan Menu Input Data Syarat

Menu input data syarat berfungsi untuk menginputkan syarat menjadi calon penyelenggara pemilihan umum dengan memilih tombol tambah untuk menambah data dan akan tersimpan kedalam database. tombol koreksi untuk mengubah data yang telah di inputkan maka pilih koreksi dan tombol hapus untuk mengahapus data yang telah tersimpan, Dapat dilihat pada gambar dibawah ini:

Input Data Syarat

Tampilan Menu Proses C-Means

Menu ini berfungsi untuk melakukan proses pengelompokan data calon penyelenggara pemilihan umum menggunakan fuzzy c-means. Pada menu ini terdapat 7 calon penyelenggara pemilihan umum yang telah di inputkan melalui input data calon penyelenggara pemilihan umum untuk di seleksi dan terdapat empat kriteria sebagai penyeleksi data calon penyelenggara pemilihan umum. Adapun kriteria-kriteria tersebut adalah sebagai berikut:

1. Pendidikan Akhir (K1)
2. Pengalaman (K2)
3. Kesehatan (K3)
4. Nilai Test (K4)

Adapun prosedur pengelompokan data berdasarkan keempat kriteria diatas adalah sebagai berikut:

1. Jika Pendidikan Akhir = SLTA, maka target pengelompokan Pendidikan Akhir = SLTA dan D3 dan S1 dan S2 dan S3
2. Jika Pendidikan Akhir = D3, maka target pengelompokan Pendidikan Akhir = D3 dan S1 dan S2 dan S3
3. Jika Pendidikan Akhir = S1, maka target pengelompokan Pendidikan Akhir = S1 dan S2 dan S3
4. Jika Pendidikan Akhir = S2, maka target pengelompokan Pendidikan Akhir = S2 Dan S3
5. Jika Pendidikan Akhir = S3, maka target pengelompokan Pendidikan Akhir = S3
6. Jika Pengalaman = Ada, maka target pengelompokan Pengalaman = Ada
7. Jika Pengalaman = Tidak Ada, maka target pengelompokan Pengalaman = Tidak Ada dan Ada
8. Jika Kesehatan = Kurang, maka target pengelompokan Kesehatan = Kurang dan Cukup dan Baik
9. Jika Kesehatan = Cukup, maka target pengelompokan Kesehatan = Cukup dan Baik
10. Jika Kesehatan = Baik, maka target pengelompokan Kesehatan = Baik
11. Jika Nilai Test = 50, maka target pengelompokan Nilai Test = 50 sampai dengan 100
12. Jika Nilai Test = 55, maka target pengelompokan Nilai Test = 55 sampai dengan 100
13. Jika Nilai Test = 60, maka target pengelompokan Nilai Test = 60 sampai dengan 100
14. Jika Nilai Test = 65, maka target pengelompokan Nilai Test = 65 sampai dengan 100
15. Jika Nilai Test = 70, maka target pengelompokan Nilai Test = 70 sampai dengan 100
16. Jika Nilai Test = 75, maka target pengelompokan Nilai Test = 75 sampai dengan 100
17. Jika Nilai Test = 80, maka target pengelompokan Nilai Test = 80 sampai dengan 100
18. Jika Nilai Test = 85, maka target pengelompokan Nilai Test = 85 sampai dengan 100
19. Jika Nilai Test = 90, maka target pengelompokan Nilai Test = 90 sampai dengan 100

Adapun bentuk dari tampilan menu proses menggunakan fuzzy c-means dapat dilihat pada gambar dibawah ini:

Proses C-Means

Tampilan Menu Proses AHP

Menu ini berfungsi untuk melakukan proses seleksi data calon penyelenggara pemilihan umum. Data yang di seleksi adalah data yang telah dikelompokkan dengan menggunakan metode fuzzy C-Mean pada menu proses C-Means. Nilai bobot pada setiap kriteria ditentukan oleh admin. Adapun kriteria tersebut adalah sebagai berikut:

a. Pendidikan Akhir (K1)

b. Pengalaman (K2)

c. Kesehatan (K3)

d. Nilai Test (K4)

Proses AHP

Tampilan Laporan Hasil Seleksi

Laporan ini merupakan laporan hasil seleksi data calon penyelenggara pemilihan umum yang telah dilakukan menggunakan metode AHP, terdapat dua calon penyelenggara yang layak menjadi penyelenggara pemilihan umum dan dua calon penyelenggara yang tidak layak menjadi penyelenggara pemilihan umum, dapat dilihat pada gambar dibawah ini:

Hasil Seleksi

Tampilan Laporan Daftar Calon

Laporan daftar calon merupakan laporan keseluruhan calon pengikut seleksi calon penyelenggara pemilihan umum, dapat dilihat pada gambar dibawah ini:

Daftar Calon

Demikianlah artikel Contoh Skripsi Fuzzy C-Means Dan Metode AHP ini, penulis rasa pembaca suda paham apa isi dan tujuan dari judul skripsi pada artikel ini, barangkali ada yang ingin aplikasi atau skripsi dari artikel ini secara lengkap dan siap pakai, pembaca dapat mendownloadnya dari link dibawah ini:

Skripsi Full : Dropbox   Ziddu
Program Aplikasi VB 6.0 : Dropbox    Ziddu

Akhir kata penulis ucapkan terima kasih telah berkunjung di blog ini

Skripsi Sistem Administrasi Keuangan Full VB Project

Aplikasi Perangkat Lunak Administrasi Keuangan Pada SMK S-17 Budi Mulia Kota Bengkulu

Pada artikel kali ini, penulis ingin berbagi skripsi tentang aplikasi perangkat lunak administrasi keuangan menggunakan aplikasi visual basic 6.0. Artikel ini dibuat untuk membantu saudara-saudaraku yang lagi pusing nyusun skripsi, terutama yang terkait dengan judul aplikasi perangkat lunak administrasi keuangan menggunakan aplikasi visual basic 6.0. Artikel ini dibuat dikarenakan ada banyak inbox teman-teman facebook yang minta tolong soal judul ini, disini penulis rasa, di luar dari teman akrab penulis, barang kali masih ada teman yang lain membutuhkan.

Adapun bentuk program yang telah penulis buat dapat anda lihat pada gambar dibawah ini:

Tampilan Menu Transaksi

Laporan Tagihan Siswa

Isi dari BAB I Skripsi ini adalah sebagai berikut:

BAB 1 PENDAHULUAN

1.1 Latar Belakang

Pesatnya Perkembangan ilmu pengetahuan dan teknologi saat ini mendorong setiap individu untuk lebih memiliki intelektualitas dan integritas yang tinggi, Pada era globalisasi ini pengaruh teknologi sangat pesat, komputer menjadi barang yang sangat berperan dalam kehidupan manusia baik dalam bidang pendidikan, perkantoran, kesehatan dan lain sebagainya. Perkembangan komputer yang ada pada saat ini tidak dapat dipungkiri telah membantu karyawan dalam pengolahan data maupun penyajian informasi. Dengan adanya komputer, karyawan dapat bekerja lebih optimal apabila dibandingkan dengan menggunakan mesin ketik biasa maupun pencatatan-pencatatan buku besar.

Perangkat lunak atau Software dapat menyajikan informasi yang begitu cepat dan akurat melalui proses pengolahan data yang cepat pula. Dengan adanya sistem informasi yang baik, suatu instansi baik pemerintahan maupun swasta dapat memberikan daya saing yang baik terhadap pelayanan akan akses yang dihasilkan melaui berbagai laporan-laporan secara  elektronik.

Visual Basic merupakan Software yang banyak dipakai oleh programmer untuk membuat suatu program karena kemampuannya dalam menginput, mengolah serta memproses suatu pekerjaan agar lebih mudah.

Perkembangan teknologi informasi saat ini banyak menciptakan sistem-sistem untuk mempermudahkan pekerjaan,akan tetapi masih banyak juga orang yang belum memanfaatkan teknologi-teknologi ini. Selama ini SMK S-17 Budi Mulia Kota bengkulu dalam administrasi keuangan masih mengggunakan proses manual, dan mengakibatkan proses transaksi keuangan  menjadi rumit dan proses pencatatan, penyimpanan data pada keuangan  disimpan dalam bentuk manual yang masih ditulis di buku-buku besar, sehingga petugas terkadang mengalami kesulitan dalam mencari data-data siswa yang sudah dan belum membayar, dan petugas pun terkadang kesulitan dalam pembuatan laporan yang tepat dan akurat.

Berdasarkan uraian diatas maka penulis Tertarik untuk mengangkat judul Proposal yaitu “Aplikasi Perangkat Lunak Administrasi Keuangan pada SMK S-17 Budi MUlia Kota Bengkulu“.

1.2 Rumusan Masalah

Berdasarkan latar belakang diatas maka rumusan masalah dalam pembuatan proposal skripsi ini adalah bagaimana pembuatan aplikasi perangkat lunak administrasi keuangan pada SMK S-17 Budi Mulia Kota Bengkulu Menggunakan Microsoft Visual Basic 6. 0. 

1.3 Batasan Masalah

Agar permasalahan dalam penelitian ini tidak menyimpang, maka penulis membatasi masalah pada pembuatan perangkat lunak administrasi keuangan siswa kelas 1, kelas 2, dan kelas 3 pada SMK S-17 Budi Mulia Kota Bengkulu menggunakan Microsoft Visuak Basic 6.0.

1.4 Tujuan Penelitian

1.4.1 Tujuan Umum

Sebagai salah satu syarat untuk melanjutkan skripsi pendidikan program strata satu (S1) Program Studi Teknik Informatika Fakultas Ilmu Komputer pada Universitas Dehasen (UNIVED) Kota Bengkulu.

1.4.2  Tujuan Khusus

Adapun tujuan khusus yang hendak dicapai dalam penelitian adalah untuk membuat Aplikasi Perangkat Lunak Administrasi Keuangan  pada SMK S-17 Budi Mulia Kota Bengkulu. 

1.5 Manfaat Penelitian

1.5.1  Bagi Para Guru di SMK S-17 Budi Mulia Kota Bengkulu

Dengan adanya Aplikasi  ini diharapkan dapat  berguna bagi petugas Tata usaha sekolah untuk mendukung aktivitas administrasi keuangan.

1.5.2  Bagi penulis

1. Dengan adanya penelitian ini dapat meningkatkan ilmu pengetahuan penulis mengenai Sistem yang bisa digunakan  Untuk administrasi keuangan agar lebih efektif dalam pengolahan laporan berbasis Visual Basic
2. Sebagai syarat dalam menyusun  skripsi yang merupakan syarat mutlak untuk mendapatkan gelar strata satu (S1) Universitas Dehasen Bengkulu

1.5.3  Bagi Pembaca

Dapat memberikan pengetahuan mengenai pembuatan aplikasi perangkat lunak administrasi keuangan Menggunakan Microsoft Visual Basic 6.0 dan dapat dijadikan panduan dalam pembuatan Proposal Skripsi.

Untuk mendownload skripsi ini anda dapat melalui link dibawah ini:

Skripsi Full (Word 2007)
VB Project Full (Administrasi-SMK-VB6)