yes
no
10/Promotion/slider
no

Polymorphism I

Tidak ada komentar
Pada kesempatan ini penulis akan membahas materi tentang Ciri-Ciri Object Oriented Programming (OOP) berikutnya, yaitu PolymorphismPolymorphism adalah kemampuan untuk menggunakan nama metode yang sama pada kelas induk dan kelas anak dengan nama atau tipe data argumen yang sama atau berbeda. Dari definisi Polymorphism diatas, Polymorphism dibagi menjadi 2 bagian, yaitu :
1.    Teknik Overriding
    Adalah kemampuan untuk menggunakan nama metode yang sama pada kelas induk dan kelas anak, dimana kelas anak mempunyai argumen dengan nama atau tipe data yang sama dengan argumen kelas induknya.
2.    Teknik Overloading
    Adalah kemampuan untuk menggunakan nama metode yang sama pada kelas induk dan kelas anak, dimana kelas anak mempunyai argumen dengan nama atau tipe data yang berbeda dengan argumen kelas induknya.

Pada artikel ini, penulis akan membahas Teknik Overriding dengan menggunakan VB.Net. Selain dengan VB.Net, Polymorphism dapat juga dibuat dengan bahasa pemrograman C++, Java, Javascript, PHP dan bahasa pemrograman lainnya. Computer First adalah Lembaga Pendidikan Kursus Komputer membuka kursus bahasa-bahasa pemrograman tersebut. 

Untuk lebih jelasnya memahami materi tentang teknik overriding, penulis sudah membuat aplikasi yang menggunakan teknik overriding dengan VB.Net sebagai berikut :

Kelas Induk :
Public Class Karyawan
    Protected Friend NIP As String
    Protected Friend Nama As String
    Protected Friend Jabatan As String

    Public Sub setNIP(ByVal NIP As String)
        Me.NIP = NIP
    End Sub
    Public Function getNIP()
        Return NIP
    End Function
    Public Sub setNama(ByVal Nama As String)
        Me.Nama = Nama
    End Sub
    Public Function getNama()
        Return Nama
    End Function
    Public Sub setJabatan(ByVal Jabatan As String)
        Me.Jabatan = Jabatan
    End Sub
    Public Function getJabatan()
        Return Jabatan
    End Function

    Overridable Sub tampilkan()
        Console.WriteLine("NIP     :" & NIP)
        Console.WriteLine("Nama    :" & Nama)
        Console.WriteLine("Jabatan :" & Jabatan)
    End Sub
End Class

Kelas Anak :
Public Class KaryawanTetap
    Inherits Karyawan

    Overrides Sub tampilkan()
        Console.WriteLine("NIP     :" & NIP)
        Console.WriteLine("Nama    :" & Nama)
        Console.WriteLine("Jabatan Staff :" & Jabatan)
    End Sub
End Class

Modul:
Module Overriding
    Sub Main()
        Dim manager As New Karyawan
        Dim staf As New KaryawanTetap
        Dim nipmng As String
        Dim namamng As String
        Dim nipstf As String
        Dim namastf As String
        Dim jabatan As String

        'Data Manager (Class Induk/Class Karyawan))
        Console.Write("NIP    :")
        nipmng = Console.ReadLine
        manager.setNIP(nipmng)
        Console.Write("Nama   :")
        namamng = Console.ReadLine
        manager.setNama(namamng)
        Console.Write("Jabatan :")
        jabatan = Console.ReadLine
        manager.setJabatan(jabatan)
        Console.WriteLine()

        'Data Staff (Class Anak/Class KaryawanTetap))
        Console.Write("NIP    :")
        nipstf = Console.ReadLine
        staf.setNIP(nipstf)
        Console.Write("Nama   :")
        namastf = Console.ReadLine
        staf.setNama(namastf)
        Console.Write("Jabatan :")
        jabatan = Console.ReadLine
        staf.setJabatan(jabatan)
        Console.WriteLine()

        nipmng = manager.getNIP
        namamng = manager.getNama
        jabatan = manager.getJabatan
        Console.WriteLine()
        nipstf = staf.getNIP
        namastf = staf.getNama
        jabatan = staf.getJabatan
      
        manager.tampilkan()
        Console.WriteLine()
        staf.tampilkan()

        Console.ReadLine()
    End Sub
End Module

Jika program di running, maka akan muncul permintaan untuk mengisi data-data nip, nama, gaji dan jabatan pegawai, baik manager maupun staff. Setelah itu, akan tampil hasil/output nya, berupa cetakan data manager dan staff (nip, nama, gaji dan jabatan). Demikan artikel ini penulis buat, semoga bermanfaat bagi semua pembaca blog Computer First. Jangan lupa dicoba dan beri komentarnya.....! 
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)