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

Laptopinformatika.com - 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.

Untuk Latihan-latihan sebelumnya ada di link bawah ini, jika kalian ingin mempelajari semuanya silahkan klik link di bawah ini :

1. Visual Basic Lanjutan Teori 1 Variabel dan Type Data
2. Visual Basic Lanjutan Praktikum 1 Operator
3. Visual Basic Lanjutan Teori 2 Percabangan (Struktur If-Then, If-Then-Else, Nested IF)
4. Visual Basic Lanjutan Praktikum 2 Percabangan (IIF dan Select Case)
5. Visual Basic Lanjutan Teori 3 - Perulangan
6. Visual Basic Lanjutan Praktikum 3 - Perulangan (Do While - Loop)
7. Visual Basic Lanjutan Teori 4 - Array Dimensi Satu
8. Visual Basic Lanjutan Praktikum 4 - Array Dimensi Dua
9. Visual Basic Lanjutan Teori 5 - Procedure dan Function
10. Visual Basic Lanjutan Praktikum 5 - Procedure dan Function

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

Read  More : 10 Cara Terbaik Meningkatkan Traffic Website Dalam Waktu Singkat

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)

Read More : Cara Membuat Logo Blog Gratiss Dengan Benar 100% Berhasil Lengkap Terbaru 2020

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

Read  More : Tamplate Blogger Terbaik 2020 yang Perlu Anda Coba

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

Oke lanjut ke soal-soal latihan, chek it out...

Latihan 1

• Source Code

Public Class Segiempat
    Public panjang As Double
    Public lebar As Double 'laptopinformatika.com
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) 'laptopinformatika.com
        Console.ReadLine()
    End Sub

End Module

Latihan 2

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

• Source Code

Public Class Lingkaran
    Public r, luas As Integer
    Public Property jari() As Integer 'laptopinformatika.com
        Get
            Return r
        End Get
        Set(ByVal value As Integer) 'laptopinformatika.com
            r = value
        End Set
    End Property

    Public Function luas_lingkaran() 'laptopinformatika.com
        luas = 3.14 * r * r
        Return luas
    End Function

End Class

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

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

Read More : Cara Mengetahui Password WiFi dengan CMD 100% Berhasil Terbaru

Latihan 3

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

• Source 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 'laptopinformatika.com
        kotak1.luas = 4.0
        ' Spesifikasi kotak2
        kotak2.tinggi = 7.0
        kotak2.panjang = 8.0 'laptopinformatika.com
        kotak2.luas = 9.0
        'volume dari kotak1
        volume = kotak1.tinggi * kotak1.panjang * kotak1.luas 'laptopinformatika.com
        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.

• Source Code

Public Class Segiempat2
    Public p As Integer
    Public l As Integer
    Public temp_luas As Integer

    Public Property panjang() As Integer 'laptopinformatika.com
        Get
            Return p
        End Get
        Set(ByVal value As Integer) 'laptopinformatika.com
            p = value
        End Set
    End Property

    Public Property lebar() As Integer 'laptopinformatika.com
        Get
            Return l
        End Get
        Set(ByVal value As Integer) 'laptopinformatika.com
            l = value
        End Set
    End Property

    Public Function luas(ByVal panjang As Integer, ByVal lebar As Integer) As Integer
        temp_luas = panjang * lebar 'laptopinformatika.com
        Return temp_luas
    End Function
End Class

Module Module4
    Sub main()
        Dim temp_panjang, temp_lebar As Integer 'laptopinformatika.com
        Dim temp_tinggi, volume As Integer

        Console.Write("Masukkan Panjang = ") 'laptopinformatika.com
        temp_panjang = Console.ReadLine()
        Console.Write("Masukkan Lebar = ")
        temp_lebar = Console.ReadLine()
        Console.Write("Masukkan Tinggi = ") 'laptopinformatika.com
        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 = ") 'laptopinformatika.com
        Console.Write(volume)
        Console.ReadLine()
    End Sub
End Module

Oke mungkin sekian untuk vb pelajaran 6 ini, semoga bermanfaat dan sampai ilmunya ke kalian, thanks see you next again :D

Share this post

Berlangganan update artikel terbaru via email: