Sebelumnya saya juga pernah memposting tentang RFID tipe ID20 (bisa juga untuk ID12) pada Tutorial RFID dengan Mikrokontroler. Bedanya RDM630 dengan ID20 dan ID12 adalah pada jarak pembacaan data, kalau pada ID20 data bisa dibaca sampai data 16cm, ID12 bisa sampai 8cm, sedangkan RDM630 ini paling jauh sekitar 1cm. Selain itu juga berbeda pada data yang dikirim, jika pada ID20 dan ID12 data yang dikirim selalu diakhiri dengan ENTER atau chr(13) sehingga pembacaan data bisa diakhiri dengan diterimanya ENTER, sedangkan pada RDM630 data tidak diakhiri dengan ENTER sehingga pembacaan data bisa diakhiri dengan menghitung banyaknya data yang sudah masuk atau sampai tidak diterima data atau kosong.
Konfigurasi PIN pada RDM630 adalah sebagai berikut:
Ada dua tipe data yang bisa dibaca, yaitu TTL dan WIEGAND, pada contoh ini yang akan dibahas adalah pembacaan data TTL. Untuk detail lengkap RDM630 bisa dilihat pada datasheet.
Rangkaian skematiknya sebagai berikut:
Listing programnya dengan BASCOM AVR sbb:
'===========================================================
'PROGRAM RFID RDM630 DENGAN BASCOM AVR
'PROGRAMMER = WAHYU RAHMANIAR
'COMPANY = TECHNOLOGINATION
'===========================================================
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
'Konfigurasi LCD
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2
Config Lcd = 16 * 2
Dim Cek As String * 1
Dim Datas As String * 20
Dim Id As String * 20
Dim I As Integer
Cls
Cursor Off
Locate 1 , 1
Lcd "==RFID RDM630=="
Locate 2 , 1
Lcd "TECHNOLOGINATION"
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
Locate 1 , 1
Lcd "Data ID: "
Locate 2 , 1
Lcd Datas
Wait 1
'PROGRAM RFID RDM630 DENGAN BASCOM AVR
'PROGRAMMER = WAHYU RAHMANIAR
'COMPANY = TECHNOLOGINATION
'===========================================================
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
'Konfigurasi LCD
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2
Config Lcd = 16 * 2
Dim Cek As String * 1
Dim Datas As String * 20
Dim Id As String * 20
Dim I As Integer
Cls
Cursor Off
Locate 1 , 1
Lcd "==RFID RDM630=="
Locate 2 , 1
Lcd "TECHNOLOGINATION"
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
Locate 1 , 1
Lcd "Data ID: "
Locate 2 , 1
Lcd Datas
Wait 1
Dekatkan ID dengan jarak kurang lebih 1 cm, jika rangkaiannya benar maka ID akan terbaca dan tampil datanya pada LCD.
