Cara Menghitung Intensitas Bunyi

Struktur program untuk menghitung nilai Intensitas Bunyi menggunakan Visual Basic :

CODING :

Private Sub Command1_Click()

P = Val(Text1)

r = Val(Text2)

I = P / (4 * 3.14 * r * r)

Text3 = I

End Sub