º¯¼ö¿Í »ó¼ö

 
ÀÚ·áÇü º¯¼ö¿Í »ó¼ö
 
ÇÁ·Î±×·¥À» ÀÛ¼ºÇÏ´Ùº¸¸é Á¾Á¾ ¾î¶² °ªÀ» ÀÓÀÇÀÇ ÀúÀå°ø°£¿¡ ÀúÀåÇØ¾ß ÇÒ ¶§°¡ ÀÖ´Ù.
º¯¼ö¶õ ÀÌ·¯ÇÑ ÀÓÀÇÀÇ ÀúÀå°ø°£À» ¶æÇϸç ÀúÀåµÇ´Â °ªÀ» »ó¼ö¶ó°í ¸»ÇÑ´Ù.
 ¿¹¸¦ µé¾î Name = "È«±æµ¿", Number = 2 ó·³ ¾µ ¼ö°¡ Àִµ¥ Ç®¾îº¸ÀÚ¸é NameÀ̶õ º¯¼ö¿¡ "È«±æµ¿"À̶õ »ó¼ö¸¦, Number¶õ º¯¼ö¿¡ 2 À̶ó´Â »ó¼ö¸¦ ÀúÀåÇÑ´Ù´Â ¶æÀÌ´Ù.
 
±×·¯¸é ºñÁÖ¾ó º£ÀÌÁ÷ÀÌ ¾î¶»°Ô º¯¼ö¸¦ ¼±¾ðÇÏ¸ç »ó¼ö¸¦ ÀúÀåÇÏ´ÂÁö ±×¸®°í ÀÌ´Â ³»ºÎÀûÀ¸·Î ¾î¶»°Ô ÄÄÆÄÀϵǴÂÁö ¾Ë¾Æº¸ÀÚ.
  ¿¹Á¦)
  Option Explicit
  Private sub Command1_Click()
  Dim Name as String
  Dim Number as Integer
  Dim Temp
  Name = "È«±æµ¿"
  Number = 2
  Temp = "¹®ÀÚ¿­Àε¥.."
  Temp = 5
  End sub
