visual basic: menghitung luas & keliling lingkaran

Progran menghitung Luas dan Keliling Lingkaran

1. buat terlebih dahulu desain programnya

contoh desain

2. masukan coding dibawah ini

(General)                               (declaration)

Const phi As Double = 3.14

Dim hasil As Double

_______________________________________________________

Private Sub Command1_Click()

hasil = phi * (Text1.Text * Text1.Text)

Text2.Text = hasil

Text2.Visible = True

Label2.Visible = True

End Sub

_______________________________________________________

Private Sub Command2_Click()

hasil = 2 * phi * Text1.Text

Text2.Text = hasil

Text2.Visible = True

Label2.Visible = True

End Sub

_______________________________________________________

Private Sub Command3_Click()

Text1.Text = Clear

Text2.Visible = False

Label2.Visible = False

Text1.SetFocus

End Sub

_______________________________________________________

Private Sub Command4_Click()

End

End Sub

_______________________________________________________

setelah dimasukan coding di atas cobalah Run apakah programnya berjalan....

catatan!!
Commandbutton1 adalah Luas
Commandbutton2 adalah Keliling
Commandbutton3 adalah Clear
Commandbutton4 adalah End

penggunaan Visible

perhatikan pada sub command1,sub command2, sub command3 disitu tertulis Text2.Visible = True atau Text2.Visible = False. apa kegunaan coding itu???

Visible digunakan untuk menampilkan atau menghilangkan suatu objek

                       -jika Visible = True maka object tersebut akan terlihat

                       -jika Visible = False maka objek tersebut akan hilang