Jumat, 27 April 2012

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.