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 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
Terima Kasih
Wassalamu'alaikum Wr.Wb.