MELIHAT JUMLAH KARAKTER

PROGRAM MELIHAT JUMLAH KARAKTER

PublicClass Form1

PrivateSub BTNPROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPROSES.Click

Dim HURUF AsString

Dim JML AsByte

Dim X AsString

        KARAKTER.Items.Clear()

        hurufvokal.Items.Clear()

For I = 1 To 255

            X = Chr(I)

            JML = 0

For J = 1 To Len(KALIMAT.Text)

                HURUF = Microsoft.VisualBasic.Mid(KALIMAT.Text, J, 1)

If X = HURUF Then JML = JML + 1

Next J

If JML > 0 Then

                KARAKTER.Items.Add(" huruf "& X &" = "& JML &" karakter ")

EndIf

Next I

Dim hrfvokal AsString

Dim y AsString

For y = 1 To Len(KALIMAT.Text)

            hrfvokal = "AIUEOaiueo"

If y = hrfvokal Then

                hurufvokal.Items.Add(y)

EndIf

Next y

EndSub

PrivateSub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click

End

EndSub

PrivateSub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click

        KALIMAT.Text = ""

EndSub

CONTOH PROGRAM LIST VIEW

CONTOH PROGRAM LIST VIEW

PublicClass Form1

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

        NIP.Items.Add("123002")

        NIP.Items.Add("123003")

        NIP.Items.Add("123004")

        NIP.Items.Add("123005")

        NIP.Items.Add("123006")

        NIP.Items.Add("123007")

        NIP.Items.Add("123008")

        GOL.Items.Add("IA")

        GOL.Items.Add("IIA")

        GOL.Items.Add("IIIA")

Call BUAT_TABEL()

EndSub

Sub BUAT_TABEL()

        LV.GridLines = True

        LV.View = View.Details

        LV.FullRowSelect = True

        LV.Columns.Add("NIP")

        LV.Columns.Add("NAMA")

        LV.Columns.Add("GOL")

        LV.Columns.Add("GAJI")

EndSub

PrivateSub LV_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged

EndSub

PrivateSub BTNMASUK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNMASUK.Click

Dim LST AsNew ListViewItem

        LST.Text = NIP.Text

        LST.SubItems.Add(NAMA.Text)

        LST.SubItems.Add(GOL.Text)

        LST.SubItems.Add(GAJI.Text)

        LV.Items.Add(LST)

EndSub

PrivateSub BTNHAPUSLIST_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUSLIST.Click

        LV.Items.Clear()

EndSub

PrivateSub NIP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIP.SelectedIndexChanged

If NIP.Text = 123002 Then

            NAMA.Text = "ADI"

ElseIf NIP.Text = 123003 Then

            NAMA.Text = "EKO"

ElseIf NIP.Text = 123004 Then

            NAMA.Text = "DIANA"

ElseIf NIP.Text = 123005 Then

            NAMA.Text = "FEBRYDONI"

ElseIf NIP.Text = 123006 Then

            NAMA.Text = "GITA"

ElseIf NIP.Text = 123007 Then

            NAMA.Text = "HENDRI"

ElseIf NIP.Text = 123008 Then

            NAMA.Text = "IRPAN"

EndIf

EndSub

PrivateSub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click

End

EndSub

PrivateSub BTNHAPUSISIAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUSISIAN.Click

        LV.Items.Remove(LV.SelectedItems(0))

EndSub

EndClass

CONTPH PROGRAM PENGGAJIAN PEGAWAI

 CONTOH PROGRAM PENGGAJIAN PEGAWAI

PublicClass Form1

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

        NIP.Items.Add("11111")

        NIP.Items.Add("11112")

        NIP.Items.Add("11113")

        NIP.Items.Add("11114")

        GOL.Items.Add("IIIA")

        GOL.Items.Add("IIIB")

        GOL.Items.Add("IVA")

        GOL.Items.Add("IVB")

        STATUS.Items.Add("MENIKAH")

        STATUS.Items.Add("TDK MENIKAH")

        JUMLAHANAK.Items.Add("0")

        JUMLAHANAK.Items.Add("1")

        JUMLAHANAK.Items.Add("2")

        JUMLAHANAK.Items.Add("3")

        JUMLAHANAK.Items.Add("4")

        JUMLAHANAK.Items.Add("5")

EndSub

PrivateSub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click

End

EndSub

PrivateSub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click

        NIP.Text = ""

        NAMA.Text = ""

        GOL.Text = ""

        STATUS.Text = ""

        JUMLAHANAK.Text = ""

        GAJIPOKOK.Text = ""

        TUNJKELUARGA.Text = ""

        TUNJANAK.Text = ""

        TOTALGAJI.Text = ""

EndSub

PrivateSub NAMA_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NAMA.TextChanged

EndSub

PrivateSub NIP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIP.SelectedIndexChanged

If NIP.Text = "11111"Then

            NAMA.Text = "SUJARWADI"

ElseIf NIP.Text = "11112"Then

            NAMA.Text = "CAN HUKRI"

ElseIf NIP.Text = "11113"Then

            NAMA.Text = "ALI NASTI"

ElseIf NIP.Text = "11114"Then

            NAMA.Text = "ABDUL"

EndIf

EndSub

PrivateSub GOL_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GOL.SelectedIndexChanged

If GOL.Text = "IIIA"Then

            GAJIPOKOK.Text = "1500000"

ElseIf GOL.Text = "IIIB"Then

            GAJIPOKOK.Text = "1750000"

ElseIf GOL.Text = "IVA"Then

            GAJIPOKOK.Text = "2500000"

ElseIf GOL.Text = "IVB"Then

            GAJIPOKOK.Text = "3000000"

EndIf

EndSub

PrivateSub STATUS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STATUS.SelectedIndexChanged

If STATUS.Text = "MENIKAH"Then

            TUNJKELUARGA.Text = 0.2 * GAJIPOKOK.Text

ElseIf STATUS.Text = "TDK MENIKAH"Then

            TUNJKELUARGA.Text = "0"

EndIf

EndSub

PrivateSub JUMLAHANAK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JUMLAHANAK.SelectedIndexChanged

If JUMLAHANAK.Text = 0 Then

            TUNJANAK.Text = 0

ElseIf JUMLAHANAK.Text <= 2 Then

            TUNJANAK.Text = 150000 * JUMLAHANAK.Text

ElseIf JUMLAHANAK.Text >= 2 Then

            TUNJANAK.Text = 150000 * 2

EndIf

EndSub

PrivateSub GAJIPOKOK_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GAJIPOKOK.TextChanged

EndSub

EndClass