คู่มือการสร้าง CAI ด้วย Powerpoint

คมู่ ือการทา CAI ดว้ ย POWERPOINT ดว้ ย POWERPOINT ครผู สู้ อน นางสาวพรรณนภา ตายะ ตาแหนง่ ครผู ชู้ ว่ ย โรงเรยี นปวงคา(ประชาอทุ ศิ )

การสร้างหนา้ Login (โปรแกรม PowerPoint) 1. การเรยี กใชเ้ มนู นกั พัฒนา ไปที่ 1. ไฟล์ > 2. ตัวเลือก > 3. กำหนด Ribbon เอง > 4. คลิกเลือกนักพัฒนา > 5. คลิกปุม่ “ตกลง” > 6. จะปรากฏหน้าเมนู นักพัฒนา 1 2 จัดทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 1

3 4 5 6 จัดทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 2

2. การสร้างหน้า Login 2.1 การพิมพข์ อ้ ความ ไปที่ 1. เมนูแทรก > 2. เลือกแบบอักษร > 3. พิมพข์ ้อความ “กรณุ าลงชื่อเพื่อเข้าเรียน” 1 2 3 2.2 การสรา้ งกล่องขอ้ ความ Login > 3. ลากเมาสเ์ พือ่ สรา้ งกลอ่ ง ไปที่ 1. เมนูนักพัฒนา > 2. เลือกกลอ่ งขอ้ ความ ข้อความ 21 3 จดั ทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 3

2.3 การกำหนดคณุ สมบตั ิของกลอ่ งขอ้ ความ Login ไปที่ 1. คลิกเลือกกลอ่ งขอ้ ความ Login > 2. คลิกเลือกคุณสมบัติ > 3. จะปรากฏหน้าต่างคณุ สมบัติของกล่องข้อความ Login > 4. เปลี่ยนชอ่ื ของกลอ่ งข้อความให้ เหมอื นโค้ดทีไ่ ด้เขียนไว้ (ผเู้ ขียนได้กำหนดเป็น “txtSName”) > 5. เปลี่ยน Font ตามต้องการ > 6. เปลี่ยนสีพ้ืนหลงั ของกลอ่ งข้อความ Login ตามตอ้ งการ > 7. ต้ังค่าการแสดงผลข้อความที่ผเู้ รียน พิมพ์เพือ่ เข้าส่เู รียน (ผเู้ ขียนได้เลือกเปน็ ค่าการแสดงผลแบบกึ่งกลาง) 3 42 5 6 1 7 จัดทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 4

2.4 การสร้างปุม่ Login > 3. ลากเมาส์เพื่อปมุ่ คำสั่ง ไปที่ 1. เมนูนกั พฒั นา > 2. เลือกปมุ่ คำสง่ั 1 2 3 2.5 การกำหนดคณุ สมบัติของปุม่ Login ไปที่ 1. คลิกเลือกป่มุ Login > 2. คลิกเลือกคุณสมบัติ > 3. จะปรากฏ หนา้ ต่างคุณสมบตั ิของปมุ่ Login > 4. เปลี่ยนช่อื ของปุ่ม Login ให้เหมอื นโค้ดที่ได้เขียนไว้ (ผเู้ ขียนได้ กำหนดเปน็ “btnLogin”) > 5. เปลีย่ น Caption เปน็ “คลิกเพื่อเขา้ เรียน” > 6. เปลีย่ น Font ตาม ต้องการ 3 42 5 6 1 จดั ทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 5

2.3 การใส่โค้ดของกลอ่ งข้อความ Login ไปที่ 1. ดบั เบิลคลิกที่กลอ่ ง Login > 2. จะปรากกฎหน้าตา่ งการใส่โค้ด (เป็น Slied 1) > 3. พิมพโ์ ค้ดลงในหน้าต่างโค้ด 1 2 จดั ทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 6

