Menghitung Keliling dan Luas Lingkaran dengan vb 6.0

Menghitung Keliling dan Luas Lingkaran dengan vb 6.0

Pada tutorial VB (visual basic) 6.0 kali ini kita akan membuat sebuah program untuk menghitung keliling dan luas lingkaran. Sebelum membuat program yang paling awal dipahami adalah mengetahui rumus-umus yang digunakan untuk menghitung keliling dan luas lingkaran tersebut. Karena mustahil kita membuat sebuah program tanpa mengetahui logika pemogramannya. Untuk mencari las lingkaran menggunakan rumus Phi x (jari.jari x jari.jari) sedangkan rumus untuk menghitung keliling lingkaran 2 x phi x jari.jari.

Toolbox yang digunakan ada tiga buah textbox untuk memasukan nilai jari-jari dan menampilkan hasil keliling serta luas lingkaran. Tiga buah CommandButton untuk melakukan proses perhitungan, melakukan pembersihan atau pengosongan textbox dan command close. Baca juga artikel saya tentang cara membuat kalkulator sederhana dengan VB.

Silahkan design program untuk menghitung keliling dan luas lingkaran seperti design gambar dibawah ini :

Selanjutnya masukan coding berikut :

Private Sub Command1_Click()
Dim phi, luas, Keliling As Double

phi = 22 / 7

luas = phi * (Text1.Text * Text1.Text)
Keliling = 2 * phi * Text1.Text

Text2.Text = luas
Text3.Text = Keliling
Text1.SetFocus
MsgBox "luas lingkaran : " & luas & vbCrLf & "Keliling : " & Keliling, vbInformation, "hasil"
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub

Maka hasil akhirnya seperti gambar dibawah ini :