Labels

Sunday, April 14, 2013

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ə  ılacaq.
 


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


4 comments:

  1. BU ALQORİTMLƏRİ HARDAN TAPIRSINIZ?

    ReplyDelete
  2. Ardıcıllığı öyrənirəm sonra EXcel VBA üçün tərtib edirəm

    ReplyDelete

 
Рейтинг@Mail.ru