Visual Basic Dikdörtgenin Alanını Hesaplama Örneği

"Visual Basic" Programlama dilinde "Dikdörtgenin Alanını Hesaplama Örneği" ile ilgili örnek kod aşağıda belirtilmiştir.

Imports System

Module Module1
    Sub Main()
        Dim r As New RectangleArea()
        r.GetData()
        r.ComputeField()
        r.FieldDisplay()
    End Sub
End Module

Class RectangleArea
    Public length, width, area As Double

    Public Sub GetData()
        Console.WriteLine("Dikdortgenin uzunlugunu girin: ")
        length = Convert.ToDouble(Console.ReadLine())
        Console.WriteLine("Dikdortgenin genisligini girin: ")
        width = Convert.ToDouble(Console.ReadLine())
    End Sub

    Public Sub ComputeField()
        area = length * width
    End Sub

    Public Sub FieldDisplay()
        Console.WriteLine("Dikdortgenin Alani: " + area.ToString())
    End Sub
End Class



İlginizi Çekebilir

Visual Basic Uygulama Açıksa Tekrar Açtırmama Kontrolü

Visual Basic Bilgisayarın Local IP Adresini Bulmak

Visual Basic Rastgele Tarih Yaratmak

Visual Basic Bir Dizi Kullanarak N Sayının Toplamını Bulma Örneği

Visual Basic'de İşletim Sistemi Kullanıcı Adını Bulma