Microsoft® Visual Basic® Scripting Edition VBScript ÇÁ·Î½ÃÀú |
VBScript ÀÚ½À¼ ÀÌÀü ÆäÀÌÁö| ´ÙÀ½ ÆäÀÌÁö |
VBScript ÇÁ·Î½ÃÀú¿¡´Â µÎ Á¾·ù, Áï Sub ÇÁ·Î½ÃÀú¿Í Function ÇÁ·Î½ÃÀú°¡ ÀÖ½À´Ï´Ù.Sub ÇÁ·Î½ÃÀú
Sub ÇÁ·Î½ÃÀú´Â Sub¹®°ú End Sub¹®À¸·Î ¹¾îÁø ÀÏ·ÃÀÇ VBScript ¸í·É¹®À¸·Î µ¿ÀÛÀ» ¼öÇàÇÏÁö¸¸ ±× °ªÀ» ¹ÝȯÇÏÁö´Â ¾Ê½À´Ï´Ù. Sub ÇÁ·Î½ÃÀú¿¡¼´Â È£ÃâÇÏ´Â ÇÁ·Î½ÃÀú°¡ Àü´ÞÇÏ´Â »ó¼ö, º¯¼ö ¶Ç´Â ½ÄÀ¸·Î µÈ Àμö¸¦ »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. Sub ÇÁ·Î½ÃÀú¿¡¼ Àμö°¡ ¾øÀ¸¸é ÇØ´ç Sub¹®¿¡ ºó °ýÈ£()°¡ ÀÖ¾î¾ß ÇÕ´Ï´Ù.¾Æ·¡ Sub ÇÁ·Î½ÃÀú´Â ³»ºÎ(±âº»ÀûÀ¸·Î Á¦°øµÇ´Â) VBScript ÇÔ¼ö µÎ °³, Áï MsgBox¿Í InputBox¸¦ »ç¿ëÇÏ¿© »ç¿ëÀÚ¿¡°Ô Á¤º¸¸¦ ¾Ë·ÁÁÝ´Ï´Ù. ±×·± ´ÙÀ½ ÇØ´ç Á¤º¸¿¡ µû¸¥ °è»ê °á°ú¸¦ Ç¥½ÃÇÕ´Ï´Ù. VBScript¸¦ »ç¿ëÇÏ¿© ¸¸µç Function ÇÁ·Î½ÃÀú¿¡¼ °è»êÀÌ ¼öÇàµË´Ï´Ù. Function ÇÁ·Î½ÃÀú¿¡ ´ëÇØ¼´Â µÚ¿¡¼ ¼³¸íµË´Ï´Ù.
Sub ConvertTemp() temp = InputBox("Ⱦ¾ ¿Âµµ¸¦ ÀÔ·ÂÇϽʽÿÀ.", 1) MsgBox "¼·¾¾ " & Celsius(temp) & "µµÀÔ´Ï´Ù." End SubFunction ÇÁ·Î½ÃÀú
Function ÇÁ·Î½ÃÀú´Â Function¹®°ú End Function¹®À¸·Î ¹¾îÁø ÀÏ·ÃÀÇ VBScript ¸í·É¹®ÀÔ´Ï´Ù. Function ÇÁ·Î½ÃÀú´Â Sub ÇÁ·Î½ÃÀú¿Í ºñ½ÁÇÏÁö¸¸ °ªÀ» ¹ÝȯÇÏ´Â Á¡ÀÌ ´Ù¸¨´Ï´Ù. Function ÇÁ·Î½ÃÀú¿¡¼´Â È£ÃâÇÏ´Â ÇÁ·Î½ÃÀú°¡ Àü´ÞÇÏ´Â »ó¼ö, º¯¼ö ¶Ç´Â ½ÄÀ¸·Î µÈ Àμö¸¦ »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. Function ÇÁ·Î½ÃÀú¿¡¼ Àμö°¡ ¾øÀ¸¸é ÇØ´ç Function¹®¿¡ ºó °ýÈ£°¡ ÀÖ¾î¾ß ÇÕ´Ï´Ù. Function ¹®Àº ÇØ´ç ÇÁ·Î½ÃÀú¿¡ ÀÖ´Â Çϳª ÀÌ»óÀÇ ¸í·É¹®¿¡¼ ±× À̸§¿¡ °ªÀ» ÁöÁ¤ÇÏ´Â ¹æ¹ýÀ¸·Î °ªÀ» ¹ÝȯÇÕ´Ï´Ù. Function¹®ÀÇ ¹Ýȯ µ¥ÀÌÅÍ Çü½ÄÀº ¾ðÁ¦³ª VariantÀÔ´Ï´Ù.¾Æ·¡ ¿ë·Ê¿¡¼ Celsius ÇÔ¼ö´Â Ⱦ¾ ¿Âµµ¸¦ ¼·¾¾ ¿Âµµ·Î °è»êÇÕ´Ï´Ù. ConvertTemp Sub ÇÁ·Î½ÃÀúÀÇ ÇÔ¼ö¸¦ È£ÃâÇϸé Àμö °ªÀ» °¡Áö°í ÀÖ´Â º¯¼ö¸¦ ±× ÇÔ¼ö¿¡ Àü´ÞÇϰí, È£ÃâÇÑ ÇÁ·Î½ÃÀú¿¡ °è»ê °á°ú¸¦ ¹ÝȯÇÏ¿© ¸Þ½ÃÁö »óÀÚ¿¡ Ç¥½ÃÇÕ´Ï´Ù.
Sub ConvertTemp() temp = InputBox("Ⱦ¾ ¿Âµµ¸¦ ÀÔ·ÂÇϽʽÿÀ.", 1) MsgBox "¼·¾¾" & Celsius(temp) & "µµÀÔ´Ï´Ù." End Sub Function Celsius(fDegrees) Celsius = (fDegrees - 32) * 5 / 9 End Function
°¢ µ¥ÀÌÅÍ´Â Àμö¸¦ »ç¿ëÇÏ´Â ÇÁ·Î½ÃÀú¿¡ Àü´ÞµË´Ï´Ù. Àμö´Â ÇÁ·Î½ÃÀú¿¡ Àü´ÞÇÒ µ¥ÀÌÅÍÀÇ ÀÚ¸® Ç¥½ÃÀÚ ¿ªÇÒÀ» ÇÕ´Ï´Ù. º¯¼ö À̸§À¸·Î À¯È¿ÇÑ °ÍÀÌ¸é ¸ðµÎ Àμö·Î »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. Sub¹®À̳ª Function¹®À» »ç¿ëÇÏ¿© ÇÁ·Î½ÃÀú¸¦ ÀÛ¼ºÇϸé ÇÁ·Î½ÃÀú À̸§ µÚ¿¡ °ýÈ£°¡ ÀÖ¾î¾ß ÇÕ´Ï´Ù. ¸ðµç Àμö´Â °ýÈ£ ¾È¿¡ ½°Ç¥·Î ±¸ºÐÇÏ¿© µÓ´Ï´Ù. ¿¹¸¦ µé¾î, ¾Æ·¡ ¿ë·Ê¿¡¼ fDegrees´Â ¿Âµµ¸¦ º¯È¯ÇÏ´Â Celsius ÇÔ¼ö¿¡ Àü´ÞÇÒ °ªÀÇ ÀÚ¸® Ç¥½ÃÀÚÀÔ´Ï´Ù.µ¥ÀÌÅ͸¦ ÇÁ·Î½ÃÀú ¹ÛÀ¸·Î °¡Á®¿À·Á¸é Function¹®À» »ç¿ëÇØ¾ß ÇÕ´Ï´Ù. Function ÇÁ·Î½ÃÀú´Â °ªÀ» ¹ÝȯÇÒ ¼ö ÀÖÁö¸¸ Sub ÇÁ·Î½ÃÀú´Â °ªÀ» ¹ÝȯÇÒ ¼ö ¾ø½À´Ï´Ù.Function Celsius(fDegrees) Celsius = (fDegrees - 32) * 5 / 9 End Function
Äڵ忡 ÀÖ´Â Function ÇÁ·Î½ÃÀú´Â ¾ðÁ¦³ª º¯¼ö ÁöÁ¤À̳ª ½ÄÀÇ ¿À¸¥ÂÊ¿¡ »ç¿ëÇØ¾ß ÇÕ´Ï´Ù. »ç¿ë ¿¹´Â ¾Æ·¡¿Í °°½À´Ï´Ù.
¶Ç´ÂTemp = Celsius(fDegrees)´Ù¸¥ ÇÁ·Î½ÃÀúÀÇ Sub ÇÁ·Î½ÃÀú¸¦ È£ÃâÇÏ·Á¸é °¢°¢ ½°Ç¥·Î ±¸ºÐµÈ ÇÊ¿äÇÑ ÀμöµéÀÇ °ª°ú ÇÔ²² ÇÁ·Î½ÃÀú À̸§¸¸ ÀÔ·ÂÇÏ¸é µË´Ï´Ù. Call¹®Àº »ç¿ëÇÒ Çʿ䰡 ¾øÁö¸¸, À̸¦ »ç¿ëÇÒ °æ¿ì Àμö¸¦ °ýÈ£·Î ¹¾î¾ß ÇÕ´Ï´Ù.MsgBox "¼·¾¾ " & Celsius(fDegrees) & "µµÀÔ´Ï´Ù."¾Æ·¡ ¿ë·Ê¿¡¼´Â MyProc ÇÁ·Î½ÃÀú¸¦ µÎ ¹ø È£ÃâÇÕ´Ï´Ù. ÇÑ ¹øÀº ÄÚµå ¾ÈÀÇ Call¹®À» »ç¿ëÇÏ´Â ´ë½Å ´Ù¸¥ ÇÑ ¹øÀº »ç¿ëÇÏÁö ¾Ê½À´Ï´Ù. ±×·¯³ª µÎ È£Ãâ ¸ðµÎ ¶È°°Àº ÀÛ¾÷À» ¼öÇàÇÕ´Ï´Ù.
Call¹®À» »ç¿ëÇÏÁö ¾ÊÀ» °æ¿ì¿¡´Â °ýÈ£¸¦ »ý·«ÇÑ´Ù´Â Á¡¿¡ À¯ÀÇÇϽʽÿÀ.Call MyProc(firstarg, secondarg) MyProc firstarg, secondarg