20:10:00
มนุษย์ชอบความบันเทิงกันทั้งนั้น ไม่ว่า ณ
ขณะนั้นคนเราจะกำลังอยู่ในภาวะเครียดก็ตาม
แต่คนเราก็ไม่สามารถจะตัดขาดจากความบันเทิงไปตลอดชีวิตได้
คนที่คร่ำเคร่งกับงานมากเกินไป หรือ
มีปัญหารุมเร้ามากมาย และไม่เคยมีอะไรมาสร้างสีสันให้กับชีวิตเลย
ชีวิตที่เหลืออยู่ของเขาคงจะเต็มไปด้วยความโศกเศร้า ไม่รื่นรมย์ การหางานอดิเรก
ที่ทำแล้วเรารู้สึกผ่อนคลายก็ช่วยให้เรามีความสุขได้ เช่น ปลูกต้นไม้,
ดูหนัง,ฟังเพลง, เล่นดนตรี, การอ่านหนังสือ ถึงแม้ว่าจะมีหนังสือหลายประเภทที่สามารถสร้างความสุขให้กับผู้รักการอ่านทุกคนได้
แต่ว่าบางคนก็อาจไม่รักการอ่าน แม้ว่าหนังสือเล่มนั้นจะเป็นหนังสือ บันเทิง
หนังสือ ดารา ก็ตาม คนบางประเภท อาจชอบที่จะอ่านหนังสือวิชาการก็ได้ เช่น
หนังสือด้านคอมพิวเตอร์ถึงแม้จะดูเครียด แต่ถ้าคนเราชอบและสนใจซะอย่าง
มันก็กลายเป็นความสุข และรื่นรมย์ได้เช่นกัน
เอาล่ะ พูดมาเยอะแล้ว
ก่อนที่มันจะยืดยาวไปกว่านี้ เรามาเข้าสู่เนื้อหาตามหัวข้อที่ขึ้นไว้จะดีกว่าน่ะ
จากหัวข้อ ที่ขึ้นไว้ การใช้ Microsoft
Excel 2010 : สร้างเครื่องเล่นเพลง มือใหม่ทั้งหลายที่เคยใช้ Excel
ด้านงานพื้น และไม่เคยใช้ งาน VBA, ACTIVEX หรือ
ไม่ชำนาญเรื่องมาโครเท่าไหร่นัก อาจไม่ทราบว่า Microsoft Excel สามารถทำสิ่งนี้ได้อย่างง่ายดาย ถ้าคนที่ติดตาม blog แห่งนี้ ก็จะเห็นว่าหลายๆบนความที่ผ่านมาพูดถึง วิธีการเข้าใช้งาน VBA, การสร้าง หน้าตาสวยๆ ด้วย shape มาแล้ว
ในบทความนี้ก็เช่นกัน เราจะนำเสนอการทำสิ่งนั้น ด้วย นั่นคือ นำ Shape มาสร้าง form เพื่อจำลองหน้าตา
ของโปรแกรมเล่นเพลงของเรา ดังภาพด้านล่างนี้
จากภาพเราจะเห็นว่า เราสร้างฟอร์มของโปรแกรมเล่น
เพลง ด้วย Shape รูปสี่เหลี่ยม โดยนำ Shape มาวาดเป็นพื้นหลัง ทำปุ่ม Stop, Start, PAUSE เป็นต้น
ส่วนตรงที่เขียนว่า PLAY SOUND Version
1.0 เป็น Shape รูปวงรี เอามาวาดแล้ว
วางซ้อนอยู่ด้านหลัง
*** ตรงพื้นที่สีดำ ให้เรานำ Control
WindowsMediaplayer มาวาง วิธีการนำมาวางก็ดูภาพ
ด้านล่างประกอบเอาน่ะ
โดยคลิ้กที่ แท็บ Developer แล้วคลิ้กที่ Insert แล้วเลือก More tool ก็จะปรากฏ กล่องโต้ตอบออกมา ดังภาพด้านล่าง
เราก็เลื่อนลงมาด้านล่าง จนเจอ Windows
Media Player แล้วกด1 ครั้ง แล้วกด Ok จากนั้น
ให้เราวาดมันลงบนพื้นที่ที่เราต้องการ
จากนั้นคลิ้กขวาที่ Windows Media Player
แล้ว เลือก Properties จากนั้นคลิ้กที่ Custom
จะได้กล่องกำหนดค่าให้ Windows Media
Player ดังภาพด้านล่างนี้
ให้เรากำหนดค่าตรง Selection a mode เป็น Mini
และเลือกเพลงที่จะให้เล่นที่ โดยการกดปุ่ม Browse
จากนั้น กด Ok
แล้วจัดวาง คอนโทรลต่างๆให้สวยงาม
เสร็จแล้วกด Alf+F11 แล้ว Insert
Module เข้ามา 1 อัน แล้วใส่โค้ดเข้าไป
Sub stopplay()
Sheet1.WindowsMediaPlayer1.Controls.Stop
End Sub
Sub playme()
Sheet1.WindowsMediaPlayer1.Controls.Play
End Sub
Sub pauseme()
Sheet1.WindowsMediaPlayer1.Controls.pause
End Sub
เป็นอันว่าเสร็จขั้นตอนการสร้างเครื่องเล่นเพลง หรือดูหนังขนาด Mini แล้วละครับ ขั้นตอนต่อไปก็สั่งให้โปรแกรมทำงานได้เลยครับ โปรแกรมนี้ ลองดัดแปลงโปรแกรมให้มีความสามารถมากขึ้นดูน่ะครับ อย่างเช่น ทำให้มีตัวบอกว่าเพลงเล่นจบหรือยัง หรือ ทำ playlist เปิดเพลงเข้ามาฟัง ทำให้สามารถลบเพลง เพิ่มเพลงได้ เป็นต้น
บทความ Excel อื่นๆ
Select rows ใดๆด้วยเม้าส์โดยใช้ vba (Excel)
