นวัตกรรมใหม่

เรียบเรียงโดย : Panya Vongpratanporn
<BoMGradE@hotmail.com.
http://www.omronexpress.com/index-th.aspx

หลายๆ ท่านอาจยังไม่รู้จักว่า RFID คืออะไร

RFID คือ Radio Frequency Identification Technology เป็นผลิตภัณฑ์ใหม่ที่เข้ามาช่วยในการจัดเก็บข้อมูลลงในรูปแบบของบัตรหรือเหรียญขนาดเล็กซึ่งสามารถอ่านและเขียนข้อมูลลงไปใน Tag ได้หลายครั้งโดยการใช้คลื่นความถี่ในการอ่านและเขียนข้อมูล ส่วนประกอบของ RFID มีด้วยกัน 2 ส่วนคือ

1. ส่วนตัวเครื่องส่งสัญญาณคลื่นความถี่
2. ตัวบัตรหน่วยความจำ

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

การใช้งานส่วนใหญ่ จะใช้เก็บข้อมูลการผลิตสินค้ารายละเอียดต่างๆ ของสินค้าเพื่อใช้ในการอ้างอิงและเรียกดูข้อมูลได้โดยง่าย

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

ขั้นตอนที่ 1
ผมได้นำชุดทดลอง RFID มาเสียบต่อผ่านทาง USB พอร์ตของเครื่องคอมและเซ็ตคอมพอร์ตตามที่เครื่องจัดไว้ให้ หรือจะเซ็ตเอาเองก็ได้ ดังรูป

ในรูปคอมพอร์ตของผมเป็น Com 5 ดังนั้นถ้าผมต้องการติดต่อกับ RFID ผมต้องเปิดพอร์ตเป็น Com 5 เพื่อให้ตรงกับที่เครื่องคอมพิวเตอร์กำหนดให้หลังจากนั้นก็ให้เปิดโปรแกรม VB ขึ้นมาเลือกไปที่ Standard EXE

2. ให้คลิกขวาที่ Tool box เลือก Component

จากนั้นให้เลือก Microsoft Comm Controll 6.0 เพื่อใช้งาน Comport เพื่อติดต่อกับอุปกรณ์ภายนอก

จะได้ไอคอนปรากฏที่ Toolbox ดังรูป จากนั้นก็ดับเบิ้ลคลิกที่รูปเป็นการเรียกใช้ MsCom control การกำหนดค่าต่างๆ ให้กับ mscom กำหนดได้ดังต่อไปนี้ให้ดับเบิ้ลคลิกที่ Form เพื่อเข้าสู่โหมดเขียนโค้ดของ VB

Private Sub Form_Load() ‘ในฟอร์มโหลด

If MSComm1.PortOpen = False Then ‘เช็คค่าของคอมพอร์ตก่อนว่ามีการเปิดไว้หรือเปล่า

MSComm1.Settings = "9600,e,8,1" ‘กำการส่งและรับค่าข้อมูลให้กับ Com port ที่จะใช้ในการรับส่ง

ข้อมูล

MSComm1.CommPort = 5 ‘ กำหนดคอมพอร์ต

MSComm1.PortOpen = True ‘เปิดคอมพอร์ตให้ใช้งานได้

End If

End Sub

ส่วนของการอ่านข้อมูล RFID
กลับมาที่ฟอร์ม ลาก Text box กับ botton มาวางบนฟอร์ม

ดับเบิ้ลคลิกที่ปุ่ม Read Data เพื่อเขียนโค้ดดังนี้

Private Sub Command1_Click()

MSComm1.Output = "313100FFFF" + Chr$(13) ส่งคำสั่งอ่านข้อมูลไปยัง RFID

MSComm1.InputLen = 1 ‘ให้รับข้อมูลจาก RFID ทีละตัว

X = MSComm1.Input ‘รับคำข้อมูลจาก RFID มาทีละตัวมาเก็บไว้ยังตัวแปร X

showval = showval & X ‘นำค่าที่ได้จากตัวแปร X มารวมกับค่าของตัวแปร showval

Loop While X <> Chr$(13) ‘ให้วนลูปไปเรื่อยๆ จนพบคำสั่ง Chr(13) ซึ่งเป็นคำสั่งจบการทำงาน

Text1.Text = showval ‘นำข้อมูลที่ได้จากตัวแปร showval มาแสดงผลใน Textbox

End Sub

ส่วนของการเขียนข้อมูลไปยัง RFID ลาก Textbox กับ Botton มาวางบนฟอร์ด ดังรูป

จากนั้นเขียนโปรแกรมที่ปุ่มดังนี้
Private Sub Command2_Click()

Dim i, vSp As Integer ‘ตั้งค่าตัวแปรเป็น integer

totalLen = "64" ‘ตั้งค่าเริ่มต้นให้ตัวแปร totalLen เพื่อเช็คค่าของตัวอักษร

wval = Text2.Text ‘รับค่าจาก textbox ใส่ในตัวแปรชื่อ wval

vSp = 0 ‘ตั้งค่า vSp ให้เท่ากับ 0 เพื่อนำไปใช้ในส่วนคำนวณตัวอักษร

If Len(wval) > 64 Then ‘เช็คว่าตัวอักษรที่รับเข้ามาจาก textbox มีจำนวนกี่ตัวอักษร

wval = Left(wval, 64)’ถ้าเกินจาก 64 ตัวอักษรให้ตัดเอามาแค่ 64 ตัวอักษร

End If

vSp = totalLen - Len(wval) ‘เช็คจำนวณของตัวอักษรที่ขาดเพื่อจะใส่ตัวอักษรให้ครบ

For i = 1 To vSp ‘เริ่มใส่ตัวอักษร

wval = wval + " " ‘รวมจำนวนตัวอักษรเข้ากับตัวอักษรเดิมที่มีอยู่แล้วเพื่อให้ครบ 64 ตัวอักษร

MSComm1.Output = "323100FFFF" + wval + Chr$(13) ‘เขียนข้อมูลลงใน Tag จำนวน 64 ตัวอักษร

End Sub

คำอธิบายเพิ่มเติม

MSComm1.Output = "323100FFFF" + wval + Chr$(13)

MSComm1.Output = “คำสั่งที่ต้องใช้ในการอ่าน/เขียนข้อมูล”

คำสั่งการเขียน/อ่านข้อมูลของ RFID โดยสามารถดูได้จาก manual ของรุ่นนั้นๆ

หมายเหตุ : นายเอ็นจิเนียร์ขอสงวนสิทธิ์ในการรับรองความถูกต้องในข้อมูลและเนื้อหา ภายในเว็บไซต์