Mengenal OOP, .NET Framework dan My

                        

Visual Basic 2008 adalah sebuah bahasa pemrograman yang berorientasi object (Object Oriented Programming – OOP), sehingga sedikitnya kita harus memahami konsep OOP untuk lebih memahami Visual Basic 2008.
Saat ini banyak bahasa pemrograman computer yang menggunakan OOP diantaranya VB, Java, Delphi dan sebagainya. VB sendiri mulai menerapkan konsep OOP secara keseluruhan mulai dari Visual Basic .NET, sedangkan  versi VB sebelumnya yaitu visual Basic 6 belum murni menerapkan OOP secara keseluruhan, hanya sebagian saja.
Dalam pemrograman berbasis obyek (OOP), memahami istilah object, property, method dan  Event sangat penting.
§  Object : komponen di dalam sebuah program
§  Property : karakteristik yang dimiliki object
§  Method : aksi yang dapat dilakukan oleh object
§  Event : kejadian yang dapat dialami oleh object
1.1   Konsep OOP
Dalam konsep OOP, semua hal yang kita gunakan dalam Visual Basic dapat kita anggap sebagai sebuah object, sebagai contoh sebuah komponen Form1 yang kita tambahkan adalah sebuah object, komponen Button1 yang kita tambahkan juga dapat kita anggap sebagai sebuah object.
Setiap object pasti memiliki sebuah Class untuk pembuatan object. Class bias kita anggap sebagai sebuah cetakan dasar, blue print,template atau sebuah desain untuk membuat sebuah object. Melalui class tersebut sebuah object yang sama dapat kita buat berpuluh – puluh kali dan tanpa melalui class sebuah object tidak akan dapat dibuat karena desain pembuatan object baru ada pada class dari object tersebut. Sebagai contoh, object TextBox1 dan Object TextBox2 dibuat berdasarkan dari class system.Windows.Forms.TextBox.


1.2   Propertis Sebuah Object
Setiap object dalam VB memiliki properties masing- masing dan mungkin berbeda- beda antara satu sebuah object dengan object VB lainnya. Properties adalah sebuah karakteristik atau keadaan dari sebuah object. Sebagai contoh object TextBox1 memiliki properties Name, Text, Visible dan sebagainya. Masing- masing properties dapat memiliki sebuah nilai, sebagai contoh properties Text dari object TextBox1 dapat bernilai “Visual Basic”, properties Visible dari object TextBox1 dapat bernilai false dan sebagainya.
Banyaknya properties yang dimiliki oleh sebuah object ditentukan berdasarkan classnya, class system.Windows.Forms.TextBox sendiri merupakan salah satu class yang ada dalam .NET Framework. Sebuah object memiliki properties yang sama dan juga dapat berbeda- beda dengan object yang lainnya.
Apabila kita membuat beberapa buah object yang sama, misalnya object TextBox1 dan Object TextBox2, maka nilai dari sebuah properties dapat sama atau berbeda- beda antara satu buah object dengan object yang lainnya. Misalnya dua buah object TextBox harus memiliki properties name yang berbeda- beda satu sama lainnya, textbox yang pertama bernama TextBox1 dan textbox yang ke dua bernama TextBox2. Namun ada beberapa properties yang mungkin bernilai sama, sebagai contoh properties Text diantara kedua object ini dapat bernilai sama ataupun berbeda tergantung pada kebutuhan.
Untuk mengubah nilai dari properties sebuah object, dapat dipergunakan pernyataan berikut dibawah ini :
Object.properties =  nilai
Sebagai contoh untuk mengubah nilai dari properties Text pada object TextBox1, pergunakan pernyataan dibawah ini :
TextBox1.Text = “Properties Text”
Pernyataan di atas menyebabkan properties Text dari object TextBox1 menjadi bernilai “Properties Text”. Sementara untuk mengambil nilai sebuah properties dapat dipergunakan pernyataan dibawah ini:
Namavariabel = object.properties
Sebagai contoh: hasil = TextBox1.Text
Pernyataan diatas menyebabkan variable hasil akan menyimpan nilai dari properties Text dalam object TextBox1.

