Radio Frequency Identification Technology (RFIT) คืออะไร
โดย : Admin

 
RFID คืออะไร

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

การใช้งานส่วนใหญ่

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

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





 
 
 ตัวส่งสัญญาณจะทำการส่งสัญญานออกไปเมื่อมีบัตรเข้ามาอยู่ในระยะที่สัญญาณไปถึงโดยที่ทั้งสองส่วนไม่จำเป็นต้องอยู่ติดกันบัตรจะถูกอ่านค่าข้อมูลที่บันทึกอยู่ในบัตรออกมาแสดงผล ระยะของการอ่านค่าก็ขึ้นอยู่กับตัวส่งสัญญาณคลื่นความถี่ถ้ายิ่งใหญ่มากสัญญาณก็ยิ่งส่งได้ไกลมากขึ้น ซึ่งเราสามารถแก้ไขข้อมูลรวมถึงเพิ่มเติมข้อมูลโดยการเขียนข้อมูลกลับลงไปใน Tag ได้ในเวลาเดียวกัน    จะใช้เก็บข้อมูลการผลิตสินค้ารายละเอียดต่างๆ ของสินค้าเพื่อใช้ในการอ้างอิงและเรียกดูข้อมูลได้โดยง่าย        ในรูปคอมพอร์ตของผมเป็น 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" ‘
ข้อมูล
MSComm1.CommPort = 5 ‘
MSComm1.PortOpen = True ‘
End If
End Sub
ส่วนของการอ่านข้อมูล RFID
 
 

 

 
ในฟอร์มโหลดเช็คค่าของคอมพอร์ตก่อนว่ามีการเปิดไว้หรือเปล่ากำการส่งและรับค่าข้อมูลให้กับ Com port ที่จะใช้ในการรับส่งกำหนดคอมพอร์ตเปิดคอมพอร์ตให้ใช้งานได้กลับมาที่ฟอร์ม ลาก Text box กับ botton มาวางบนฟอร์ม
 
ดับเบิ้ลคลิกที่ปุ่ม
Read Data เพื่อเขียนโค้ดดังนี้
 
Private Sub Command1
MSComm
MSComm
_Click()1.Output = "313100FFFF" + Chr$(13) ส่งคำสั่งอ่านข้อมูลไปยัง RFID1.InputLen = 1 ‘ให้รับข้อมูลจาก RFID ทีละตัว
 
Do
X = MSComm1.Input ‘
showval = showval & X ‘
Loop While X <> Chr$(
รับคำข้อมูลจาก RFID มาทีละตัวมาเก็บไว้ยังตัวแปร Xนำค่าที่ได้จากตัวแปร X มารวมกับค่าของตัวแปร showval13) ‘ให้วนลูปไปเรื่อยๆ จนพบคำสั่ง Chr(13) ซึ่งเป็นคำสั่งจบการทำงาน
 
Text1.Text = showval ‘
End Sub
ส่วนของการเขียนข้อมูลไปยัง RFID
 
 

 

 
นำข้อมูลที่ได้จากตัวแปร showval มาแสดงผลใน Textbox    ลาก Textbox กับ Botton มาวางบนฟอร์ด ดังรูป
จากนั้นเขียนโปรแกรมที่ปุ่มดังนี้
Private Sub Command2_Click()ตั้งค่าตัวแปรเป็น integer64" ‘ตั้งค่าเริ่มต้นให้ตัวแปร 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 ตัวอักษร
Next
MSComm1.Output = "323100FFFF" + wval + Chr$(13) ‘เขียนข้อมูลลงใน Tag จำนวน 64 ตัวอักษร
End Sub
คำอธิบายเพิ่มเติม
MSComm1.Output = "323100FFFF" + wval + Chr$(13)
MSComm1.Output = “คำสั่งที่ต้องใช้ในการอ่าน/เขียนข้อมูล”
คำสั่งการเขียน/อ่านข้อมูลของ RFID โดยสามารถดูได้จาก manual ของรุ่นนั้นๆ
 
 
 
Dim i, vSp As Integer ‘
totalLen = "
 
 
เนื้อหาโดย: 9engineer.com (https://9engineer.com/)