yes
no
10/Promotion/slider
no

Inheritance

Tidak ada komentar

Pada artikel sebelumnya, penulis sudah membahas materi artikel tentang Mengenal Object Oriented Programming (OOP). Pada artikel tersebut dibahas ciri-ciri dari Object Oriented Programming (OOP), meliputi : Encapsulation, Inheritance dan Polymorphism. Pada kesempatan ini, penulis akan membahas lebih detail tentang Inheritance. Inheritance adalah pewarisan sifat dari kelas Induk (Parent Class) ke kelas Anak (Child Class). Adapun yang diwariskan adalah variabel/atribut dan method (prosedur dan fungsi). Dengan adanya Inheritance, maka kelas anak dapat menggunakan variabel/atribut dan method  milik kelas induk. Pada artikel ini penulis membahas Inheritance dengan bahasa pemrograman VB.Net.

Selain dengan VB.Net, inheritance juga digunakan oleh bahasa program C, C++, C#, Java, Javascript, PHP dan bahasa pemrograman lainnya. Bahasa-bahasa pemrograman tersebut dapat dipelajari di Lembaga Pendidikan Kursus Komputer/IT Training Center. Computer First adalah Lembaga Pendidikan Kursus Komputer yang membuka kursus bahasa-bahasa pemrograman tersebut.

Untuk lebih memahami materi tentang Inheritance, penulis sudah membuat contoh aplikasi yang menggunakan konsep Inheritance dengan VB.Net sebagai berikut :

Nama File : ParentClass and ChildClass

Class PersegiPanjang  (Parent Class) :
Public Class PersegiPanjang
    Private alas As Integer
    Private tinggi As Integer
   
    Public Sub setAlas(ByVal alas As Integer)
        Me.alas = alas
    End Sub

    Public Function getAlas() As Integer
        Return alas
    End Function
   
    Public Sub setTinggi(ByVal tinggi As Integer)
        Me.tinggi = tinggi
    End Sub
   
    Public Function getTinggi() As Integer
        Return tinggi
    End Function
End Class

Class Segitiga (ChildClass) :
Public Class Segitiga
    Inherits PersegiPanjang

    Private sisimiring As Integer
    Public Sub setSisimiring(ByVal sisimiring As Integer)
        Me.sisimiring = sisimiring
    End Sub

    Public Function getSisimiring() As Integer
        Return sisimiring
    End Function
End Class

Modul :
Module Inheritance
    Sub Main()
        Dim objPersegiPanjang As New PersegiPanjang
        Dim objSegitiga As New Segitiga
        Dim Pilih As Integer
        Dim Alas As Integer
        Dim Tinggi As Integer
        Dim Luas As Integer
        Dim Keliling As Integer

        Console.WriteLine("  BANGUN DATAR")
        Console.WriteLine()
        Do
            Console.WriteLine()
            Console.WriteLine("Pilih Jenis Bangun :")
            Console.WriteLine("1.Persegi Panjang")
            Console.WriteLine("2.Segitiga")
            Console.WriteLine()

            Console.Write("Pilihan Anda:" & " ")
            Pilih = Console.ReadLine
            Console.WriteLine()

            If Pilih = 1 Then
                Console.Write("Masukkan Nilai Alas :" & " ")
                Alas = Console.ReadLine
                objPersegiPanjang.setAlas(Alas)
                Console.WriteLine()
                Console.Write("Masukkan Nilai Tinggi :" & " ")
                Tinggi = Console.ReadLine
                objPersegiPanjang.setTinggi(Tinggi)

                Luas = objPersegiPanjang.getAlas * objPersegiPanjang.getTinggi
                Keliling = (2 * objPersegiPanjang.getAlas) + (2 * objPersegiPanjang.getTinggi)
                Console.WriteLine("Luas Persegi Panjang : " & Luas)
                Console.WriteLine("Keliling Persegi Panjang :" & Keliling)
            ElseIf Pilih = 2 Then
                Console.Write("Masukkan Nilai Alas :" & " ")
                Alas = Console.ReadLine
                objSegitiga.setAlas(Alas)
                Console.WriteLine()
                Console.Write("Masukkan Nilai Tinggi :" & " ")
                Tinggi = Console.ReadLine
                objSegitiga.setTinggi(Tinggi)

                Luas = objSegitiga.getAlas / 2 * objSegitiga.getTinggi
                objSegitiga.setSisimiring(Math.Sqrt(Math.Pow(objSegitiga.getAlas, 2)) + (Math.Pow(objSegitiga.getTinggi, 2)))
                Keliling = objSegitiga.getAlas + objSegitiga.getTinggi + objSegitiga.getSisimiring
                Console.WriteLine("Luas Segitiga :" & Luas)
                Console.WriteLine("Panjang Sisimiring : " & objSegitiga.getSisimiring)
                Console.WriteLine("Keliling Segitiga :" & Keliling)
            End If
        Loop While Pilih > 1 Or Pilih < 3
        Console.ReadLine()
    End Sub
End Module

Jika program di running, maka akan tampil menu yang terdiri dari 2 pilihan yang disediakan untuk menghitung luas dan keliling persegi panjang dan segitiga. Kemudian user diminta untuk menginput besaran dari bangun datar yang akan dihitung luas dan kelilingnya (alas dan tinggi bangun datar). Setelah selesai menginput nilai-nilai besaran dari bangun datar tersebut, maka  akan ditampilkan hasilnya berupa nilai alas, tinggi, luas dan keliling dari bangun datar tersebut.

Demikian artikel ini penulis buat, semoga bermanfaat bagi para pembaca blog Computer First. Jangan lupa untuk dicoba di komputer dan memberi komentar……..

author profile image
Abdelghafour

Lorem Ipsum is simply dummy text of the printing and typesetting industry. Lorem Ipsum has been the industry's standard dummy text ever since the 1500s, when an unknown printer took a galley of type and scrambled it to make a type specimen book.

Tidak ada komentar

Posting Komentar

no
Computer First - First Choice in IT Training Center - menyediakan jasa pelatihan Kursus Komputer di Jakarta sejak dari usia dini yaitu sejak anak-anak sampai dengan dewasa. Computer First berdiri pada tahun 2001, Visi Computer First ingin menjadi First Choice in IT Training Center melalui pendidikan dan pelatihan komputer yang berkualitas terbaik [Computer First Indonesia] (http://computerfirst.co.id/images/logo/logo1.png)