e-Book Pemograman GIS Dekstop

Bagi Pemula dalam setiap sesinya anda harus ikuti secara berurutan. Pada sesi awal menjelaskan tentang teori GIS, sesi kedua membahan pengaturan Visual Basic 2010, sesi ketiga membahas tools standar GIS, Sesi keempat membahas sistem project, sesi kelima membahas basis data spasial, sesi keenam membahas pembuatan peta, sesi ketujuh membahas symbol, sesi kedelapan membahas kartugrafi dan sesi Sembilan membahan tools tambahan.

Download eBook GIS : Pemograman GIS

Video Tuturial : Youtube/HidayatulRahman

Download : Source Code 1
Download :  Source Code 2

Aplikasi Monitoring Keuangan

Sahabat semua, dalam kesempatan kali ini saya mencoba membuat aplikasi untuk memonitoring/mengontrol pengeluaran keuangan standar bidang pemerintahan berbasis dekstop dan web. Aplikasi ini sudah saya implemetasikan pada OS windows XP & windows 8 enterprise.

sebelum anda melakukan instalasi terlebih dahulu anda haruang menginstall software pendukungnya yaitu XAMPP dan MySQL ODBC Driver 5.1 untuk aplikasinya anda bisa download di link di bawah ini

1. XAMPP
2. ODBC Driver
3. Database
4. ePayment Web V2.0
5. ePayment Dekstop V 1.0.15
6. Manual Installasi
7. Manual Operasional

Version 2 :

• Target Serapan
• Progres Pengeluaran perbulan, perkegiatan
• Perbadingan Target/Serapan
• Penambahan menu Planing & Perbadingan

Warning: Aplikasi ini boleh anda perbanyak, cetak, edit, print & modifikasi selama tetap mencantumkan URL dan Development Pertama dan Ke dua.

Implementasi Naive Bayes for the Prediction

Mengimplementasikan Algortima Naive Bayes untuk predekis kelulusan mahasiswa dengan variabel yang di gunakan adalah jenis kelamin, status mahasiswa, status pernikahan dan IPK Semester 1-6

langkah awal adalah buat rancangan form seperti gambar di bawa ini;

 

Tabel Property;

Code Program

Option Explicit On

Private Declare Function ShellExecute Lib _

   "shell32.dll" Alias "ShellExecuteA" _

   (ByVal hwnd As Long, _

   ByVal lpOperation As String, _

   ByVal lpFile As String, _

   ByVal lpParameters As String, _

   ByVal lpDirectory As String, _

   ByVal nShowCmd As Long) As Long

Private Const SW_SHOWNORMAL = 1

Public Conn As ADODB.Connection

Dim Rst As New ADODB.Recordset

---

Public Function konek() As Boolean

    On Error GoTo out

    Conn = New ADODB.Connection

    Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Dataset.mdb;Persist Security Info=False")

    Conn.CursorLocation = adUseClient

    konek = True

out:

End Function

---

