Pemakaian IF ELSE dalam Penyelesaian Pembayaran Tagihan Air Minum Menggunakan Visual Basic dot Net

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        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_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pemakaian.TextChanged
        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 Btnhapus.Click
        kp.Text = ""
        nama.Text = ""
        Tipe.Text = ""
        Ttagihan.Text = ""
        hargam3.Text = ""
        pajak.Text = ""
        pembayaran.Text = ""
        pemakaian.Text = ""
        daerah.Text = ""
        bbeban.Text = ""
    End Sub
End Class

program nilai mahasiswa

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 "12110363"

                nama.Text = "sabdan husin"

            Case "12110566"

                nama.Text = "Deni Irawan"

            Case "12110141"

                nama.Text = "Cahyadi Rangkuti"

            Case "12110652"

                nama.Text = "harry krido prayetno"

            Case "12110139"

                nama.Text = "Toni Sahata Pandapotan"

            Case "12021976"

                nama.Text = "Sandi Putra Siregar"

            Case "12008754"

                nama.Text = "Titi Wahyuni Harahap"

            Case "12110764"

                nama.Text = "Juandi Sinaga"

            Case "13110703"

                nama.Text = "Muhammad Hafiz"

        End Select

    End Sub

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

        NPM.Items.Add("12110363")

        NPM.Items.Add("12110139")

        NPM.Items.Add("12021976")

        NPM.Items.Add("12008754")

        NPM.Items.Add("12025764")

        NPM.Items.Add("12110566")

        NPM.Items.Add("12110141")

        NPM.Items.Add("12110652")

        NPM.Items.Add("13110703")

        Kdosen.Items.Add("1198753")

        Kdosen.Items.Add("1198273")

        Kdosen.Items.Add("1198753")

        kmatakuliah.Items.Add("A213")

        kmatakuliah.Items.Add("B247")

        kmatakuliah.Items.Add("C283")

        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 "1198753"

                namadosen.Text = "Guidio l Ginting s.kom, M.kom"

            Case "1198273"

                namadosen.Text = "Abdul sani sembiring s.kom, M.kom"

            Case "1198753"

                namadosen.Text = "Harvei Hutahaean s.kom, 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 "A213"

                nmatakuliah.Text = "Komunikasi Data"

            Case "B247"

                nmatakuliah.Text = "Sistem Operasi"

            Case "C283"

                nmatakuliah.Text = "Sistem Basis Data"

        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 = "Managemen 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

1. User shall place the following Clocklink code on a website, weblog or other internet location controlled by User, or as allowed by permission of such site owner, according to the instructions provided on Clocklink.com 2. Other than the modification options provided by Owner (type, color, time zone, etc) User shall not alter, adjust, modify the code provided in anyway without the express written permission of Owner. 3. While we make every effort to support this product, User accepts Clocklink and the Clocklink Code as is. Owner provides no guarantee or warranty that the Clocklink code will function properly on User's site or with every browser and Owner shall not be liable to User or any third party for any damage or loss incurred, monetary or otherwise, directly or indirectly, as a result of the use of the Clocklink or the Clocklink code. If User has any difficulty with Clocklink, you should contact Owner at the Contact Us page on Clocklink.com. User's sole remedy for problems caused by the Clocklink code is to remove the tag from User's website or other location. 4. Owner shall retain the all rights and ownership of Clocklink and the Clocklink code and may terminate User's use of the same without notice and at any time. 5. This agreement shall be governed by the laws of the United States and the State of Washington. User agrees that if legal action is required to enforce the terms of this agreement, venue shall be in the courts of King County, Washington, USA.

Kadar gula darah tinggi terus, awas hati-hati bisa luka yang susah sembuh dan bernanah. Kami sudah melakukan penelitian terhadap pasien di rumah sakit yang sudah luka parah akibat diabetes. Dalam 3 bulan dia bias sembuh dan bisa kembali olahraga, hanya dengan mengkonsumsi 12 botol Ultra Noni bukti sudah ada di web kami.

Harga Rp 150.000,- /botol, minimum pembelian 2 botol.
Harga khusus untuk agen, minimum pembelian 1 dus (8 botol).

Anjuran Pemakaian gunakan setiap hari cukup 1 sendok saja setiap 30 menit sebelum makan malam secara rutin dpt menyembuhkan kadar gula tinggi anda tanpa efek samping karena 100% murni herbal tanpa kimia apapun..

Bisa dijadikan hadiah untuk orang tua tercinta atau kenalan terdekat.