Çember,Dikdörtgenin Alan ve Çevresini hesaplayan program yapımı . gorsel programlama dersi 1.dönem 2.yazılı uygulama 2.soru.
Yukarıdaki gibi geometrik şekillerin alan ve çevresini hesaplayan bir program tasarlanacaktır. Hangi geometrik şeklin alanı ve çevresi hesaplanacaksa radio butonlarla bu seçilecek ve hesapla düğmesine tıklanınca gerekli verileri kullanıcının girmesi sağlanıp sonuç yine labellerde gösterilecektir .
Kullanılan Araçlar ; 1 GroupBox, 1 Button , 2 RadioButton, 4 Label , 1Button
Bu kullanılan araçları groupbox ın içine yerletirilerek yapılacak..
Yapılışı;
Hesapla Butonu yani Button1 yazılacak kodlar;
[code language=”vb”]</p></p>
Dim alan, çevre As Single
Dim kenar1, kenar2, r As Integer
If RadioButton1.Checked = True Then
r = Val(InputBox("yarıçapı giriniz", "ÇEMBER"))
alan = Math.PI * r * r
çevre = 2 * Math.PI * r
Label2.Text = alan
Label4.Text = çevre
End If
If RadioButton2.Checked = True Then
kenar1 = Val(InputBox("KISA kenarı giriniz", "DİKDÖRTGEN "))
kenar2 = Val(InputBox("UZUN kenarı giriniz", "DİKDÖRTGEN "))
alan = kenar1 * kenar2
çevre = 2 * (kenar1 + kenar2)
Label2.Text = alan
Label4.Text = çevre
End If
[/code]