3. พิมพโ์ ค้ดดงั น้ี ลงในหนา้ ต่างโค้ด Private Sub btnLogin_Click() UserName = txtSName.Text If UserName <> \"\" Then ให้ใสเ่ ลขลำดบั ทีข่ องสไลด์ ActivePresentation.SlideShowWindow.View.Next ในการแสดงผล Login txtSName.Text = \"\" ActivePresentation.Slides(2).Shapes(\"lblSName\").OLEFormat.Object.Caption = UserName Else MsgBox \"Please Input Your Name\", vbCritical, \"Login\" End If End Sub 3 จัดทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 7

3. การสร้างหน้า แสดงผลการ Login 3.1 การเพิม่ หนา้ กระดาษใหม่ ไปที่ 1. เมนูแทรก > 2. เลือกสไลด์ใหม่ > 3. เลือกวา่ งเปล่า > 4. จะปรากฎหน้ากระดาษ ใหม่แบบว่างเปล่า 1 2 3 4 จัดทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 8

3.2 การพิมพ์ขอ้ ความ ไปที่ 1. เมนูแทรก > 2. เลือกแบบอักษร > 3. พิมพข์ ้อความ “ยินดีตอ้ นรบั คุณ” 1 2 3 3.3 การสร้างกล่องป้ายช่อื เพือ่ แสดงผลการ Login ไปที่ 1. เมนูนักพัฒนา > 2. เลือกป้ายช่อื > 3. ลากเมาสเ์ พื่อสรา้ งกล่องป้ายช่อื 1 2 3 จัดทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 9

3.4 การกำหนดคุณสมบตั ิของกล่องป้ายชือ่ เพ่ือแสดงผลการ Login ไปที่ 1. คลิกเลือกป้ายชอ่ื > 2. คลิกเลือกคณุ สมบัติ > 3. จะปรากฏ หนา้ ต่างคุณสมบัติของกลอ่ งป้ายชอ่ื > 4. เปลี่ยนช่ือของกลอ่ งป้ายช่ือให้เหมอื นโค้ดทีไ่ ด้เขียนไว้ (ผเู้ ขียนได้กำหนดเปน็ “lblSName”) > 5. เปลีย่ นสีพื้นหลงั ของกล่องป้ายช่อื ตามต้องการ > 6. Caption ลบออกใหว้ ่างเปล่า > 7. เปลีย่ น Font ตามต้องการ > 8. ตั้งค่าการแสดงผลข้อความที่ ผเู้ รียนได้ Login เพื่อเข้าสเู่ รียน (ผเู้ ขียนได้เลือกเป็นค่าการแสดงผลแบบกึ่งกลาง) 3 42 5 6 7 8 1 3.5 การใส่โค้ดของกล่องป้ายชอ่ื ไปที่ 1. ดบั เบิลคลิกทีก่ ล่องป้ายช่อื > 2. จะปรากกฎหน้าต่างการใส่โค้ด (เป็น Slied 2) > 3. พิมพโ์ ค้ดลงในหน้าต่างโค้ด 1 จดั ทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 10

2 3. พิมพโ์ ค้ดดังน้ี ลงในหนา้ ต่างโค้ด Private Sub lblSName_Click() txtSName.Text = \"\" Me.txtSName.Text = \"\" End Sub 3 จดั ทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 11

4. แสดงผลการสร้าง Login จัดทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 12

การบนั ทกึ ไฟล์งาน ไปที่ 1. ไฟล์ > 2. บันทึกเปน็ > 3. เปลีย่ นชอ่ื ไฟล์งานตามตอ้ งการ > 4. เลอื กชนิดไฟล์งานเปน็ PowerPoint Macro-Enabled Presentation 1 2 3 4 จดั ทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 13

การสร้างแบบทดสอบ (โปรแกรม PowerPoint) 1. การสรา้ งหนา้ แบบทดสอบก่อนเรยี น 1.1 การพิมพ์ข้อความ ไปที่ 1. เมนูแทรก > 2. เลือกแบบอักษร > 3. พิมพข์ ้อความ “แบบทดสอบกอ่ นเรียน” 1 2 3 1.2 การสรา้ งป่มุ เริ่มทำแบบทดสอบกอ่ นเรียน ไปที่ 1. เมนูแทรก > 2. เลือกรปู ร่าง > 3. ลากเมาสเ์ พื่อสร้างปุ่มเริ่มทำแบบทดสอบกอ่ น เรียนและคลิกเมาสข์ วา > 4. เลือกแก้ไขข้อความ > 5. พิมพข์ ้อความ “เริ่มทำแบบทดสอบกอ่ น เรียน” 1 2 จัดทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 1

