AutoCAD ActiveX ¸Àº¸±â °ÁÂ(13) |
ÇÔ¼ö¸¸µé±â
¿À´ÃÀº ÇÔ¼ö¸¦ ¸¸µé¾îº¸µµ·Ï ÇÏ°Ú½À´Ï´Ù. sub·Î ½ÃÀÛÇÏ´Â °ÍÀº ´Üµ¶À¸·Î ½ÇÇàµÇ´Â ÇÁ·Î±×·¥ÀÔ´Ï´Ù. º¸Åë procedure¶ó°íµµ Çϴµ¥, ½ÇÇà¸í·ÉÀ¸·Î
½ÇÇà½ÃÅ°°Ô µË´Ï´Ù. ÇÏÁö¸¸ ÇÁ·Î±×·¥¿¡¼ ÀÌ·¸°Ô procedure¸¸ ÀÖ´Â °ÍÀÌ ¾Æ´Õ´Ï´Ù. ¿¹¸¦ µé¾î¼ ±ÙÀÇ °ø½ÄÀ» ±¸ÇØ¾ß µÇ´Â ÇÁ·Î±×·¥ÀÌ ÀÖ´Ù°í ÇսôÙ.
±×¸®°í ±ÙÀÇ °ø½ÄÀ» ÇÁ·Î±×·¥¿¡¼ ¼ö½Ê¹ø ¾Æ´Ï ¼ö¹é¹ø ±¸ÇØ¾ß µÈ´Ù°í ÇÏ¸é ¾î¶»°Ô ÇؾßÇÒ±î¿ä? ¸Å¹ø ÄÚµùÀ» ÇÒ ¼ö´Â ¾ø´Â ÀÏÀÌ°í, ±×·¡¼ ±ÙÀ» ±¸ÇØÁÖ´Â
ÇÔ¼ö¸¦ ¸¸µé°í ±×°ÍÀ» ÇÊ¿äÇÒ ¶§¸¶´Ù È£ÃâÀ» ÇÒ ¼ö ÀÖ´Â functionÀ̶õ °ÍÀÌ »ý±â°Ô µÈ °ÍÀÔ´Ï´Ù.
Function functionname(³Ñ¾î¿À´Â º¯¼ö)
<½ÇÇàºÎºÐ>
functionname = ³Ñ¾î°¡´Â °ª
End function
ÀÌ·¸°Ô Á¤ÀǸ¦ ÇÏ°Ô µË´Ï´Ù. È£ÃâÇÏ´Â Ãø¿¡¼ ÇÔ¼ö¿¡°Ô ³Ñ°ÜÁÖ´Â ¼ýÀÚÀÔ´Ï´Ù. ±ÙÀÇ °ø½ÄÀÇ ¿¹¸¦ µéÀÚ¸é ax2+bc+c¿¡¼ ±ÙÀÇ °ø½Ä¿¡ ´ëÀÔÇϱâ À§ÇØ
ÇÊ¿äÇÑ º¯¼ö´Â a,b,cÀÔ´Ï´Ù. ÀÌ a,b,c¸¦ ³Ñ°ÜÁÖ´Â °ÍÀÔ´Ï´Ù. ±×·¯¸é ÇÔ¼ö¿¡¼ ±ÙÀ» ±¸Çؼ ³Ñ°ÜÁÖ´Â °ÍÀÔ´Ï´Ù. °è»ê °á°ú¸¦ ³Ñ°ÜÁÖ±â À§Çؼ´Â
ÇÔ¼ö¸í¿¡´Ù °á°ú°ªÀ» ´ëÀÔÇÏ¸é µË´Ï´Ù. functionname=°ª À̶ó°í ¸»ÀÌÁÒ. 2Â÷¹æÁ¤½ÄÀÇ ±ÙÀ» ±¸ÇØÁÖ´Â ÇÔ¼ö¿¡¼ ³Ñ¾î¿À´Â °ªÀº a,b,cÀÌ°í °è»ê°á°ú¸¦
³Ñ°ÜÁÖ±â À§Çؼ´Â functionname=°ª À̶ó°í ÇÏ°Ô µË´Ï´Ù. ¿¹¸¦ µé¾îº¸¸é
Function sol(a,b,c)
sol = (-b+(b^2-4*a*c)^2)/(2*a)
end Function
À§¿Í °°ÀÌ ÀÔ·ÂÇÑ´ÙÀ½¿¡ Á÷Á¢½ÇÇàâ¿¡¼ ? sol(1,5,3)À̶ó°í ÀÔ·ÂÇغ¸¼¼¿ä. 2Â÷¹æÁ¤½ÄÀÇ Ã¹¹ø° ±ÙÀ» º¸¿©ÁÙ °ÍÀÔ´Ï´Ù. ¾Æ·¡±×¸²Ã³·³ ¸»ÀÌÁÒ.
ÀÌÁ¦ ÇÁ·Î±×·¥ ¾îµð¿¡¼µç sol(a,b,c)´Â ax2+bx+cÀÇ Ã¹¹ø° ±ÙÀ» ÀǹÌÇÕ´Ï´Ù. µû¶ó¼ a=sol(1,5,3)À̶ó°í ½á¼ ¾î¶² º¯¼ö¿¡ ´ëÀÔµµ ÇÒ ¼ö ÀÖ°í
b = sol(1,5,3)*10 ÇÔ¼öÀÇ °á°ú°ª¿¡´Ù ´Ù¸¥ ¼ýÀÚ¸¦ °öÇϰųª »©°Å³ª ÇÒ ¼ö ÀÖ½À´Ï´Ù.
¿À´ÃÀº ¿©±â¼ ¸¶Ä¡±â·Î ÇÏ°í ³»ÀÏÀº range¸¦ ÀÎÀÚ·Î ¹Þ´Â fucntionÀ» ¸¸µé¾îº¸µµ·Ï ÇÏ°Ú½À´Ï´Ù.
[ÀÌÀü °ÁÂ]
[´ÙÀ½ °ÁÂ]
|