MODUL III
MIKROKONTROLLER ATMEGA 8535
a. Mempelajari aplikasi output pada mikrokontroller ATMEGA 8535
b. Mempelajari aplikasi input pada mikrokontroller ATMEGA 8535
c. Mempelajari aplikasi I/O pada mikrokontroller ATMEGA 8535
2. Alat dan Bahan kembali
b. LED
c. Jumper
3. Dasar Teori kembali
Mikrokontroller AVR (Alf and Vegard’s Risc processor) memiliki arsitektur 8 bit, dimana semua instruksi dikemas dalam kode 16-bit dan sebagian besar instruksi dieksekusi dalam 1 siklus clock atau dikenal dengan teknologi RISC (Reduced Instruction Set Computing). Secara umum, AVR dapat dikelompokan ke dalam 4 kelas, yaitu keluarga AT90Sxx, keluarga ATMega dan AT86RFxx. Pada dasarnya yang membedakan masing-masing adalah kapasitas memori, peripheral dan fungsinya.Dari segi arsitektur dan instruksi yang digunakan, mereka bisa dikatakan hamper sama. Pada praktikum kali ini yang membedakan antara ATMEGA 128 dengan ATMEGA 8535 selain pada kapasistas memori, jug dari Bahasa program yang digunakan.
4. Hardware
kembali
5. Rangkaian Simulasi
kembali
6. Prinsip Kerja
kembali
Rangkaian terdiri dari LED dan Keypad, Keypad dihubungkan ke port A dan LED dihubungkan ke PORT B. keypad bersifat aktif low. apabilan ditekan angka 5 pad keypad maka mikrokontroller akan memproses dan sesuai program dan menghidupkan led dari kanan kekiri, apabila ditekan angka 8 maka led akan hidup satu persatu, dan apabila ditekan angka 0 maka led akan berkedip
7. Flowchart
kembali
8. Listing Program
kembali
'Program 4 : LED dan Keypad
$regfile = "m8535.dat"
$crystal = 16000000
Ddra = &B1110000
Porta = &B11111111
Ddrb = &B11111111
Do
Porta = &B1011111
Waitms 1
If Pina.1 = 0 Then
Portb = &H80
Waitms 200
Portb = &H40
Waitms 200
Portb = &H20
Waitms 200
Portb = &H10
Waitms 200
Portb = &H08
Waitms 200
Portb = &H04
Waitms 200
Portb = &H02
Waitms 200
Portb = &H01
Waitms 200
End If
If Pina.2 = 0 Then
Portb = &H80
Waitms 20
Portb = &HC0
Waitms 20
Portb = &HE0
Waitms 20
Portb = &HF0
Waitms 20
Portb = &HF8
Waitms 20
Portb = &HFC
Waitms 20
Portb = &HFE
Waitms 20
Portb = &HFF
Waitms 20
End If
If Pina.3 = 0 Then
Do
Portb = &HFF
Waitms 20
Portb = &H00
Waitms 20
Loop
End If
Loop
End
kembali
$regfile = "m8535.dat"
$crystal = 16000000
Ddra = &B1110000
Porta = &B11111111
Ddrb = &B11111111
Do
Porta = &B1011111
Waitms 1
If Pina.1 = 0 Then
Portb = &H80
Waitms 200
Portb = &H40
Waitms 200
Portb = &H20
Waitms 200
Portb = &H10
Waitms 200
Portb = &H08
Waitms 200
Portb = &H04
Waitms 200
Portb = &H02
Waitms 200
Portb = &H01
Waitms 200
End If
If Pina.2 = 0 Then
Portb = &H80
Waitms 20
Portb = &HC0
Waitms 20
Portb = &HE0
Waitms 20
Portb = &HF0
Waitms 20
Portb = &HF8
Waitms 20
Portb = &HFC
Waitms 20
Portb = &HFE
Waitms 20
Portb = &HFF
Waitms 20
End If
If Pina.3 = 0 Then
Do
Portb = &HFF
Waitms 20
Portb = &H00
Waitms 20
Loop
End If
Loop
End
9. Video
kembali
10. Link Download
kembali
html >>download<<
file rangkaian >>download<<
video >>download<<
listing program >>download<<