Tuesday, September 20, 2016

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:

Source Code VB6 Penerapan Algoritma Fuzzy C-Means
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
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

Sunday, September 4, 2016

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:
SISTEM PERSEDIAAN OBAT PADA PUSKESMAS MENGGUNAKAN METODE NAÏVE BAYES
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. 
SISTEM PERSEDIAAN OBAT PADA PUSKESMAS MENGGUNAKAN METODE NAÏVE BAYES
Diagram Konteks

B. Data Flow Diagram Level 0
SISTEM PERSEDIAAN OBAT PADA PUSKESMAS MENGGUNAKAN METODE NAÏVE BAYES
Gambar 3.3. Data Flow Diagram Level0
C. ERD (Entity Relationship Diagram)

SISTEM PERSEDIAAN OBAT PADA PUSKESMAS MENGGUNAKAN METODE NAÏVE BAYES
Gambar 3.4. Diagram ERD

Monday, August 1, 2016

Aplikasi Pencarian Peminjaman Buku Menggunakan Visual Basic 6.0

APLIKASI PENCARIAN UNTUK PROSES PEMINJAMAN BUKU PADA PERPUSTAKAAN WILAYAH PROVINSI BENGKULU MENGGUNAKAN VISUAL BASIC 6.0




BAB I
PENDAHULUAN


1.1. Latar Belakang

Dalam menghadapi zaman yang semakin berkembang dan teknologi yang semakin canggih seperti sekarang ini, membuat kita untuk mampu meningkatkan kualitas hasil kerja, serta bisa menyelesaikan pekerjaan dengan cepat dan efektif, maka memerlukan paralatan yang lebih baik, komputer merupakan salah-satu bentuk perkembangan teknologi canggih dan berupa seperangkat alat yang digunakan sebagai media informasi dan dapat mengelolah data. Komputer mempunyai kecepatan yang mampu menghasilkan data yang lebih baik tanpa mengurangi nilai data tersebut.
Pada setiap provinsi yang ada di Indonesia mempunyai perpustakaan wilayah, perpustakaan wilayah merupakan instansi pemerintah yang bergerak dibidang perbukuan yang siap melayani masyarakat, khususnya pelajar dan mahasiswa dengan syarat pinjam yang di tentukan, Perpustakaan Wilayah Provinsi Bengkulu merupakan perpustakaan umum terbesar di Provinsi Bengkulu yang beralamatkan di jalan Mahoni No. 11 Provinsi Bengkulu yang memiliki ribuan aneka ragam buku siap pinjam yang selama ini sistem pencarian buku yang tersimpan pada rak-rak buku yang tersusun berdasarkan jenis buku, sementara jumlah buku yang lumayan banyak sehingga sulit untuk mencari buku yang dinginkan dan ini penulis anggap memerlukan banyak waktu untuk melakukan pencarian manual buku yang diingiinkan, Berdasarkan uraian diatas, maka penulis tertarik untuk mengangkat judul “Aplikasi Pencarian Untuk Proses Peminjaman Buku Pada Perpustakaan Wilayah Provinsi Bengkulu Menggunakan Visual Basic 6.0”


1.2. Rumusan Masalah

Berdasarkan latar belakang di atas, maka dapat dirumuskan masalah yang diangkat yaitu: bagaimana membuat Aplikasi Pencarian Untuk Proses Peminjaman Buku Pada Perpustakaan Wilayah Provinsi Bengkulu Menggunakan Visual Basic 6.0? 

1.3. Batasan Masalah

Agar penelitian ini lebih terarah dan permasalahan yang dihadapi tidak terlalu luas serta sesuai dengan tujuan, maka di tetapkan batasan terhadap sistem yang diteliti. Adapun batasanya adalah sebagai berikut:
  1. Pembuatan aplikasi pencarian untuk proses peminjaman buku pada Perpustakaan Wilayah Provinsi Bengkulu menggunakan Visual Basic 6.0.
  2. Dibangun menggunakan bahasa pemrograman Visual Basic 6.0
  3. Penelitian dilakukan di perpustakaan wilayah Provinsi Bengkulu.
  4. Data yang diolah adalah data buku pada Perpustakaan Wilayah Provinsi Bengkulu.

1.4. Tujuan Penelitian 

