การเขียนโปรแกรม Visual Basic

หน่วยท่ี 3 โครงสร้างการเขยี นโปรแกรมแบบลาดับ ก า ร เ ขี ย น โ ป ร แ ก ร ม โ ด ย ใ ช้ เ ค ร่ื อ ง มื อ ก ร า ฟิ ก โ ห ม ด : จุ ฬ า ลั ก ษ ณ์ ถ า ไ ช ย ล า ภ า ค วิ ช า ค อ ม พิ ว เ ต อ ร์ ธุ ร กิ จ วิ ท ย า ลั ย อ า ชี ว ศึ ก ษ า ม ห า ส า ร ค า ม

หน่วยที่ 3 โครงสรา้ งการเขียนโปรแกรมแบบลาดบั ใบงานท่ี 7 การคานวณและแปลงข้อมูล **************************** 1. สร้าง Project และออกแบบฟอร์มดงั รูป 2. รายละเอียดการกาหนดคา่ ใน Properties Object Properties ค่าทกี่ าหนด TextBox1 , TextBox2 Font Tahoma ขนาด 12pt TextBox3 – TextBox9 Font Tahoma ขนาด 12pt True Button1 ReadOnly Calculate Text การเขียนโปรแกรมโดยใชเ้ ครื่องมือกราฟิกโหมด : จฬุ าลกั ษณ์ ถาไชยลา

3. ดบั เบลิ คลิกทปี่ ่ มุ และเขียน Code ดงั น้ี ***ขอ้ ความสีเขยี วคอื หมายเหตุ (Comment) ไม่ตอ้ งเขียนก็ได*้ ** 4. ทดสอบโปรแกรม กดป่ มุ สมมติป้ อนขอ้ มูล x = 10.5 , y = 2 แลว้ กดป่ มุ การเขียนโปรแกรมโดยใชเ้ ครื่องมือกราฟิกโหมด : จุฬาลกั ษณ์ ถาไชยลา

ใบงานที่ 8 โปรแกรมคานวณค่างวดการเช่าซือ้ รถยนต์ **************************** 1. สร้าง Project และออกแบบฟอร์มดงั รูป 2. รายละเอียดการกาหนดค่าใน Properties Object Properties ค่าทกี่ าหนด TextBox1 , TextBox2 Font Tahoma ขนาด 12pt TextBox3 – TextBox6 Font Tahoma ขนาด 12pt True Button1 ReadOnly คานวณคา่ งวด Form1 Text โปรแกรมคานวณคา่ งวดรถยนต์ Text การเขียนโปรแกรมโดยใช้เครื่องมือกราฟิกโหมด : จฬุ าลกั ษณ์ ถาไชยลา

3. ดบั เบลิ คลิกทีป่ ่ มุ และเขียน Code ดงั น้ี 4. ทดสอบโปรแกรม กดป่ มุ สมมตปิ ้ อขอ้ มูลแลว้ กดป่ มุ การเขียนโปรแกรมโดยใช้เครื่องมือกราฟิกโหมด : จุฬาลกั ษณ์ ถาไชยลา

ใบงานที่ 9 โปรแกรมคานวณพนื้ ที่รูปวงกลม 1. สร้าง Project ใหม่ ออกแบบฟอร์มดงั น้ี 2. เขยี นโค้ดให้กับป่ มุ การเขียนโปรแกรมโดยใช้เครื่องมือกราฟิกโหมด : จฬุ าลกั ษณ์ ถาไชยลา

3. เขยี นโค้ดให้กบั ป่ มุ 4. เขียนโค้ดให้กบั ป่ มุ 5.ทดสอบโปรแกรม การเขียนโปรแกรมโดยใช้เครื่องมือกราฟิกโหมด : จฬุ าลกั ษณ์ ถาไชยลา

