ในฟอร์มมี Event เกี่ยวกับ timer อยู่แล้วครับ

ตั้งค่า TimeInteval ให้เป็นเวลาที่ต้องการ (1000 = 1วินาที)

เสร็จแล้วไปเขียนโค้ดใน เหตุการณ์ onTime ครับ ว่าต้องการให้สั่งทำอะไร เมื่อตอนถึงเวลา

ที่เหลือคือไปประยุกต์แนวทางการใช้เอาเองครับ

สมมติ ถ้าเป็นผม จะออกแบบให้เปิดเครื่อง เพื่ออ่านข้อมูล ถ้าอ่านเจอ จะทำงานต่อไปแล้วสั่งปิดเครื่องทันที ต่อมาอีกประมาณ 5 วินาที จะสั่งเปิดเครื่องอีกครั้ง


ตั้ง timeinteral เป็น 5000
เขียนโค้ด
form_timer()
dim obj as object
dim Result as variant
set obj = createobject(......เครื่องสแกนเนอร์...)
obj.ตั้งค่าพร้อพเพอตี้ต่างๆ
obj.ตั้งค่าพร้อพเพอตี้ต่างๆ
obj.ตั้งค่าพร้อพเพอตี้ต่างๆ เช่นหมายเลขพอร์ต เป็นต้น

Result = obj.read (ถ้ามีเมธอดนี้นะ หรือเมธอดไหนๆ ที่เป็นคำสั่งให้เปิดเครื่องอ่านก็ เอาเลยตรงนี้แหละเหมาะ อิอิ)

if not isnull(Result) or not IsEmpty(Result) then
ก็สั่งเอาข้อมูลที่สแกนได้ เอาไปทำงานอย่างอื่นต่อไป
end if

obj.ปิด เครื่อง
set obj=nothing
end sub

จะเห็นได้ว่า มันจะทำการเปิดเครื่องสแกนทุกๆ 5 วินาทีไม่ว่าจะมีอะไรให้มันสแกนหรือไม่ มันก็จะปิดตัวเองทันที หลังจากนั้น

เป็นแนวทาง ประมาณนี้แหละครับ นำไปประยุกต์ต่อเอาเองครับ
ปล. ไม่เคยมีเครื่องพวก scanner อะไรเลย แต่คิดว่าแนวทางเนี้ย มันใช่ อิอิ

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

คุณต้องไปเปิดคู่มือของเครื่องสแกนบาร์โค้ดดูเอาเอง หรือไม่ก็ถามบริษัทผู้ขาย และเชื่อว่าสามารถตั้งค่าเครื่องได้โดยไม่ต้องเขียนโปรแกรม