Partial Class

Berbeda dengan VB6, VB.NET dapat membuat beberapa Class sekaligus dalam satu file. Jika anda menuliskan coding yang sangat banyak dalam satu class dan anda ingin memecahnya menjadi beberapa bagian agar tidak rancu dan bingung, anda dapat menggunakan Partial Class.

Pertama, buat projek baru dengan visual basic dan pilih Console Application.

Public Class Matematika

    Public BilanganPertama As Integer
    Public BilanganKedua As Integer

    Public Function Pengurangan() As Integer
        Return BilanganPertama - BilanganKedua
    End Function

    Public Function Penambahan() As Integer
        Return BilanganPertama + BilanganKedua
    End Function

    Public Function Pembagian() As Integer
        Return BilanganPertama / BilanganKedua
    End Function

    Public Function Perkalian() As Integer
        Return BilanganPertama * BilanganKedua
    End Function

End Class

Dari class diatas kita akan memecahkannya menjadi dua dengan nama class yang sama yaitu Matematika tetapi kita juga harus menambahkan method Partial sebelum pendeklarasian Class. Untuk Classpertama kita gunakan untuk menampung variable dan Class kedua untuk menampung fungsi.

Partial Public Class Matematika
    Public BilanganPertama As Integer
    Public BilanganKedua As Integer
End Class

Partial Public Class Matematika

    Public Function Pengurangan() As Integer
        Return BilanganPertama - BilanganKedua
    End Function

    Public Function Penambahan() As Integer
        Return BilanganPertama + BilanganKedua
    End Function

    Public Function Pembagian() As Integer
        Return BilanganPertama / BilanganKedua
    End Function

    Public Function Perkalian() As Integer
        Return BilanganPertama * BilanganKedua
    End Function

End Class

Dan sekarang Class Matematika sudah terpecah menjadi 2 bagian. Tetapi walaupun terpecah menjadi 2, Class Matematika tetap menjadi satu kesatuan. Sekarang kita akan mulai implementasi dari Class Matematika.
Buka Modul1.vb dan masuk pada kalang Sub Main(). Tuliskan coding berikut ini dan jalankan program anda.

Module Module1

    Sub Main()
        'deklarasi class mahasiswa
        Dim mtk As New Matematika

        'Memberi nilai dari variabel
        mtk.BilanganKedua = 2
        mtk.BilanganPertama = 10

        Console.WriteLine("Penambahan : " & mtk.Penambahan)
        Console.WriteLine("Pengurangan : " & mtk.Pengurangan)
        Console.WriteLine("Perkalian : " & mtk.Perkalian)
        Console.WriteLine("Pembagian : " & mtk.Pembagian)

        Console.ReadLine()
    End Sub

End Module