ใบงานท่ี 10 โครงสร้างการเขยี นโปรแกรมแบบเลอื กทา คาสั่ง If .. Then เป็นคาสงั่ ทสี่ ง่ั ใหค้ อมพวิ เตอร์ตดั สินใจเลือกเงือ่ นไขท่ีเป็ นจริง แลว้ ปฏิบตั ิตามคาสง่ั ทีต่ อ้ งการ โดยมี ทางเลือกพยี ง 1 ทางเท่าน้นั ถา้ ค่าไม่จริงใหข้ า้ มคาสงั่ น้ีไป แลว้ ปฏิบตั ิตามคาสงั่ ทอ่ี ยถู่ ดั ไป รูปแบบ If.....เงื่อนไข.....Then... คำสงั่ หรือกลมุ่ คำสง่ั ตวั อย่างที่ 1 การใช้คาส่ัง If...Then... จงวเิ คราะหป์ ัญหาและเขียนโปรแกรม เพอ่ื คานวณหาเงินภาษแี ละรายไดส้ ุทธิของพนกั งาน โดยมีเงื่อนไข วา่ ถา้ เงนิ เดือนมากกวา่ 5000 บาท จะตอ้ งเสียภาษรี อ้ ยละ 2 ส่ิงที่โจทย์ต้องการ(Problem Statement) คานวณเงนิ ภาษขี องพนกั งาน ข้อมูลเข้า (Input) 1. ชื่อ-สกลุ 2. เงนิ เดือน ข้อมูลออก(Output) 1. ชื่อ-สกุล 2. เงินเดือน 3. เงนิ ภาษี ตวั แปร(Variable) : Name1 1. ช่ือ-สกุล : Salary 2. เงนิ เดือน : Tax 3. เงนิ ภาษี การเขียนโปรแกรมโดยใช้เครื่องมือกราฟิกโหมด : จฬุ าลกั ษณ์ ถาไชยลา

ข้นั ตอนการประมวลผล(Algorithm) 1. เริ่มตน้ การทางาน 2. กาหนดให้ Tax,Net = 0 3. รบั ค่า Name1,Salary 4. ตรวจสอบเงือ่ นไข ถา้ Salary > 5000 ใหท้ า Tax  Salary*0.02 5. คานวณรายไดส้ ุทธิ Net  Salary - Tax 6. แสดงคา่ Name1,Salary,Tax,Net 7. จบการทางาน ผังงาน (Flowchart) Start Tax=0,Net=0 Read Name1,Salary Salary>5000 N Y Tax  Salary *0.02 Net  Salary-Tax Name1,Salary, Tax,Net Stop การเขียนโปรแกรมโดยใชเ้ ครื่องมือกราฟิกโหมด : จุฬาลกั ษณ์ ถาไชยลา

คาสั่งเทียม (Pseudo Code) Begin Tax=0,Net = 0 Read Name1,Salary If Salary > 5000 Then Tax  Salary*0.02 Net  Salary - Tax Write Name1,Salary,Tax,Net End โปรแกรม (Program) 1. เปิ ดโปรแกรม Visual basic เลือกสร้าง Project 2. ออกแบบฟอร์มตามโจทยต์ อ้ งการ ดงั น้ี การเขียนโปรแกรมโดยใช้เครื่องมือกราฟิกโหมด : จุฬาลกั ษณ์ ถาไชยลา

3. กาหนดคุณสมบตั ใิ หก้ บั คอนโทรลต่างๆ Object/Control Properties ค่าที่กาหนด Form Name FrmIfThen โปรแกรมคานวณรายไดส้ ุทธิ โดย... Text โปรแกรมคานวณหาเงินภาษีและรายไดส้ ุทธิ Label1 Text 1-Fixed Single ชื่อ - สกลุ BorderStyle เงินเดือน Label2 Text เงินภาษี Label3 Text รายไดส้ ุทธิ Label4 Text ลบทงิ้ Label5 Text False Text1-Text4 Text คานวณ Text3-Text4 Enabled เคลียร์ Button1 Text จบการทางาน Button2 Text Button3 Text การเขียนโปรแกรมโดยใชเ้ ครื่องมือกราฟิกโหมด : จุฬาลกั ษณ์ ถาไชยลา

4. เขยี นโคด้ เพอื่ คานวณภาษแี ละรายไดส้ ุทธิ โดยใชค้ าสงั่ If...Then... ใหก้ บั ป่ มุ คานวณ ป่ มุ เคลียร์และป่ มุ จบการทางาน ดงั น้ี การเขียนโปรแกรมโดยใชเ้ ครื่องมือกราฟิกโหมด : จฬุ าลกั ษณ์ ถาไชยลา

