Tugas Menghitung keliling dan luas lingkaran menggunakan Visual Basic 06

Ini adalah nama" objek pada sistem ini

Private Sub cmdhitung_Click()
Const phi As Single = 3.14
Dim luas As Single
Dim keliling As Single

r = txtjarijari.Text

luas = phi * (r * r)
keliling = 2 * phi * r
lblLuas.Caption = "Luas     : " & luas
lblkeliling.Caption = "Keliling : " & keliling

End Sub

YANG DI ATAS ADALAH KODE YANG TERDAPAT DI SISTEM YANG SAYA BUAT

Tampilan Data Luas dan Keliling lingkaran dan Gambar lingkaran

Ini adalah tampilan hasil dari rumusan Luas dan Keliling Lingkaran, setelah di isi r (jari-jari) lalu klik Hitung secara otomatis akan terdapat jawabanya di bawah .

Saya buat r (jari-jari) nya itu 13

Dan cara manual ada di bawah sini \\//

r = 13
jadi :
Luas       = Phi * (r * r)
               = 3,14 * (13 * 13)
               = 3,14 * 169
               = 530,66 (benar)

Keliling  = 2 * phi * r
               = 2 * 3,14 * 13
               = 81,64 (benar)

 Jangan lupa kritik,saran dan Kometarnya di bawahh ini (y)