Jumat, 27 April 2012

Membuat Program Sederhana dengan menggunakan Class didalam Microsoft Visual Studio 2008


Assalamualaikum Wr. Wb.
Pada kesempatan kali ini saya akan menjelaskan program sederhana yang telah saya buat yaitu program aplikasi untuk mengetahui kode plat nomor kendaraan bermotor di Indonesia. Program tersebut saya buat degan menggunakan Microsoft Visual Studio 2008 dan memakai fungsi Left, Mid, Right dan Class. 

Pertama-tama kita membuka Microsoft Visual Studio 2008 lalu membuat project dengan:
klik Create Project > Windows Form Application > Ok

Setelah itu kita membuat class dengan cara:
klik Project>Add Class
Seperti gambar dibawah ini..

Setelah mengklik Add Class, kita ubah nama Class tersebut menjadi classplat seperti gambar dibawah ini:

Setelah itu buat koding seperti dibawah ini:

Public Class classplat
    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


Selanjutnya mendesign Form seperti gambar dibawah ini:


Kita juga mengubah Name dan Text pada Form, Label, TextBox, dan Button..

Lalu kita melakukan pengodingan dengan cara mengklik dua kali pada Button Cek dan menuliskan koding seperti :


Public Class Form1
    Dim Nomorplat As New classplat
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bcek.Click
        Dim s As Integer
        s = InputBox("Berapa jumlah huruf yang ingin diambil dari kiri untuk Kode Wilayah?")
        Tkodewil.Text = Nomorplat.kiri(Tplat.Text, s)
        Dim t As Integer
        Dim u As Integer
        t = InputBox("Di mulai dari angka berapakah yang ingin diambil untuk Nomor Seri?")
        u = InputBox("Berapa jumlah angka yang ingin diambil untuk Nomor Seri?")
        Tnoseri.Text = Nomorplat.tengah(Tplat.Text, t, u)
        Dim v As Integer
        v = InputBox("Berapa jumlah huruf yang ingin diambil dari kanan untuk Kode Akhir Wilayah?")
        TKodeAwil.Text = Nomorplat.kanan(Tplat.Text, v)
    End Sub
End Class

Program sudah siap dipakai, dengan cara klik Play atau Debug..
Maka akan muncul Form..
Sebelum kita ingin mengecek kode apakah plat nomor tersebut, kita harus mengisi textbox pada Plat Nomor Kendaraan terlebih dahulu.

Klik Button Cek maka akan muncul InputBox ,lalu ketik 1 karena Kode Wilayah merupakan huruf ke-1 dari kiri >klik OK.


Akan muncul InputBox lagi untuk mengisi Nomor Seri dengan mengisikan 2 karena Nomor Seri dimulai dari angka ke-2> klik OK seperti gambar dibawah ini


Selanjutnya mengisi InputBox dengan 4 karena No Seri terdiri dari 4 angka > klik OK 



Yang terakhir mengisi Inputbox dengan 2 karena Kode Akhir Wilayah terdiri dari 2 huruf dari kanan>klik OK 

Maka hasilnya seperti gambar dibawah ini :


Sekian program sederhana yang saya buat, semoga bermanfaat.
Apabila ada kesalahan dalam program saya bisa Anda kritik dengan mengisikan Coment pada Blog saya.
Terimakasih banyak..
Wassalamualaikum Wr. Wb