Interfacing RFID Dengan Bahasa Pemrograman Bascom AVR

Halo gaes selamat malam, sebelumnya ane pernah post preview video tentang kunci elektronik menggunakan RFID video nya ada disini gaes https://youtu.be/6ByV_1BVO1E. Oke jika ngeliat nama seseorang di video tersebut gak usah baper karna yang nulis masih joomblo.

Pertama yang perlu anda ketahui dalam praktinya saya menggunakan :
1. Sistem minimum atmega8535.
2. RFID RDM6300
3. Rangkaian LCD 16*2
4. Lampu Led.

Software yang saya gunakan adalah :
1. Bascom AVR sebagai compiler code.
2. Extreme Burner AVR

Ketika kebutuhan yang diatas tercukupi ada tahapan yang harus anda lakukan.
1. Pengaturan Fuse Bit sesuai dengan crystal yang digunakan pada sismin (saya pakai 12Mhz).
2. Compile code menggunakan Bascom AVR sehingga keluar output file dengan extensi hex.
3. Download file hex hasil compile code tersebut menggunakan downloader extreme burner.

Catatan : Untuk komunikasi serial (menggunakan pin RX dan TX pada mikro) entah kenapa hanya dapat dilakukan downloadnya menggunakan extreme burner avr, saya sudah coba pakai downloader lain seperti ponyprog dan khazama hasilnya LCD blank saja ketika membaca tag Id.

untuk kode programnya dapat dilihat seperti gambar dibawah



$regfile "8535def.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 Portc.4 = Output
Config Portc.1 = Output
Cls
Cursor Off
Locate 1 , 1
Lcd "RFID RDM6300"
Locate 2 , 1
Lcd " UJI COBA BUKAN UJI UONG "
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 Portc.4
If Id = "850028E0E6" Then Toggle Portb.1
Datas = ""
Id = ""
Wait 1