Ç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;  

</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

PROJEYİ İNDİR 

Rica: Sitemizin Google'da Ön Sıralarda Çıkması İçin Lütfen Alttaki Google+ Butonuna Tıklayınız , Sayfamızı Facebookta Beğeniniz veya yazıları Twitter,Facebookta paylaşınız.