Fungsi Left, Mid dan Right merupakan fungsi string (Text), akan tetapi juga bisa berperan sebagai integer (Number). Fungsi ini digunakan untuk mengambil sejumlah karakter tertentu dari suatu nilai variable. Pada artikel ini kita akan membahas mengenai fungsi left, mid dan right pada Visual Basic.NET
- Left digunakan untuk Mengambil karakter dari kiri
- Mid digunakan untuk Mengambil karakter di tengah
- Right digunakan untuk Mengambil karakter dari kanan
Pada contoh kali ini, kita akan menggunakan ketiga fungsi di atas untuk mengambil data dari NRP / NIM (Nomor Induk Mahasiswa).
Contoh sebuah universitas menggunakan sebuah pattern untuk membuat NIM dengan format sebagai berikut:
- 2 digit pertama = Jurusan
- 2 digit kedua = tahun masuk
- 3 digit terakhir = nomor urut
Syntax
Sub Main()
Dim a, x As String
Dim jurusan As String = "TI"
Console.Write("NRP anda : ")
a = Console.ReadLine
If Left(a, 2) = "63" Then
jurusan = "TI"
ElseIf Left(a, 2) = "33" Then
jurusan = "MI"
Else
jurusan = "AP"
End If
Console.WriteLine("Jurusan anda : " & jurusan)
If Mid(a, 3, 2) < 11 Then
x = "20"
Else
x = "19"
End If
Console.WriteLine("Taun Masuk : " & x & Mid(a, 3, 2))
Console.WriteLine("No urut : " & Right(a, 3))
Console.ReadKey()
End Sub
No Comments
Leave a comment Cancel