[Hitzuja's Toy] Webcam 2 Cursor ... ใช้เมาส์จนเบื่อ ลองเว็บแคมบ้างดีไหม ?

ยามว่างของนักคอมพิวเตอร์เขาทำอะไรกันครับ บางคนเล่นเกม บางคนสร้างหุ่นยนต์ และอื่นๆ ผมก็ว่างครับเลยทำอะไรมาฝาก นี่ก็เป็นของเล่นอีกชิ้นหนึ่งของผมครับ ผมสังเกตการทำงานของ Wii Remote แล้วก็นึกสับปะดนคิดว่าถ้าเราจะเอา Web Camera มาใช้แบบนี้บ้างจะเป็นยังไง ... แต่ขอบอกนะครับว่าผมไม่เคยเรียนไฟฟ้ามาก่อน ถ้าผมอธิบายผิดหลักไฟฟ้าเมื่อไหร่ ใครผ่านไปผ่านมาก็ช่วยผมทีนะครับ

สรุปว่าโปรแกรมนี้จะใช้แสงจากหลอดตัวส่ง Infrared เป็นวัตถุอ้างอิง และใช้ Webcam มาแทน Mouse โดยรับภาพตำแหน่งแสง Infrared แล้วไปประมวลคิดตำแหน่งของ Cursor ใน Windows ครับ โดยรูปภาพที่ได้จาก Webcam จะถูกฝากไว้ที่ Clipboard ก่อน (ทุกครั้งที่คุณกด Copy ไฟล์หรือข้อความต่างๆ จะมีการมาฝากไว้ที่ Clipboard ก่อนทุกครั้ง ก็เลยเหมือนที่พักข้อมูลชั่วคราว) แล้วโปรแกรมก็จะนำภาพที่ฝากไว้นั้นมาหาตำแหน่งวัตถุท ี่แกน X,Y ครับ

รูปนี้ก็การทำงานแบบง่ายครับ

อันนี้สามารถใช้รีโมตทั่วๆไปได้นะครับ แต่ถ้าไม่มีรีโมตก็ต้องทำเองหน่อย ตามนี้ครับ

เตรียมอุปกรณ์ก่อนแล้วกันครับ

ตามรูปเลยครับ

Web-Camera ความละเอียดไม่ต้องมากมาย แนะนำว่าอยู่ที่ 320x240 ถึง 640x480 ครับ
หลอดตัวส่ง Infrared (Infrared LED หรือ IR-LED) สัก 2 ตัวเป็นอย่างน้อย ... ขอย้ำว่าไม่ใช่หลอดไฟ LED ธรรมดานะครับ
สายไฟ ไม่ต้องยาวมากเกิน ใช้แค่ 2 สีก็พอครับ แดงกับดำ
Switch 2 แบบ คือ กดเปิด-กดปิด กับ กดค้างเปิด-ปล่อยปิด (อันนี่เรียก Push-on Switch)
รังถ่าน (Battery Holder) ขนาด AA ก้อนเดียวกำลังดี 2 ก้อนได้ แต่อย่าถึง 4 ก้อนขึ้นไปนะครับ
ถ่าน AA ตามร้านขายของชำหรือในห้างทั่วๆไป
[เสริม] Protoboard ถูกๆสักแผง ช่วยให้สะดวกขึ้นในการต่อวงจรไฟฟ้า
[เสริม] Gelatin Filter ชนิดรับเฉพาะแสง Infrared เท่านั้น ... หายากล่ะครับ
[เสริม] Resistor ตัวต้านทาน ช่วยให้หลอด Infrared LED อยู๋ได้นานขึ้น

* [เสริม] หมายถึงว่าจะมีหรือไม่ก็ ตามสบายนะครับ ... แต่ที่อยากให้ใช้คือ Gelatin Filter จริงๆมันจำเป็นมากเลยล่ะ แต่เพราะมันหายากมากมาย ผมเลยบอกว่าไม่สำคัญไปแทน อาจารย์ผมเขาสั่งมาการ Amazon.com ครับ

นี่เป็นส่วน Hardware นะครับ ถ้าถามผมว่า แล้วจะไปหาของแบบนี้ได้ที่ไหน ? ร้านอุปกรณ์ไฟฟ้าทั่วไปครับ ถ้าในห้างก็ อมร. กับ NPE ครับ ... ต่อมาเราก็เชื่อมมันเข้าด้วยกัน

ต่อตามรูปนี้นะครับ ... ปัญหาของคนที่ไม่เคยทำอะไรแบบนี้มาก่อนคือ จะทำไงให้สายไฟมันติดกับขั้วหลอดกับ Switch ได้ มันมักจะหลุดบ่อยๆ เพราะเหตุนี้ล่ะครับ ผมถึงแนะนำให้ใช้ Protoboard ไงครับ ที่ผมแนะนำ Protoboard ก็เพราะผมเป็นคนไม่ใช่หัวแร้งครับ ... ถ้าใครใช้หัวแร้งก็ดีครับ มันแน่นอนกว่า Protoboard เยอะ แต่ว่าถอนไม่ได้นะติดแล้วติดเลย

ลืมบอกลักษณะของหลอดตัวส่ง Infrared LED ไปเลยครับ ... โดยปกติแสงจาก IR-LED จะไม่สามารถมองเห็นได้ด้วยตาเปล่า อาจต้องใช้กล้องมือถือ กล้องเว็บแคม ถึงจะเห็นแสงครับ เช่นเดียวกับรีโมตทีวีที่บ้านคุณครับ เวลาคุณกดเปลี่ยนช่องคุณก็ไม่เห็นอะไรออกจากหน่้ารีโ มต แต่ถ้าลองเอากล้องไปดูแล้วคุณจะเห็นไฟกระพริบๆระยิบร ะยับอยู่ในกล้อง เพราะเหตุนี้ไงครับผมถึงเลือก IR-LED มาใช้กับงานนี้โดยเฉพาะ

ต่อวงจรเสร็จแล้วก็ลองทดสอบดูนะครับ ว่าใช้กล้องดูแล้วเห็นแสงจากหลอดไฟหรือไม่ ? ถ้าเห็นก็ถือว่าดีครับ แต่ถ้าไม่เห็นคงต้องเช็คกันหน่อยว่าผิดตรงไหน

เสร็จแล้วครับ ส่วนของ Hardware ... ต่อมาเป็น Software บ้างล่ะ ผมจะใช้ Visual Basic 6 นะครับ (ก็มันง่ายสุดแล้วนิครับ)

อย่างแรกเลย คือ เอากล้องเว็บแคมเชื่อมกับคอมพิวเตอร์ครับ ลง Driver ให้เรียบร้อยนะครับแล้วจะได้ไปเริ่มเขียน VB6 กัน ... ผมศึกษาจากหนังสือเรื่อง "การเขียนโปรแกรม Digital Image Processing ด้วย Visual Basic" เขียนโดยคุณ สิทธิโชค ยอดระยับ ครับ เป็นการสอนการเขียนโปรแกรมเชื่อมต่อกับ Webcam ... เป็นหนังสือเล่มหนึ่งที่เขียนได้น่าสนใจและเข้าใจง่า ยมากครับ ผมจึงได้สอบถามกับตัวคุณ สิทธิโชค เองเลยว่า จะอนุญาติไหมถ้าผมจะนำส่วน Source Code ในหนังสือของคุณมาลงในบทความนี้ คุณ สิทธิโชคเขาเปิดไฟเขียวให้เลยครับ เลยได้ไฟล์ Source Code มาแจกสมาชิกกัน

Download : http://www.thaigaming.com/downloads-file-10471.htm

เป็น *.zip มานะนะครับ มีทั้งของคุณสิทธิโชคและก็ของผมด้วย ... ถามว่าเอาของผมคนเดียวไม่ได้หรือไง อยากจะบอกว่า Source Code ของผมกึ่งสำเร็จรูปแล้วก็จริง แต่ว่ามันสกปกมาก และถ้าใครอยากเริ่มต้นใหม่เลยก็แนะนำให้เอาของคุณ สิทธิโชคไปต่อยอดครับ

มีส่วนการเชื่อต่อกับ Webcam แล้ว ... ต่อไปเป็นส่วนการควบคุม Cursor Mouse กันครับ
อย่างแรกคือประกาศตัวแปรให้ ตำแหน่ง Cursor ก่อน

code:

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, _
ByVal y As Long) As Long                               

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As _
Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)        

