Kali ini saya akan mendemonstrasikan mengenai simulasi alat yang berhubungan dengan kendali, alat yang dibuat kali ini prinsip kerjanya yaitu terdapat 8 buah tombol yang mana masing2 tombol jika ditekan akan menghidupkan / mematikan led dan menghidupkan 7segment, jika led 1 menyala maka 7segment akan menunjukkan angka 1, jika led 1 mati maka akan menunjukkan angka 2, begitu seterusnya, aplikasi dari alat ini adalah untuk kendali lampu ruangan atau kendali device lainnya. Untuk lebih jelasnya berikut program dan skemanya.
a. Minimum System
b. Program Bascom AVR
$regfile = "m32def.dat"
$crystal = 12000000
Ddrd.2 = 1
Ddrd.3 = 1
Ddrd.4 = 1
Ddrc.4 = 1
Ddrc.5 = 1
Ddrc.6 = 1
Ddrc.7 = 1
Ddra = &B00000000
Porta = &B11111111
Dataout Alias Portd.3
Clock Alias Portd.2
Dim Datas As Byte
Dim X As Integer
X = 0
Portd.4 = 1
Do
If Pina.0 = 0 Then
X = 1
Portc.4 = 1
Goto Kirim
Elseif Pina.1 = 0 Then
X = 2
Portc.4 = 0
Goto Kirim
Elseif Pina.2 = 0 Then
X = 3
Portc.5 = 1
Goto Kirim
Elseif Pina.3 = 0 Then
X = 4
Portc.5 = 0
Goto Kirim
Elseif Pina.4 = 0 Then
X = 5
Portc.6 = 1
Goto Kirim
Elseif Pina.5 = 0 Then
X = 6
Portc.6 = 0
Goto Kirim
Elseif Pina.6 = 0 Then
X = 7
Portc.7 = 1
Goto Kirim
Elseif Pina.7 = 0 Then
X = 8
Portc.7 = 0
Goto Kirim
End If
Loop
Kirim:
Reset Clock
Set Clock
Datas = Lookup(x , Data7seg)
Shiftout Dataout , Clock , Datas , 0 , 8 , 1
Reset Clock
Waitms 10
Return
Data7seg:
Data &B11000000 '0
Data &B11111001 '1
Data &B10100100 '2
Data &B10110000 '3
Data &B10011001 '4
Data &B10010010 '5
Data &B10000010 '6
Data &B11111000 '7
Data &B10000000 '8
Data &B10010000
c. VIDEO HASILNYA
Sangat bermanfaat mas...
ReplyDeleteMantap postingannya :)