Gorsel Programlama

Ç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