Aplikasi perhitungan Luas Lingkaran, Luas persegi dan Luas segitiga

Wah malam ini kayaknya posting lagi aja deh sekilas tentang aplikasi program sederhana pada visual basik. Saya akan coba buat program sederhana untuk menghitung Luas Lingkaran, Luas persegi, dan Luas Segitiga. Yaa itung-itung belajar aja, lumayan nunggu waktu UTS, dan berharap juga bisa manfaat bagi pembaca.
Pertama saya akan coba membuat program perhitungan pada Luas Lingkaran, perintahnya tidak jauh berbeda dengan project kalkulator yang sebelumnya saya posting. Kite tengok sebentar,...

Ini adalah contoh sederhana pada form awal,..berikut hasilnya adalah :

Dan yang ini codingannya :

Private Sub Command_Click()
Text2.text = Val(Text1.text^2)*3.14
End Sub

Private Sub Command_Click()
Text1.text = " "
Text2.text = " "
End Sub


Haduh Mata udah lumayan ngantuk,. sisanya di postingan selanjutnya ya,. ;-)
Wassalaam.