CONTOH PROGRAM FUNGSI STRING

 CONTOH PROGRAM FUNGSI STRING

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

        NPM.Items.Add("091101O")

        NPM.Items.Add("1002001")

        NPM.Items.Add("1102010")

        NPM.Items.Add("1111100")

        NPM.Items.Add("1202101")

EndSub

PrivateSub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged

Dim X AsString

        X = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)

SelectCase X

Case"11"

                PRODI.Text = "TEKNIK INFORMATIKA"

                JENJANG.Text = "S1"

Case"02"

                PRODI.Text = "MANAJEMEN INFORMATIKA"

                JENJANG.Text = "D3"

EndSelect

        NODAFTAR.Text = Microsoft.VisualBasic.Right(NPM.Text, 3)

        TAHUN.Text = "20"& Microsoft.VisualBasic.Left(NPM.Text, 2)

EndSub

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

EndSub

EndClass