Memfungsikan 4 tombol di rangkaian sismin atmega 16

Saya punya kasus yang cukup menarik yaitu:
Pada rangkaain sismin ini ada 4 tombol dan 8 lampu, saya ingin ke empat tombol ini berfungsi semua. Ketentuannya adalah:

• Tombol 1 ditekan: lampu mati 1, lalu yang mati bergeser 1 demi 1, gerakan ke kiri
• Tombol 2 ditekan: lampu mati 1, lalu yang mati bergeser 1 demi 1, gerakan ke kanan
• Tombol 3 ditekan: semua lampu kedip-kedip
• Tombol 4 ditekan: hanya lampu 1 yang berkedip

Jadi disini fungsi tombol 1 sampai tombol 4 berbeda-beda, dengan kondisi awal lampu mati.

LED berkedip lalu jalan (kiri-kanan)

Dipostingan ini saya akan Buat Program, supaya LED berkedip Semua, dilanjutkan sebuah LED nyalanya berjalan ke kiri, lalu dilanjutkan lagi dengan berjalan ke kanan.

Berikut caranya:
1. Buka Bascom-AVR, ketik:

'berkedip semua 3x, lalu berjalan ke kiri, dan ke kanan
$regfile = "m16def.dat" 'inisial penggunaan mikrokontroller atmega 8535
$crystal = 12000000 'inisial penggunaan crystal=12000000
Config Portc = Output 'konfigurasi port
Portc = &B11111111
Dim X As Integer
Dim Y As Byte
Do
'---berkedip---
X = 0
Do
Portc = &B00000000
Waitms 50
Portc = &B11111111
Waitms 50
X = X + 1
Loop Until X = 3
'---bergeser kekiri---
Y = &B11111110
Do
Portc = Y
Waitms 50
Rotate Y , Left , 1
Loop Until Y = &B11111110
Portc = &B11111111
Waitms 50
'---bergeser kekanan---
Y = &B01111111
Do
Portc = Y
Waitms 50
Rotate Y , Right , 1 'perintah rotasi
Waitms 50
Loop Until Y = &B01111111
Portc = &B1111111
Waitms 50
Loop

Nyala LED berjalan ke kanan

Pada postingan kali ini, saya ingin share cara supaya LED berjalan ke kanan 1 langkah (secara terus menerus).
Caranya:
1. seperti biasa buka aplikasi BASCOM-AVR, lalu ketik:

2. Lalu compile (tekan F7 atau klik menu Program-Compile
3. Buka rangkaian sismin atmega 16, atau buat dengan proteus seperti berikut:

Semua LED berkedip

Membuat semua LED/Lampu kedip-kedip:
Tulis  programnya:

Compile, tekan f7
Buka desain

Masukkan program

4 LED berkedip secara bergantian

Di postingan kali ini saya akan memberi kasus 4 LED berkedip secara bergantian tanpa pakai/menekan tombol
1. Seperti biasa, pertama buka BASCOM-AVR, ketik code:
'4 kedip tanpa batasan
$regfile = "m16def.dat" 'inisial penggunaan mikrokontroller atmega 8535
$crystal = 12000000 'inisial penggunaan crystal=12000000
Dim Data1 As Byte 'deklarasi variabel
Dim Data2 As Byte
Config Portc = Output 'konfigurasi port
Data1 = 15 'lampu yang mati dan nyala pakai binner
Data2 = 240

Do
Portc = Data1
Waitms 50
Portc = Data2
Waitms 50
Loop
End