31 / 61
StartAnimation[a,b]
(เริ่มเคลื่อนไหวจุด a โดยค่าบูลิน b)
b=If[b , false, true]
(ถ้าค่าบูลินb = false ให้หยุด
เคลื่อนไหว ถ้าค่าบูลินb = true
ให้เคลื่อนไหว)
SetCaption[button1,If[c,”stop”,”start”]]
(การตั้งค่าข้อความในbutton1)
c = If[c,false,true]
(ถ้าc= falseแสดงข้อความ Start
ถ้าc= true แสดงข้อความ Stop)
ต่อมาจะเริ่มท�
ำงานในส่วนของ 3D Graphics เพื่อที่จะ
สร้างรูปเรขาคณิตสามมิติในที่นี้จะสร้างพีระมิดฐานสี่เหลี่ยม
โดยท�
ำการลงจุดในช่อง Input bar แล้วใช้เครื่องมือสร้าง
พีระมิด ดังนี้
จากนั้นพิจารณารายละเอียดในส่วนของ Algebra
จะเห็นว่าพีระมิดที่สร้างขึ้นคือ พีระมิด d โดยมีส่วนประกอบ
ต่าง ๆ ได้แก่ ส่วนของเส้นตรง สีเหลี่ยมและสามเหลี่ยม จากนั้น
จะท�
ำการคลี่รูปนี้ด้วยการเขียนค�
ำสั่งผ่าน Input bar ดังนี้
เมื่อพิมพ์เสร็จให้กดปุ่ม Enter ในแป้นพิมพ์ แล้วจึง
ไปกดปุ่ม Start ที่สร้างขึ้นจะได้ดังภาพ
Net
คือ การคลี่ตัวอักษร
Polyhedron คือ ชื่อภาพที่เราต้องการคลี่ (d)
Number
คือ ตัวเลขหรือพารามิเตอร์ที่เราจะเชื่อม
กับการคลี่ (a)
A: (2,0,0)
B: (-2,0,0)
C: (0,2,0)
D: (0,-2,0)
E: (0,0,4)
สร้างปุ่ม จากเครื่องมือสร้างปุ่ม (Button)
จากนั้นจะมีกล่องข้อความเกิดขึ้นให้กดปุ่ม Apply จากนั้น
จะปรากฏปุ่ม Button1 ขึ้น แล้วคลิกขวา Button1 เลือก
Object properties => Scipting=>On Click แล้วเขียน
สคริปต์ดังภาพ
31
ปีที่ 44 ฉบับที่ 197 พฤศจิกายน - ธันวาคม 2558