Dikdörtgenin Alanını Ve Çevresinin Hesaplanması

Bir dikdörtgenin çevresi, dikdörtgenin kısa kenarı ile uzun kenarının toplanıp toplamın 2 ile çarpılması ile elde edilir. Buna göre kullanıcıdan kenar uzunlukları istenilen dikdörtgenin çevresini hesaplayan programı yazınız. Programın çözümü için öncelikle kullanıcıdan kısa ve uzun kenarlar için değer istenecektir. Ardından istenilen bu değerler toplanıp 2 ile çarpılacak ve dikdörtgenin çevresi bulunacaktır.

   ........... Kod Kısmı .............

Public Class Form1
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Alan Hesaplama
Dim a, b, alan As Double
a = TextBox1.Text
b = TextBox2.Text
alan = a * b
TextBox3.Text = alan

 'Çevre Hesaplama

 Dim c, d, cevre As Double
 c = TextBox1.Text
 d = TextBox2.Text
 cevre = 2 * c + 2 * d
 TextBox4.Text = cevre
 End Sub
 End Class