4 3 5 จดั ทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 2

1.3 การเพิ่มหนา้ กระดาษใหม่ ไปที่ 1. เมนูแทรก > 2. เลือกสไลด์ใหม่ > 3. เลือกว่างเปลา่ > 4. จะปรากฎหน้ากระดาษ ใหม่แบบวา่ งเปล่า 1 2 3 4 จดั ทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 3

1.4 การพิมพ์ข้อสอบ ไปที่ 1. เมนูแทรก > 2. เลือกแบบอักษร > 3. พิมพข์ ้อสอบข้อที่ 1 “1. 1+1 เทา่ กับข้อใด” 1 2 3 1.5 การสร้างปุ่มตวั เลือกข้อสอบ ไปที่ 1. เมนูแทรก > 2. เลือกรูปรา่ ง (เลือกรูปรา่ งตามที่ต้องการ) > 3. ลากเมาส์เพื่อปุ่ม ตวั เลือกข้อสอบ > 4. คลิกเมาส์ขวา > 5. เลือกแก้ไขข้อความ > 6. พิมพต์ ัวเลือก “ก” 1 2 3 จัดทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 4

4 5 6 จัดทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 5

1.6 การพิมพต์ ัวเลือกข้อสอบ ไปที่ 1. เมนูแทรก > 2. เลือกแบบอักษร > 3. พิมพต์ วั เลือกข้อสอบ “2” 1 2 3 จากนั้นให้ทำตามวิธีในข้อ 1.5 และ 1.6 ให้มีตัวเลือกข้อสอบครบทกุ ข้อ *** หมายเหตุ ควรสร้างข้อสอบให้มจี ำนวนมากกวา่ 1 ข้อ ในเอกสารนมี้ ีการกำหนดให้ สร้างขอ้ สอบจำนวน 5 ข้อ จัดทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 6

1.7 การเพิ่มข้อสอบให้มจี ำนวน 5 ข้อ ให้ทำตามวิธีในข้อ 1.4 และ 1.6 (ทำซ้ำอีก 4 ครั้ง) 2. การสร้างหน้าแสดงผลคะแนน 2.1 การเพิ่มหน้ากระดาษใหม่ ไปที่ 1. เมนูแทรก > 2. เลือกสไลด์ใหม่ > 3. เลือกวา่ งเปลา่ > 4. จะปรากฎหน้ากระดาษ ใหม่แบบวา่ งเปลา่ 1 2 3 จดั ทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 7

4 2.2 การพิมพ์ขอ้ ความ ไปที่ 1. เมนูแทรก > 2. เลือกแบบอักษร > 3. พิมพ์ข้อความ “คะแนนก่อนเรียนของคุณ คือ” 1 2 3 จดั ทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 8

2.3 การสร้างกลอ่ งป้ายชอ่ื เพื่อแสดงผลคะแนนกอ่ นเรียน ไปที่ 1. เมนูนักพัฒนา > 2. เลือกป้ายช่อื > 3. ลากเมาส์เพื่อสรา้ งกล่องป้ายชอ่ื 1 2 3 2.4 การกำหนดคณุ สมบตั ิของกล่องป้ายชือ่ เพื่อแสดงคะแนนก่อนเรียน ไปที่ 1. คลิกเลือกป้ายชอ่ื > 2. คลิกเลือกคณุ สมบตั ิ > 3. จะปรากฏ หนา้ ต่างคุณสมบัติของกลอ่ งป้ายชอ่ื > 4. เปลี่ยนช่ือของกลอ่ งป้ายชื่อให้เหมอื นโค้ดทีไ่ ด้เขียนไว้ (ผเู้ ขียนได้กำหนดเป็น “ScorePre”) > 5. เปลี่ยนสีพ้ืนหลังของกล่องป้ายช่อื ตามต้องการ > 6. Caption ลบออกใหว้ ่างเปล่า > 7. เปลี่ยน Font ตามต้องการ > 8. ตั้งค่าการแสดงผลข้อความที่ ผเู้ รียนได้ Login เพื่อเข้าส่เู รียน (ผเู้ ขียนได้เลือกเปน็ ค่าการแสดงผลแบบกึ่งกลาง) 3 42 5 6 7 81 จดั ทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 9

