Fungsi String

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("0911010")
        npm.Items.Add("1002001")
        npm.Items.Add("1102001")
        npm.Items.Add("1111100")
        npm.Items.Add("1202101")
    End Sub


    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Mid(npm.Text, 3, 2)
        Select Case x
            Case "11"
                prodi.Text = "Teknik Informatika"
                jenjang.Text = "S1"
            Case "02"
                prodi.Text = "Management informatika"
                jenjang.Text = "D3"
        End Select
        nodaftar.Text = Microsoft.VisualBasic.Left(npm.Text, 3)
        tahun.Text = "20" & Microsoft.VisualBasic.Right(npm.Text, 2)

    End Sub
End Class

Author : Unknown

Share this

Related Posts