Private Sub CmdPredeksi_Click()

    Dim ProbiYes, ProbiNo As Double

    Dim Y_Tepat, Y_Terlambat As Integer

    Dim CounDtSet As Integer

    Dim Klm_Tepat, Klm_Terlambat As Integer

    Dim Mhs_Tepat, Mhs_Terlambat As Integer

    Dim Nk_Tepat, Nk_Terlambat As Integer

    Dim Ipk_Tepat, Ipk_Terlambat As Integer

    'total data terning

    Rst.Open("select count(*) as Hsl from Tb_Trening", Conn, adOpenKeyset, adLockOptimistic)

    CounDtSet = Rst!hsl

    Rst.Close()

    'total data trening dengan keterangan TEPAT

    Rst.Open("select count(*) as Hasil from Tb_Trening where KETERANGAN ='TEPAT'", Conn, adOpenKeyset)

    Y_Tepat = Rst!Hasil

    Rst.Close()

    'total data trening dengan keterangan TERLAMBAT

    Rst.Open("select count(*) as Hasil from Tb_Trening where KETERANGAN='TERLAMBAT'", Conn, adOpenKeyset)

    Y_Terlambat = Rst!Hasil

    Rst.Close()

    '**************  JENIS KELAMIN  **********************

    Rst.Open("select count(*) as Hsl from Tb_Trening where KELAMIN = '" & CboKelamin.Text & "' and KETERANGAN ='TEPAT'", Conn, adOpenKeyset)

    Klm_Tepat = Rst!hsl ' 'menampung nilai ke variabel

    Rst.Close()

    Rst.Open("select count(*) as Hsl from Tb_Trening where KELAMIN = '" & CboKelamin.Text & "' and KETERANGAN ='TERLAMBAT'", Conn, adOpenKeyset)

    Klm_Terlambat = Rst!hsl 'menampung nilai ke variabel

    Rst.Close()

    '**************  STATUS MAHASISWA  **********************

    Rst.Open("select count(*) as Hsl from Tb_Trening where STATUS_MHS = '" & CboStatus.Text & "' and KETERANGAN ='TEPAT'", Conn, adOpenKeyset)

    Mhs_Tepat = Rst!hsl ' 'menampung nilai ke variabel

    Rst.Close()

    Rst.Open("select count(*) as Hsl from Tb_Trening where STATUS_MHS = '" & CboStatus.Text & "' and KETERANGAN ='TERLAMBAT'", Conn, adOpenKeyset)

    Mhs_Terlambat = Rst!hsl 'menampung nilai ke variabel

    Rst.Close()

    '**************  STATUS PERNIKAHAN  **********************

    Rst.Open("select count(*) as Hsl from Tb_Trening where ST_PRENIKAHAN = '" & CboNikah.Text & "' and KETERANGAN ='TEPAT'", Conn, adOpenKeyset)

    Nk_Tepat = Rst!hsl ' 'menampung nilai ke variabel

    Rst.Close()

    Rst.Open("select count(*) as Hsl from Tb_Trening where ST_PRENIKAHAN = '" & CboNikah.Text & "' and KETERANGAN ='TERLAMBAT'", Conn, adOpenKeyset)

    Nk_Terlambat = Rst!hsl 'menampung nilai ke variabel

    Rst.Close()

    '**************  IPK SEMSTER 1 s/d 6  **********************

    Rst.Open("select count(*) as Hsl from Tb_Trening where IPK = '" & MaskEdBox1.Text & "' and KETERANGAN ='TEPAT'", Conn, adOpenKeyset)

    Ipk_Tepat = Rst!hsl ' 'menampung nilai ke variabel

    Rst.Close()

    Rst.Open("select count(*) as Hsl from Tb_Trening where IPK = '" & MaskEdBox1.Text & "' and KETERANGAN ='TERLAMBAT'", Conn, adOpenKeyset)

    Ipk_Terlambat = Rst!hsl 'menampung nilai ke variabel

    Rst.Close()

    'MENJUMLAHKAN NILAI PROBALITAS

    ProbiYes = (Klm_Tepat / Y_Tepat) * (Mhs_Tepat / Y_Tepat) * (Nk_Tepat / Y_Tepat) * (Ipk_Tepat / Y_Tepat) * (Y_Tepat / CounDtSet)

    ProbiNo = (Klm_Terlambat / Y_Terlambat) * (Mhs_Terlambat / Y_Terlambat) * (Nk_Terlambat / Y_Terlambat) * (Ipk_Terlambat / Y_Terlambat) * (Y_Terlambat / CounDtSet)

    'MEMBANDINGKAN HASIL

    If ProbiYes > ProbiNo Then

        TxtHasil.Text = "LULUS TEPAT WAKTU"

    Else

        TxtHasil.Text = "LULUS TERLAMBAT"

    End If

    If ProbiYes = ProbiNo Then

        TxtHasil.Text = "KEMUNGKINAN LULUS TEPAT WAKTU"

    End If

    'PRINT TO LIST

    List1.Width = 6255

    List1.Left = 4680

    List1.AddItem("PERHITUNGAN NAIVE BAYES")

    List1.AddItem("===================================")

    List1.AddItem("")

    List1.AddItem("")

    List1.AddItem("P(KELAMIN=" & CboKelamin.Text & "TEPAT) = " & Klm_Tepat & " / " & Y_Tepat)

    List1.AddItem("P(KELAMIN=" & CboKelamin.Text & "TERLAMBAT) = " & Klm_Terlambat & " / " & Y_Terlambat)

    List1.AddItem("")

    List1.AddItem("P(STATUS MAHASISWA=" & CboStatus.Text & "TEPAT) = " & Mhs_Tepat & " / " & Y_Tepat)

    List1.AddItem("P(STATUS MAHASISWA=" & CboStatus.Text & "TERLAMBAT) = " & Mhs_Terlambat & " / " & Y_Terlambat)

    List1.AddItem("")

    List1.AddItem("P(STATUS PERNIKAHAN=" & CboNikah.Text & "TEPAT) = " & Nk_Tepat & " / " & Y_Tepat)

    List1.AddItem("P(STATUS PERNIKAHAN=" & CboNikah.Text & "TERLAMBAT) = " & Nk_Terlambat & " / " & Y_Terlambat)

    List1.AddItem("")

    List1.AddItem("P(IPK=" & MaskEdBox1.Text & "TEPAT) = " & Ipk_Tepat & " / " & Y_Tepat)

    List1.AddItem("P(IPK=" & MaskEdBox1.Text & "TERLAMBAT) = " & Ipk_Terlambat & " / " & Y_Terlambat)

    List1.AddItem("")

    List1.AddItem("======================================")

    List1.AddItem("")

    List1.AddItem("P(TEPAT) = (" & Klm_Tepat & " / " & Y_Tepat & ") * (" & Mhs_Tepat & " / " & Y_Tepat & ") * ( " & Nk_Tepat & " / " & Y_Tepat & ") * (" & Ipk_Tepat & " / " & Y_Tepat & ") * (" & Y_Tepat & " / " & CounDtSet & ")")

    List1.AddItem("P(TERLAMBAT) = (" & Klm_Terlambat & " / " & Y_Terlambat & ") * (" & Mhs_Terlambat & " / " & Y_Terlambat & ") * (" & Nk_Terlambat & " / " & Y_Terlambat & ") * (" & Ipk_Terlambat & " / " & Y_Terlambat & ") * (" & Y_Terlambat & " / " & CounDtSet & ")")

    List1.AddItem("")

    List1.AddItem("P(TEPAT) =" & ProbiYes)

    List1.AddItem("P(TERLAMBAT) =" & ProbiNo)

    List1.AddItem(TxtHasil.Text)

    List1.AddItem("")

End Sub

---

Private Sub Cmdreset_Click()

    CboKelamin.Clear()

    CboStatus.Clear()

    CboNikah.Clear()

    MaskEdBox1.Text = "_.__"

    List1.Left = 7320

    List1.Width = 3615

End Sub

---

Private Sub Command1_Click()

    MsgBox("Http://Edukasi-informatika.blogspot.com ")

    ShellExecute(Me.hwnd, _

       vbNullString, _

       "http://edukasi-informatika.blogspot.com", _

       vbNullString, _

       "c:\", _

       SW_SHOWNORMAL)

End Sub

---

Private Sub Form_Load()

    If Not konek() Then

        MsgBox("Gak bisa terhubung ke database!", vbCritical)

        End

    End If

    Adodc1.ConnectionString = Conn.ConnectionString

    Adodc1.RecordSource = "Tb_Trening"

    DataGrid1.DataSource = Adodc1

    MaskEdBox1.Mask = "#.##"

End Sub

---

Download ; Source Code. Rar
                   Naive Bayes Implemantasi.pdf