Judul : kunci pintu berbasis RFID
Nama : Riszky Adham
Kelas : 3IB06
Npm : 19414536
Tugas 2 : Codingannya
Program Kunci elektronik dengan RFID
Untuk mengatur kerja sensor dan motor dc secara otomatis sesuai dengan keinginan programmer pada robot maka diperlukan bahasa pemrograman yang harus didownload ke dalam mikrokontroler . Pada Laporan Akhir ini, bahasa pemrograman yang digunakan adalah BASCOM karena bahasa pemrograman ini merupakan salah satu bahasa pemrograman tingkat tinggi yang mempunyai rutin-rutin yang lebih lengkap sehingga dapat dengan mudah digunakan dan dimengerti. Berikut ini merupakan listing program dari kunci elektronik dengan RFIDyang telah dibuat pada BASCOM .
$regfile = “8052.dat”
$crystal = 12000000
$baud = 4800
‘Dim Tombol As Byte
Dim Angka(4) As Byte , Angka2 As Byte , Angka3 As Byte , Angka4 As Byte , Tanda As Byte
Config Lcdpin = Pin , Db7 = P2.0 , Db6 = P2.1 , Db5 = P2.2 , Db4 = P2.3 , E = P2.4 , Rs = P2.5
Kunci_pintu Alias P0.0
Dim X As Byte , A As Byte , Id As String * 15
Dim N As Byte , Panjang As Byte
Dim N1 As Byte , N2 As Byte , N3 As Byte , N4 As Byte
Cls
Cursor Off
P3 = &HFF
P2 = &HFF
N = 0
Main:
Do
Locate 1 , 3
Lcd “RFID System”
Do
A = Inkey()
Waitms 10
Loop Until A <> 0
Input Id
Panjang = Len(id)
If Panjang >= 12 Then
Id = Mid(id , 2 , 12)
Locate 1 , 1
Lcd “ID:” ; Id
If Id = “178678171877” Or Id = “178678171877” Or Id = “178678171877” Then
Goto Baca_keypad
Else
Locate 1 , 3
Lcd “Unregistered”
End If
Else
Locate 1 , 3
Lcd “Bad reading”
Locate 2 , 2
Lcd “Please Repeat”
End If
Loop
Baca_keypad:
Locate 1 , 1
Lcd “Masukan Password”
Cursor Blink
Locate 2 , 5
X = 1
Gosub Ambil_data
Goto Main
Ambil_data:
P3 = &HFF
For X = 1 To 5
Awal1:
P3.1 = 0
If P3 <> &B11111101 Then Gosub Cek
Set P3.1
P3.2 = 0
If P3 <> &B11111011 Then Gosub Cek
Set P3.2
P3.3 = 0
If P3 <> &B11110111 Then Gosub Cek
Set P3.3
Goto Awal1
Cek:
Do
P3 = &HFF
P3.1 = 0
If P3.4 = 0 Then Angka(x) = “#”
If P3.5 = 0 Then Angka(x) = 9
If P3.6 = 0 Then Angka(x) = 6
If P3.7 = 0 Then Angka(x) = 3
Set P3.1
P3.2 = 0
If P3.4 = 0 Then Angka(x) = 0
If P3.5 = 0 Then Angka(x) = 8
If P3.6 = 0 Then Angka(x) = 5
If P3.7 = 0 Then Angka(x) = 2
Set P3.2
P3.3 = 0
If P3.4 = 0 Then Angka(x) = “*”
If P3.5 = 0 Then Angka(x) = 7
If P3.6 = 0 Then Angka(x) = 4
If P3.7 = 0 Then Angka(x) = 1
Set P3.3
Acc = P3
Loop Until Psw.0 = 0
If X < 5 Then Lcd Angka(x)
Wait 1
Next
If Angka(5) = “*” Then
Gosub Hidup
Else
X = 5
Goto Awal1
End If
Return
Hidup:
Cls
If Angka(1) = 1 And Angka(2) = 2 And Angka(3) = 3 And Angka(4) = 4 Then
Lcd “pasword Benar”
Goto Buka_pintu
Wait 1
Else
Lcd “Pasword Salah “
For N1 = 1 To 4
Angka(n1) = 0
Next
Incr N
If N = 3 Then Goto Slk
Locate 2 , 5
Goto Ambil_data
End If
Goto Main
Slk:
Cls
Lcd “Unregistered”
Wait 2
Goto Main
Buka_pintu:
Kunci_pintu = 1
Wait 10
Kunci_pintu = 0
Goto Main
0 komentar:
Posting Komentar