(2,8285-2,1213)2 + (1,8741-1,4056)2 +(2,9814-1,1926)2
= (2,8285-3,5355)2 + (1,8741-1,8741)2 + (2,9814)2
……..
=



Public Class Form1
    Sub buatTabel()
        LV.Columns.add("KP", 80, horizontalalignment.center)
        LV.Columns.add("Nama", 180, HorizontalAlignment.Left)
        LV.view = View.Details
        LV.gridlines() = True
        LV.FullRowSelect = True
    End Sub

    Sub isiTabel()
        Dim Lst As New ListViewItem
        Lst.Text = KP.Text
        Lst.SubItems.Add(Nama.Text)
        LV.Items.Add(Lst)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buatTabel()

        KP.Items.Add("TOK-MED-100")
        KP.Items.Add("PAB-BEL-101")
        KP.Items.Add("SWA-BEL-102")
        KP.Items.Add("PAB-MED-103")
        KP.Items.Add("RUM-MED-104")
    End Sub

    Private Sub KP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KP.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(KP.Text, 3)


        If x = "100" Then
            Nama.Text = "Muhammad Ardianto"
        ElseIf x = "101" Then
            Nama.Text = "Jekson Sinaga"
        ElseIf x = "102" Then
            Nama.Text = "Triani Arista"
        ElseIf x = "103" Then
            Nama.Text = "Aldyan"
        End If


        x = Microsoft.VisualBasic.Left(KP.Text, 3)

        If x = "PAB" Then
            HargaM3.Text = 500
            Bbeban.Text = 250000
            Tipe.Text = "Pabrik"
        ElseIf x = "TOK" Then
            HargaM3.Text = 500
            Bbeban.Text = 25000
            Tipe.Text = "Toko"
        ElseIf x = "RUM" Then
            HargaM3.Text = 500
            Bbeban.Text = 10000
            Tipe.Text = "Rumah"
        ElseIf x = "SWA" Then
            HargaM3.Text = 200
            Bbeban.Text = 15000
            Tipe.Text = "Swalayan"
        End If

        x = Microsoft.VisualBasic.Mid(KP.Text, 5, 3)
        If x = "MED" Then
            Daerah.Text = "Medan"
        ElseIf x = "BEL" Then
            Daerah.Text = "Belawan"
        End If
    End Sub

    Private Sub Pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Pemakaian.KeyPress
        If Asc(e.KeyChar) = 13 Then
            Ttagihan.Text = HargaM3.Text * Pemakaian.Text + Val(Bbeban.Text)
            Pajak.Text = 0.01 * Ttagihan.Text
            Pembayaran.Text = Val(Ttagihan.Text) + Val(Pajak.Text)
        End If
    End Sub

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

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
        KP.Text = ""
        Nama.Text = ""
        Tipe.Text = ""
        Ttagihan.Text = ""
        HargaM3.Text = ""
        Pajak.Text = ""
        Pembayaran.Text = ""
        Pemakaian.Text = ""
        Daerah.Text = ""
        Bbeban.Text = ""
    End Sub
    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        isiTabel()
        KP.Text = ""
        Nama.Text = ""
    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged

    End Sub
End Class
 

Public Class Form1
    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12110260"
                nama.Text = "Rasimin"
            Case "12110261"
                nama.Text = "Gareth"
            Case "12110263"
                nama.Text = "Edo"
            Case "12110147"
                nama.Text = "r4bia"
            Case "12021687"
                nama.Text = "Putra S."
            Case "12008778"
                nama.Text = "Yanu"
            Case "12110756"
                nama.Text = "Fahmi Latief"
            Case "12110304"
                nama.Text = "Vicky Faldhy Agita"
        End Select
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110260")
        NPM.Items.Add("12110261")
        NPM.Items.Add("12110263")
        NPM.Items.Add("12110147")
        NPM.Items.Add("12021687")
        NPM.Items.Add("12008778")
        NPM.Items.Add("12110756")
        NPM.Items.Add("12110304")
        Kdosen.Items.Add("1198777")
        Kdosen.Items.Add("1198888")
        Kdosen.Items.Add("1198999")
        kmatakuliah.Items.Add("A111")
        kmatakuliah.Items.Add("B222")
        kmatakuliah.Items.Add("C333")
        Dim i As Integer
        For i = 1 To 100
            Ntugas.Items.Add(i)
            Nuas.Items.Add(i)
            Nkhadiran.Items.Add(i)
            Nuts.Items.Add(i)
        Next
    End Sub

    Private Sub Kdosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kdosen.SelectedIndexChanged
        Select Case Kdosen.Text
            Case "1198777"
                namadosen.Text = "Guidio Tarigan s.kom, M.kom"
            Case "1198888"
                namadosen.Text = "Abdul sani sembiring s.kom, M.kom"
            Case "1198999"
                namadosen.Text = "Pilipus Tarigan s.T, M.kom"
        End Select
    End Sub
    Private Sub kmatakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kmatakuliah.SelectedIndexChanged
        Select Case kmatakuliah.Text
            Case "A111"
                nmatakuliah.Text = "Komunikasi Data"
            Case "B222"
                nmatakuliah.Text = "Sistem Operasi"
            Case "C333"
                nmatakuliah.Text = "Arsitektur dan Organisasi Komputer"
        End Select

    End Sub
    Private Sub BTNPROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPROSES.Click
        If NPM.Text = "" Or Nkhadiran.Text = "" Or Nuts.Text = "" Or Ntugas.Text = "" Or Nuas.Text = "" Then
            MsgBox("Pastikan NPM/nilai sudah ter input")
        ElseIf NPM.Text Then
            Nakhir.Text = Val(0.1 * Nkhadiran.Text) + Val(0.15 * Ntugas.Text) + Val(0.3 * Nuts.Text) + Val(0.45 * Nuas.Text)
            If Nakhir.Text >= 90 Then
                Nhuruf.Text = "A"
            ElseIf Nakhir.Text >= 80 Then
                Nhuruf.Text = "B+"
            ElseIf Nakhir.Text >= 70 Then
                Nhuruf.Text = "B"
            ElseIf Nakhir.Text >= 60 Then
                Nhuruf.Text = "C"
            ElseIf Nakhir.Text >= 50 Then
                Nhuruf.Text = "D"
            Else
                Nhuruf.Text = "E"
            End If
            If Nakhir.Text >= 50 Then
                xket.Text = "LULUS"
            Else
                xket.Text = "GAGAL"
            End If
            Dim x, y As String
            x = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)
            y = Microsoft.VisualBasic.Mid(NPM.Text, 5, 1)
            If x = "11" Then
                jenjang.Text = "S1"
            ElseIf x = "02" Then
                jenjang.Text = "D3"
            ElseIf x = "00" Then
                jenjang.Text = "D1"
            End If
            If y = "0" Then
                jurusan.Text = "Tehnik Informatika"
            ElseIf y = "1" Then
                jurusan.Text = "Management informatika"
            ElseIf y = "8" Then
                jurusan.Text = "Teknisi Komputer"
            ElseIf y = "5" Then
            End If
        End If
    End Sub
    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click
        NPM.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        Kdosen.Text = ""
        namadosen.Text = ""
        kmatakuliah.Text = ""
        nmatakuliah.Text = ""
        Nkhadiran.Text = ""
        Ntugas.Text = ""
        Nuts.Text = ""
        Nuas.Text = ""
        Nakhir.Text = ""
        Nhuruf.Text = ""
        xket.Text = ""
        jurusan.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