contoh form fungsi case

desain form berikut ini :

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

        NIK.Items.Add("PM010")

        NIK.Items.Add("PS111")

        NIK.Items.Add("KU101")

        NIK.Items.Add("GD100")

        NIK.Items.Add("PM011")

        Jabatan.Items.Add("Kepala Divisi")

        Jabatan.Items.Add("Staf")

        Jabatan.Items.Add("Wakil Kepala")

        Status.Items.Add("Menikah")

        Status.Items.Add("Tidak Menikah")

        Dim i As Integer

        For i = 1 To 2

            JumlahAnak.Items.Add(i)

        Next i

    End Sub

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

        NIK.Text = ""

        Nama.text = ""

        Bagian.text = ""

        Jabatan.Text = ""

        GajiPokok.Text = ""

        Pajak.Text = ""

        Status.Text = ""

        JumlahAnak.Text = ""

        TunjanganKeluarga.Text = ""

        TunjanganAnak.Text = ""

        TotalGaji.Text = ""

    End Sub

    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged

        Select Case NIK.Text

            Case "PM010"

                Nama.Text = "naldi"

            Case "PS111"

                Nama.Text = "kholil"

            Case "KU101"

                Nama.Text = "indra"

            Case "GD100"

                Nama.Text = "buyung"

            Case "PM011"

                Nama.Text = "rinaldi jambak"

        End Select

        Dim x As String

        x = Microsoft.VisualBasic.Left(NIK.Text, 2)

        If x = "PM" Then

            Bagian.Text = "Pemasaran"

        ElseIf x = "PS" Then

            Bagian.Text = "Personalia"

        ElseIf x = "KU" Then

            Bagian.Text = "Keuangan"

        ElseIf x = "GD" Then

            Bagian.Text = "Gudang"

        End If

    End Sub

    Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged

        Select Case Status.Text

            Case "Menikah"

                TunjanganKeluarga.Text = 0.15 * GajiPokok.Text

            Case "Tidak Menikah"

                TunjanganKeluarga.Text = 0

        End Select

    End Sub

    Private Sub Bagian_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bagian.TextChanged

    End Sub

    Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged

        Select Jabatan.Text

            Case "Kepala Divisi"

                GajiPokok.Text = 5000000

            Case "Staf"

                GajiPokok.Text = 2000000

            Case "Wakil Kepala"

                GajiPokok.Text = 3500000

        End Select

        Pajak.Text = 0.1 * GajiPokok.Text

    End Sub

    Private Sub JumlahAnak_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JumlahAnak.SelectedIndexChanged

        If JumlahAnak.Text = 1 Then

            TunjanganAnak.Text = 0.5 * GajiPokok.Text

        ElseIf JumlahAnak.Text = 2 Then

            TunjanganAnak.Text = 0.1 * GajiPokok.Text

        End If

        TotalGaji.Text = Val(GajiPokok.Text) + Val(TunjanganKeluarga.Text) + Val(TunjanganAnak.Text) - Val(Pajak.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

form enkripsi deskripsi

Public Class Form1

    Private Sub ListBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub btnenkripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenkripsi.Click
        Dim a As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(plain.Text)
            a = Mid(plain.Text, i, i)
            a = Chr(Asc(a) - 3)
            xkalimat = xkalimat + a
        Next
        chiper.Text = xkalimat
    End Sub

    Private Sub btndeskripsi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndeskripsi.Click
        Dim a As String = ""
        Dim xkalimat As String = ""
        For i = 1 To Len(chiper.Text)
            a = Mid(chiper.Text, i, i)
            a = Chr(Asc(a) - 3)
            xkalimat = xkalimat + a
        Next
        plain.Text = xkalimat
    End Sub
End Class

membuat form pembayaran pdam [ visual studio 2008]

BELAJAR BAHASA PEMOGRAMAN

 sekarang saya akan share kepada teman-teman cara membuat form pembayaran di visual studio 2008

sebelum mengetikkan kode dibawah tulis dulu nama textbox nya agar sama dengan kode dibawah
kode pelanggan= kp
nama pelanggan= np
tipe= tip
biaya beban= bb
jumlah pemakaian= jp
total tagihan= tt
pembayaran= pem
daerah= dae
harga m3= hm
pajak= paj




Public Class Form1

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

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        kp.Items.Add("PAB-MED-100")
        kp.Items.Add("TOK-BEL-101")
        kp.Items.Add("SWA-BEL-102")
        kp.Items.Add("RUM-MED-103")
    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
            np.Text = "munawar khalil"
        ElseIf x = "101" Then
            np.Text = "buyung alamsyah"
        ElseIf x = "102" Then
            np.Text = "rinaldi jambak"
        ElseIf x = "103" Then
            np.Text = "syawal"
        End If

        x = Microsoft.VisualBasic.Left(kp.Text, 3)
        If x = "PAB" Then
            tip.Text = "pabrik"
            bb.Text = 25000
            hm.Text = 500
        ElseIf x = "TOK" Then
            tip.Text = "toko"
            bb.Text = 25000
            hm.Text = 300
        ElseIf x = "SWA" Then
            tip.Text = "swalayan"
            bb.Text = 15000
            hm.Text = 200
        ElseIf x = "RUM" Then
            tip.Text = "rumah"
            bb.Text = 10000
            hm.Text = 100
        End If

        x = Microsoft.VisualBasic.Mid(kp.Text, 5, 3)
        If x = "MED" Then
            dae.Text = "medan"
        ElseIf x = "BEL" Then
            dae.Text = "belawan"
        End If


    End Sub

    Private Sub jp_keypress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jp.KeyPress
        If Asc(e.KeyChar) = 13 Then
            tt.Text = Val(bb.Text) + hm.Text * jp.Text
            paj.Text = 0.01 * tt.Text
            pem.Text = Val(paj.Text) + Val(jp.Text)
        End If

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        kp.Text = ""
        np.Text = ""
        tip.Text = ""
        bb.Text = ""
        jp.Text = ""
        tt.Text = ""
        pem.Text = ""
        dae.Text = ""
        hm.Text = ""
        paj.Text = ""

    End Sub
End Class