Microsoft® Visual Basic® Scripting Edition
VBScript ÄÚµù ±ÔÄ¢
 VBScript ÀÚ½À¼­
 ÀÌÀü ÆäÀÌÁö´ÙÀ½ ÆäÀÌÁö

 

ÄÚµù ±ÔÄ¢À̶õ?
Microsoft Visual Basic Scripting EditionÀ» »ç¿ëÇÏ¿© Äڵ带 ÀÛ¼ºÇÏ´Â µ¥ µµ¿òÀ» ÁÖ´Â Á¦¾È »çÇ×µéÀÔ´Ï´Ù. ¿©±â¿¡´Â ¾Æ·¡ ±ÔÄ¢À» Æ÷ÇÔÇÏ°í ÀÖ½À´Ï´Ù. ÀÏ°ü¼ºÀÖ´Â ÄÚµù ±ÔÄ¢ ÁýÇÕÀ» »ç¿ëÇÏ´Â ÁÖµÈ ÀÌÀ¯´Â ½ºÅ©¸³Æ®ÀÇ ±¸Á¶¿Í ÄÚµù ¾ç½ÄÀ» Ç¥ÁØÈ­ÇÏ¿© ¸ðµç »ç¶÷µéÀÌ Äڵ带 ½±°Ô Àаí ÀÌÇØÇÒ ¼ö ÀÖ°Ô ÇÏ´Â °ÍÀÔ´Ï´Ù. ÄÚµù ±ÔÄ¢À» »ç¿ëÇϸé Á¤È®ÇÏ°í Àб⠽¬¿ì¸ç ¾Ö¸ÅÇÏÁö ¾ÊÀº, Áï ´Ù¸¥ ¾ð¾î ±ÔÄ¢°ú Á¶È­¸¦ ÀÌ·ç¸é¼­ µÇµµ·ÏÀ̸é Á÷°üÀûÀÎ ¿øº» Äڵ带 ÀÛ¼ºÇÒ ¼ö ÀÖ½À´Ï´Ù.
»ó¼ö ¸í¸í ±ÔÄ¢
VBScriptÀÇ Ãʱ⠹öÀü¿¡´Â »ç¿ëÀÚ Á¤ÀÇ »ó¼ö¸¦ ¸¸µé ¼ö ÀÖ´Â ¸ÞÄ¿´ÏÁòÀÌ ¾ø½À´Ï´Ù. ±×·¡¼­ »ó¼ö¸¦ »ç¿ëÇÒ °æ¿ì¿¡´Â »ó¼ö¸¦ º¯¼ö·Î ±¸ÇöÇÏ°í ¸ðµÎ ´ë¹®ÀÚ¸¸ »ç¿ëÇÏ¿© ´Ù¸¥ º¯¼ö¿Í ±¸º°Çß½À´Ï´Ù. ¶Ç ¹ØÁÙ(_)À» »ç¿ëÇÏ¿© ¿©·¯ °³ÀÇ ±¸¼º ´Ü¾îµéÀ» ±¸ºÐÇß½À´Ï´Ù. »ç¿ë ¿¹´Â ¾Æ·¡¿Í °°½À´Ï´Ù.
 USER_LIST_MAX
 NEW_LINE
Áö±Ýµµ ÀÌ ¹æ¹ýÀ» »ç¿ëÇÏ¿© »ó¼ö¸¦ ½Äº°ÇÒ ¼ö ÀÖÁö¸¸, ÀÌÁ¦´Â Const¹®À» »ç¿ëÇÏ¿© ÁøÁ¤ÇÑ »ó¼ö¸¦ ¸¸µé ¼ö ÀÖÀ¸¹Ç·Î ¸í¸í ±ÔÄ¢À» ÅÃÀÏÇÏ¿© »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. ÀÌ ±ÔÄ¢¿¡¼­´Â »ó¼ö À̸§ ¾Õ¿¡ "con"À̶ó´Â Á¢µÎ»ç¸¦ ºÙ¿©¼­ ´ë¼Ò¹®ÀÚ È¥ÇÕ Çü½ÄÀ» »ç¿ëÇÕ´Ï´Ù. »ç¿ë ¿¹´Â ¾Æ·¡¿Í °°½À´Ï´Ù.
 conYourOwnConstant
º¯¼ö ¸í¸í ±ÔÄ¢
Àб⠽±°í ÀÏ°ü¼ºÀÖ´Â º¯¼ö¸¦ ¸¸µé·Á¸é VBScript ÄÚµåÀÇ ¼³¸íÀûÀÎ º¯¼ö À̸§ ¾Õ¿¡ ¾Æ·¡¿Í °°Àº Á¢µÎ»ç¸¦ »ç¿ëÇÕ´Ï´Ù.

