Microsoft® Visual Basic® Scripting Edition Á¶°Ç¹® »ç¿ë |
VBScript ÀÚ½À¼ ÀÌÀü ÆäÀÌÁö| ´ÙÀ½ ÆäÀÌÁö |
Á¶°Ç¹®°ú ·çÇÁ 󸮹®À¸·Î ½ºÅ©¸³Æ®ÀÇ È帧À» Á¦¾îÇÒ ¼ö ÀÖ½À´Ï´Ù. ¶ÇÇÑ Á¶°Ç¹®À» »ç¿ëÇÏ¸é µ¿ÀÛÀ» °áÁ¤ÇÏ¿© ¹Ýº¹ÇÏ´Â VBScript Äڵ带 ÀÛ¼ºÇÒ ¼öµµ ÀÖ½À´Ï´Ù. VBScript¿¡¼´Â ¾Æ·¡ Á¶°Ç¹®À» »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù.
If...Then...Else¹®Àº Á¶°Ç¹®ÀÌ True ¶Ç´Â FalseÀÎÁö¸¦ Æò°¡ÇÏ°í ±× °á°ú¿¡ µû¶ó µÑ ÀÌ»óÀÇ ¸í·É¹®À» ½ÇÇàÇÕ´Ï´Ù. ´ë°³ Á¶°Ç¹®Àº ºñ±³ ¿¬»êÀÚ¸¦ »ç¿ëÇÏ¿© °ªÀ̳ª º¯¼ö¸¦ ¼·Î ºñ±³ÇÏ´Â ½ÄÀÔ´Ï´Ù. ºñ±³ ¿¬»êÀÚ¿¡ °üÇÑ Á¤º¸´Â ºñ±³ ¿¬»êÀÚ¸¦ ÂüÁ¶ÇϽʽÿÀ. If...Then...Else¹®Àº ÇÊ¿äÇÑ ¸¸Å ÁßøÇÒ ¼ö ÀÖ½À´Ï´Ù.
Á¶°Ç¹®ÀÌ TrueÀÎ °æ¿ì ¸í·É¹® ½ÇÇà
Á¶°Ç¹®ÀÌ TrueÀÏ ¶§ ÇϳªÀÇ ¸í·É¹®¸¸ ½ÇÇàÇÏ·Á¸é If...Then...Else¹®ÀÇ ´ÜÀÏ ÁÙ ±¸¹®À» »ç¿ëÇÕ´Ï´Ù. ¾Æ·¡ ¿ë·Ê¿¡¼´Â ´ÜÀÏ ÁÙ ±¸¹®À» º¸¿©ÁÖÁö¸¸ Else Å°¿öµå¸¦ »ý·«ÇÏ°í ÀÖÀ½¿¡ À¯ÀÇÇϽʽÿÀ.µÎ ÁÙ ÀÌ»óÀÇ Äڵ带 ½ÇÇàÇÏ·Á¸é ¿©·¯ ÁÙ(¶Ç´Â ºí·Ï) ±¸¹®À» »ç¿ëÇØ¾ß ÇÕ´Ï´Ù. ÀÌ ±¸¹®Àº ¾Æ·¡ ¿ë·Ê¿¡¼Ã³·³ End If¹®À» Æ÷ÇÔÇÕ´Ï´Ù.Sub FixDate() Dim myDate myDate = #2/13/95# If myDate < Now Then myDate = Now End SubSub AlertUser(value) If value = 0 Then AlertLabel.ForeColor = vbRed AlertLabel.Font.Bold = True AlertLabel.Font.Italic = True End If End SubÁ¶°Ç¹®ÀÌ TrueÀÎ °æ¿ì¿Í FalseÀÎ °æ¿ì¿¡ ¼·Î ´Ù¸¥ ¸í·É¹® ½ÇÇà
If...Then...Else¹®À» »ç¿ëÇÏ¸é ½ÇÇàÇÒ ¼ö ÀÖ´Â 2°³ÀÇ ºí·Ï¹®À» Á¤ÀÇÇÒ ¼ö ÀÖ½À´Ï´Ù. Áï Á¶°Ç¹®ÀÌ TrueÀÏ ¶§ ÇÑ ºí·Ï¹®À», FalseÀÏ ¶§ ´Ù¸¥ ºí·Ï¹®À» ½ÇÇàÇÕ´Ï´Ù.Sub AlertUser(value) If value = 0 Then AlertLabel.ForeColor = vbRed AlertLabel.Font.Bold = True AlertLabel.Font.Italic = True Else AlertLabel.Forecolor = vbBlack AlertLabel.Font.Bold = False AlertLabel.Font.Italic = False End If End Sub¿©·¯ ´ë¾È Áß¿¡¼ °áÁ¤
If...Then...Else¹®À» º¯ÇüÇÏ¸é ¿©·¯ ´ë¾È Áß¿¡¼ ¼±ÅÃÇÒ ¼ö ÀÖ½À´Ï´Ù. ElseIfÀýÀ» Ãß°¡Çϸé If...Then...Else¹®ÀÇ ±â´ÉÀ» È®ÀåÇÏ¿© ¿©·¯ °¡Áö ´Ù¸¥ °¡´É¼º(È®·ü)À» ±âÁØÀ¸·Î ÇÁ·Î±×·¥ È帧À» Á¦¾îÇÒ ¼ö ÀÖ½À´Ï´Ù. »ç¿ë ¿¹´Â ¾Æ·¡¿Í °°½À´Ï´Ù.¼±ÅÃÀûÀÎ ´ë¾ÈÀ» Á¦°øÇÒ ÇÊ¿ä°¡ ÀÖ´Â ¸¸Å ElseIfÀýÀ» Ãß°¡ÇÒ ¼ö ÀÖ½À´Ï´Ù. ElseIfÀýÀ» ³Ê¹« ¸¹ÀÌ »ç¿ëÇÏ¸é °¡²û ÀÛ¾÷ÀÌ ¹ø°Å·Î¿öÁý´Ï´Ù. ¿©·¯ ´ë¾È¿¡¼ ¼±ÅÃÇÒ °æ¿ì¿¡´Â Select Case¹®À» »ç¿ëÇÏ´Â °ÍÀÌ °¡Àå ÁÁ½À´Ï´Ù.Sub ReportValue(value) If value = 0 Then MsgBox value ElseIf value = 1 Then MsgBox value ElseIf value = 2 then Msgbox value Else Msgbox "Çã¿ë ¹üÀ§¸¦ ¹þ¾î³ °ªÀÔ´Ï´Ù!" End If
Select Case ±¸Á¶´Â ¿©·¯ ºí·Ï¹®¿¡¼ ¼±ÅÃÀûÀ¸·Î Çϳª¸¦ ½ÇÇàÇÏ´Â If...Then...ElseIf¹®¿¡ ´ëÇÑ ´ë¾ÈÀ» Á¦°øÇÕ´Ï´Ù. Select Case¹®Àº If...Then...Else¹®°ú ºñ½ÁÇÑ ±â´ÉÀ» Á¦°øÇÏÁö¸¸, ´õ È¿À²ÀûÀÌ°í Àб⠽¬¿î Äڵ带 ÀÛ¼ºÇÕ´Ï´Ù.Select Case ±¸Á¶´Â ÇØ´ç ±¸Á¶ÀÇ ¸Ç ¾Õ¿¡¼ ÇÑ ¹ø¸¸ Æò°¡µÇ´Â Å×½ºÆ® ½Ä Çϳª·Î ÀÛµ¿ÇÕ´Ï´Ù. ±×·± ´ÙÀ½ ±× ½ÄÀÇ °á°ú °ª°ú ±¸Á¶¿¡ ÀÖ´Â °¢ CaseÀÇ °ªÀ» ºñ±³ÇÕ´Ï´Ù. ¼·Î ÀÏÄ¡Çϸé ÇØ´ç Case¿Í ¿¬°üµÈ ºí·Ï¹®À» ½ÇÇàÇÕ´Ï´Ù.
Select Case ±¸Á¶´Â ±¸Á¶ÀÇ ¸Ç ¾Õ¿¡ ÀÖ´Â ½ÄÀ» ÇÑ ¹ø¸¸ Æò°¡ÇÏÁö¸¸, If...Then...ElseIf ±¸Á¶´Â °¢ ElseIf¹®¿¡ ´ëÇÑ ¼·Î ´Ù¸¥ ½ÄÀ» Æò°¡ÇÕ´Ï´Ù. °¢°¢ÀÇ ElseIf¹®ÀÌ µ¿ÀÏÇÑ ½ÄÀ» Æò°¡ÇÒ °æ¿ì¿¡¸¸ If...Then...ElseIf ±¸Á¶¸¦ Select Case ±¸Á¶·Î ´ëüÇÒ ¼ö ÀÖ½À´Ï´Ù.Select Case Document.Form1.CardType.Options(SelectedIndex).Text Case "MasterCard" DisplayMCLogo ValidateMCAccount Case "Visa" DisplayVisaLogo ValidateVisaAccount Case "American Express" DisplayAMEXCOLogo ValidateAMEXCOAccount Case Else DisplayUnknownImage PromptAgain End Select