Page 1 of 1
กำหนดเวลาในการเล่นเกม
Posted: Sat Sep 17, 2011 12:28 pm
by boonjarul
หากต้องการกำหนดเวลาในการเล่นเกมแบบนับถอยหลัง
1. เมื่อเริ่มทำข้อสอบข้อที่ 1 และเมื่อทำเสร็จให้หยุดเวลา แต่ถ้าหมดเวลาให้แสดงข้อความเกม Over
2. ทำให้ช่องเติมคำตอบไม่สามารถทำงานได้เมื่อเกม Over ยกเว้นปุ่มคลิกเลือก
3. วิธีการใส่เสียงในExcel ทำอย่างไรคะ
Re: กำหนดเวลาในการเล่นเกม
Posted: Sat Sep 17, 2011 12:48 pm
by snasui
ลองศึกษาจากกระทู้นี้ครับ
http://www.snasui.com/viewtopic.php?f=3&t=1508
การนับเวลาถอยหลังทั้งการแทรกเสียงก็เช่นเดียวกันต้องเขียน VBA ซึ่งไม่ใช่เรื่องง่าย ๆ สำหรับผู้ที่ไม่คุ้นเคยครับ ลองศึกษาตาม Link ที่ผมให้ไป ลองปรับปรุงไฟล์มาตามนั้น การ Save ไฟล์ ต้อง Save เป็นนามสกุล .xls หรือ .xlsm เพื่อที่จะเก็บ Code VBA ไว้กับไฟล์ได้ หากทำแล้วติดขัดตรงส่วนใด ต้องการปรับปรุงตรงไหนค่อยถามตอบกันไปเรื่อย ๆ ครับ
วิธีการใส่เสียงให้หน้าเกม
Posted: Mon Sep 19, 2011 9:05 am
by boonjarul
เรียนอาจารย์ที่เคารพ
อยากให้ช่วยแนะนำการใส่ไฟล์เสียงในหน้าเกมด้วยคะจะมีวิธีการทำอย่างไร
ขอบพระคุณล่วงหน้าคะ
Re: กำหนดเวลาในการเล่นเกม
Posted: Mon Sep 19, 2011 10:17 am
by snasui
จากไฟล์ที่แนบมา ลองเพิ่ม Code ที่ StartGame ตามด้านล่างครับ
Code: Select all
Sub StartGame()
Worksheets("เกม").Select
Worksheets("เกม").Shapes("Object 2").Select
Selection.Verb Verb:=xlPrimary
'Range("G5:R5,G7:R7").ClearContents
Worksheets("เกม").[U1].Value = 10 * 3
Call Timer
End Sub