Private Const LEFTDOWN = &H2
Private Const LEFTUP = &H4
Private Const RIGHTDOWN = &H8
Private Const RIGHTUP = &H10
Private Const MIDDLEDOWN = &H20

ผมประกาศตัวแปรไว้ว่า LEFTDOWN, LEFTUP ก็คือกด LeftClick ครับ LEFTDOWN ก็กดลง LEFTUP ก็ปล่อย สำหรับข้างขาวก็เช่นเดียวกัน

ต่อมาคือสมการที่จะทำให้ภาพวัตถุใน Webcam มีตำแหน่งใกล้เคียงกับ Cursor ครับ

code:

U = N - 16
V = O - 16
        
check

SetCursorPos Abs(invertx - N * scale_x + offset_x), Abs(inverty - O * scale_y + offset_y)

อธิบายสมการหน่อยแล้วกัน ... คิดเองทำเอง กลัวผู้อ่านจะไม่เข้าใจ

Abs(invertx - N * scale_x + offset_x), Abs(inverty - O * scale_y + offset_y)

โดย
invert = ตำแหน่งกลับหัวในแกน X,Y ปรับแต่งส่วนกลับให้ตำแหน่งวัตถุเคลื่อนที่ได้ใกล้เค ียงตำวแหน่ง Cursor
N , O = ค่าแท้ของตำแหน่งวัตถุในแกน X,Y คือ ภาพวัตถุในกล่อง Webcam
scale_ = อัตราส่วนขยายในแกน X,Y ปรับตามขนาดได้เพื่อให้เหมาะสมกับขนาด Resolution
offset_ = ค่าปรับแต่งตำแหน่งในแกน X,Y เพื่อตั้งศูนย์ให้ Cursou ไม่ออกนอกจอได้
Abs คือ ค่าสมบูรณ์ (Absolute) นะครับ เพื่อป้องกันค่าลบ ซึ่งจะทะให้โปรแกรมสับสนได้