5. ทดสอบการทางานของโปรแกรม สง่ั RUN โดยกดป่ มุ เม่ือสง่ั RUN ใหป้ ้ อน ชื่อ-สกลุ และ เงนิ เดือน แลว้ คลิกป่ มุ ถา้ ตอ้ งการทดสอบขอ้ มูลใหม่ กดป่ มุ ถา้ จะออกจากการทางานใหค้ ลิกป่ มุ โปรแกรมจะไม่อนุญาตใหผ้ ใู้ ชค้ ลิกที่ช่องแสดงผลลพั ธ์ เนื่องจากกาหนดค่า Enabled ใหเ้ ป็น False กรณที ่ีเป็ นจริงจะได้ผลลพั ธ์ ดงั นี้ กรณที เ่ี ป็ นเท็จจะได้ผลลพั ธ์ ดังนี้ การเขียนโปรแกรมโดยใชเ้ ครื่องมือกราฟิกโหมด : จฬุ าลกั ษณ์ ถาไชยลา

ตัวอย่างที่ 2 การใช้คาส่ัง If…Then 1. สรา้ ง Project ใหม่ 2. สรา้ ง Form กาหนด Properties ดงั น้ี 3. Properties ค่าที่กาหนด radMan Control ผชู้ าย radWoman RadioButton1 Name ผหู้ ญงิ RadioButton2 Text lblSelect Name False FixedSingle Text Label1 Name AutoSize Border Style การเขียนโปรแกรมโดยใช้เครื่องมือกราฟิกโหมด : จุฬาลกั ษณ์ ถาไชยลา

4. กาหนดคาสง่ั เมื่อมีการเลือก ผชู้ าย หรือ ผหู้ ญิง โดยดบั เบิลคลิกท่ี radMan และ radWoman ใส่คาสงั่ ดงั น้ี 5. Run Program ทดสอบคลิกเลือกป่ มุ ผชู้ าย หรือ ผหู้ ญิง การเขียนโปรแกรมโดยใชเ้ ครื่องมือกราฟิกโหมด : จฬุ าลกั ษณ์ ถาไชยลา

ใบงานที่ 11 คาส่ัง If..Then..Else เป็นคาสง่ั ท่มี ีการตรวจสอบเง่ือนไข แลว้ มีทางเลือก 2 ทาง เมื่อเลือกเงือ่ นไขท่เี ป็ นจริงจะปฏิบตั ิตามคาสงั่ ต่อจาก Then แตถ่ า้ เงอื่ นไขไม่จริงจะทาอีกคาสง่ั หน่ึงดว้ ยคาสง่ั Else รูปแบบ If.....เง่ือนไข.....Then... คำสงั่ หรือกลมุ่ คำสงั่ Else คำสง่ั หรือกลมุ่ คำสง่ั End if ตวั อย่างท่ี 1 การใช้คาสั่ง If...Then...Else จงวเิ คราะหป์ ัญหาและเขยี นโปรแกรม เพอื่ ตรวจสอบน้าหนกั มาตรฐานของผใู้ ช้ ซ่ึงตรวจสอบไดจ้ าก ส่วนสูงลบดว้ ย 110 โดยให้ผใู้ ชร้ ับคา่ น้าหนกั และส่วนสูงของตนเอง แลว้ ใหโ้ ปรแกรมแสดงขอ้ ความวา่ น้าหนกั อยใู่ นเกณฑม์ าตรฐาน หรือมากกวา่ ค่ามาตรฐาน สิ่งท่ีโจทย์ต้องการ(Problem Statement) แสดงขอ้ ความวา่ น้าหนกั อยใู่ นเกณฑม์ าตรฐานหรือไม่ ข้อมูลเข้า(Input) 1. ชื่อ-สกลุ 2. น้าหนกั 3. ส่วนสูง ข้อมูลออก(Output) 1. ขอ้ ความแสดงวา่ น้าหนกั อยใู่ นเกณฑม์ าตรฐาน 2. ขอ้ ความแสดงวา่ น้าหนกั มากกวา่ เกณฑม์ าตรฐาน ตัวแปร(Variable) 1. ช่ือ-สกลุ : Name1 2. น้าหนกั : Weight 3. ส่วนสูง : High 4. น้าหนกั มาตรฐาน : Standard การเขียนโปรแกรมโดยใชเ้ ครื่องมือกราฟิกโหมด : จฬุ าลกั ษณ์ ถาไชยลา

