Merhaba Arkadaşlar,
Kürenin alanı ve hacmi hesaplama kaynak kodlarını paylaşıcam.Bu basit birşekilde formülü aşağıdaki gibi uyguluyoruz.Size yabancı gelebilir belki Math.PI komutuyla pi sayisini aliyorum 22/7 olarak alıyor.Math.round(Yuvarlancak sayı,Virgülden sonra kaç basamak) bu işe yarıyor.
Eklememiz Gerekenler : 1 Textbox,1 button,sonuç aralığına ekliceklerinize göre label
Kodlar :
Dim r, hacim, hacimpi, alan, alanpi As Double
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
r = Val(TextBox1.Text)
hacim = 4 / 3 * Math.PI * r ^ 3
Label2.Text = Math.Round(hacim, 1)
hacimpi = 4 / 3 * r ^ 3
Label5.Text = Math.Round(hacimpi, 1) & " Pi"
alan = 4 * Math.PI * r ^ 2
alanpi = 4 * r ^ 2
Label7.Text = Math.Round(alan, 1)
Label9.Text = Math.Round(alanpi, 1) & " Pi"
'canmose.org
End Sub
Program Resmi :
Program (Bunda Kaynak Dosya Vermiyorum gerek duymadım ):
