fungsi left,mid dan right

contoh fungsi left,mid dan right

desain form














perintah program

Public Class Form1

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

    End Sub

    Private Sub BTNproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNproses.Click

        Dim X As String

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

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

        If X = "1" Then

            JENJANGSTUDI.Text = "Diploma I"

        ElseIf X = "3" Then

            JENJANGSTUDI.Text = "Diploma III"

        ElseIf X = "4" Then

            JENJANGSTUDI.Text = "Strata I"

        End If

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

        If X = "01" Then

            JURUSAN.Text = "Manajemen informatika"

        ElseIf X = "02" Then

            JURUSAN.Text = "Sistem informasi"

        ElseIf X = "03" Then

            JURUSAN.Text = "Teknik Komputer"

        ElseIf X = "04" Then

            JURUSAN.Text = "Akuntasi"

        End If

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

    End Sub

End Class

 

Hasil program