Circle Area Project Vb (Visual Basic Tutorial - 10)

Create a form with  2 label, 2 Textbox And 1 Commandb Button.

From Desing:

Text box properties…………..

Text1- caption: R=

Text2 - caption: Aeea=

Command buttons properties…………..

Command buttons 1 - Capuion: Circle Area

Add the following code to the form code module for the ‘From1’ _Click event:

Program code:

 

Private Sub Command1_Click()

Dim r, area

r = Val(Text1)

area = 3.1416 * r ^ 2

Text2 = area

End Sub

…………………………………………

By Md. Sayemon

................................................................