Cara Menghitung Luas Dan Keliling Lingkaran dalam VB 6

Langkah pertama buat form baru..

Pilih 3 Label ; Jari-jari, Luas Lingkaran, Keliling Lingkaran

Pilh 3 TextBox

Tulis ini Kedalam Listing ;

Private Sub Text1_Change()

Dim p, j, l, k As Single

p = 22 / 7

j = Val(Text1.Text)

k = 2 * p * j

l = p * j * j

Text3.Text = k

Text2.Text = l

End Sub

Mudah bukan dan sangat simple.. let the spirit!!!