1.3   Method Sebuah Object
Selain properties, sebuah object juga memiliki method. Method adalah sebuah metode, kegiatan atau tingkah laku yang bias dilakukan oleh object tersebut, sebagai contoh sebuah form memiliki  method show, showdialog dan sebagainya. Seperti halnya sebuah properties, method sebuah object juga akan diturunkan dari classnya masing- masing.
Method dalam VB akan menyebabkan sebuah aksi apabila dijalankan, sebagai contoh apabila kita menjalankan method show seperti dibawah ini :


Form1.show ()
Maka form1 akan ditampilkan oleh VB. Pada dasarnya method show dari sebuah form merupakan aksi untuk menampilkan sebuah Form, aksi ini disebut  juga dengan method. Perbedaan antara Properties dan Method dalam sebuah object, seperti sebuah perbedaan antara kata benda dan kata kerja.



1.4   Membuat Class
Pembuatan class baru dalam Visual Basic 2008 dapat kita lakukan melalui menu Project > Add Class, maka akan tampak sebuah jendela seperti dibawah ini :

Dari pilihan yang ada, pastikan kita memilih pilihan Class. Beri nama class baru ini pada kotak Name dan setelah selesai klik tombol Add untuk membuatnya; VB akan membuatkan dua buah statement dasar untuk pembuatan class :
Public Class ClassSederhana
End class    
Pada contoh di atas, ada 4 buah variable didalam class ClassSederhana yaitu NamaDepan, NamaBelakang, JenisKelamin dan Pekerjaan. Variable dalam sebuah Class disebut juga dengan istilah Field.
Kemudian kita mendefinisikan nilai yang boleh ditambahkan dalam variable JenisKelamin yaitu nilai pria atau nilai wanita. Selain kedua nilai tersebut, VB tidak akan menerima nilai lainnya. Perhatikan juga pada contoh di atas, kita menggunakan keyword public (bukan perintah dim) untuk mendeklarasikan beberapa buah variable. Keyword public digunakan agar variable- variable di atas dapat diakses di luar script yang ada dalam class ClassSederhana di atas dan juga agar dapat diakses pada object yang akan kita buat selanjutnya. Lawan dari keyword public adalah keyword private yang akan membatasi penggunaan variable hanya dalam script yang ada pada class tersebut, seperti berikut :

Public Class ClassSederhana
    Private variable1 As String
    Private variable2 As String

...

End Class

Maka kedua variable di atas hanya dapat digunakan di dalam script yang ada pada class ClassSederhana.
Selain digunakan dalam sebuah Form, keyword public dan private juga dipergunakan dalam pembuatan Module. Jadi, apabila kita ingin mengakses sebuah variable yang ada pada sebuah Module maka variable tersebut harus dideklarasikan dengan keyword public (bukan Dim).
Setelah sebuah class selesai kita buat, kita dapat membuat beberapa buah object yang diperlukan dari class di atas dengan menggunakan keyword New.
Untuk lebih jelas mengenai keyword New, tambahkan sebuah Form baru dan buat event Load pada form tersebut, tambahkan beberapa script  seperti dibawah ini :

Public Class ClassSederhana
    Dim namaobject As New namaclass
    ...
    namaobject = New Class

    'membuat object baru bernama obj1 dari class ClassSederhana
    Dim obj1 As New ClassSederhana

    'membuat object baru bernama obj2 dari class ClassSederhana
    Dim obj2 As ClassSederhana
obj2 = New ClassSederhana

    'mengisi masing- masing variable dari object obj1
obj1.NamaDepan = "Firman"
obj2.NamaBelakang = "Subeki"
obj1.JenisKelamin = ClassSederhana.TipeJenisKelamin.Pria
    obj1.Pekerjaan = "Manager"


    'mengisi masing- masing variabel dari object obj2
    obj2.NamaDepan = "Syifa"
    obj2.NamaBelakang = "Al-fatiha"
    obj2.JenisKelamin = ClassSederhana.TipeJenisKelamin.Wanita
    obj2.Pekerjaan = "HRD"

End Class


Dalam pernyataan di atas, kita membuat dua buah object baru bernama obj1 dan obj2 dari class ClassSederhana sehingga semua variabel, properties dan Method yang ada pada class ClassSederhana diturunkan pada kedua object ini.