2.5 การใส่โค้ดของกล่องป้ายช่อื ไปที่ 1. ดับเบิลคลิกทีก่ ลอ่ งป้ายชื่อ > 2. จะปรากกฎหนา้ ตา่ งการใส่โค้ด (เป็น Slied 7) > 3. พิมพโ์ ค้ดลงในหน้าต่างโค้ด 1 2 จดั ทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 10

พิมพโ์ ค้ดดงั นี้ ลงในหน้าตา่ งโค้ด Sub CorrectPre() ScorePre.Caption = (ScorePre.Caption + 1) ActivePresentation.SlideShowWindow.View.Next End Sub Sub WrongPre() ActivePresentation.SlideShowWindow.View.Next End Sub Sub QuizExitPre() ActivePresentation.SlideShowWindow.View.Exit End Sub Sub StartPre() Slide7.ScorePre.Caption = 0 ActivePresentation.SlideShowWindow.View.Next End Sub Sub ReStartPre() ActivePresentation.SlideShowWindow.View.GotoSlide(1) End Sub จดั ทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 11

เขยี นเลขให้ตรงกนั เขยี นเลขให้ตรงกนั 3 **** หมายเหตุ เขียนเลขไลด์ใหต้ รงกัน ดังภาพด้านบน 2.6 การสรา้ งปุม่ เริม่ ทำแบบทดสอบก่อนเรียนอีกคร้ัง ไปที่ 1. เมนูแทรก > 2. เลือกรปู รา่ ง > 3. ลากเมาส์เพือ่ สร้างปุ่มเริ่มทำแบบทดสอบกอ่ น เรียนอีกครั้งและคลิกเมาส์ขวา > 4. เลือกแก้ไขข้อความ > 5. พิมพข์ ้อความ “เริม่ ทำแบบทดสอบ กอ่ นเรียนอีกคร้ัง” 1 2 จดั ทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 12

4 3 5 จัดทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 13

2.7 การสร้างปมุ่ ออกแบบทดสอบกอ่ นเรียน ไปที่ 1. เมนูแทรก > 2. เลือกรปู ร่าง > 3. ลากเมาสเ์ พือ่ สร้างปุ่มออกจากแบบทดสอบ ก่อนเรียนและคลิกเมาสข์ วา > 4. เลือกแก้ไขข้อความ > 5. พิมพ์ข้อความ “ออกจากแบบทดสอบ กอ่ นเรียน” 1 2 4 3 จดั ทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 14

5 3. การกำหนดค่าการกระทำของปมุ่ ต่าง ๆ 3.1 การตั้งคา่ การกระทำของปุ่มเริ่มทำแบบทดสอบก่อนเรียน ไปที่ 1. คลิกปมุ่ เริม่ ทำแบบทดสอบก่อนเรียน > 2. เลือกเมนแู ทรก >3. เลือกการกระทำ (จะปรากฏหน้าต่างการกระทำ) > 4. เลือกคา่ การกระทำการเรียกใช้แมโคร > 5. เลือก “StartPre” > 5. คลิกเลือก “ตกลง” 2 3 1 จัดทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 15

4 5 6 3.2 การตงั้ ค่าการกระทำของปมุ่ ตัวเลือก (ก-ง) ไปที่ 1. คลิกปุ่มตัวเลือก “ก” > 2. เลือกเมนแู ทรก > 3. เลือกการกระทำ (จะปรากฏหน้าต่างการกระทำ) > 4. เลือกค่าการกระทำการเรียกใช้แมโคร > 5. เลือก “CorrectPre” (กรณีเป็นข้อถูก) > 5. คลิกเลือก “ตกลง” 2 3 1 จดั ทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 16