Tujuan utama diadakannya serta dilakukannya penelitian ini adalah untuk membuat aplikasi pencarian untuk proses peminjaman buku pada perpustakaan wilayah Provinsi Bengkulu Menggunakan Visual Basic 6.0.
1. Tujuan umum
  1. Untuk membantu pihak perpustakaan wilayah dalam mencari buku  dengan cepat untuk proses peminjaman buku.
  2. Membuat aplikasi pencarian untuk proses peminjaman buku pada Perpustakaan Wilayah Provinsi Bengkulu Menggunakan Visual Basic 6.0 
2. Tujuan Khusus
  1. Menyelesaikan studi pendidikan di Universitas Muhammadiyah Bengkulu.
  2. Sebagai bahan acuan atau perbandingan dalam penyusunan yang sama.

1.5. Manfaat Penelitian

Hasil dari penelitian ini diharapkan dapat memberi manfaat dan di jadikan sebagai media untuk mencari buku dan untuk proses peminjaman buku pada perpustakaan wilayah Provinsi Bengkulu dengan cepat dan akurat.
1. Bagi Penulis
Sebagai tambahan ilmu pengetahuan di bidang informatika serta menciptakan sistem aplikasi baru yang nantinya dapat berguna bagi Perpustakaan Wilayah Provinsi Bengkulu dalam pencarian buku dan proses peminjaman buku dengan cepat.
2. Bagi Perpustakaan Wilayah Provinsi Bengkulu
Dengan adanya aplikasi ini, penyelesaian pekerjaan Perpustakaan Wilayah Provinsi Bengkulu dalam proses pencarian dan proses peminjaman buku akan mudah dan cepat.
3. Bagi Pembaca
Dapat dijadikan sebagai referensi bahan acuan untuk menambah pengetahuan dan mengetahui bagaimana cara membuat Aplikasi Pencarian Untuk Proses Peminjaman Buku Pada Perpustakaan Wilayah Provinsi Bengkulu Menggunakan Visual Basic 6.0.

1.2. Rumusan Masalah

Berdasarkan latar belakang di atas, maka dapat dirumuskan masalah yang diangkat yaitu: bagaimana membuat Aplikasi Pencarian Untuk Proses Peminjaman Buku Pada Perpustakaan Wilayah Provinsi Bengkulu Menggunakan Visual Basic 6.0? 

1.3. Batasan Masalah

Agar penelitian ini lebih terarah dan permasalahan yang dihadapi tidak terlalu luas serta sesuai dengan tujuan, maka di tetapkan batasan terhadap sistem yang diteliti. Adapun batasanya adalah sebagai berikut:
  1. Pembuatan aplikasi pencarian untuk proses peminjaman buku pada Perpustakaan Wilayah Provinsi Bengkulu menggunakan Visual Basic 6.0.
  2. Dibangun menggunakan bahasa pemrograman Visual Basic 6.0
  3. Penelitian dilakukan di perpustakaan wilayah Provinsi Bengkulu.
  4. Data yang diolah adalah data buku pada Perpustakaan Wilayah Provinsi Bengkulu.


1.4. Tujuan Penelitian 

Tujuan utama diadakannya serta dilakukannya penelitian ini adalah untuk membuat aplikasi pencarian untuk proses peminjaman buku pada perpustakaan wilayah Provinsi Bengkulu Menggunakan Visual Basic 6.0.
1. Tujuan umum
  • Untuk membantu pihak perpustakaan wilayah dalam mencari buku dengan cepat untuk proses peminjaman buku.
  • Membuat aplikasi pencarian untuk proses peminjaman buku pada Perpustakaan Wilayah Provinsi Bengkulu Menggunakan Visual Basic 6.0 
2. Tujuan Khusus
  • Menyelesaikan studi pendidikan di Universitas Muhammadiyah Bengkulu.
  • Sebagai bahan acuan atau perbandingan dalam penyusunan yang sama.

1.5. Manfaat Penelitian

