TUTORIAL MENGHIDUPKAN DAN MEMATIKAN LED DENGAN RFID RDM6300

Kali ini saya ingin membahas mengenai cara menghidupkan dan mematikan 2 buah LED dengan RFID.   beberapa dari anda pasti masih baru dengan yang namanya RFID. mungkin anda bertanya- tanya tentang Apa itu RFID?  Apa kegunaan RFID ? dan bagaimana cara menggunakan RFID? langsung saja saya bahas satu persatu diantaranya:

RFID adalah sebuah  peranti yang dapat digunakan untuk identifikasi.  

RFID memiliki dua bagian, yaitu reader dan Kartu tag RFID

RFID reader  yang berfungsi sebagai alat scanning device yang dapat membaca tag dengan benar dan mengkomunikasikan hasilnya ke suatu basis data

Kartu tag RFID memiliki nomor tersendiri. dan nomor inilah yang digunakan untuk identifikasi  

Aplikasi yang umum digunakan dengan RFID adalah kartu parkir/jalan tol berlangganan, presensi karyawan atau murid, dan pendeteksian barang di gudang.

percobaan kali ini saya menggunakan RFID RDM6300 dimana RFID ini memiliki spesifikasi yaitu:

Frekuensi kerja: 125 Khz

Maksimum yang efektif sampai dengan 50mm (tergantung pada jenis tag)

comppatible  Kurang dari 100ms

dibangun di eksternal LED dan driver buzzer

Berat: 30 gram

bahan-bahan yg digunakan:

Kartu FRID 125khz

RFID reader RDM6300

minsis ATmega8

USBasp

Led

resistor 330 ohm

software:

Bascom AVR 2.0.7.3

Extreme burner

susunan pin kaki RFID RDM6300

Cara menghubungkan RFID dengan Minsis ATmega8

Program RFID:
$regfile "m8def.dat"
$crystal = 12000000
$baud = 9600

Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Lcd = 16 * 2 : Cursor Off


Dim Cek As String * 1
Dim Datas As String * 20
Dim Id As String * 20
Dim I As Integer
Config Portb.0 = Output
Config Portb.1 = Output
Cls
Cursor Off
Locate 1 , 1
Lcd "  RFID RDM6300"
Locate 2 , 1
Lcd " BEBIT DE ARTHA     "
Wait 1


Mulai:

Datas = ""
I = 0
Do
Cek = Inkey()
If Cek <> "" Then
Incr I
Datas = Datas + Cek
End If
Loop Until I > 13
I = 0
Cls
Cursor Off
 Id = Mid(datas , 5 , 12)
 Locate 1 , 1
Lcd "  RFID RDM630"
Locate 2 , 2 : Lcd "ID:" ; Id

If Id = "85002D63E2" Then Toggle Portb.0
If Id = "850028E0E6" Then Toggle Portb.1
 Datas = ""
 Id = ""
Wait 1

ini video hasil percobaannya: