contoh menyalakan LED dengan bahasa basic

Dengan Memakai Rangkaian Sismin atmega 16 yang sudah saya buat. Silahkan buka Rangkaian Sisminnya (Sismin atmega 16)

Masalah 1, Menyalakan Semua Lampu

Buka BASCOM-AVR (untuk menulis bahasa/perintahnya)
'menyalakan semua lampu
$regfile = "m16def.dat" 'header
$crystal = 12000000 'header

Config Portc = Output 'mendeklarasikan port B pd atmega 16 sebagai Output
Do
Portc = 0
Loop
End 'mengakhiri program
Setelah program diketik, lalu compile dengan menekan F7 atau klik menu Program-Compile
Buka Proteus (Buka Sismin nya)
Klik 2x pada Atmega 16
Akan muncul "Edit Component", lalu klik pada "Program File", lalu cari file yang tadi sudah di compile
Klik Ok,
Lalu klik simbol play di pojok kiri bawah
Hasilnya

Download Source Code Klik disini

Masalah 2, Tombol 1 Ditekan hanya 4 Lampu yang nyala

Buka BASCOM-AVR (untuk menulis bahasa/perintahnya)

'menyalakan LED dengan input tombol
$regfile = "m16def.dat" 'tipe IC mikrokontroller yang digunakan
$crystal = 12000000 'tipe X-tal oscilator 12 Mhz
Config Portc = Output 'mendeklarasikan port C pd atmega 16 sebagai Output
Config Portb = Input 'mendeklarasikan port B pd atmega 16 sebagai Input
Portc = 255 'memberi nilai PortA = 255, mendeklarasikan/menentukan supaya keadaan semua lampu mati
T1 Alias Pinb.0 'memberi nama lain/variabel pada pinb.0
Do 'awal program
If T1 = 0 Then 'jika T1 ditekan
Portc = &B11110000 'output, jika T1 ditekan
'B artinya Biner, angka 0=lampu yang nyala, angka 1=lampu yang mati
End If 'mengakhiri perintah IF
Loop 'Looping menuju awal program
End 'mengakhiri program
Setelah program diketik, lalu compile dengan menekan F7 atau klik menu Program-Compile
Buka Proteus (Buka Sismin nya)
Klik 2x pada Atmega 16
Akan muncul "Edit Component", lalu klik pada "Program File", lalu cari file yang tadi sudah di compile
Klik Ok,
Lalu klik simbol play di pojok kiri bawah
Hasilnya