yes
no
10/Promotion/slider
no

Polymorphism II

Tidak ada komentar
Pada artikel sebelumnya penulis telah membahas materi mengenai Polymorphism dengan sub pokok bahasan tentang Teknik Overriding. Teknik Overriding adalah kemampuan untuk menggunakan nama metode yang sama (prosedure atau fungsi) oleh Kelas Induk (Parent Class) maupun Kelas Anak (Child Class) secara bersamaan dengan nama atau tipe data argumen yang sama. Pada artikel ini penulis akan membahas materi artikel Polymorphism bagian ke-2 dengan materi sub pokok bahasan tentang Teknik Overloading. Teknik Overloading adalah kemampuan untuk menggunakan nama metode yang sama (prosedure dan fungsi) oleh Kelas Induk (Parent Class) maupun kelas anak (Child Class) secara bersamaan dengan nama atau tipe data argumen yang berbeda.

 Untuk lebih memahami tentang penggunaan Teknik Overloading, pada artikel ini penulis sudah membuat aplikasi yang menggunakan konsep Teknik Overloading dengan VB.Net. Selain dengan VB.Net, aplikasi tersebut dapat juga dibuat dengan menggunakan bahasa pemrograman C++, Java, Javascript, PHP dan bahasa pemrograman lainnya Bahasa-bahasa pemrogrman tersebut dapat dipelajari di Lembaga Pendidikan Kursus Komputer atau IT Training Center. ComputerFirst adalah lembaga pendidikan kursus komputer yang membuka kursus bahasa-bahasa pemrograman tersebut. Adapun skrip/kode program dari aplikasi tersebut adalah sebagai berikut :

Kelas Induk
Public Class Pegawai
    Protected Friend NIP As String
    Protected Friend Nama As String
    Protected Friend Jabatan As String
    Protected Friend Gol As String
    Protected Friend Gaji As Long

         'Argumen NIP dengan type data 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

    'Argumen Gol dengan type data String
    Public Sub setGol(ByVal Gol As String)
        Me.Gol = Gol
    End Sub
    Public Function getGol()
        Return Gol
    End Function

    'Argumen Gaji dengan type data Long
    Public Sub setGaji(ByVal Gaji As Long)
        Me.Gaji = Gaji
    End Sub
    Public Function getGaji()
        Return Gaji
    End Function
    Public Sub tampilkan()
        Console.WriteLine("NIP     :" & NIP)
        Console.WriteLine("Nama    :" & Nama)
        Console.WriteLine("Jabatan :" & Jabatan)
        Console.WriteLine("Gol     :" & Gol)
        Console.WriteLine("Gaji    :" & Gaji)
    End Sub
End Class

Kelas Anak
Public Class Staff
    Inherits Pegawai
    
    'Argumen NIP dengan type data Integer
    Public Sub setNIP2(ByVal NIP As Integer
            Me.NIP = NIP
    End Sub
    Public Function getNIP2()
        Return NIP
    End Function
    Public Sub setNama2(ByVal Nama As String)
        Me.Nama = Nama
    End Sub
    Public Function getNama2()
        Return Nama
    End Function
    Public Sub setJabatan2(ByVal Jabatan As String)
        Me.Jabatan = Jabatan
    End Sub
    Public Function getJabatan2()
        Return Jabatan
    End Function
    
    'Argumen Gol dengan type data Integer
    Public Sub setGol2(ByVal Gol As Integer)
        Me.Gol = Gol
    End Sub
    Public Function getGol2()
        Return Gol
    End Function

    'Argumen Gaji dengan type data Double
    Public Sub setGaji2(ByVal Gaji As Double)
        Me.Gaji = Gaji
    End Sub
    Public Function getGaji2()
        Return Gaji
    End Function
    Public Overloads Sub tampilkan()
        Console.WriteLine("NIP Staff    :" & NIP)
        Console.WriteLine("Nama Staff   :" & Nama)
        Console.WriteLine("Jabatan Staf :" & Jabatan)
        Console.WriteLine("Gol Staff    :" & Gol)
        Console.WriteLine("Gaji Staff   :" & Gaji)
    End Sub
End Class

Modul
Module TeknikOverloading
    Sub Main()
        Dim manager As New Pegawai
        Dim staff As New Staff
        Dim nip As String
        Dim nama As String
        Dim jabatan As String
        Dim gol As String
        Dim gaji As Long

        Console.WriteLine("DAFTAR PEGAWAI :")
        Console.WriteLine()
        Console.Write("NIP    :" & " ")
        nip = Console.ReadLine
        manager.setNIP(nip)
        Console.Write("Nama   :" & " ")
        nama = Console.ReadLine
        manager.setNama(nama)
        Console.Write("Jabatan    :" & " ")
        jabatan = Console.ReadLine
        manager.setJabatan(jabatan)
        Console.Write("Gol    :" & " ")
        gol = Console.ReadLine
        manager.setGol(gol)
        Console.Write("Gaji    :" & " ")
        gaji = Console.ReadLine
        manager.setGaji(gaji)

        Console.WriteLine()
        Console.WriteLine()

        Console.Write("NIP    :" & " ")
        nip = Console.ReadLine
        staff.setNIP2(nip)
        Console.Write("Nama   :" & " ")
        namastaff = Console.ReadLine
        staff.setNama2(nama)
        Console.Write("Jabatan    :" & " ")
        jabatan= Console.ReadLine
        staff.setJabatan2(jabatan)
        Console.Write("Gol    :" & " ")
        gol = Console.ReadLine
        staff.setGol2(gol)
        Console.Write("Gaji    :" & " ")
        gaji = Console.ReadLine
        staff.setGaji2(gaji)

        Console.WriteLine()

        nip = manager.getNIP
        nama = manager.getNama
        jabatan = manager.getJabatan
        gol = manager.getGol
        gaji= manager.getGaji


        nip = staff.getNIP2
        nama = staff.getNama2
        jabatan = staff.getJabatan2
        gol = staff.getGol2
        gaji = staff.getGaji2

        Console.WriteLine("DAFTAR PEGAWAI :")
        manager.tampilkan()
        Console.WriteLine()
        staff.tampilkan()

        Console.ReadLine()
    End Sub
End Module

Jika program di running, maka akan muncul permintaan untuk mengisi data-data nip, nama, jabatan, golongan dan gaji pegawai, baik manager maupun staff. Setelah itu, akan tampil hasil/output nya, berupa cetakan datamanager dan staff (nip, nama, jabatan, golongan dan gaji). 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)