ข้นั ตอนการประมวลผล(Algorithm) 1. เร่ิมตน้ การทางาน 2. กาหนดให้ Standard = 0 3. รับคา่ Name1,Weight,High 4. คานวณน้าหนกั มาตรฐาน Standard = High – 110 5. ตรวจสอบน้าหนกั มาตรฐาน ถา้ Weight > Standard ใหแ้ สดงขอ้ ความวา่ “คุณมีน้าหนกั เกินมาตรฐาน ควรลดน้าหนกั อีกนิดนะคะ” มิฉะน้นั แลว้ ใหแ้ สดงขอ้ ความวา่ “คุณมีน้าหนกั มาตรฐานแลว้ ค่ะ “ 6. จบการทางาน ผังงาน (Flowchart) Start Standard=0 Read Name1,Weight,High Standard  High-110 Y Weight>Standard N “นำ้ หนกั มำกกวำ่ “นำ้ หนกั ได้ มำตรฐำน” มำตรฐำน” Stop การเขียนโปรแกรมโดยใช้เครื่องมือกราฟิกโหมด : จฬุ าลกั ษณ์ ถาไชยลา

คาส่ังเทียม (Pseudo Code) Begin Standard = 0 Read Name1,Weight,High Standard  High - 110 If Weight > Standard Then Write “ คุณมีน้าหนกั เกินมาตรฐาน ควรลดน้าหนกั อีกนิดนะคะ” Else Write “ คุณมีน้าหนกั มาตรฐาน แลว้ ค่ะ” End โปรแกรม (Program) 1. เปิ ดโปรแกรม Visual basic เลือกสร้าง Project 2. ออกแบบฟอรม์ ตามโจทยต์ อ้ งการ ดงั น้ี การเขียนโปรแกรมโดยใชเ้ ครื่องมือกราฟิกโหมด : จฬุ าลกั ษณ์ ถาไชยลา

3. กาหนดคุณสมบตั ิใหก้ บั คอนโทรลตา่ งๆ Object/Control Properties ค่าทีก่ าหนด Form Name FrmIfThenElse Text ตวั อยา่ งการใชค้ าสงั่ If...Then...Else Label1 Text โปรแกรมคานวณน้าหนกั มาตรฐาน BorderStyle 1-Fixed Single Label2 Text ชื่อ - สกลุ Label3 Text ส่วนสูง Label4 Text น้าหนกั Label5 Text เซนติเมตร Label6 Text กิโลกรัม Text1-Text3 Text ลบทิ้ง Button1 Text คานวณน้าหนกั มาตรฐาน Button2 Text เคลียร์ Button3 Text จบการทางาน 4. เขียนโคด้ เพอื่ คานวณน้าหนกั มาตรฐาน โดยใชค้ าสง่ั If...Then... ใหก้ บั ป่ มุ คานวณ ป่ มุ เคลียร์และป่ มุ จบการทางาน ดงั น้ี การเขียนโปรแกรมโดยใชเ้ ครื่องมือกราฟิกโหมด : จฬุ าลกั ษณ์ ถาไชยลา

5. ทดสอบการทางานของโปรแกรม สงั่ RUN จะไดผ้ ลลพั ธด์ งั น้ี ผลการทางานเมื่อเง่ือนไขเป็ นจริ ง ผลการทางานเม่ือเง่ือนไขเป็ นเทจ็ การเขียนโปรแกรมโดยใช้เครื่องมือกราฟิกโหมด : จฬุ าลกั ษณ์ ถาไชยลา

ตัวอย่างที่ 2 จงวเิ คราะหป์ ัญหา ออกแบบจอภาพ และเขยี นโปรแกรม คานวณคา่ จา้ งสุทธิของพนกั งาน โดยมี เงอ่ื นไขคอื ค่าจา้ งคานวณจาก จานวนชว่ั โมงทางานคูณกบั อตั ราคา่ จา้ ง ถา้ คา่ จา้ งนอ้ ยกวา่ หรือเท่ากบั 5,000 บาท เสียภาษี 2% ถา้ ค่าจา้ งมากกวา่ 5,000 เสียภาษี 5% ของส่วนทเี่ กิน 1. สิ่งทโ่ี จทย์ต้องการ(Problem Statement) คานวณเงินคา่ จา้ งสุทธิของพนกั งาน 2. ข้อมูลเข้า(Input) 1. รหสั พนกั งาน 2. ช่ือพนกั งาน 3. จานวนชวั่ โมงทางาน 4. อตั ราคา่ จา้ ง 3. ข้อมูลออก(Output) 1. รหสั พนกั งาน 2. ชื่อพนกั งาน 3. จานวนชว่ั โมงทางาน 4. อตั ราค่าจา้ ง 5. ค่าจา้ ง 6. ภาษี 7. คา่ จา้ งสุทธิ 4. ตวั แปร(Variable) 1. รหสั พนกั งาน : Id Name1 2. ชื่อพนกั งาน : Hour Rate 3. จานวนชวั่ โมงทางาน : Income Tax 4. อตั ราคา่ จา้ ง : Net 5. ค่าจา้ ง : 6. ภาษี : 7. ค่าจา้ งสุทธิ : การเขียนโปรแกรมโดยใชเ้ ครื่องมือกราฟิกโหมด : จุฬาลกั ษณ์ ถาไชยลา