4 5 6 ไปที่ 1. คลิกปุ่มตวั เลือก “ข” > 2. เลือกเมนูแทรก > 3. เลือกการกระทำ (จะปรากฏหน้าต่างการกระทำ) > 4. เลือกค่าการกระทำการเรียกใช้แมโคร > 5. เลือก “WrongPre” (กรณีเปน็ ข้อผิด) > 5. คลิกเลือก “ตกลง” 2 3 1 จัดทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 17

4 5 6 **** หมายเหตุ กำหนดค่าการกระทำให้ครบทกุ ตัวเลือก (ก-ง) และทำให้ครบทุกข้อ (1-5) 3.3 การต้ังคา่ การกระทำของปุ่มเริ่มทำแบบทดสอบกอ่ นเรียนอีกครั้ง ไปที่ 1. คลิกป่มุ ตัวเลือก “เริ่มทำแบบทดสอบกอ่ นเรียนอีกครั้ง” > 2. เลือกเมนแู ทรก > 3. เลือกการกระทำ (จะปรากฏหน้าต่างการกระทำ) > 4. เลือกคา่ การกระทำการเรียกใช้แมโคร > 5. เลือก “ReStartPre” (กรณีเป็นข้อถูก) > 5. คลิกเลือก “ตกลง” 2 3 1 จัดทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 18

5 4 6 3.4 การตั้งค่าการกระทำของปุ่มเริ่มทำแบบทดสอบก่อนเรียนอีกครั้ง ไปที่ 1. คลิกปมุ่ ตวั เลือก “ออกจากแบบทดสอบกอ่ นเรียน” > 2. เลือกเมนแู ทรก > 3. เลือกการกระทำ (จะปรากฏหน้าต่างการกระทำ) > 4. เลือกคา่ การกระทำการเรียกใช้แมโคร > 5. เลือก “ReStartPre” (กรณีเปน็ ข้อถกู ) > 5. คลิกเลือก “ตกลง” 2 3 1 จดั ทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 19

5 6 4 4. แสดงผลการสร้างแบบทดสอบก่อนเรยี น จดั ทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 20

จดั ทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 21

จดั ทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 22

จดั ทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 23

*** หมายเหตุ การสรา้ งแบบทดสอบหลงั เรยี น 1) ให้ทำตามวิธีในการสร้างแบบทดสอบกอ่ นเรียนครบทุกข้ันตอน 2) ให้พิมพโ์ ค้ดดังน้ี ลงในหน้าตา่ งโค้ด (เป็นการเปลีย่ นโค้ด จาก ScorePre เปน็ ScorePos) Sub CorrectPos() ScorePos.Caption = (ScorePos.Caption + 1) ActivePresentation.SlideShowWindow.View.Next End Sub Sub WrongPos() ActivePresentation.SlideShowWindow.View.Next End Sub Sub QuizExitPos() ActivePresentation.SlideShowWindow.View.Exit End Sub ใสเ่ ลขไสดใ์ ห้ตรง Sub StartPos() กบั ไสด์ในแมโคร Slide .ScorePos.Caption = 0 ActivePresentation.SlideShowWindow.View.Next ใสเ่ ลขไสดใ์ ห้ตรงกบั ไสด์ในหน้าเริ่มทา End Sub แบบทดสอบหลงั เรียน Sub ReStartPos() ActivePresentation.SlideShowWindow.View.GotoSlide ( ) End Sub *** หมายเหตุ ดูตัวอย่างการใส่โค้ดที่ข้อ 2.5 *** จดั ทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 24

การบนั ทกึ ไฟล์งาน ไปที่ 1. ไฟล์ > 2. บันทึกเปน็ > 3. เปลีย่ นชอ่ื ไฟล์งานตามตอ้ งการ > 4. เลือกชนิดไฟล์งานเปน็ PowerPoint Macro-Enabled Presentation 1 2 3 4 จดั ทำโดย อาจารย์ ดร.กิตติยา ปลอดแก้ว 25