Konsep Dasar Object Oriented Programming (OOP) Visual Basic 2010

Object Oriented Programming (OOP) 

Visual Basic adalah suatu konsep pemrograman yang menggunakan Object. Berinteraksi dalam hal pembuatan aplikasi komputer dikarenakan adanya suatu pengelompokan elemen-elemen atau modul-modul atau class-class yang bekerja berdasarkan fungsinya masing-masing. Dengan teknik pemrograman berorientasi objek ini, akan memudahkan dalam mengelompokkan source code sesuai dengan fungsi dari source code tersebut. 

Perbedaan Class dan Object
Class: adalah konsep dan deskripsi dari sesuatu 
Class adalah abstrak dari suatu Object
Class mendeklarasikan method yang dapat digunakan (dipanggil) oleh object
Object: instance dari class, bentuk (contoh) nyata dari class
Object memiliki sifat independen dan dapat digunakan untuk memanggil method

Contoh Class dan Object:
Class: mobil
Object: mobilnya Salman, mobilku, mobil berwarna hijau tosca
Class; handphone 
Object handphone salman, dan handphone saya sama warnanya

Suatu class dapat memiliki banyak object, dan setiap object tersebut mempunyai sifat yang sama persis seperti yang didefinisikan dalam class tersebut 
Contoh :
Class dan Object
Class : Fruit 
Object : Pisang,Mangga,Melon

 

Latihan Membuat Project dengan Console 

• Latihan 1 (Program Menghitung Persegi Panjang)

 Buatlah class seperti dibawah ini di VisCode 2010

Lalu Add Module ke Project tersebut lalu copy source code nya 

Module Module1_Pertemuan_7_Latihan_1_Teori

    Sub Main()

        'mendeklarasi variable local

        Dim luas As Double

        'mendeklarasi referensi ke class segiempat

        Dim persegi As Pertemuan_7_Latihan_1_Teori

        'Membuat Object dari class pertemuan7latihan

        persegi = New Pertemuan_7_Latihan_1_Teori

        'Mengisi nilai object

        persegi.panjang = 6

        persegi.lebar = 2

        'menghitung luas

        luas = persegi.panjang * persegi.lebar

        'Ahmad Salman Farisi

        'menampilkan luas

        Console.WriteLine("Luas Segiempat = {0}", luas)

        Console.ReadLine()

    End Sub

End Module

Berikut running Programnya 

• Latihan 2 (Program Menghitung Luas Lingkaran)

Buatlah class seperti dibawah ini di VisCode 2010

Public Class Pertemuan_7_Latihan_2_Teori

    Public r, luas As Integer

    Public Property jari As Integer

        Get

            Return r

        End Get

        Set(ByVal value As Integer)

            r = value

        End Set

    End Property

    Public Function luas_lingkaran()

        'Ahmad Salman Farisi

        luas = 3.14 * r * r

        Return luas

    End Function

End Class

Lalu buat module copykan source code di bawah ini

Module Module1

    Sub Main()

        Dim lingkaran As New Pertemuan_7_Latihan_2_Teori

        Console.Write("Masukkan Jari-jari Lingkaran :")

        lingkaran.r = Console.ReadLine

        Console.Write("Luas = ")

        Console.WriteLine(lingkaran.luas_lingkaran)

        Console.ReadLine()

    End Sub

End Module

Berikut Running Programnya

• Latihan 3 (Program Menghitung Kubus)

Buatlah class seperti dibawah ini di VisCode 2010

Public Class Kotak

    Public panjang As Double

    Public luas As Double

    Public tinggi As Double

End Class

Lalu Buat module copy source code di bawah ini

Module Module1

    Sub Main()

        Dim kotak1 As Kotak = New Kotak

        Dim kotak2 As Kotak = New Kotak

        Dim volume As Double = 0.0

        'spesifikasi kotak1

        kotak1.luas = 9.0

        kotak1.tinggi = 2.0

        kotak1.panjang = 3.0

        'spesifikasi kotak2

        kotak2.luas = 2.0

        kotak2.tinggi = 2.0

        kotak2.panjang = 5.0

        'volume kotak

        volume = kotak1.tinggi * kotak1.luas * kotak1.panjang

        Console.WriteLine("Volume dari kotak 1 ={0}", volume)

        volume = kotak2.luas * kotak2.tinggi * kotak2.panjang

        Console.WriteLine("Volume dari kotak 2 ={0}", volume)

        Console.ReadKey()

    End Sub

End Module

Berikut Running Programnya 

• Latihan 4 (Program Menghitung Volume dan Luas Segi Empat

Buatlah class seperti dibawah ini di VisCode 2010

Public Class segiempat2

    Public p As Integer

    Public l As Integer

    Public temp_luas As Integer

    Public Property panjang() As Integer

        Get

            Return p

        End Get

        Set(ByVal value As Integer)

            p = value

        End Set

    End Property

    Public Property lebar() As Integer

        Get

            Return l

        End Get

        Set(ByVal value As Integer)

            l = value

        End Set

    End Property

    Public Function luas(ByVal panjang As Integer, ByVal lebar As Integer) As Integer

        temp_luas = panjang * lebar

        Return temp_luas

    End Function

End Class

Lalu Buat module copy source code di bawah ini

Module Module1

    Sub Main()

        Dim temp_panjang, temp_lebar As Integer

        Dim temp_tinggi, volume As Integer

        Console.Write("Masukkan Panjang =")

        temp_panjang = Console.ReadLine()

        Console.WriteLine("Ahmad Salman Farisi")

        Console.Write("Masukkan Lebar =")

        temp_lebar = Console.ReadLine

        Console.Write("Masukkan Tinggi =")

        temp_tinggi = Console.ReadLine

        Dim persegipanjang As New segiempat2

        Console.Write("Luas =")

        Console.WriteLine(persegipanjang.luas(temp_panjang, temp_lebar))

        volume = temp_tinggi * (persegipanjang.luas(temp_lebar, temp_panjang))

        Console.Write("Volume =")

        Console.Write(volume)

        Console.ReadLine()

    End Sub

End Module

Berikut Program Running nya 

Itulah beberapa contoh latihan dari Class dan Object pada Visual Basic 2010

Sekian dari post ini semoga bermanfaat dan dapat ilmu yang berguna 

どうもありがとうございました…!

---

Share post ini ke :

Facebook WhatsApp Twitter LINE Linkedin

---

Subscribe to receive free email updates: