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 Sub
Function ÇÁ·Î½ÃÀú
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 Celsius(fDegrees)
    Celsius = (fDegrees - 32) * 5 / 9
 End Function
µ¥ÀÌÅ͸¦ ÇÁ·Î½ÃÀú ¹ÛÀ¸·Î °¡Á®¿À·Á¸é Function¹®À» »ç¿ëÇØ¾ß ÇÕ´Ï´Ù. Function ÇÁ·Î½ÃÀú´Â °ªÀ» ¹ÝȯÇÒ ¼ö ÀÖÁö¸¸ Sub ÇÁ·Î½ÃÀú´Â °ªÀ» ¹ÝȯÇÒ ¼ö ¾ø½À´Ï´Ù.
Äڵ忡¼­ÀÇ Sub ÇÁ·Î½ÃÀú¿Í Function ÇÁ·Î½ÃÀú »ç¿ë
Äڵ忡 ÀÖ´Â Function ÇÁ·Î½ÃÀú´Â ¾ðÁ¦³ª º¯¼ö ÁöÁ¤À̳ª ½ÄÀÇ ¿À¸¥ÂÊ¿¡ »ç¿ëÇØ¾ß ÇÕ´Ï´Ù. »ç¿ë ¿¹´Â ¾Æ·¡¿Í °°½À´Ï´Ù.

Temp = Celsius(fDegrees)
¶Ç´Â
 MsgBox "¼·¾¾ " & Celsius(fDegrees) & "µµÀÔ´Ï´Ù."
´Ù¸¥ ÇÁ·Î½ÃÀúÀÇ Sub ÇÁ·Î½ÃÀú¸¦ È£ÃâÇÏ·Á¸é °¢°¢ ½°Ç¥·Î ±¸ºÐµÈ ÇÊ¿äÇÑ ÀμöµéÀÇ °ª°ú ÇÔ²² ÇÁ·Î½ÃÀú À̸§¸¸ ÀÔ·ÂÇÏ¸é µË´Ï´Ù. Call¹®Àº »ç¿ëÇÒ ÇÊ¿ä°¡ ¾øÁö¸¸, À̸¦ »ç¿ëÇÒ °æ¿ì Àμö¸¦ °ýÈ£·Î ¹­¾î¾ß ÇÕ´Ï´Ù.

¾Æ·¡ ¿ë·Ê¿¡¼­´Â MyProc ÇÁ·Î½ÃÀú¸¦ µÎ ¹ø È£ÃâÇÕ´Ï´Ù. ÇÑ ¹øÀº ÄÚµå ¾ÈÀÇ Call¹®À» »ç¿ëÇÏ´Â ´ë½Å ´Ù¸¥ ÇÑ ¹øÀº »ç¿ëÇÏÁö ¾Ê½À´Ï´Ù. ±×·¯³ª µÎ È£Ãâ ¸ðµÎ ¶È°°Àº ÀÛ¾÷À» ¼öÇàÇÕ´Ï´Ù.

 Call MyProc(firstarg, secondarg)
 MyProc firstarg, secondarg
Call¹®À» »ç¿ëÇÏÁö ¾ÊÀ» °æ¿ì¿¡´Â °ýÈ£¸¦ »ý·«ÇÑ´Ù´Â Á¡¿¡ À¯ÀÇÇϽʽÿÀ.