Visual Basic Lanjutan (Teori 6) - Object Oriented Programming (OOP

Assalamualaikum Wr.Wb.

Masih Bersama Saya lagi Sulthan Alawy Shihab, Apakabar semua, semoga kita selalu dilindungi Tuhan Yang Maha Esa.

ini adalah tugas TEORI saya pada pertemuan keenam, silahkan simak dan pelajari.

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.

Berorientasi Object?

Attribute :
   Topi, Baju, Jaket,
   Tas Punggung,
   Tangan, Kaki, Mata

Behavior :
   Cara Jalan ke Depan
   Cara Jalan Mundur
   Cara Belok ke Kiri
   Cara Memanjat

Attribute :
   Ban, Stir, Pedal Rem, Pedal Gas,
   Warna, Tahun Produksi

Behavior :

   Cara Menghidupkan Mesin

   Cara Manjalankan Mobil
   Cara Memundurkan Mobil 

Attribute ⇒ Variable(Member)
Behavior ⇒ Method(Fungsi)

Perbedaan Class dan Object

➤ Class: 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 pak Joko, mobilku, mobil berwarna merah

• Satu 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, Apel

• Class seperti cetakan kue, dimana kue yg dihasilkan dari cetakan kue itu adalah object
• Warna kue bisa bermacam-macam meskipun berasal dari cetakan yang sama (object memiliki
  sifat independen)

Membuat Project dengan Console

• Buat Project Console Application dengan OOP Console_nim.

• Buat Class dengan nama Segiempat dengan cara klik kanan di project OOP Console_nim.

(Latihan1)

• Class Segiempat memiliki attribut panjang dan lebar

• Buat Module untuk Mengakses Class dengan cara klik kanan di project OOP Console_nim.

LATIHAN 1

•  Code :

Public Class Segiempat
    Public panjang As Double
    Public lebar As Double
End Class

Module Module1

    Sub Main()
        'Mendeklarasi variabel lokal
        Dim luas As Double

        'Mendeklarasikan referensi ke kelas segiempat
        Dim se As Segiempat

        'Membuat objek dari kelas SegiEmpat
        se = New Segiempat()

        'Mengisi Nilai Object
        se.panjang = 8
        se.lebar = 6

        'Menghitung luas
        luas = se.panjang * se.lebar

        'Menampilkan luas
        Console.WriteLine("Luas Segi Empat ={0}", luas)
        Console.ReadLine()
    End Sub

End Module

LATIHAN 2

Membuat Class Lingkaran dimana nilai jari-jari ditentukan pengguna dan di akses di Modul Utama.

•  Code :

Public Class Lingkaran
    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()
        luas = 3.14 * r * r
        Return luas
    End Function

End Class

    Sub Main()
        Dim ling As New Lingkaran()
        Console.Write("Masukkan Jari-Jari Lingkaran =")
        ling.r = Console.ReadLine()

        Console.Write("Luas=")
        Console.WriteLine(ling.luas_lingkaran)
        Console.ReadLine()
    End Sub
End Module

LATIHAN 3

Membuat Class kotak dan membuat Volume dari Kotak1 dan Kotak2 Modul Utama.

•  Code:

Public Class Kotak
    Public panjang As Double  ' Panjang dari kotak
    Public luas As Double     ' Luas dari kotak
    Public tinggi As Double   ' Tinggi dari kotak
End Class

Module Module3
    Sub main()
        Dim kotak1 As Kotak = New Kotak()   ' Pembuatan objek kotak1
        Dim kotak2 As Kotak = New Kotak()   ' Pembuatan objek kotak2
        Dim volume As Double = 0.0
        ' Spesifikasi kotak1
        kotak1.tinggi = 2.0
        kotak1.panjang = 3.0 
        kotak1.luas = 4.0
        ' Spesifikasi kotak2
        kotak2.tinggi = 7.0
        kotak2.panjang = 8.0
        kotak2.luas = 9.0
        'volume dari kotak1
        volume = kotak1.tinggi * kotak1.panjang * kotak1.luas 
        Console.WriteLine("Volume dari kotak1 : {0}", volume)
        'volume dari kotak2
        volume = kotak2.tinggi * kotak2.panjang * kotak2.luas 'laptopinformatika.com
        Console.WriteLine("Volume dari kotak2 : {0}", volume)
        Console.ReadKey()
    End Sub
End Module

LATIHAN 4

Membuat Class SegiEmpat2 dan menghitung Volume bangun ruang dimana panjang, lebar dan tinggi di input.

•  Code :

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

Module Module4
    Sub main()
        Dim temp_panjang, temp_lebar As Integer
        Dim temp_tinggi, volume As Integer

        Console.Write("Masukkan Panjang = ")
        temp_panjang = Console.ReadLine()
        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_panjang, temp_lebar))
        Console.Write("Volume = ")
        Console.Write(volume)
        Console.ReadLine()
    End Sub
End Module