ÇÏÀ§ Çü½Ä Á¢µÎ»ç ¿ë·Ê
Boolean bln blnFound
Byte byt bytRasterData
Date(Time) dtm dtmStart
Double dbl dblTolerance
Error err errOrderNum
Integer int intQuantity
Long lng lngDistance
Object obj objCurrent
Single sng sngAverage
String str strFirstName

º¯¼ö ¹üÀ§
º¯¼ö´Â ¾ðÁ¦³ª À¯È¿ÇÑ °¡Àå ÀÛÀº ¹üÀ§·Î Á¤ÀÇÇØ¾ß ÇÕ´Ï´Ù. VBScript º¯¼öÀÇ ¹üÀ§´Â ¾Æ·¡¿Í °°½À´Ï´Ù.

¹üÀ§ º¯¼ö ¼±¾ð À§Ä¡ °¡½Ã¼º
ÇÁ·Î½ÃÀú ¼öÁØ Event, Function ¶Ç´Â Sub ÇÁ·Î½ÃÀú º¯¼ö¸¦ ¼±¾ðÇÑ ÇÁ·Î½ÃÀú ¾È¿¡¼­¸¸ º¼ ¼ö ÀÖ½À´Ï´Ù.
½ºÅ©¸³Æ® ¼öÁØ ÇÁ·Î½ÃÀú ¹Û¿¡ ÀÖ´Â HTML ÆäÀÌÁöÀÇ HEAD ±¸¿ª ½ºÅ©¸³Æ®ÀÇ ¸ðµç ÇÁ·Î½ÃÀú¿¡¼­ º¼ ¼ö ÀÖ½À´Ï´Ù.

º¯¼ö ¹üÀ§ Á¢µÎ»ç
½ºÅ©¸³Æ®ÀÇ Å©±â°¡ Ä¿Áö¸é º¯¼öÀÇ ¹üÀ§¸¦ »¡¸® ±¸º°ÇÒ ¼ö ÀÖ´Â °ªµµ Ä¿Áý´Ï´Ù. Çü½Ä Á¢µÎ»ç ¾Õ¿¡ ´ÜÀÏ ¹®ÀÚ ¹üÀ§ Á¢µÎ»ç¸¦ ºÙÀÌ¸é º¯¼ö À̸§À» ºÎ´çÇÏ°Ô ´Ã¸®Áö ¾Ê°íµµ ÀÌ È¿°ú¸¦ ¾òÀ» ¼ö ÀÖ½À´Ï´Ù.

¹üÀ§ Á¢µÎ»ç ¿ë·Ê
ÇÁ·Î½ÃÀú ¼öÁØ ¾øÀ½ dblVelocity
½ºÅ©¸³Æ® ¼öÁØ s sblnCalcInProgress

¼³¸íÀûÀÎ º¯¼ö¿Í ÇÁ·Î½ÃÀú À̸§
º¯¼ö À̸§À̳ª ÇÁ·Î½ÃÀú À̸§ÀÇ º»Ã¼´Â ´ë¼Ò¹®ÀÚ¸¦ ¼¯¾î¼­ »ç¿ëÇϸç, ±× ¸ñÀûÀ» ¼³¸íÇÏ´Â µ¥ ÇÊ¿äÇÑ ¸¸Å­ ¿ÏÀüÇØ¾ß ÇÕ´Ï´Ù. ¶ÇÇÑ ÇÁ·Î½ÃÀú À̸§Àº InitNameArray ¶Ç´Â CloseDialogInó·³ µ¿»ç·Î ½ÃÀÛÇØ¾ß ÇÕ´Ï´Ù.

ÀÚÁÖ »ç¿ëÇϰųª ±ä ¿ë¾î´Â Ç¥ÁØ ¾à¾î¸¦ »ç¿ëÇÏ¿© Àû´çÇÑ ±æÀÌÀÇ À̸§À» À¯ÁöÇÏ´Â °ÍÀÌ ÁÁ½À´Ï´Ù. ´ë°³ º¯¼ö À̸§ÀÌ 32ÀÚ¸¦ ³ÑÀ¸¸é ÀбⰡ ¾î·Æ½À´Ï´Ù. ¾à¾î¸¦ »ç¿ëÇÒ °æ¿ì Àüü ½ºÅ©¸³Æ®¿¡ °ÉÃļ­ ±× ÀÏ°ü¼ºÀ» À¯ÁöÇØ¾ß ÇÕ´Ï´Ù. ¿¹¸¦ µé¾î, ½ºÅ©¸³Æ® ¾ÈÀ̳ª Cnt¿Í Count¸¦ ¹«ÀÛÁ¤ »ç¿ëÇϸé È¥¶õÀ» ÃÊ·¡ÇÒ ¼ö ÀÖ½À´Ï´Ù.

