Fungsi Mid, Left, Right

Menggunakan Fungsi Mid, Left, Right

     Postingan kita hari ini, membuat sebuah program sederhana tentang penggunaan fungsi Mid, Left, Right dalam bahasa pemograman Visual basic 2008. Yang perlu anda ingat adalah di dalam leptop atau komputer milik saudara sudah terinstal Program atau perangkat lunak Visual Basic 2008

            Buatlah sebuah form/TUGAS di sebuah lembar kerja baru dan cari sebuah icons atau menu toolbox lalu aktifkan, setelah itu cari tulisan “LEBEL” double click sebanyak 5 kali dan ubah “TEXT” seperti gambar berikut :

Selanjut_Nya aktifkan juga TextBox dengan double click sebnyak 5 kali yang ada dalam Toolbox dan ubah “NAME” sesuaikan dengan nama “LEBEL” untuk pemanggilan dalam Running program nanti, ingat “NAME” yang diubah bukan “Text”. Untuk Lebih jelasnya perhatikan gambar yang telah di buat:

Selanjut_Nya aktifkan juga BUTTON dengan double click sebnyak 1 kali yang ada dalam Toolbox dan ubah “TEXT” Menjadi “Proses”dan begitu juga dengan  “NAME” ubah menjadi “btnproses”. Untuk Lebih jelasnya perhatikan gambar :

Untuk membuat listing program double click Button yang telah di ubah text_nya “Proses” lalu ikutin perintah berikut:

Public Class Tugas_POLINUS

Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        Dim p As String

        Dim l As String

        tamasuk.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2)

        p = Microsoft.VisualBasic.Mid(npm.Text, 4, 1)

        If p = "1" Then

            jestudi.Text = "Strata I"

        ElseIf p = "0" Then

            jestudi.Text = "Diploma III"

        ElseIf p = "2" Then

            jestudi.Text = "Diploma I"

        End If

        l = Microsoft.VisualBasic.left(npm.Text, 3, 2)

        If l = "11" Then

            jurusan.Text = "Teknik Informatika"

        ElseIf l = "12" Then

            jurusan.Text = "Sistem Informasi"

        ElseIf l = "10" Then

            jurusan.Text = "Manajemen Informatika"

        End If

        nourut.Text = Microsoft.VisualBasic.Right(npm.Text, 3)

    End Sub

End Class

Setelah perintah diatas di ketik coba anda jalankan dengan menekan F5 lalu isikan NPM dengan : 12110841 dan klick Button “Proses” lihat apa yang terjadi pada program yang di buat, untuk lebih jelas_nya perhatikan gambar berikut :

Sampai disini Postingan kita hari ini. Sampai jumpa kembali di program VB selanjut_Nya
Terima Kasih telah berkunjung” SALAM ANAK NIAS

=YA”AHOWU=