Membuat Program dengan menggunakan CLASS dgn Visual Studio 2008

Assalamualaikum Wr.Wb
Pada kesempatan ini saya akan menjelaskan cara membuat program dgn menggunakan CLASS dan fungsi Left Mid dan Right. saya akan membuat program yg menjelaskan detail nomor ujian nasional tingkat SMA. pertama tama, seperti biasa, kita harus membuat project baru. Lalu buat Class dengan cara  mengklik Add Class pada menu Project seperti gambar di bawah ini:



setelah klik Add Class, ubah nama classnya menjadi ClassNomorUjian yg terlihat pada layar seperti ini:



setelah mengklik Add, ketik codingan classnya seperti ini

Public Class ClassNomorUjian

    Public Function kiri(ByVal karakter, ByVal jumlah)

        kiri = Left(karakter, jumlah)

    End Function

    Public Function tengah(ByVal karakter, ByVal jumlahmulai, ByVal jumlahambil)

        tengah = Mid(karakter, jumlahmulai, jumlahambil)

    End Function

    Public Function kanan(ByVal karakter, ByVal jumlah)

        kanan = Right(karakter, jumlah)

    End Function

End Class

 lalu jangan lupa juga untuk membuat 5 buah label, 4 buah text box dan 1 buah button. dan name dan textnya di ubah menjadi seperti ini



lalu from akan terlihat seperti ini






lalu Double Click pada button proses, dan ketik codingan seperti ini

Public Class Form1

    Dim NomorUjian As New ClassNomorUjian

    Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        Dim a As Integer

        a = InputBox("LEFT: berapa jumlah yg akan di ambil dari kiri?")

        TxtKodeDaerah.Text = NomorUjian.kiri(TxtNomorUjian.Text, a)

        Dim b As Integer

        Dim c As Integer

        b = InputBox("MID: di mulai dari angka ke berapa kah yg akan di ambil?")

        c = InputBox("MID: berapa jumlah yg akan di ambil?")

        TxtKodeSekolah.Text = NomorUjian.tengah(TxtNomorUjian.Text, b, c)

        Dim d As Integer

        d = InputBox("RIGHT: berapa jumlah angka yg akan di ambil?")

        TxtNomorUrutSiswa.Text = NomorUjian.kanan(TxtNomorUjian.Text, d)

    End Sub

End Class

lalu setelah di Debug, ketik Nomor Ujian pada textbox nomor ujian yg berisika 2 angka awal kode daerah, 3 angka berikutnya kode sekolah dan 3 angka terakhir menunjukkan nomor urut siswa tersebut. lalu setelah klik proses akan muncul inputbox dan ketik "2" yg terlihat seperti ini

 

lalu setelah klik OK akan muncul inputbox dan klik angka "3" seperti ini

 

lalu setelah klik OK akan muncul inputbox dan klik angka "3" seperti ini

lalu setelah klik OK, secara otomatis form akan menjelaskan detail nomor ujian nasional tersebut seperti ini

Sekian penjelasan dr saya apabila ada kata kata yg kurang dan tidak pas tolong beritahu saya melalui comment.
Terima Kasih
Wassalamu'alaikum Wr.Wb.