Skip to toolbar

Mesin antrian dengan mikrokontroler ATMega 8535 dan tampilan LCD

Rangkaian mesin antrian dengan 3 input loket, sedangkan tampilan berupa LCD. Simulasi dapat dilakukan dengan menggunakan isiproteus. Skema rangkaian seperti pada gambar berikut ini :


Pada simulasi kali input pada port D (D.2;D.3 dan D.4), output pada port C dihubungkan dengan LCD. Crytal saat ini menggunakan 4 MHz. Untuk progam dibuat dengan bascom-AVR :

$regfile = “m8535.dat”
$crystal = 4000000
Config Portb = Output
Config Porta = Output
Ddrb = &B00000000
Portd = &HFF
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.2 , Db4 = Portc.4 ,
Config Lcdpin = Pin , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7
Config Lcd = 16 * 2
Dim Antrian As Integer , Antrian1 As Integer , Antrian2 As Integer
Loket = 0
Antrian = 0
Antrian1 = 0
Antrian2 = 0
Locate 1 , 1
Lcd “Loket :”
Locate 2 , 1
Lcd “Antrian”
Do
If Pind.2 = 0 Then
Loket = 1
Incr Antrian
Locate 1 , 9
Lcd Loket ‘menampilkan loket 1
Locate 2 , 9
Lcd Antrian ‘menampilkan urutan antrian pada loket 1
Wait 1
Elseif Pind.3 = 0 Then
Loket = 2
Incr Antrian1
Locate 1 , 11
Lcd Loket ‘‘menampilkan loket 2
Locate 2 , 11
Lcd Antrian1
Wait 1
Elseif Pind.4 = 0 Then
Loket = 3 ‘menampilkan loket 3
Incr Antrian2
Locate 1 , 13
Lcd Loket
Locate 2 , 13
Lcd Antrian2
Wait 1
End If
Loop
End

Tampilan Hasil :

Tombol input : PD.2 untuk loket 1; PD.3 = loket 2 dan PD.4 =Loket 3

Sistem antrian ini dapat dikembangkan untuk membuat membuat daftar pengunjung pada perpustakaan, atau juga dapat dikembangkan untuk membuat e-voting pada pemilihan umum atau kuis.

untuk simulasi silahkan unduh Data mesin antrian