°³Ã¼ ¸í¸í ±ÔÄ¢
¾Æ·¡ Ç¥´Â VBScript¸¦ ÇÁ·Î±×·¥ÇÏ´Â µ¿¾È ¸¸³¯ ¼ö ÀÖ´Â °³Ã¼¿¡ ´ëÇØ ±ÇÀåµÇ´Â ±ÔÄ¢À» º¸¿©ÁÝ´Ï´Ù.

°³Ã¼ Çü½Ä Á¢µÎ»ç ¿ë·Ê
3D ÆгΠpnl pnlGroup
¾Ö´Ï¸ÞÀÌ¼Ç ´ÜÃß ani aniMailBox
È®Àζõ chk chkReadOnly
ÄÞº¸ »óÀÚ, µå·Ó´Ù¿î ¸ñ·Ï »óÀÚ cbo cboEnglish
¸í·É ´ÜÃß cmd cmdExit
ÀÏ¹Ý ´ëÈ­ »óÀÚ dlg dlgFileOpen
ÇÁ·¹ÀÓ fra fraLanguage
°¡·Î ½ºÅ©·Ñ ¸·´ë hsb hsbVolume
À̹ÌÁö img imgIcon
·¹À̺í lbl lblHelpMessage
¼± lin linVertical
¸ñ·Ï »óÀÚ lst lstPolicyCodes
½ºÇÉ spn spnPages
ÅؽºÆ® »óÀÚ txt txtLastName
¼¼·Î ½ºÅ©·Ñ ¸·´ë vsb vsbRate
½½¶óÀÌ´õ sld sldScale

ÄÚµå ÁÖ¼® ÀÛ¼º ±ÔÄ¢
¸ðµç ÇÁ·Î½ÃÀú´Â ¼öÇà ÀÛ¾÷À» °£·«È÷ ¼³¸íÇÏ´Â ÁÖ¼®À¸·Î ½ÃÀÛÇÕ´Ï´Ù. ÀÌ ¼³¸íÀº ½Ã°£ÀÌ °æ°úÇϸ鼭 ±× ³»¿ëÀÌ ÀÚÁÖ ¹Ù²î¾î ºÒÇÊ¿äÇÑ ÁÖ¼® °ü¸® ÀÛ¾÷À̳ª ´õ ¹Ù¶÷Á÷ÇÏÁö ¾ÊÀº À߸øµÈ ÁÖ¼®À» °¡Á®¿À±â ¶§¹®¿¡ ÀÛ¾÷ ¹æ¹ýÀÎ ±¸Çö °ü·Ã ¼¼ºÎ »çÇ×À» ¼­¼úÇÏÁö ¾Ê½À´Ï´Ù. ÄÚµå ÀÚü¿Í ÇÊ¿äÇÑ ÀζóÀÎ ÁÖ¼®¸¸À¸·Î ±× ±¸ÇöÀ» ¼³¸íÇÕ´Ï´Ù.

¸ñÀûÀÌ ºÐ¸íÇÏÁö ¾Ê°í ÇÁ·Î½ÃÀú¿¡¼­ ƯÁ¤ ¹üÀ§¿¡ ³õÀÌ´Â Àμö¸¦ ¿ä±¸Çϸé ÇÁ·Î½ÃÀú¿¡ Àü´ÞµÇ´Â Àμö¸¦ ¼³¸íÇØ¾ß ÇÕ´Ï´Ù. ƯÈ÷ ÂüÁ¶ Àμö¸¦ »ç¿ëÇÏ¿© ÇÁ·Î½ÃÀú¿¡ ÀÇÇØ ¹Ù²ï ÇÔ¼ö³ª º¯¼öÀÇ °á°ú °ªµµ °¢ ÇÁ·Î½ÃÀúÀÇ ½ÃÀÛ ºÎºÐ¿¡¼­ ¼³¸íÇØ¾ß ÇÕ´Ï´Ù.

