Just another free Blogger theme

Selasa, 06 Juni 2017

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