ExampleCodingDimension.pdf

Loading ...
Global Do...
News & Politics
 VB .NET 2005 By Warawut Khangkhan
ตวอยาง การเข$ยนโปรแกรมโดยใช-ตวแปรชน.ดอาร/เรย/
ตวอยาง การเขยนโปรแกรมโดยใชตวแปรชนดอารเรย
ตวอยางท$1ใช-ในการเข$ยนโปรแกรมโดยใช-ตวแปรชน.ดอาร/เรย/ (Array) เป5นโปรแกรมหาเน78อค: โดยม$รายละเอ$ยดดงน$8
วธคานวณ หาเน อค!
1.
ให-น>าเอา วน เด7อน ป?เก.ด ของตวเองมาบวกกน
2. วนอาท.ตย/แทนเลข 1 วนจนทร/แทนเลข 2
3.
เด7อนมกราคมแทนเลข 1 กCมภาพนธ/แทนเลข 2
4. ป?ชวดแทนเลข 1 ป?ฉล:แทนเลข 2
5.
เสรJจแล-วจบตวเลขท8ง 3 มาบวกกน
6. ค:ณด-วย 7
7. แล-วหารด-วย 9
8.
เหล7อเศษเทาไหร กJมาด:ค>าเฉลย
ตวอยาง
สมมต.วาเก.ดวนอาท.ตย/ เด7อนมกราคม ป?ชวด จะได-เทากบ 1+1+1 ได- 3 ค:ณด-วย 7 เทากบ 21 แล-วหารด-วย 9 
เหล7อเศษ 3 ด:เฉลย ด-านลางดงน$8
เหลอเศษ 0
เน78อค:ของคCณคนน$8น.สยด$ ฐานะด$ เป5นคนจร.งจง ชอบคบค-าสมาคมกบคนอ71น ชอบเข-าสงคม ม$ความ
มานะ อดทน เป5นคนท$1ต-องการให-คนอ71นมาเอาใจ และต-องการให-ม$คนมารายล-อมเขามาก ๆ ชอบทองเท$1ยวไปทCกหนทCกแหง 
บางคร8งกJเป5นคนท$1โรแมนต.กท$เด$ยว แตต-องระวงให-ด$ละเพราะเค-าคนน$8เจ-าช:-มากเลย
เหลอเศษ 1 ค:ของคCณคนน$8ผ.วขาว น.สยเย7อกเยJนเจ-าระเบ$ยบ ส>าหรบความรกของเขาเป5นคนเจ-าอCดมคต. ชอบท$1จะ
ให-คCณอย:ในระเบ$ยบ คCณจะต-องท>าตามเขาถ-าขดใจเม71อไหร เขาจะไมพอใจคCณทนท$ แตจะเป5นคนท$1รกใครแล-วรกจร.ง ถ-าเค-ารก
คCณแล-วกJพร-อมเสมอท$1จะแตงงานกบคCณ
เหลอเศษ 2
เป5นคนไมถ7อตว ร:ปรางสนทด ผ.วสองส$ เป5นคนราเร.งมารยาทเร$ยบร-อย เสมอต-นเสมอปลาย รก
เด$ยวใจเด$ยวเป5นคนงาย ๆ ชอบตามใจคนอ71น ไมคอยม$พ.ธ$ร$ตองอะไรมากมาย น.สยด$ จ.ตใจเอ78อเฟYZอเผ71อแผ ใคร ๆ กJรก คอน
ข-างเจ-าช:- แตถ-ารกใครแล-วกJรกจร.ง
เหลอเศษ 3
เป5นคนผ.วขาวเหล7อง น.สยเดJดเด$1ยวม$เสนห/อย:ท$1การพ:ดจาม1นใจในตวเองส:ง ทCกส.1งทCกอยางเขาจะเป5น
คนจดการเองท8งหมด ม$เพ71อนฝ:งเยอะมาก และเขาคนน$8จะท>าหน-าท$1เป5นหวหน-ากลCม ให-คนอ71นท>าตามทCกอยาง ชอบท>าอะไรให-คน
อ71นต.ดใจ
เหลอเศษ 4
เน78อค:ของคCณคนน$8เป5นคนราเร.ง สนCกสนาน ไมถ7อตว ชางพ:ดชางคCย ไมชอบให-ใครมาบงคบให-ท>าอะไร 
ชอบท$1จะเป5นตวของตวเอง เป5นคนท$1ต8งใจจะท>าอะไรแล-วต-องท>าให-ส>าเรJจ บางคร8งคอนข-างออนไหว แตกJเป5นคนท$1เช71อม1นในตว
เองส:ง นบวาเป5นคนท$1นารกมากคนหน\1งท$เด$ยว
เหลอเศษ 5
เขาเป5นคนร:ปรางสนทดผ.วขาว เป5นคนใจด$ม$น8>าใจ ขยนพ:ด สนCกกบการพ:ดจาเป5นคนออนไหว แสน
งอน เป5นคนข$8ห\งตวฉกาจ แตบางคร8งกJสCขCมเย7อกเยJนและออนน-อม ถ-าคCณค.ดจะเดาใจเขาคนน$8ละกJบอกได-เลยวายาก เขาเป5นคน
พ:ดตรงไปตรงมา บางคร8งชอบท>าอะไร กC]กก.^กอย:บอย ๆ เป5นคนท$1อารมณ/ด$ได-ท8งวน แถมยงปากหวานอ$กตางหาก
- 1 -
 VB .NET 2005 By Warawut Khangkhan
