7 SEGMEN BASCOM AVR
13.12Seven Segment
Prosedur Percobaan:
1. Pastikan semua supply dalam keadaan off
2. Hubungkan jumper seperti rangkaian dibawah
3. Buatlah listing program yang telah ada pada modul
4. periksakan rangkaian kepada asisten yang mengawas
5. Hidupkan semua supply
6. Upload program dari laptop ke modul
7. Tekan tombol Reset
8. Amati percobaan, jika tidak sesuai perbaiki rangkaian atau program
9. Jika sesuai, maka selesai dan demokan pada asisten yang mengawas
10.Jelaskan prinsip k78erja + program dan hubungan keduanya kepada asisten
11.Demokan ke pembimbing praktikum
12.Matikan supply
1. Rangkaian Simulasi [kembali]
Prinsip Kerja:
Rangkaian terdiri dari 7segment dan keypad dengan menggunakan mikrokontroller Atmega 8535. dimana sebuah 7 segment common cathode terhubung ke PORT B dan keypad terhubung ke port E. pertama untuk menjalankan simulasi klik tombol PLAY. untuk memulai operasi makan ditekan tombol RESET terlebih ahulu. setelah itu, apabila tombol 1 pada keypad ditekan, maka akan muncul karakter 1 pada 7 segment. dan apabila tombol 2 keypad ditekan, maka 7segment akan melakukan counter up
Rangkaian terdiri dari 7segment dan keypad dengan menggunakan mikrokontroller Atmega 8535. dimana sebuah 7 segment common cathode terhubung ke PORT B dan keypad terhubung ke port E. pertama untuk menjalankan simulasi klik tombol PLAY. untuk memulai operasi makan ditekan tombol RESET terlebih ahulu. setelah itu, apabila tombol 1 pada keypad ditekan, maka akan muncul karakter 1 pada 7 segment. dan apabila tombol 2 keypad ditekan, maka 7segment akan melakukan counter up
$regfile = "m8535.dat" 'aktifkan library atmega 8535
$crystal = 16000000 'kristal eksternal 16 MHz
Config Portd = Output 'port a sebagai output high
Portb = &B00000000 'portb aktif low
Ddrb = &B11111111 'setting portb sebagai output
Ddra = &B1110000 'setting untuk aktifkan keypad
Porta = &B11111111 'portd aktif high
Portd = &B00001111 'porta yang akan digunakan untuk 7 segment
Do 'lakukan perulangan
Porta = &B1101111 'penekanan pada keypad
Waitms 10 'delay 10 ms
If Pina.0 = 0 Then 'jika ditekan pind.0 dengan aktif low, maka
Portb = &B11111001 'portb sebagai 7segment akan menampilkan angka
Waitms 10 'delay 10 ms
Elseif Pina.1 = 0 Then 'jika tidak pind.1 dengan aktif low, maka
Portb = &B10011001 'portb sebagai 7segment akan menampilkan angka
End If 'akhir kondisi
Loop 'akhir perulangan
End 'akhir program
$crystal = 16000000 'kristal eksternal 16 MHz
Config Portd = Output 'port a sebagai output high
Portb = &B00000000 'portb aktif low
Ddrb = &B11111111 'setting portb sebagai output
Ddra = &B1110000 'setting untuk aktifkan keypad
Porta = &B11111111 'portd aktif high
Portd = &B00001111 'porta yang akan digunakan untuk 7 segment
Do 'lakukan perulangan
Porta = &B1101111 'penekanan pada keypad
Waitms 10 'delay 10 ms
If Pina.0 = 0 Then 'jika ditekan pind.0 dengan aktif low, maka
Portb = &B11111001 'portb sebagai 7segment akan menampilkan angka
Waitms 10 'delay 10 ms
Elseif Pina.1 = 0 Then 'jika tidak pind.1 dengan aktif low, maka
Portb = &B10011001 'portb sebagai 7segment akan menampilkan angka
End If 'akhir kondisi
Loop 'akhir perulangan
End 'akhir program
3. Link Download [kembali]
File HTML - Download
File Proteus - Download
File Program - Download
Video Rangkaian - Download
