Pemrograman Desktop (Mendefinisikan Class Segi Empat)

Mendefinisikan Class Segi Empat

1. Script Program

'mendefinisikan kelas segi empat

Public Class segiempat

    Public panjang As Integer

    Public lebar As Integer

End Class

'program utama modul program segiempat

Module Module1

    Sub main()

        'mendeklarasikan variabel lokal

        Dim luas As Integer

        'mendeklarasikan objek dari kelas segiempat

        Dim se As segiempat

        'membuat ibjek kelas segiempat

        se = New segiempat()

        'mengisi nilai objek

        se.panjang = 8

        se.lebar = 6

        'menghitung luas

        luas = se.panjang * se.lebar

        'menampilkan luas

        Console.WriteLine("luas segi empat = {0}", luas)

        Console.ReadLine()

    End Sub

End Module

2. Hasil Setelah Dijalankan