ตวอยาง การเข$ยนโปรแกรมโดยใช-ตวแปรชน.ดอาร/เรย/
เหลอเศษ 6
เขาเป5นคนคอนข-างขาว น.สยออนโยน ชอบทCกส.1งทCกอยางท$1คCณชอบ เขาจะตามใจคCณทCกอยาง เป5นคน
ท$1เข-ากบคนอ71นได-งาย ขยนพ:ด ต-องการให-คนท$1อย:ใกล- ๆ ม$ความสCข เขาจ\งเป5นท$1รกของใครตอใครมากมาย เป5นคนม$เสนห/
เหล7อร-าย ใคร ๆ กJรก
เหลอเศษ 7
เน7 8อค: ของคCณคนน$ 8 ม $น.สยออนโยน ให-ความจร.งใจกบความรก ไมชอบอย: ท$ 1 ไหนนาน ชอบท$ 1จะ
สนCนสนานไปเร71อย ๆ  ไมชอบให-ใครมาบงคบให-ท>าโนนท>าน$1 เป5นคนม$ความร:-ส\กออนไหวงาย บางคร8งอาจเป5นคนเง$ยบ ๆ ไม
สCงส.งกบใคร ชอบท$1จะอย:เง$ยบ ๆ คนเด$ยว เป5นคนชางประด.ษฐ/ค.ดค-น ชอบท>าอะไรด-วยตวเอง ไมชอบพ\1งพาคนอ71น
เหลอเศษ 8
เป5นคนร:ปรางสนทด ผ.วสองส$ เป5นคนชอบเอาใจผ:-อ71น ชอบท$1จะอย:กบคนเยอะ ๆ เขาจะม$ความสCขมาก
ถ-าได-พ:ดคCยกบคนอ71น ชอบท>าอะไรงาย ๆ แตงตวตามสบาย คอนข-างท$1จะเป5นคนเป`ดเผย เป5นคนท$1เกJบความลบไมอย:และเป5นคน
ท$1จร.งจงกบความรกมาก ๆ จะทะนCถนอมคCณอยางด$ ไมยอมให-ใครมายCงเก$1ยวด-วยเลย เป5นคนข$8ห\งด-วยนะ
เหลอเศษ 9
เป5นคนผ.วขาว เง$ยบ ๆ ชอบค.ดอะไรท$1ไมเหม7อนคนอ71น เป5นตวของตวเอง ไมคอยแคร/คนอ71น ชอบท>า
อะไรท$1แสดงถ\งความเป5นผ:-น>า คอนข-างเผดJจการ ชอบน1งฝaนอะไรอย:คนเด$ยว เพราะเป5นคนเง$ยบ ๆ น$1เอง จ\งเป5นคนชางค.ดชาง
ฝaนอย:เร71อย
Design Screen:
- 2 -
2
3
4
5
6
7
 VB .NET 2005 By Warawut Khangkhan
ตวอยาง การเข$ยนโปรแกรมโดยใช-ตวแปรชน.ดอาร/เรย/
ตาราง การก>าหนด Properties ท$1ส>าคญของแตละ Control
No.
Control
Properties
Value
1
Form
Name
Form1
Text
โปรแกรมหาเน78อค:
MaximizeBox
False
MinimizeBox
False
StartPosition
CenterScreen
2
GroupBox
Name
GroupBox1
Text
ระบC วน เด7อน ป?เก.ด
3
ComboBox
Name
cbDate
DropDownStyle
DropDownList
Items
อาท.ตย/, จนทร/, องคาร, พCธ, พฤหสบด$, ศCกร/ และ 
เสาร/
4
ComboBox
Name
cbMonth
DropDownStyle
DropDownList
Items
มกราคม, กCมภาพนธ/, ม$นาคม, เมษายน, พฤษภาคม, 
ม.ถCนายน, กรกฎาคม, ส.งหาคม, กนยายน, ตCลาคม, 
พฤศจ.กายน และ ธนวาคม
5
Combobox
Name
cbYear
DropDownStyle
DropDownList
Items
ชวด, ฉล:, ขาล, เถอะ, มะโรง, มะเสJง, มะเม$ย, มะแม, 
วอก, ระกา, จอ และ ก:น
6
Button
Name
btnOk
Text
ตกลง
7
TextBox
Name
txtResult
Multiline
True
ReadOnly
True
- 3 -
 VB .NET 2005 By Warawut Khangkhan
ตวอยาง การเข$ยนโปรแกรมโดยใช-ตวแปรชน.ดอาร/เรย/
Coding:
predict เป5นตวแปรอาร/เรย/แบบ 1 ม.ต. โดยก>าหนดคาจากการน>าข-อความของเหล7อเศษของแตละตวมาใส ต8งเหล7อเศษ 
0 ถ\งเหล7อเศษ 9
- 4 -