Top 50 Popular Supplier
12/01/2553 20:47 น. ,
อ่าน 10,247 ครั้ง
Radio Frequency Identification Technology (RFIT) คืออะไร
โดย : Admin
RFID คืออะไร
โดย : Panya Vongpratanporn
<BoMGradE@hotmail.com
<BoMGradE@hotmail.com
 |
หลายๆ ท่านอาจยังไม่รู้จักว่า RFID คืออะไร
RFID คือ
1. ส่วนตัวเครื่องส่งสัญญาณคลื่นความถี่
Radio Frequency Identification Technology เป็นผลิตภัณฑ์ใหม่ที่เข้ามาช่วยในการจัดเก็บข้อมูลลงในรูปแบบของบัตรหรือเหรียญขนาดเล็กซึ่งสามารถอ่านและเขียนข้อมูลลงไปใน Tag ได้หลายครั้งโดยการใช้คลื่นความถี่ในการอ่านและเขียนข้อมูล ส่วนประกอบของ RFID มีด้วยกัน 2 ส่วนคือ
2. ตัวบัตรหน่วยความจำ |
การใช้งานส่วนใหญ่
การเขียนโปรแกรมบนคอมพิวเตอร์เพื่อควบคุมและจัดเก็บข้อมูลที่อ่านและเขียนจาก RFID โดยใช้ VB นั้นไม่ยาก
ครับ เพียงแต่เราต้องรู้หลักการเบื้องต้นและมีคู่มือการรับส่งสัญญาณของอุปกรณ์ที่เราต้องการติดต่อ ในที่นี้ผมจะใช้ชุดทดลองของ ออมรอน
ขั้นตอนที่ 1
ผมได้นำชุดทดลอง RFID มาเสียบต่อผ่านทาง USB พอร์ตของเครื่องคอมและเซ็ตคอมพอร์ตตามที่เครื่องจัดไว้ให้ หรือจะเซ็ตเอาเองก็ได้ ดังรูป
ผมได้นำชุดทดลอง RFID มาเสียบต่อผ่านทาง USB พอร์ตของเครื่องคอมและเซ็ตคอมพอร์ตตามที่เครื่องจัดไว้ให้ หรือจะเซ็ตเอาเองก็ได้ ดังรูป
ตัวส่งสัญญาณจะทำการส่งสัญญานออกไปเมื่อมีบัตรเข้ามาอยู่ในระยะที่สัญญาณไปถึงโดยที่ทั้งสองส่วนไม่จำเป็นต้องอยู่ติดกันบัตรจะถูกอ่านค่าข้อมูลที่บันทึกอยู่ในบัตรออกมาแสดงผล ระยะของการอ่านค่าก็ขึ้นอยู่กับตัวส่งสัญญาณคลื่นความถี่ถ้ายิ่งใหญ่มากสัญญาณก็ยิ่งส่งได้ไกลมากขึ้น ซึ่งเราสามารถแก้ไขข้อมูลรวมถึงเพิ่มเติมข้อมูลโดยการเขียนข้อมูลกลับลงไปใน Tag ได้ในเวลาเดียวกัน จะใช้เก็บข้อมูลการผลิตสินค้ารายละเอียดต่างๆ ของสินค้าเพื่อใช้ในการอ้างอิงและเรียกดูข้อมูลได้โดยง่าย ในรูปคอมพอร์ตของผมเป็น Com 5 ดังนั้นถ้าผมต้องการติดต่อกับ RFID ผมต้องเปิดพอร์ตเป็น Com 5 เพื่อให้ตรงกับที่เครื่องคอมพิวเตอร์กำหนดให้หลังจากนั้นก็ให้เปิดโปรแกรม VB ขึ้นมาเลือกไปที่ Standard EXE
2. ให้คลิกขวาที่ Tool box เลือก Componentจากนั้นให้เลือก Microsoft Comm Controll 6.0 เพื่อใช้งาน Comport เพื่อติดต่อกับอุปกรณ์ภายนอก
2. ให้คลิกขวาที่ Tool box เลือก Componentจากนั้นให้เลือก Microsoft Comm Controll 6.0 เพื่อใช้งาน Comport เพื่อติดต่อกับอุปกรณ์ภายนอก
จะได้ไอคอนปรากฏที่ Toolbox ดังรูป
จากนั้นก็ดับเบิ้ลคลิกที่รูปเป็นการเรียกใช้ MsCom control การกำหนดค่าต่างๆ ให้กับ mscom กำหนดได้ดังต่อไปนี้ให้ดับเบิ้ลคลิกที่ Form เพื่อเข้าสู่โหมดเขียนโค้ดของ VB
จากนั้นก็ดับเบิ้ลคลิกที่รูปเป็นการเรียกใช้ 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 เพื่อเช็คค่าของตัวอักษร
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 ===================
คลิปที่น่าสนใจจัดทำโดย 9engineer.com ภายใต้ชื่อช่องTechnology talk Channel
1. วงจรและวิธีการสตาร์ทแบบไดเร็คออนไลน์ DOL
2. วงจรควรคุมการกลับทางหมุน
3. วงจรและวิธีการสตาร์ทแบบสตาร์ เดลต้า Y-D Starter
4. การสตาร์แบบออโตทรานส์ฟอร์เมอร์ Auto transformer starter
5. การต่อขดลวดมอเตอร์ อย่างไรไม่ให้เกิดการใหม้หรือเสียหาย
6. การเช็ตโอเวอร์โหลดรีเลย์
7.การเช็ตโอเวอร์โหลดรีเลย์กับมอเตอร์ที่มีเซอร์วิสแฟคเตอร์
8.รีเลย์กับคนแทคเตอร์ต่างกันอย่างไร
9.อื่นๆ
**** นายเอ็นจิเนียร์ขอสงวนสิทธิ์รับรองความถูกต้อง โปรดใช้วิจารณญาณในการรับข่าวสารข้อมูล
29 July 2026
:: MEMBER LOGIN
:: OUR SPONSORS
|
|
Copyright© 9engineer.com, All rights reserved. Tel. 086-1222078 Email: no-reply@9engineer.com (Powered By : SiamWebMaker.in.th)