Hasil dari penelitian ini diharapkan dapat memberi manfaat dan di jadikan sebagai media untuk mencari buku dan untuk proses peminjaman buku pada perpustakaan wilayah Provinsi Bengkulu dengan cepat dan akurat.
1. Bagi Penulis
Sebagai tambahan ilmu pengetahuan di bidang informatika serta menciptakan sistem aplikasi baru yang nantinya dapat berguna bagi Perpustakaan Wilayah Provinsi Bengkulu dalam pencarian buku dan proses peminjaman buku dengan cepat.
2. Bagi Perpustakaan Wilayah Provinsi Bengkulu
Dengan adanya aplikasi ini, penyelesaian pekerjaan Perpustakaan Wilayah Provinsi Bengkulu dalam proses pencarian dan proses peminjaman buku akan mudah dan cepat.
3. Bagi Pembaca
Dapat dijadikan sebagai referensi bahan acuan untuk menambah pengetahuan dan mengetahui bagaimana cara membuat Aplikasi Pencarian Untuk Proses Peminjaman Buku Pada Perpustakaan Wilayah Provinsi Bengkulu Menggunakan Visual Basic 6.0.
Untuk Info Lengkap tentang Aplikasi Pencarian Peminjaman Buku Menggunakan Visual Basic 6.0

Hubungi di:
Facebook : Mesa Bkl
E-Mail      : mesakomputer@gmail.com
HP           : 0853-6789-7220


Download Judul Skripsi Teknik Informatika Siap Bimbingan

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
Download Judul Skripsi Teknik Informatika Siap Bimbingan I

Download Judul Skripsi Teknik Informatika Siap Bimbingan
Download Judul Skripsi Teknik Informatika Siap Bimbingan II

Download Judul Skripsi Teknik Informatika Siap Bimbingan
Download Judul Skripsi Teknik Informatika Siap Bimbingan III