ส่วน check ที่อยู่ก่อนหน้าสมการนั้นก็เหมือนเป็นการ Refresh ค่าตลอดเวลาครับ ...

และอีกส่วนที่คุณอาจจะยังไม่คิดจะใช้ในตอนนี้คือควบค ุมให้มีการกด LeftClick RightClick หรือ MiddleClick

code:

Private Sub cmdLC_Click()
    mouse_event LEFTDOWN, 0, 0, 0, 0
    mouse_event LEFTUP, 0, 0, 0, 0
End Sub
Private Sub cmdMC_Click()
    mouse_event MIDDLEDOWN, 0, 0, 0, 0
    mouse_event MIDDLEUP, 0, 0, 0, 0
End Sub
Private Sub cmdRC_Click()
    mouse_event RIGHTDOWN, 0, 0, 0, 0
    mouse_event RIGHTUP, 0, 0, 0, 0
End Sub

ตามที่ประกาศตัวแปลไว้ล่วงหน้านะครับ

เท่านี้ล่ะครับที่ผมทำค้างไว้ ... ถ้าถามผมว่าเอามาแจกทำไมกัน ? ผมเห็นว่าแนวคิดนี้ก็ยังไม่ค่อยมีใครทำมากมายนัก ผมจะวางไว้ตรงนี้ ใครที่มีความคิดสร้างสรรค์แปลกใหม่ ถ้าสนใจมาหยิบไปได้เลยครับ รอใครสักคนมาต่อยอดมัน และอีกอย่างที่น่าจะช่วยนักศึกษาที่ใกล้จะจบบางท่านไ ด้นะครับ ถ้านึก Project จบไม่ออกล่ะก็ ลองรับผลงานชิ้นนี้ไปลองดูได้ครับ Concept นี้คงจะช่วยได้บ้างเล็กน้อยก็ยังดีนะ ... ลองเอา Source Code ของผมไปนั่งมองเล่นๆดูก่อนก็ได้ครับ

ผมลองเขียนบทความแนวนี้เป็นครั้งแรก ถ้ามันอ่านแล้วรู้สึกหงุดหงิดใจต้องขออภัยด้วยนะครับ

ข้อเสียของโปรแกรมนี้ ต้องบอกให้รู้กันก่อนครับว่า โปรแกรมนี้ใช้ Clipboard เป็นที่พักรูปภาพ ดังนั้นอาจจะหน่วงไปสักนิด หรืออาจกระตุกได้

ขอบคุณมากครับ

Credit : คุณ สิทธิโชค ยอดระยับ <sit07th@hotmail.com> ผู้เขียนหนังสือ "การเขียนโปรแกรม Digital Image Processing ด้วย Visual Basic" (สิงหาคม 2550) , อาจารย์ไกรมน มณีศิลป์ ที่ปรึกษาโครงการ และเอื้อเฟื้อ Gelatin Filter , นายเอกพันธ์ ซังแก้ว และ นางสาวเยาวดี กีรติธเนศกุล ผู้ร่วมทดสอบโปรแกรม Hitzuja's W2C , http://www.ex-designz.net/apidetail.asp?api_id=167 , http://forums.devx.com/showthread.php?t=144143 (by Drakenza, mstraf, Alex Stephen, Rune Bivrin) , http://www.webtropy.com/articles/art...f=SetCursorPos , http://social.msdn.microsoft.com/For...3-f7c5c1c4ff0d (by Isty Ahmad) , http://www.eggheadcafe.com/software/...ouseevent.aspx (by Julien Louyot) , http://allapi.mentalis.org/apilist/mouse_event.shtml

Tutorial Tools
แสดงผลสำหรับที่จะ Print ส่งกระทู้นี้ให้เพื่อนทาง Email
แสดงผล
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode