Teorema Bayes, diambil dari nama Rev. Thomas Bayes, menggambarkan hubungan antara peluang bersyarat dari dua kejadian A dan B sebagai berikut:

P(A | B) = 
P(B | AP(A)
P(B)
or
P(A | B) = 
P(B | AP(A)
P(B | A)P(A) + P(B | A)P(A)

Contoh aplikasi dari Teorema Bayes
Di sebuah negara, diketahui bahwa 2% dari penduduknya menderita sebuah penyakit langka. 97% dari hasil tes klinik adalah positif bahwa seseorang menderita penyakit itu. Ketika seseorang yang tidak menderita penyakit itu dites dengan tes yang sama, 9% dari hasil tes memberikan hasil positif yang salah.
Jika sembarang orang dari negara itu mengambil test dan mendapat hasil positif, berapakah peluang bahwa dia benar-benar menderita penyakit langka itu?
Secara sepintas, nampaknya bahwa ada peluang yang besar bahwa orang itu memang benar-benar menderita penyakit langka itu. Karena kita tahu bahwa hasil test klinik yang cukup akurat (97%). Tetapi apakah benar demikian? Marilah kita lihat perhitungan matematikanya.

Marilah kita lambangkan informasi di atas sebagai berikut:
  • B = Kejadian tes memberikan hasil positif.
  • B = Kejadian tes memberikan hasil negatif.
  • A = Kejadian seseorang menderita penyakit langka itu.
  • A = Kejadian seseorang tidak menderita penyakit langkat itu.
Kita ketahui juga peluang dari kejadian-kejadian berikut:
  • P (A) = 2%
  • P (A) = 98%
  • P (B | A) = 97%
  • P (B | A) = 9%
Dengan menggunakan rumus untuk peluang bersyarat, dapat kita simpulkan peluang dari kejadian-kejadian yang mungkin terjadi dalam tabel di bawah ini:
A (2%)
A (98%)

B
Positif yang benar

P (B ∩ A) = P (A) × P (B | A) = 2% × 97% = 0,0194
Positif yang salah

P (B ∩ A) = P (A) × P (B | A) = 98% × 9% = 0,0882

B
Negatif yang salah

P (B ∩ A) = P (A) × P (B | A) = 2% × 3% = 0,0006
Negatif yang benar

P (B ∩ A) = P (A) × P (B | A) = 98% × 91% = 0,8918

Misalnya seseorang menjalani tes klinik tersebut dan mendapatkan hasil positif, berapakah peluang bahwa ia benar-benar menderita penyakit langka tersebut?
Dengan kata lain, kita mencoba untuk mencari peluang dari A, dimana B atau P (A | B).
Dari tabel di atas, dapat kita lihat bahwa P (A | B) adalah peluang dari positif yang benar dibagi dengan peluang positif (benar maupun salah), yaitu 0,0194 / (0,0194 + 0,0882) = 0,1803.
Kita dapat juga mendapatkan hasil yang sama dengan menggunakan rumus teorema Bayes di atas:


P(A | B) = 
P(B ∩ A)
P(B)
=
P(B | A) × P(A)
P(B | A)P(A) + P(B | A)P(A)
=
97% × 2%
(97% × 2%) + (9% × 98%)
=
0.0194
0.0194 + 0.0882
=
0.0194
0.1076
P(A | B) = 
0.1803

Hasil perhitungan ini sangat berbeda dengan intuisi kita di atas. Peluang bahwa orang yang mendapat hasil tes positif itu benar-benar menderita penyakit langka tidak sebesar yang kita bayangkan. Cuma ada sekitar 18% kemungkinan bahwa dia benar-benar menderita penyakit itu.
 Mengapakah demikian?
Ketika mengira-ngira peluangnya, seringkali kita lupa bahwa dari seluruh populasi negara itu, hanya 2% yang benar-benar menderita penyakit langka itu. Jadi, walaupun hasil tes adalah positif, peluang bahwa seseorang menderita penyakit langka itu tidaklah sebesar yang kita bayangkan.
Kita bisa juga meninjau situasi di atas sebagai berikut. Misalnya populasi negara tersebut adalah 1000 orang. Hanya 20 orang yang menderita penyakit langka itu (2%). 19 orang dari antaranya akan mendapat hasil tes yang positif (97% hasil positif yang benar). Dari 980 orang yang tidak menderita penyakit itu, sekitar 88 orang juga akan mendapat hasil tes positif (9% hasil positif yang salah).
Jadi, 1000 orang di negara itu dapat kita kelompokkan sebagai berikut:
  • 19 orang mendapat hasil tes positif yang benar
  • 1 orang mendapat hasil tes negatif yang salah
  • 88 orang mendapat hasil tes positif yang salah
  • 892 orang mendapat hasil tes negatif yang benar
Bisa kita lihat dari informasi di atas, bahwa ada (88 + 19) = 107 orang yang akan mendapatkan hasil tes positif (tidak perduli bahwa dia benar-benar menderita penyakit langka itu atau tidak). Dari 107 orang ini, berapakah yang benar-benar menderita penyakit? Hanya 19 orang dari 107, atau sekitar 18%.


Selesaikanlah Kasus Berikut :


SOAL 1 :  Buatlah program untuk menampilkan hasil ke listview untuk kasus latihan listview perhitungan penjualan barang


Berikut Jawaban Program :


Design  Data Perhitungan Penjualan Barang Dengan Menggunakan Listview Pada Pemrograman Visual Basic.Net






Listing Programnya :


Public Class Form1

    Sub BuatTabel()
        LV.Columns.Add("No Pembelian", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Kode Barang", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Nama Barang", 120, HorizontalAlignment.Center)
        LV.Columns.Add("Merk", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Harga", 100, HorizontalAlignment.Center)
        LV.Columns.Add("Jumlah Beli", 120, HorizontalAlignment.Center)
        LV.Columns.Add("TotalHarga", 100, HorizontalAlignment.Center)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub IsiTable()
        Dim Lst As New ListViewItem
        Lst.Text = no.Text
        Lst.SubItems.Add(kode.Text)
        Lst.SubItems.Add(nama.Text)
        Lst.SubItems.Add(merk.Text)
        Lst.SubItems.Add(harga.Text)
        Lst.SubItems.Add(jumlah.Text)
        Lst.SubItems.Add(total.Text)
        LV.Items.Add(Lst)
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(kode.Text, 2)
        If x = "TS" Then
            merk.Text = "Thosiba"
        ElseIf x = "VG" Then
            merk.Text = "V-Gen"
        End If
        x = Microsoft.VisualBasic.Right(kode.Text, 3)
        If x = "001" Then
            nama.Text = "Flashdisk 4GB"
        ElseIf x = "002" Then
            nama.Text = "Flashdisk 2GB"
        End If
        If kode.Text = "TS001" Then
            harga.Text = "105000"
        ElseIf kode.Text = "TS002" Then
            harga.Text = "75000"
        ElseIf kode.Text = "VG001" Then
            harga.Text = "90000"
        ElseIf kode.Text = "VG002" Then
            harga.Text = "60000"
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        BuatTabel()
        kode.Items.Add("TS001")
        kode.Items.Add("TS002")
        kode.Items.Add("VG001")
        kode.Items.Add("VG002")
    End Sub
    Private Sub total_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles total.TextChanged
    End Sub
Private Sub jumlah_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlah.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            total_TextChanged(sender, e)
            total.Text = jumlah.Text * harga.Text
        End If
    End Sub

    Private Sub jumlah_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.TextChanged

    End Sub
    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        IsiTable()
        No.Text = ""
        kode.Text = ""
        nama.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""
    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        LV.Items.Clear()
    End Sub

    Private Sub BtnData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnData.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
        No.Text = ""
        kode.Text = ""
        nama.Text = ""
        merk.Text = ""
        harga.Text = ""
        jumlah.Text = ""
        total.Text = ""
    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
        End
    End Sub
End Class


Berikut Hasil Program Data Perhitungan Penjualan Barang Dengan Menggunakan Listview Pada Pemrograman Visual Basic.Net








SOAL 2 : Buatlah program vb net untuk menampilkan output seperti dibawah ini :

Buatlah program untuk mencari total pembayaran tv
PENJUALAN TV. SONY
--------------------------------------------
Nama Barang       :   ?
Harga        :   ?
Jumlah Jual    :   ?
Total Harga    :
Discount    :
Total Pembayaran:
--------------------------------------------

Proses
    Total Harga =  Harga * Jumlah Jual
    Jika Total Harga > 2500000 maka
Discount = 10% * Total Harga
atau
Discount = 0
    Total Pembayaran = Total Harga - Discount

Berikut Jawaban Program :



Design  Data Penjualan Tv Dengan Menggunakan Listview Pada Pemrograman Visual Basic.Net




Listing Programnya :

Public Class Form1
    
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NamaBarang.Items.Add("sony")
        NamaBarang.Items.Add("LG")
        NamaBarang.Items.Add("Panasonic")
        NamaBarang.Items.Add("Politron")
    End Sub

    Private Sub NamaBarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NamaBarang.SelectedIndexChanged
        Select Case NamaBarang.Text
            Case "Sony" : Harga.Text = 1750000
            Case "LG" : Harga.Text = 2500000
            Case "Panosinic" : Harga.Text = 3250000
            Case "Politron" : Harga.Text = 1000000
        End Select
    End Sub

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        Total.Text = Harga.Text * jmlh.Text
        If Total.Text > 2500000 Then
            Disc.Text = 0.01 * Total.Text

        Else : Disc.Text = 0
        End If
        Pembayaran.Text = Val(Total.Text) - Val(Disc.Text)
    End Sub

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
        NamaBarang.Text = ""
        Harga.Text = ""
        jmlh.Text = ""
        Total.Text = ""
        Disc.Text = ""
        Pembayaran.Text = ""

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        End
    End Sub
End Class



Berikut Hasil Program Data  Penjualan Tv  Pada Pemrograman Visual Basic.Net





Demikilahlah postingan saya,  Nama : Muhammad Syahril  NPM : 1111110
Selamat Belajar Pemrograman Vb.Net