Excel VBA ilə dairənin sahəsini hesabla

Salam.Bu dərsimizdə Excel VBA ilə dairənin sahəsini hesablayacayıq.

Bunun üçün Exceli açırıq ( Həm Rus dilli,həmdə İngilis dilli Excel-ə aiddir)

Daha sonra əvvəlki dərslərimizdə öyrəndiyimiz kimi ALT F11 düymələrinin köməyi ilə Excel VBA hissəsinə keçirik.Soldakı menudan ThisWorkbook(ЕтаКнига) obyektinə klik edirik ki kod hissəsi açılsın.

Bu dərsimizdə biz həmdə Excel VBA-nin İnputBox komponentində öyrənmiş olacağıq.İndi isə kodumuzu daxil edək.( Radiusa görə sahəni tapaq )

Option Explicit

Sub radiussahe()

 Const PI As Double = 3.14159265358979

 Dim radius, sahe As Double

 radius = InputBox("Dairenin radiusunu daxil edin:", "Dairenin sahesini interaktiv shekilde hesablayan prosedur")

sahe = PI * radius ^ 2

MsgBox ("Radiusu " & radius & " olan dairenin sahesi " & sahe & "beraberdir! " & " (c) www.oyrenmek.blogspot.com")

 End Sub

Əmri icra etək üçün F5 düyməsinə klik edin .

Boş sahəyə 5 ədədin daxil edib, OK düyməsini sıxaq. Nəticədə monitorda nəticələri göstərən yeni

pəncərə  açılacaq.

 

 

Növbəti dərslərədək.Diqqətinizə görə minnətdaram