5. ข้นั ตอนการประมวลผล (Algorithm) 1. เริ่มตน้ การทางาน 2. กาหนดให้ Income , Tax , Net  0 3. รบั ค่า Id , Name1 , Hour , Rate 4. คานวณเงนิ คา้ จา้ ง Income  Hour * Rate 5. เปรียบเทียบเงินค่าจา้ ง 5.1 ถา้ Income <= 5000 ใหท้ า Tax  Income * 0.02 มิฉะน้นั แลว้ 5.2 Tax  (Income – 5000) * 0.05 + (5000*0.02) 6. คานวณคา่ จา้ งสุทธิ Net  Income - Tax 7. แสดงค่า Id , Name1 , Hour , Rate , Income , Tax , Net 8. จบการทางาน 6. ผังงาน (Flowchart) Start Income , Tax , Net  0 Id , Name1 , Hour , Rate Income  Hour * Rate N Income <=5000 Tax  (Income – 5000) * 0.05 + Y (5000 * 0.02) Tax  Income * 0.02 Net  Income - Tax Id , Name1 ,Hour , Rate,Income,Tax,Net Stop การเขียนโปรแกรมโดยใช้เครื่องมือกราฟิกโหมด : จฬุ าลกั ษณ์ ถาไชยลา

7. คาสั่งเทยี ม (Pseudo Code) Begin Income , Tax , Net  0 Read Id , Name1 , Hour , Rate Income  Hour * Rate If Income <= 5000 then Tax  Income * 0.02 Else Tax  (Income – 5000) * 0.05 + (5000*0.02) Net  Income - Tax Write Id , Name1 , Hour , Rate , Income , Tax , Net End 8. โปรแกรม (Program) 1. เปิ ดโปรแกรม Visual basic เลือกสร้าง Project 2. ออกแบบฟอรม์ ตามโจทยต์ อ้ งการ ดงั น้ี การเขียนโปรแกรมโดยใช้เครื่องมือกราฟิกโหมด : จฬุ าลกั ษณ์ ถาไชยลา

3. กาหนดคุณสมบตั ิใหก้ บั คอนโทรลตา่ งๆ Object/Control Properties คา่ ทก่ี าหนด Form Name FrmNetIncome Text คานวณคา่ จา้ งสุทธิ Label1 Text โปรแกรมคานวณค่าจา้ งสุทธิของพนกั งาน BorderStyle 1-Fixed Single Label2 Text รหสั พนกั งาน Label3 Text ชื่อพนกั งาน Label4 Text จานวนชว่ั โมงทางาน Label5 Text อตั ราคา่ จา้ งต่อชวั่ โมง Label6 Text คา่ จา้ ง Label7 Text ภาษี Label8 Text คา่ จา้ งสุทธิ Label9 Text ชวั่ โมง Label10-13 Text บาท Text1-Text7 Text ลบท้ิง Text5-Text7 Enabled False Button1 Text คานวณ Button2 Text จบการทางาน หมายเหตุ การกาหนดสีอกั ษรและพน้ื หลงั ใหเ้ ลือกท่ี ForeColor และ BackColor การเขียนโปรแกรมโดยใชเ้ ครื่องมือกราฟิกโหมด : จุฬาลกั ษณ์ ถาไชยลา

4. เขยี นโคด้ เพอ่ื คานวณคา่ จา้ งสุทธิ ใหก้ บั ป่ มุ คานวณและป่ ุมจบการทางาน ดงั น้ี การเขียนโปรแกรมโดยใชเ้ ครื่องมือกราฟิกโหมด : จฬุ าลกั ษณ์ ถาไชยลา

5. ทดสอบการทางานของโปรแกรม สง่ั RUN โดยกดป่ มุ <F5> จะไดผ้ ลลพั ธด์ งั น้ี ผลการทดสอบเป็ นจริง ผลการทดสอบเป็ นเทจ็ การเขียนโปรแกรมโดยใชเ้ ครื่องมือกราฟิกโหมด : จุฬาลกั ษณ์ ถาไชยลา