alg & pemg kasus tek elekro - tugas 3

https://drive.google.com/file/d/0B545H5MGiNGMaFM3ODk2OGtvWjA/view?usp=sharing

Continue

alg-pemg-kasus-tek-elektro - tugas 2

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

Continue