Pemrograman Desktop (Mendefiniskan Class Persegi Panjang)

Mendefiniskan Class Persegi Panjang

1. Script Program

'mendefinisikan kelas persegipanjang

Public Class segiempat

    Public panjang As Integer

    Public lebar As Integer

End Class

'program utama modul program persegipanjang

Module Module1

    Sub main()

        'mendeklarasikan variabel lokal

        Dim luas1 As Integer

        Dim luas2 As Integer

        'mendeklarasikan objek dari kelas persegipanjang

        Dim se1 As segiempat

        Dim se2 As segiempat

        'membuat ibjek kelas persegipanjang

        se1 = New segiempat()

        se2 = New segiempat()

        'mengisi nilai objek

        se1.panjang = 250

        se1.lebar = 2

        se2.panjang = 34

        se2.lebar = 5

        luas1 = se1.panjang * se1.lebar

        luas2 = se2.panjang * se2.lebar

        'menampilkan luas

        Console.WriteLine("luas persegi panjang 1 = {0}", luas1)

        Console.WriteLine("luas persegi panjang 2 = {0}", luas2)

        Console.ReadLine()

        

        End Sub

    End Module

2. Hasil Setelah Dijalankan