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
Baccarat - Definition & Meaning | Wilbur Young & Nancy
BalasHapusThe game of Baccarat (a single card game devised in the 바카라 사이트 온라인 바카라 United States in the 18th century). It is also sometimes played as a card game in which the player takes