1.5   Menambahkan Properties
Properti merupakan atribut yang melekat pada suatu kontrol yang berfungsi untuk menentukan karakerisik dari kontrol. Properti juga digunakan untuk menentukan cara kerja dan tampilan dari sebuah kontrol Event suatu kejadian yang dikenakan untuk objek/kontrol.
                Untuk sebuah properties dalam sebuah Class, dapat digunakan pernyataan seperti dibawah ini;
Property namaproperty() As TipeData
    Get
        'pernyataan
    End Get
    Set(ByVal value As TipeData)
        'pernyataan
    End Set

End Property


1.6   Menambahkan Method
Membuat method dalam class sama seperti ketika kita membuat sebuah fungsi atau sebuah procedur karena sebenarnya method bekerja sama seperti sebuah procedur atau sebuah fungsi yang kan menjalankan perintah tertentu apabila dijalankan.
                'membuat Method AmbilNama
Public Function AmbilNama() As String
    Return NamaDepan & " " & NamaBelakang

End Function

Pernyataan di atas beerguna untuk membuat sebuah method baru atau lebih tepat apabila disebut dengan fungsi baru bernama “AmbilNama”. Method ini berguna untuk mengembalikan nilai dari variabel NamaDepan dan NamaBelakang.
Selain menggunakan fungsi, pembuatan method juga dapat dilakukan menggunakan sebuah prosedur seperti dibawah ini :
'membuat variabel lokal untuk digunakan
Private TotalGaji As Decimal

          ...
'membuat method HitungGaji
Public Sub HitungGaji(ByVal Gaji As Decimal, ByVal Lembur As Decimal)
    TotalGaji = Gaji + Lembur
    MsgBox("Gaji ditambah lembur menjadi " & TotalGaji & ".")

End Sub



1.7  .NET Framework
Framework adalah sebuah kerangka kerja yang penggunaannya bertujuan untuk mengurangi overhead (beban) dari aktivitasaktivitas yang sering dilakukan pada saat pelaksanaan proses pengembangan web.
Framework biasanya menyediakan pustaka untuk akses database, templating framework, dan session management serta menawarkan kode-kode program yang dapat digunakan kembali (reusable).

1.8 Contoh Program

Public Class Form1

    Private Sub btexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btexit.Click
        If MsgBox("apakah anda yakin ingin keluar???", MsgBoxStyle.YesNo, "silahkan pilih") = MsgBoxResult.Yes Then Close()

    End Sub

    Private Sub btproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btproses.Click
        llbnama.Text = ("selamat datang: ")
        llbjurusan.Text = ("anda memilih jurusan: ")
        llbgender.Text = ("anda adalah seorang: ")



        MsgBox("anda sudah terdaftar di system putera batam")

        If cmbjurusan.Text = "sistem informasi management" Then
            llbjurusan.Text = "anda memilih jurusan : SIM"
        ElseIf cmbjurusan.Text = "sistem informasi akuntansi" Then
            llbjurusan.Text = "anda memilih jurusan : SIA"
        Else
        End If
        If rbpria.Checked = True Then
            llbgender.Text = "Anda adalah seorang : Pria"
        Else
            If rbwanita.Checked = True Then
                llbgender.Text = "Anda adalah seorang : wanita"
            End If
        End If

        If txtnama.Text = "Firman / Syifa" Then
            llbnama.Text = "selamat datang : Firman"

        Else
            If txtnama.Text = " Firman / Syifa" Then
                llbnama.Text = "selamat datang :Syifa "
            End If
        End If


    End Sub

    Private Sub cmbjurusan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbjurusan.SelectedIndexChanged
      
    End Sub

    Private Sub btreset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btreset.Click
        txtnim.Text = ""
        txtnama.Text = ""
        llbnama.Text = " "
        llbjurusan.Text = " "
        cmbjurusan.Text = " "
        lbjurusan.Text = " "
        lbgenre.Text = " "
        rbpria.Checked = False
        rbwanita.Checked = False

    End Sub

    Private Sub rbpria_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbpria.CheckedChanged
        If rbpria.Checked = True Then
            lbgenre.Text = "GENDER"
        Else
            lbgenre.Text = "GENDER"

        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cmbjurusan.Items.Add("sistem informasi management")
        cmbjurusan.Items.Add("sistem informasi akuntansi")

    End Sub