ÄÚµåÀ©µµ¿ì»óÀÇ ¼Ò½ºÄÚµåÀÌ´Ù. (ÄÚµåÀ©µµ¿ì´Â Á÷Á¢ ÄÚµùÀ» ÇÏ´Â ¿¡µðÅÍâÀ» ¸»Çϸç ÀÌ´Â ÄÁÆ®·ÑÀ» ´õºíŬ¸¯Çϰųª (º¸±â-ÄÚµå ¸Þ´º¸¦ ÅëÇØ È®ÀÎÇÒ ¼ö ÀÖ´Ù) Command1_ClickÀº À̺¥Æ® ÇÁ·Î½ÃÀú·Î¼­ Ä¿¸Çµå ¹öưÀ» Ŭ¸¯ÇßÀ» ¶§ ¹ß»ýÇÏ´Â À̺¥Æ®ÀÌ´Ù. ¸¸¾à Label (¶óº§) ÄÁÆ®·ÑÀ» Ŭ¸¯ÇÑ´Ù¸é Label_Click ÀÌ ¹ß»ýÇÏ°Ô µÉ °ÍÀ̸ç _ ¾ÕÀÇ ¹®ÀÚ´Â ÇØ´ç ÄÁÆ®·ÑÀÇ À̸§ÀÌ´Ù. À̰ÍÀº ÄÁÆ®·ÑÀÇ Name ¼Ó¼º°ª°ú µ¿ÀÏÇÏ´Ù.
Dim - º¯¼ö ¼±¾ð ¸í·É¾î
as [ÀÚ·áÇü] - ÀÚ·áÇü ÇüÅ ¼±¾ð ¸í·É¾î
 
»ç¿ëÀÚ°¡ ÀÌó·³ º¯¼öÀÇ ¼±¾ð°ú »ó¼ö°ªÀ» Á¤ÇØÁÖ¸é º£ÀÌÁ÷Àº ÄÄÆÄÀÏ °úÁ¤¿¡¼­ Áָ޸𸮿¡ º¯¼öÀÇ Çü¿¡ ¾Ë¸Â´Â ¸Þ¸ð¸®¸¦ ÇÒ´çÇØ ÁÖ¸ç °ªÀ» ³Ö°Ô µÈ´Ù.
±×·³ ¾ðÁ¦ °ªÀ» ³Ö¾îÁÖ°Ô µÉ±î?
½ÇÁ¦·Î ±× °ªÀ» ÀúÀåÇÏ´Â ¼ø°£Àº ÇÁ·Î±×·¥À» ½ÇÇà½ÃŰ¸é¼­ Ä¿¸Çµå ¹öưÀ» Ŭ¸¯ÇßÀ» ¶§ ¹ßÇàÇÑ´Ù. ÀÌ·¯ÇÑ »óȲÀº ¾î¶² ÄÁÆ®·Ñ ¾î¶² À̺¥Æ®¿¡¼­ º¯¼ö¸¦ »ç¿ëÇÏ´À³Ä¿¡ µû¶ó Ʋ¸®´Ù. À§ Äڵ带 '½ÇÇàÆÄÀÏ ¸¸µé±â' ¸Þ´º¸¦ ÀÌ¿ëÇØ ½ÇÇàÆÄÀÏÀ» ¸¸µé¾î ½ÇÇà½ÃŰ´Â °ÍÀ» ÇÁ·Î±×·¥ÀÇ RunTime ±¸µ¿À̶ó°í ¸»ÇÑ´Ù.
±×·±µ¥ º¯¼ö¼±¾ð½Ã ¸¸¾à as [ÀÚ·áÇü]À» »ý·«ÇÑ´Ù¸é ¾î¶»°Ô µÉ±î?
'°¡º¯Çü ' ÀÚ·áÇüÀ̶ó´Â °ÍÀÌ ÀÖ´Ù.
À̰ÍÀº »ç¿ëÀÚ¿¡°Ô ÆíÀǸ¦ Á¦°øÇÏ´Â ¹æ¹ýÀÇ Çϳª·Î¼­ °¡º¯Çü ÀÚ·áÇüÀ¸·Î ¼±¾ðµÈ º¯¼ö¿¡ ÇÒ´çµÈ »ó¼ö°¡ ¾î¶² ÀÚ·áÇüÅ¿¡ µû¶ó ±× ¼ø°£ º¯¼öÀÇ ÀÚ·áÇüÀ» °áÁ¤ÇÏ´Â À¯µ¿ÀûÀÎ ÀÚ·á¼±¾ðÀÇ Çü½ÄÀÌ´Ù.
À§ÀÇ Temp°¡ ±× »ç¿ë ¿¹ÀÌ´Ù.
ù¹øÂ°¿£ ¹®ÀÚ¿­ »ó¼ö¸¦ ¹Þ¾ÆµéÀÌ´Â ¹®ÀÚ¿­ º¯¼ö·Î¼­ ±× ±â´ÉÀ» ÇßÁö¸¸, ¹Ù·Î ´ÙÀ½ ÁÙ¿¡¼± 5¶ó´Â Á¤¼öÇü µ¥ÀÌÅ͸¦ ¹Þ¾ÆµéÀÌ´Â Á¤¼öÇü º¯¼ö·Î »ç¿ëµÇ¾ú´Ù. ¹°·Ð À§ Temp ÀÇ ÄÚµåµéÀº ¿¹¸¦ º¸¿©ÁÖ±â À§ÇÑ °ÍÀ¸·Î½á ½ÇÁ¦ Àú·¸°Ô ¹Ù·Î ¹Ù²Ù¾î »ç¿ëÇÒ °æ¿ì´Â ¾øÀ» °ÍÀÌ´Ù.
Option Explicit ¶õ ¼Ò½ºÀÇ ÀϹݼ±¾ðºÎ¿¡¼­ »ç¿ëµÇ´Âµ¥ ÀÌ´Â ¸ðµâ¼öÁØ¿¡¼­ »ç¿ëµÇ´Â ¸ðµç º¯¼ö´Â ¹Ýµå½Ã ¼±¾ð ÈÄ »ç¿ëÇ϶ó´Â ¸í·É¹®ÀÌ´Ù. ¸ðµâ¼öÁØÀ̶õ Àü¿ªº¯¼ö¿Í °°ÀÌ Æû Àüü¿¡ Àû¿ëµÇ´Â ¹üÀ§¶ó°í »ý°¢ÇÏ¸é µÈ´Ù.
¸¸¾à Æû¿¡¼­ »ç¿ëµÇ´Â Àü¿ªº¯¼ö¸¦ ÀϹݼ±¾ðºÎ¿¡¼­ ¼±¾ðÇÏÁö ¾ÈÀº ä ¼Ò½º ¾îµð¼±°¡ ¼±¾ðÇÑ´Ù¸é ÄÄÆÄÀÏ ¿À·ù°¡ ¹ß»ýÇÏ°Ô µÈ´Ù.
¹Ý´ë·Î Option Explicit¸¦ ¾²Áö ¾Ê´Â´Ù¸é ÇÁ·Î½ÃÀú ¾Æ¹« °÷¿¡¼­³ª Àü¿ªº¯¼ö¸¦ Ưº°ÇÑ ¼±¾ð¾øÀÌ »ç¿ëÇÒ ¼ö ÀÖ´Ù.
¿¹¸¦ µé¾îº¸ÀÚ.
Private sub Command1_Click()
Name = "È«±æµ¿"
End sub
ÀϹݼ±¾ðºÎ¿¡ Option Explicit¶ó´Â ¸í·É¹®À» »ç¿ëÇÏÁö ¾ÊÀ¸¸é À§ ÄÚµå´Â ¿¡·¯¾øÀÌ Á¤»óÀûÀÎ ÀÛµ¿À» ÇÑ´Ù. ÇÏÁö¸¸ Option Explicit ¸¦ ¾²¸é '¼±¾ðµÇÁö ¾Ê´Â ... ' ÀÌ·± ¸Þ¼¼Áö°¡ ¶ß°Ô µÉ °ÍÀÌ´Ù.
Option Explicit ¹®À» ¾²Áö ¾Ê°í Æû ÄÚµå ¾îµð¼±°¡ ¼±¾ðµÇÁö ¾Ê´Â º¯¼ö¸¦ »ç¿ëÇÑ´Ù¸é À̰ÍÀº ¾Ï½ÃÀûÀÎ Àü¿ªº¯¼ö·Î½á ºñº£´Â ÀνÄÀ» ÇÏ°Ô µÇ´Âµ¥... ¹°·Ð À̰ÍÀÌ ÆíÇÒ ¶§µµ ÀÖ´Ù.
±×·¯³ª ÁÁÀº ½À°üÀ̶ó°ï »ý°¢ÇÏÁö ¾Ê´Â´Ù. ÁÁÀº ÄÚµå´Â °¡µ¶¼º, Áï ³²ÀÌ Àо ½±°Ô ÀÌÇØÇÒ ¼ö ÀÖ¾î¾ß ÇÑ´Ù°í »ý°¢Çϱ⠶§¹®ÀÌ´Ù. ±ÍÂú´õ¶óµµ ¸í½ÃÀûÀÎ º¯¼öÀÇ »ç¿ëÀ» ½À°üÈ­ÇßÀ¸¸é ÇÑ´Ù.
±×¸®°í °¡º¯Çü º¯¼öÀÇ »ç¿ë ¿ª½Ã º»ÀÎÀº ÀÚÁ¦Ç϶ó°í ÇÏ°í ½Í´Ù. Àû´çÇÑ »ó¼ö°ªÀ» ³Ö¾îÁÖ¸é ¾Ë¾Æ¼­ µ¥ÀÌŸÇüÀ» °áÁ¤ÇÏ´Â Æí¸®ÇÔÀº ÀÖÁö¸¸, È®½ÇÇÑ ÀÌÇØ¸¦ Çϰí ÀÖ´Â »óŰ¡ ¾Æ´Ï¶ó¸é ºñÁÖ¾ó º£ÀÌÁ÷¿¡°Ô ±×·±°Í±îÁö ¸Ã±æ ÇÊ¿ä´Â ¾ø´Ù°í º»´Ù.
³¡À¸·Î ÀÚ·áÇüÀÇ ¸î°¡Áö Çü½Ä¿¡ ´ëÇØ¼­ ¾ð±ÞÀ» ÇϰڴÙ.
Á¤¼ö(Integer, Long), ½Ç¼ö(Single, Double), ¹®ÀÚ¿­(String), ³í¸®Çü(Boolean)ÀÌ ÀÖ´Ù.
Á¶±Ý ´õ ÀÚ¼¼È÷ ¼³¸íÇØ º¸ÀÚ
Dim º¯¼ö¸í [As µ¥ÀÌÅÍÇü]
º¯¼ö¸íÀº ¹Ýµå½Ã ´ÙÀ½°ú °°Àº ±ÔÄ¢À» µû¶óÁÖ¾î¾ß ÇÑ´Ù.
1. ¹Ýµå½Ã ¿µ¹®ÀÚ·Î ½ÃÀÛÇÑ´Ù.(ÇÑ±ÛÆÇ VB 5À̻󿡼­´Â Çѱ۷Π½ÃÀÛÇÒ ¼öµµ ÀÖ´Ù)
2. º¯¼ö¸íÀÇ ±æÀÌ´Â 255ÀÚ¸¦ ÃʰúÇÒ ¼ö ¾ø´Ù.
3. C, C++ µî°ú´Â ´Þ¸® VB¿¡¼­´Â ´ë¼Ò¹®ÀÚ¸¦ ±¸º°ÇÏÁö ¾Ê´Â´Ù. Áï, "abc"³ª "ABC"³ª °°Àº º¯¼öÀÌ´Ù.
 
º¯¼öÀÇ µ¥ÀÌÅÍÇü
VB¿¡¼­ º¯¼ö·Î Á¤ÀÇÇÒ ¼ö ÀÖ´Â µ¥ÀÌÅÍŸÀÔ¿¡´Â ´ë·« ´ÙÀ½ÀÇ 10°¡Áö Á¤µµ·Î ±¸ºÐµÈ´Ù.
(Variant, Integer, Long(Long Integer), Single, Double, Currency, Byte, String, Boolean, Object)
 
* Variant : VBÀÇ ±âº» µ¥ÀÌÅÍ Å¸ÀÔ
  Dim X
  Dim Y
  Dim Z
  ÀÌ °æ¿ì, º¯¼ö X, Y, Z´Â ¸ðµÎ VBÀÇ ±âº» µ¥ÀÌÅÍŸÀÔÀÎ Variant ŸÀÔÀ¸·Î ¼±¾ðµÈ´Ù.  Áï À§ÀÇ ¹®ÀåÀº ´ÙÀ½°ú °°ÀÌ ÇÒ ¼öµµ ÀÖ´Ù.
  Dim X as Variant
  Dim Y as Variant
  Dim Z as Variant
 
  Variant¶ó´Â °ÍÀº ¾î¶² Á¾·ùÀÇ µ¥ÀÌÅ͵µ ÀúÀåÇÒ ¼ö ÀÖ´Â µ¥ÀÌÅÍŸÀÔÀÌ´Ù.  ´Ù½Ã ¸»ÇØ º¯¼ö X, Y, Z¿¡ Á¤¼ö³ª, ½Ç¼ö, ¹®ÀÚ¿­ µî ¾î¶² Á¾·ù¶óµµ µé¾î°¥ ¼ö ÀÖ´Ù´Â ¸»ÀÌ´Ù.
 
* Integer, Long, Single, Double : ¼ýÀÚ µ¥ÀÌÅÍ Çü½Ä
  À̵éÀº ¸ðµÎ ¼ýÀÚ µ¥ÀÌÅÍ Çü½ÄÀÌ´Ù.  Integer ´Â Á¤¼öÇü(-32768 ~ 32767), Longµµ Á¤¼öÇüÀÌÁö¸¸ Integerº¸´Ù 2¹è ¸¹Àº ±â¾ïÀå¼Ò¸¦ Â÷ÁöÇÑ´Ù(-2,147,483,648 ~ 2,147,483,647).  ¸¸¾à °¢ º¯¼öÇü¿¡ ¹üÀ§¸¦ ÃʰúÇÏ´Â °ªÀ» Áý¾î ³ÖÀ¸·Á°í ÇÏ¸é ¿¡·¯°¡ ¹ß»ýÇÑ´Ù.  SingleÀº ´Ü Á¤µµ¶ó°í ÇØ¼­ À¯È¿¼ýÀÚ°¡ ´ÜÁ¤µµ ÇüÅÂÀÎ 32ºñÆ® ½Ç¼öÇüŸ¦ ¸»Çϸç, DoubleÀÇ °æ¿ì´Â ¹èÁ¤µµ·Î À¯È¿¼ýÀÚÀÇ ´ÜÀ§°¡ Single¿¡ ´ëÇØ¼­ 2¹èÀÎ 64ºñÆ® ½Ç¼ö¸¦ »ç¿ëÇÑ´Ù.
 
Dim j as Integer
Dim k as Long
Dim l as Single, m as Double
    j  = 100
    k = 123456789
    l  = 10.234
   m = 2.9321238
 
* Currency : °íÁ¤¼Ò¼öÁ¡ µ¥ÀÌÅÍ Çü½Ä
  ÀÌ Å¸ÀÔÀº À§ÀÇ SingleÀ̳ª DoubleµîÀÇ ºÎµ¿¼Ò¼öÁ¡ ½Ç¼ö¿¡ ºñÇØ¼­, °íÁ¤¼Ò¼öÁ¡ ÇüŸ¦ ÃëÇÏ´Â ½Ç¼ö·Î, ¼Ò¼öÁ¡ ÀÌ»ó 15ÀÚ¸®¿Í ¼Ò¼öÁ¡ ÀÌÇÏ 4ÀÚ¸®±îÁö ÀúÀåÇÒ ¼ö ÀÖ´Ù.  ºü¸£°í Á¤È®ÇϹǷΠ±Ý¾× µîÀ» ÀúÀåÇϴµ¥ ÀûÇÕÇÏ´Ù.
 
Dim c as Currency
   c = 100.99
 
* Byte : ÀÌÁø Çü½Ä
  ÀÌ Å¸ÀÔÀº ¹ÙÀ̳ʸ®, Áï ÀÌÁø¼öÇüÅÂÀÇ ÀڷḦ ¼±¾ðÇÒ ¶§ »ç¿ëµÈ´Ù.  ±âº»ÀûÀ¸·Î ¹è¿­ÇüÀÇ ÀÚ·á·Î ¼±¾ðµÇ¸ç, Byte(n)ÀÇ Å¸ÀÔÀ̸é n¹ÙÀÌÆ®ÀÇ ÀڷḦ ÀÐÀ» ¼ö ÀÖ´Ù.
Dim h(20) as Byte
     h() = LoadFromFile("test.txt")
 
* String : ¹®ÀÚ¿­ Çü½Ä
  ÀÌ Å¸ÀÔÀº ¹®ÀÚ¿­À» ÀúÀåÇϴ ŸÀÔÀ¸·Î, VB¿¡¼­´Â ¹®ÀÚ¿­Àº Ç×»ó Å«µû¿ÈÇ¥(" ")³ª, ÀÛÀºµû¿ÈÇ¥(' ')·Î µÑ·¯½Î¾ß ÇÑ´Ù.
 ¸¸¾à ¹®ÀÚ¿­ÀÇ Å©±â¸¦ ÁöÁ¤ÇÏ°í ½Í´Ù¸é String * nÀÇ ÇüÅ·ΠÁöÁ¤ÇÒ ¼ö ÀÖ´Ù.
 
Dim h as String             'Size¿Í »ó°ü¾øÀ½
Dim j as String
* 5         'Size 5ÀÎ ¹®ÀÚ¿­ º¯¼ö¼±¾ð
Dim k as String * 3        'Size 3ÀÎ ¹®ÀÚ¿­ º¯¼ö ¼±¾ð
 
* Boolean(³í¸®Çü)
  VB 4.0¿¡¼­ºÎÅÍ Ãß°¡µÈ ŸÀÔÀ¸·Î, True¿Í False ÀÌ·¸°Ô µÎ°¡ÁöÀÇ °ª¸¸À» ´Ù·ê ¼ö ÀÖ´Ù.  ÀÌ Å¸ÀÔÀº ³í¸®¿¬»êÀÇ °á°ú µîÀ» ´Ù·ê ¶§ ƯÈ÷ À¯¿ëÇÏ´Ù.
 
Dim YesOrNo as Boolean
     YesOrNo = False
 
* »ç¿ëÀÚ Á¤ÀÇ Å¸ÀÔ
  VB¿¡¼­´Â Type¿¹¾à¾î¸¦ ½á¼­ ÇÊ¿äÇÑ ±¸Á¶Ã¼ º¯¼ö¸¦ Á¤ÀÇÇÒ ¼ö ÀÖ´Ù.  »ç¿ëÀÚ¿¡ ÀÇÇØ¼­ Á¤ÀÇµÈ ±¸Á¶Ã¼ º¯¼ö´Â <¼Ó¼º¸¸ ÀÖ´Â °³Ã¼>¿Í °°ÀÌ ¿òÁ÷ÀδÙ.  »ç¿ëÀÚ´Â ÀÌ ±¸Á¶Ã¼ÀÇ ¸ðµç º¯¼öµé¿¡ Á¢±ÙÇÒ ¼ö ÀÖ´Ù.
 
Type Computer
       CPU as String
       RAM as Integer
       HDD as Single
End Type
Dim Mycom as Computer
Private Sub Form_load()
       Mycom.CPU = "ÆæÆ¼¾ö"
       Mycom.RAM = 64
       Mycom.HDD = 10.1
End Sub