สร้างเวลาเกมโอเวอร์

[jindarat]

ไม่ทราบว่าได้รับไฟล์เกมหรือเปล่าเนื่องจากส่งไปหลายรอบแล้วแต่ไม่แน่ใจช่วยตอบเกี่ยวกับขั้นตอนในการสร้างเวลาเกมโอเวอร์เพราะฝึกทำแต่ไม่ได้และcodeก้อไม่สามารถเปลี่บยเป็นภาษาไทยได้ช่วยอธิบายด้วนค่ะดิฉันได้แนบไฟลืเกมมาให้แก้ไขเพราะจะใช้ในการสอน

ปกรณ์พพพพพพพพพพพพพพพพพพพพพพพพ.xlsx

[snasui]

การจับเวลาและแสดงคำว่า Game Over หรือข้อความคล้ายกันนี้ จำเป็นต้องใช้ VBA ครับ ซึ่งต้องเขียนกันมาก่อน ติดตรงไหนสามารถถามกันได้ ในฟอรัมนี้ก็มีตัวอย่างให้ดูครับ

สำหรับไฟล์ที่จะแนบ Code มาได้นั้นจะต้องมีนามสกุลเป็น .xlsm ไม่ใช่ .xlsx ดังที่แนบมา ในหมวด Excel งดใช้ภาษาแชทเช่นคำว่า ก้อ ตามกฎของข้อ 1 ด้านบน และไม่ต้องรีบร้อนในการพิมพ์ข้อความ เนื่องจากพบว่าพิมพ์ไม่ถูกต้องหลายคำครับ

ไม่ทราบว่าได้รับไฟล์เกมหรือเปล่าเนื่องจากส่งไปหลายรอบแล้วแต่ไม่แน่ใจช่วยตอบเกี่ยวกับขั้นตอนในการสร้างเวลาเกมโอเวอร์เพราะฝึกทำแต่ไม่ได้และcodeก้อไม่สามารถเปลี่บยเป็นภาษาไทยได้ช่วยอธิบายด้วนค่ะดิฉันได้แนบไฟลืเกมมาให้แก้ไขเพราะจะใช้ในการสอน

ปกรณ์พพพพพพพพพพพพพพพพพพพพพพพพ.xlsx

[dkawee]

มีปัญหาการสร้างเวลาเกมโอเวอร์เหมือนกันค่ะ
อยากทราบขั้นตอนละเอียดหน่อยค่ะ เช่น เมื่อบันทึกไฟล์เป็นสกุล xlsm แล้ว เลือก cell ที่จะแสดงการเริ่มเกม เมื่อคลิก cell เริ่มเกมนี้แล้ว ให้ปรากฎตัวเลขเริ่มจับเวลา ต้องทำอย่างไร ที code ที่ต้องใส่อย่างไร และจะแก้ไข code เพื่อตั้งเวลาตามต้องการ เช่น 10 วินาที ทำอย่างไร เป็นต้น ขอบคุณมากค่ะ

[snasui]

Code จะต้องเขียนมาเองตามกฎข้อ 5 ด้านบนครับ ติดตรงไหนค่อยถามกันครับ ต้องขออภัยที่ขอแจ้งให้ทราบว่าที่นี่ไม่มีนโยบายแจก Code รับทำงาน หรือ รับทำการบ้านให้ท่านใดครับ

[dkawee]

ขอบคุณมากค่ะ (งานนี้ไม่ใช่การบ้านหรืองานรับ job หรอกค่ะ แต่เพราะอยากเรียนรู้จริงๆค่ะ คิดว่าจะเป็นประตูไปสู่การคิดสร้างสรรค์สื่อต่างๆได้ดี)
เขียน code มาแล้วตามไฟล์ที่แนบค่ะ เรียกใช้แมโครแล้ว ทำไมตัวจับเวลาไม่ทำงานคะ code ผิดหรือเปล่าคะ ขอบคุณอีกครั้ง

[dkawee]

ไฟล์แนบ

[snasui]

ในไฟล์ที่แนบมาผมไม่พบว่ามี Code ใด ๆ อยู่เลยครับ

[dkawee]

คลิก Alt+F11 จะพบใน VBE ค่ะ
Sub Format_Cell_Time()

Selection.NumberFormat = "[$-F400]h:mm:ss AM/PM"

End Sub

[snasui]

Code ที่เขียนมานั้นไม่ได้เกี่ยวกับการจับเวลาครับ เป็นการกำหนดฟอร์แมทเซลล์เท่านั้นครับ

ดูตัวอย่างการนับเวลาถอยหลัง ซึ่งเกี่ยวกับการกำหนดเกมโอเวอร์ได้จากที่นี่ครับ นับเวลาถอยหลัง

[dkawee]

ใส่ Code มาใหม่แล้วค่ะ แต่ว่าจะคลิกจาก firstpage มา level 1 แล้วนับแวลาถอยหลังในหน้า level 1 เลย จะต้องทำอย่างไรคะ ขอบคุณค่ะ

[dkawee]

ไฟล์แนบใหม่

[snasui]

ดูตัวอย่าง Code สำหรับการนับเวลาถอยหลัง จากกระทู้นี้ viewtopic.php?f=3&t=584 แล้วลองปรับใช้ดูครับ

[snasui]

ใส่ Code มาใหม่แล้วค่ะ แต่ว่าจะคลิกจาก firstpage มา level 1 แล้วนับแวลาถอยหลังในหน้า level 1 เลย จะต้องทำอย่างไรคะ ขอบคุณค่ะ

ไปที่ VBE > ไปที่ชีท Level1 แล้ว Copy Code ด้านล่างไปวาง จากนั้นกลับไปที่ Excel ลองคลิกชีทอื่น ๆ แล้วกลับมาคลิกชีท Level1 ดูครับ

Code: Select all

Private Sub Worksheet_Activate()
 Call Count
End Sub

[jindarat]

สวัสดีค่ะได้ทำการเปลี่ยนสกุลไฟล์เกมแล้วเป็น.xlsm แต่ขอรบกวนช่วยสอนขั้นตอนในการเข้าไปเขียนcode ในแมคโคxecel2007ในการสร้างเวลาเกมโอเวอร์

[snasui]

กดแป้น Alt+F11 หรือคลิกขวาที่ชีทใด ๆ แล้วเลือก View code

[jindarat]

ขอบคุณค่ะที่ช่วยสอนขั้นตอนการเข้าไปเขียนcodeแต่มีปัญหาว่าพิมพ์ภาษาไทยแต่เป็นภาษาอะไรไม่ทราบต้องแก้ไขอย่างไรค่ะ

[snasui]

ลองตามนี้ครับ

เข้า VBE > เข้าเมนู Tools > Options > เลือกแถบ Editor Format > ตรง Font: เลือก Font ที่มีวงเล็บต่อท้ายเป็น (Thai)

[jindarat]

ขอบคุณค่ะเดี๋ยวพรุ่งนี้จะสอนให้นักเรียนเขียนCodeถ้าหากติดขัดตรงไหนจะส่งให้แก้ไขเพิ่มเติมนะค่ะขอบคุณมากที่ให้ความรู้เพราะไม่เคยทราบมาก่อนว่าexcelก็สามารถเขียนโปรแกรมได้ขอบคุณค่ะ

[ongfong]

Distributio

[ongfong]

คือเราสร้างเกมส์ไว้เเล้วเเล้วเราก็จับเวลาแต่ตอนเราพิมพ์คำตอบในการเล่นเกมส์เวลาหยุดทำยังไม่ให้มันหยุด