Download Judul Skripsi Teknik Informatika Siap Bimbingan
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

    Saturday, July 30, 2016

    Download Link

    klik Youtube dibawah Untuk Download Skripsi Lengkap (FULL)
    Subscribe dulu account youtube dibawah, setelah itu, konfirmasi ke facebook: Mesa Bkl.
    Penulis akan mengecek apakah anda benar-benar telah mensubscrice.
    Jika di nyatakan anda telah mensubscrice account youtube ; mesa bkl, maka penulis siap memberikan data yang anda butuhkan (1).



    Terima kasih

    Friday, July 29, 2016

    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
    Aplikasi Penilaian Rapor Siswa Pada SMP Menggunakan VB 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...............

    Tuesday, June 28, 2016

    Mengenal beberapa macam virus yang mengangu komputer anda

    http://pemerogaman.blogspot.com/
    APAKAH VIRUS ITU??
    Virus adalah sebuah progam perangkat lunak kecil yang bisa menyebar ke seluruh pemerogman komputer anda dan mengangunya. Alhasil komputer anda akan segera terinfeksi virus dan tingal menunggu waktu saja untuk kerusakan komputer anda.
    Komputer terifeksi Virus melalui INTERNET (Browsing) yang mengunjungi situs web yang sudah terinfeksi virus,atau mendownload file yang sudah terjangkit virus,bisa pula dari kita menghubungkan USB yang sdah terjangkit Virus.
    APAKAH MALWARE ITU?
    Malware adalah sebuah istilah yang biasa digunakan untuk  perangkat lnak yang berbahaya dan sudah dirancang untuk merusak atau melakukan sebuah tindakan yang tidak diinginkan oleh sistem komputer dan pengunannya.Ini lah beberapa perangkat lunak yang berbahaya :
    Ø  Virus
    Ø  Worm
    Ø  Kuda Troya
    Ø  Spyware
    Ø  Dan perangkat lunak berbahaya lainnya
    APAKAH YANG DIMAGSUD WORM??
    Worm adalah sebuah virus yang merusak simtem jaringan  dan stabilitas jarngan tersebt. Worm ini biasanya dimulai saat kita browsing /saat terhubung internet dan saat itu pul lah worm masuk dan menganggu sistem jaringan anda. Sebagai contoh adalah saat anda  membuka buku halaman atau halaman web sementara yang berisi alamat email Worm menggunakan alamat email tersebut untuk mengirim email yang terinfeksi, dan sering meniru (atau mengalihkan) Alamat "Dari" dalam pesan email sehingga pesan yang terinfeksi tersebut nampak seolah dari seseorang yang Anda kenal. Kemudian worm akan menyebar secara otomatis melalui pesan email, jaringan, atau kerentanan sistem operasi, dan seringnya memenuhi sistem-sistem tersebut sebelum penyebabnya diketahui.
    Apakah kuda troya itu?
    Kuda troya merupakan program perangkat lunak berbahaya yang bersembunyi di dalam program lain. Program ini memasuki komputer dengan bersembunyi di dalam program yang sah, seperti screen saver. Kemudian dia akan menaruh kode ke dalam sistem operasi yang memungkinkan hacker untuk mengakses komputer yang terinfeksi. Kuda troya biasanya tidak menyebar sendiri. Mereka disebar oleh virus, worm, atau perangkat lunak yang diunduh.
    Apakah spyware itu?
    Spyware dapat diinstal ke dalam komputer tanpa sepengetahuan Anda. Program ini dapat mengubah konfigurasi komputer Anda atau mengumpulkan data iklan dan informasi pribadi. Spyware bisa melacak kebiasaan pencarian internet dan juga dapat mengarahkan browser web Anda ke situs-situs yang berbeda dari yang Anda ingin kunjungi.
    Apakah perangkat lunak keamanan berbahaya itu?
    Perangkat lunak keamanan berbahaya akan berusaha membuat Anda berpikir bahwa komputer Anda terserang virus dan biasanya menyuruh Anda untuk mengunduh atau membeli produk yang menghapus virus. Nama produk ini sering berisi kata-kata seperti Antivirus, Shield, Security, Protection, atau Fixer. Nama-nama itu yang membuat program tersebut terkesan sah. Perangkat lunak itu seringnya berjalan tepat setelah Anda mengunduhnya, atau waktu berikutnya setelah komputer Anda menyala. Perangkat lunak keamanan berbahaya dapat mencegah Anda membuka aplikasi, contohnya Internet Explorer. Perangkat lunak keamanan berbahaya juga dapat menampilkan file Windows yang sah dan penting sebagai terinfeksi. Pesan kesalahan atau pesan pop-up biasanya berisi Tentang sebuah pringatan.

    =>Turtorial Cara Instal Xampp Di Windows

    =>Cara Memberi Password dengan Winrar pada Dokumen Anda

    Tutorial Memperbaiki Windows 7 Black Screen yand di karenakan viruss


    http://pemerogaman.blogspot.com/
    Memperbaiki Windows 7 Black Screen
    Memperbaiki Windows 7 Black Screen yand di karenakan viruss / file yang tedetek oleh Antvirus
    Cara memperbaiki Windows 7 Black Screen ini saya tulis berdasarkan kejadian kemaren ketika memperbaiki komputer dengan OS Windows 7 yang hanya menampilkan layar hitam (black screen) pada monitor. Windows 7 Black Screen ini terjadi setelah user berhasil login tetapi windows tidak bisa start up secara normal, yang ada hanya tampilan layar gelap dengan kursor mouse yang masih bisa digerak-gerakan.
    Untuk memperbaiki windows 7 black screen tersebut saya mencoba masuk ke Windows Safe Mode, tetapi kejadiannya tetap sama, windows hanya menampilakan layar hitam dan tidak bisa diapa-apain lagi. Akhirnya saya keluarkan jurus berikutnya dalam tahap perbaikan komputer yaitu dengan mencoba mengembalikan setingan Windows ke kondisi sebelumnya lewat utility System Restore, dan Alhamdulillah dengan cara ini error windows 7 black screen bisa diperbaiki.

    Berikut cara saya memperbaiki tampilan Windows 7 Black Screen dengan menggunakan utility System Restore:
    Seperti biasa, masuk ke menu Advance Boot Option dengan menekan tombol F8 pada saat Windows akan startup.
     -   Pilih Repair Your Computer
     -   Pada jendela System Recovery Option pilih (klik) tool System Restore
     -   Pilih Restore Point yang merupakan tanggal dimana setingan Windows akan dikembalikan (restore). Untuk melihat restore point yang lain bisa dilakukan dengan mengklik tombol Show more restore points. Klik Next untuk melanjutkan.
     Ikuti langkah berikutnya dimana Windows akan merestart dan memulai proses restore Setelah proses restore system windows berhasil, kita coba untuk login lagi. Apabila tidak bisa login, misal karena ada service yang tidak berfungsi coba komputer direstart kembali.Dengan cara diatas kerusakan Windows 7 Black Screen berhasil diperbaiki.
    Selain dengan menggunakan utility System Restore, untuk memperbaiki Windows 7 Black Screen ini kita juga bisa menggunakan cara sebagai berikut:
    Download terlebih dahulu aplikasi fixshell.exe disini Masuk ke menu Advance Boot Option dengan menekan F8 dan pilih Windows Safe Mode with Command Prompt. Jalankan perintah: sfc/ scannow untuk memperbaiki windows system file dan mengembalikan explorer.exeApabila jendela windows explorer sudah bisa berfungsi, jalankan aplikasi fixshell.exe diatas.Restart Komputer.

    Demikianlah cara untuk memperbaiki tampilan Windows 7 Black Screen atau dikenal juga dengan istilah Black Screen Of Death (BSOD), yaitu dengan menggunakan utility system restore atau aplikasi fixshell. Semoga bisa membantu.. !!

    =>Cara Memberi Password dengan Winrar pada Dokumen Anda

    =>Mengenal bahasa pemerogaman PHP

    =>Mengenal beberapa macam virus yang mengangu komputer anda

    Tutorial Cara Memberi Password dengan Winrar pada Dokumen Anda


    http://pemerogaman.blogspot.com/
    Cara Membuat Password dengan Winrar pada file Seiriing berkembangnya Teknologi yang semakin canggih dan Sering kainnya mengunggah file ke internet, atapun hanya membuat sekedar dokumen di Kmuter kerja anda saja tidak akan lepas dari yang namanya resiko data, file dokumen, password, dan sebagainya akan bisa hilang diambil leh orang lain. Dan untuk itu kita harus lebih Extra berhati-hati dan waspada terhadap ancaman seperti hal tersebut. Unggah file ke internet biasanya kita lakukan dengan berbagai sebab dan alasan, diantaranya ingin berbagi file bersama teman, Mengirim file penting, atapun buat backup data komputer ke internet.
    Ada berbagai cara untuk bisa menjaga keamanan data-data/dokumen kita dan yang paling umum dan sering digunakan yaitu adalah memberikan password pada dokumen file tersebut, seperti dokumen office ataupun file PDF, serta memberikan password pada file WinRAR/WinZip. Dengan memberikan password dengan winRAR pada dokumen, kita bisa lebih merasa aman dari tercurinya data-data penting kita itu. Oleh sebab itu saya akan memberikan tutorial kepada Teman-teman Pemerogaman bagaimana sih cara buat password WinRAR.

    Kenapa harus File WinRAR?. Karena banyak keuntungan pada winrar ini, diantaranya File yang besar bisa sedikit dikompres, Bisa memasukkan banyak dokumen berbeda, Bisa Upload multiple file di dalamnya ke internet sekaligus, dan yang paling penting bisa diberi password yang insyallah tidak mudah untuk ditembus. Dan untuk Selanjutnya silahkan ikuti panduan berikut ini tentang bagaimana cara membuatnya.

    Cara Membuat Password dengan Winrar pada file 
    1. Siapkan FIle / Dokumen/ Aplikasi yang ingin dijadikan ke WinRAR dan diberikan password, saya contohkan beberapa langkahnya : 

    2. Lalu klik kanan pada file tersebut kemudian klik>> Add to Archive.

    3. Lalu Pilih tab Advanced kemudian klik>> Set Password.

    4. Lalu masukkan password yang diinginkan, lalu klik OK , .....nah sekarang dokumen anda telah menjadi File rar yang berpassword.

     5. Nah, untuk membuktikan apakah sudah berhasil, silahkan buka file Winrar yang baru saja dibuat. Jika terdapat tanda bintang (*) di ujung file, berarti WinRAR sudah berpassword. Silahkan klik 2 kali salah satu file tersebut, nanti akan dimnta password. Masukkan password yang sobat buat. Kalau passwordnya sesuai maka file akan terbuka.
     6. Sampai pada langkah 5 di atas memberikan password pada WinRAR sudah selesai, JIka masih bingung silahkan lihat Video Tutorial di Bawah ini,

    Semoga panduan lengkap Cara Membuat Password dengan Winrar pada file di atas bisa bermanfat buat menjaga keamanan file/dokumen sobat dari gangguann yang tidak terduga. Silahkan bertanya jika ada kesulitan saya akan coba membantu. Silahkan klik share facebook atau twitter di sebelah kanan atas untuk membagi informasi ini ke teman-teman sobat. Terima kasih dan semoga bermanfaat.

    =>Turtorial Cara Instal Xampp Di Windows

    =>Mengenal bahasa pemerogaman PHP

    =>Memperbaiki Windows 7 Black Screen yand di karenakan viruss

    Tutorial Cara Mudah Instalasi Windows 8 Dengan Menggunakan Flashdisk


    http://pemerogaman.blogspot.com/
    Cara Instalasi Windows 8 Dengan Menggunakan Flashdisk
    Mengintal windows pada notebook atau pada laptop kesayangannya dengan menggunakan flashdisk, berikut langkah-langkah yang harus Anda tempuh tahap demi tahap, dan ikuti di setiap langkah-langkahnya.
    ALAT-ALAT YANG DIPERLUKAN
    ü  CD instalasi Windows 8.1nya ( bagi yang belum mempunyai sistem windows 8.1 pro dapat mendownload dulu atau bahkan Anda dapat membelinya dari microsoft pada saluran resmi Microsoft yang sudah tersedia).
    ü  USB Flashdisk kapasitas 4GB
    ü  Software RUFUS.
    ü  Catatan : Sebelumnya Anda harus mem-Backup terlebih dahulu USB flashdisk Anda. Apabila ada file-file yang penting pada flaskdisk. kami harapkan untuk memindahkannya. Karena kemudian kita akan memformat nya.
    LANGKAH-LANGKAH MENGGUNAKAN RUFUS
    1.Pertama, masukkan flashdisk yang berkapasitas minimal 4GB tadi pada komputer atau Notebook yang memiliki sistem operasi Windows 8.1. Sekali lagi Anda harus memastikan data-data didalam falshdisk sudah dibackup atau diamankan.
    2.Kedua,  Jalankan aplikasi rufus yang telah Anda download tadi.
    3.Ketiga,  Silahkan Anda pilih USB flashdisk dan pilih file sistem yang akan kita gunakan ialah FAT 32/NTFS, kemudian berikan centang pada mode Quick Format , Create a bootable disk using , dan juga Create extended label and icon files. 
    4.Keempat, arahkan kursor Anda pada ikon drive kecil yang berkolom merah yang berada disamping pilihan Create a bootable disk using,  Dan pilih dimana lokasi tempat penyimpanan file ISO Windows 8.1 yang Anda tempatkan sebelumnya. Dan setelah file sistem Windows 8.1 sudah siap, selamjutnya klik Star, untuk memulai tranfer file-file dari ISO Windows 8.1 kedalam USB. Dan apabila keluar pmberitahuan WARNING: ALL DATA ON DEVICE Falsh Drive. Anda klik saja OK.
    5.Kelima, setelah proses mentranfer file-file kedalam USB flashdisk, USB dapat digunakan untuk menginstal Windows layaknya orang-orang menggunakan CD/DVD. tunggu sampai proses selesai.
    LANGKAH-LANGKAH INSTAL WINDOWS 8.1
    ü  Mula-mula masukkan USB flaskdisk pada port USB yang berfungsi tentunya. yang telah terisikan ISO Windows 8.1 tadi menggunakan Rufus, dan pastikan juga settingan BIOS pada komputer Anda Prioritas boot pertama memakai USB Flaskdisk Windows 8.1 membutuhkan waktu beberapa saat untuk setup, Anda akan menemukan layar sebagian besar hitam yang bisa Anda lihat gambar dibawah ini.
    ü  Setelah selesainya file yang tersalin , kemudian dimulai dengan pengaturan bahasa, waktu, mata uang, dan pengaturan input keyboard yang menurut keinginan Anda gunakan. Dan klik Next.
    ü  Klik tombol Install now untuk memulai proses instalasi windows 8
    ü  Kemudian Anda akan dimintai untuk memasukkan kunci produk guna untuk mengaktifkan instalasi Windows 8.1. Ketikan kunci produk yang telah Anda beli dan kemudian klik Next. jika dalam pembelian versi enceran windows 8.1, kunci produk  dapat Anda temukan didalam kemasan cakram instalasi, kunci produk yang sama akan diminta ketika proses instal selesai Anda lakukan.
    ü  Pada langkah ini Anda akan dimintai untuk membaca perjanjian lisensi deng kotak yang bertulisan I accept the license terms, contengkan pada kolom tersebut kemudian klik tombol Next.
    ü  Anda akan di minta pilihan diantara dua pilihan yaitu Upgrade atau Instalasi Costum. Pilihlah Custom: Install Windows only (advanced).
    ü  Pada langkah ini Anda akan diminta untuk memilih menempatkan dimana menginstal Windows 8.1. Untuk itu Anda harus memilih partisi yang sesuai Anda inginkan. Dan kemudian klik Next. 
    ü  Dan jika Anda menginstal pada komputer baru seharusnya Anda terlebih dahul membuat partisi baru. dengan itu Anda dapat mengikuti langkah berikutnya untuk membuat partisi baru. Klik Drive Option.
    ü  Buatlah partisi baru pada komputer Anda dengan klik pada New.
    ü  Anda ditujukan untuk menentukan ukuran partisi yang diinginkan dan kemudian klik Apply.
    Perhatian: kami sarankan pada Windowa 8.1 setidaknya memerlukan ruang harddisk sebesar 10 GB. Apabila Anda berkeinginan untuk menginstal aplikasi lain pada partisi yang sama setidaknya Anda menyediakan ruang paling sedikit sebesar 20-30GB.
    ü  Dimana Anda akan dimintai untuk mengkonfirmasi atas partisi baru tambahan yang Anda buat untuk file sistem,  yang akan digunakan untuk proses boot dan pemulihan sistem. langsung klik OK.
    ü  Pastinya Anda sudah memastikan partisi yang terplih sudah benar lalu klik Next.
    Dengan catatan pada partisi yang akan Anda instal windows 8.1 Anda dapat memformat partisi sbelum menekan Next.
    ü  langkah akhir proses instalasi selesai, ini merupakan langkah yang membutuhkan waktu yang lumayan lama, pastikan baterai pada komputer tidak kosong atau Anda bisa untuk menyambungkan ke pengisian baterai, agar tidak terhambat prose instalasi ditengah jalan.
    ü  Setelah proses instalasi selesai, setup windows dengan otomatis akan mereboot sistem, Anda dapat melihat proses persiapan sistem yang akan muncul pada login pertama. Dan sekarang Anda harus menunggu karna ada proses restar beberapa kali . Dan itu juga tergantung pada konfigurasi hardware pada komputer Anda punya masing-masing.
    ü  Personalisasi Instalasi Windows 8.1
    ü  Setelah peroses reboot selesai dilakukan komputer, windows akan mempersiapkan file-file yang dibutuhkan sistem untuk bisa dijalankan, dan memerlukan waktu beberapa menit.
    ü  Tahap selanjutnya setelah proses menyiapkan segala sesuatu untuk windows, Anda akan diminta untuk mengatur personalisasi windows 8.1 Anda.Dimulai dengan memberikan nama untuk komputer Anda. dan ada beberapa karakter yang tidak diterima oleh windows seperti ketikan (*&^%$##@!:<"?-_-~`). Secara otomatis Anda akan diberitahukan karakter kata yang tidak bisa digunakan dalam pembuatan nama untuk komputernya. Setelah memberikan nama buat komputer, Anda dapat memilih warna background yang sesuai dengan selera Anda inginkan. Apabila telah selesai klik Next.
    ü  Jika saat Anda menginstal windows 8.1 pada komputer menggunakan perangkat atau kartu jaringan nirkabel/WIFI, disini Anda akan dimintai untuk memilih jaringan nirkabel untuk menghubungkan dan memasukkan kata sandi yang sesuai dengan koneksi yang tersambung kejaringan tersambung. Apabila Anda yang terhubung dengan melalui kabel ke jaringan, Anda tidak akan melalui langkah tersebut yang terhubung dengan jaringan WIFI.
    ü  Dan langkah selanjutnya, Anda dapat memilih apa menggunakan Express Setting yang sudah dibundel bersama Windows 8.1 atau Anda ingin mengatur pengaturan instalasi nya sesuai keinginan dapat memilih opsi Customize, lalu klik Customize.
    ü  Setelah prose diatas Anda disegerakan untuk mengkonfirmasi untuk mengaktifkan file sharing atau tidak mengaktifkan. dan silahkan Anda memilih opsi yang sesuai keingina Anda.
    ü  Sampai disini Anda akan mengatur pengaturan Windows Update sesuai yang Anda inginkan, dan seperti fitur keamanan, Smartscreen filter itu semua bisa Anda atur dengan selera masing-masing lalu klik Next. Untuk lanjut kelangkah selanjutnya.
    ü  Langkah berikut akan ditanyakan apakah Anda ingin mengirimkan berbagai jenis informasi kepada Microsoft, Anda dapat mengaturnya dengan sesuai preferensi Anda lalu klik Next.
    ü  Masih dalam opsi settingan, Anda juga ditanyai seputar masalah dan pilihan apa yang ingin dinyalakan, Anda juga dapat mengubah atau mengatur aplikasi dapat digunakan nama dan gambar akun dan jika Anda memberika izin untuk mengetahui lokasi Anda. pengaturan tersebut dapat Anda atur sesuai dengan keinginan Anda sendiri. lalu klik Next.
    ü  Kemudian Anda akan diarahkan kepada layar Sign in to your PC. Apabila Anda belum mempunyai akun microsof,Dengan Adanya akun microsoft yang akan digunakan untuk komputer Anda, Anda akan merasakan sepenuhnya operasi sistem windows 8.1 pada komputer Anda. Untuk Sign in langung saja ketikan akun lalu klik Next.
    ü  Dan disini juga Anda yang tidak ingin men-Sign in ke akun Microfoft dapat klik saja pada Sign in without a Microsoft account. Yang berada dibawah jendela dan ikuti saja petunjuk yang akan ditujukan oleh setup wizard.
    ü  selanjutnya Anda juga akan diminta untuk memasukkan akun Microsoft yang telah Anda buat tadi, masukkan akunnya lalu klik Next.
    ü  Langkah selanjutnya, untuk memberikan email serta nomor telepon sebagai alternatif untuk memulihkan account Anda ketika sewaktu-waktu Anda lupa password dan mencegah dari hal yang tidak kita inginkan. silahkan masukkan rincian yang diminta lalu Anda klik Next.
    ü  Langkah berikutnya, Settingan sistem pun selesai tinggal Anda menunggu windows sedang mempersiapkan komputer Anda dalam proses semua pengaturan Settingan tadi.
    ü  Langkah selanjutnya, tampilan tutorial singkat tentang menjalankan atau mengakses Windows akan ditampilkan. Kami sarankan untuk Anda dapat memperhatikan beberapa tutorial tersebut guna untuk dapat memahami petunjuk yang akan ditampilkan pada tahap ini. Anda akan merasakan bagaimana tampilan bar pada windows 8.1.
    ü  Dan tahap selanjut nya setelah tutorial berakhir, disini Anda akan ditampilkan informasi lebih lanjut masalah kemajuan teknologi sistem operasi Windows 8.1 dengan cocokan layar yang beragam dan beberapa pesan yang tersedia pada Windows 8.1.
    ü  setelah langkah-langkah yang Anda lalui dalam instalasi Windows 8.1, tampilan Star Screen Windows 8.1 Akan Anda rasakan sekarang.
    TAMPILAN WINDOWS 8.1

    Jalan pintas untuk menemukan Desktop, Anda cukup dengan menekan tombol Windows + D atau bisa dengan klik pada ubin Desktop.
    Cara instal Windows menggunakan flashdisk sama halnya kita mengintal windows menggunakan CD/DVD
    jadi Anda tak usah meragukan lagi. Apabila saat Instalisasi windows Anda terdapat kendala, Anda dapat meninggalkan nya di kolom komentar, dan kami akan siap untuk membantu Anda. Terimakasih atas kunjungannya, semoga bermanfaat.

    Selamat mencoba !!! 

    =>Turtorial Cara Instal Xampp Di Windows

    =>2 cara mudah menginstall Windows 7 melalui Flashdisk

    =>Inilah Cara-cara Menginstall SQLyog full