ÇÁ·Î½ÃÀú ¸Ó¸®¸» ÁÖ¼®¿¡´Â ¾Æ·¡¿Í °°ÀÌ ±¸¿ªº° ¸Ó¸®±ÛÀÌ ÇÊ¿äÇÕ´Ï´Ù. µÚ¿¡ ³ª¿À´Â "ÄÚµå ¼­½ÄÈ­" ºÎºÐÀ» ÂüÁ¶ÇϽʽÿÀ.

±¸¿ª ¸Ó¸®±Û ÁÖ¼® ³»¿ë
¸ñÀû ÇÁ·Î½ÃÀú ¼öÇà ÀÛ¾÷(¼öÇà ¹æ¹ýÀÌ ¾Æ´Ô)
°¡Á¤ ±× »óÅ°¡ ÇØ´ç ÇÁ·Î½ÃÀú¿¡ ¿µÇâÀ» ÁÖ´Â ¿ÜºÎ º¯¼ö, ÄÁÆ®·Ñ ¶Ç´Â ±âŸ ¿ä¼ÒÀÇ ¸ñ·Ï
°á°ú ¿ÜºÎ º¯¼ö, ÄÁÆ®·Ñ ¶Ç´Â ±âŸ ¿ä¼Ò¿¡¼­ÀÇ ÇÁ·Î½ÃÀú °á°úÀÇ ¸ñ·Ï
ÀÔ·Â ¸íÈ®ÇÏÁö ¾ÊÀº °³º° Àμö¿¡ °üÇÑ ¼³¸í. °¢ Àμö´Â ÀζóÀÎ ÁÖ¼®°ú ÇÔ²² º°µµÀÇ ÁÙ¿¡ ÀÖ¾î¾ß ÇÕ´Ï´Ù.
°á°ú °ª ¹ÝȯµÇ´Â °ª¿¡ °üÇÑ ¼³¸í

Áß¿ä »çÇ×:

ÄÚµå ¼­½ÄÈ­
ÄÚµå ¼­½ÄÈ­¿¡¼­ ³í¸® ±¸Á¶¿Í ÁßøÀ» ²÷ÀÓ¾øÀÌ ¹Ý¿µÇÒ ¼ö ÀÖµµ·Ï µÇµµ·ÏÀ̸é È­¸é °ø°£À» ¸¹ÀÌ È®º¸ÇØ¾ß ÇÕ´Ï´Ù. ¿©±â¿¡´Â ¾Æ·¡¿Í °°ÀÌ ¸î °¡Áö ÁöħÀÌ ÀÖ½À´Ï´Ù.
 '*********************************************************
 ' ¸ñÀû:  UserList ¹è¿­¿¡¼­ ÁöÁ¤µÈ »ç¿ëÀÚ°¡
 '           ¸Ç óÀ½ ³ªÅ¸³ª´Â °÷À» ã½À´Ï´Ù.
 ' ÀÔ·Â:  strUserList():   °Ë»öµÇ´Â »ç¿ëÀÚ ¸ñ·ÏÀÔ´Ï´Ù.
 '           strTargetUser:   °Ë»öÇÒ »ç¿ëÀÚ À̸§ÀÔ´Ï´Ù.
 ' °á°ú:  strUserList ¹è¿­¿¡¼­
 '           óÀ½ ³ªÅ¸³­ strTargetUser¿¡ ´ëÇÑ »öÀÎÀÔ´Ï´Ù. 
 '           ´ë»ó »ç¿ëÀÚ°¡ ¾øÀ¸¸é -1À» ¹ÝȯÇÕ´Ï´Ù.
 '*********************************************************

 Function intFindUser (strUserList(), strTargetUser)
     Dim i                     ' ·çÇÁ Ä«¿îÅÍÀÔ´Ï´Ù.
     Dim blnFound	       ' Ç÷¡±×¸¦ ã´Â ´ë»óÀÔ´Ï´Ù.
     intFindUser = -1
     i = 0                     ' ·çÇÁ Ä«¿îÅ͸¦ ÃʱâÈ­ÇÕ´Ï´Ù.
     Do While i <= Ubound(strUserList) and Not blnFound
         If strUserList(i) = strTargetUser Then 
             blnFound = True   ' Ç÷¡±×¸¦ True·Î ÁöÁ¤ÇÕ´Ï´Ù.
             intFindUser = i   ' °á°ú °ªÀ» ·çÇÁ Ƚ¼ö·Î ÁöÁ¤ÇÕ´Ï´Ù.
         End If
         i = i + 1             ' ·çÇÁ Ä«¿îÅ͸¦ Áõ°¡½Ãŵ´Ï´Ù.
     Loop
 End Function