End Class



·         Harga kamar
Private Sub cmbKdKamar_Click()
    Select Case cmbKdKamar.Text
        Case "KM-001" : txtJenis.Text = "STANDARD"
            txtHarga.Text = "180000"
            txtNomor.Text = "202"
        Case "KM-002" : txtJenis.Text = "STANDARD +"
            txtHarga.Text = "220000"
            txtNomor.Text = "302"
        Case "KM-003" : txtJenis.Text = "STANDARD ++"
            txtHarga.Text = "260000"
            txtNomor.Text = "502"
        Case "KM-004" : txtJenis.Text = "VIP"
            txtHarga.Text = "350000"
            txtNomor.Text = "202"
        Case "KM-005" : txtJenis.Text = "VVIP"
            txtHarga.Text = "500000"
            txtNomor.Text = "702"
    End Select
End Sub
Private Sub cmdBayar_Click()
    Dim TMP, X, Y, TOTAL, DISC As Double
    If chkLoundry.Value = 1 Then
        X = Val(txtHarga.Text) * Val(txtLamaInap.Text)
        Y = Val(txtLamaInap.Text) * 75000
        TMP = X + Y
    Else
        TMP = Val(txtHarga.Text) * Val(txtLamaInap.Text)
    End If
    If optKK.Value = True Then
        DISC = 0.03 * TMP
        TOTAL = TMP + DISC
        txtTotal.Text = TOTAL
    Else
        txtTotal.Text = TMP
    End If
End Sub
Private Sub Form_Load()
    cmbKdKamar.AddItem("KM-001")
    cmbKdKamar.AddItem("KM-002")
    cmbKdKamar.AddItem("KM-003")
    cmbKdKamar.AddItem("KM-004")
    cmbKdKamar.AddItem("KM-005")
End Sub

·         menentukan usia
Privete Sub Cmdok_Click ( )
Umur = Inputbox(“Berapa Usia Anda ?”,”Mohon diisi”,0)
Msgbox  “Terima kasih, Usia anda adalah “ + umur, vbinformation, “Tanggapan”
End Sub


·          penggajian

Private Sub cmdexit_Click()
    End
End Sub
Private Sub Cmdinput_Click()
    Hitung_Gaji()
End Sub
Sub Hitung_Gaji()
    Gaji = InputBox("Masukkan Gaji Pokok", "Input Gaji")
    Tunj = InputBox("Masukkan Tunjangan", "Input Tunjangan")
    Gaber = Val(Gaji) + Val(Tunj)
    If Gaji = "" Or Tunj = "" Then
        MsgBox("Tidak Ada Angka Yang Dimasukkan")
        Exit Sub
    Else
        MsgBox("Gaji Bersi = " & Str(Gaber))
    End If
End Sub

·         Grate Nilai Mahasiswa
Private Sub cmdhitung_Click()
    Dim NilaiTm As Integer
    Dim NilaiMid As Integer
    Dim NilaiFinal As Integer
    Dim NilaiAkhir As Integer
    Dim Grade As String
    NilaiTm = Val(Txttm.Text)
    Nilaiuts = Val(Txtuts.Text)
    Nilaiuas = Val(txtuas.Text)
    NilaiAkhir = NilaiTm * 0.2 + Nilaiuts * 0.3 + Nilaiuas * 0.5
    Select Case NilaiAkhir



        Case Is < 55
            Grade = "E"
        Case 55 To 64
            Grade = "D"
        Case 65 To 74
            Grade = "C"
        Case 75 To 84
            Grade = "B"
        Case Else
            Grade = "A"
    End Select
    lblnilai = NilaiAkhir
    lblnilai.FontSize = 16
    lblnilai.ForeColor = vbBlue
    Lblgrade.Caption = Grade
    Lblgrade.FontSize = 16
    Lblgrade.ForeColor = vbBlue
End Sub