Cara Membuat LED dan LCD Berkedip Pada BASCOM dan ISIS Proteus

Itu penampakan dari apa yang baru dipelajari pada pertemuan ke-3 (10-03-2015) robotik UNPAK, yang merupakan tugas membuat 4 Lampu Merah (4 Persimpangan). Saya hanya share saja apa yang telah saya pelajari, siapa tau bisa bermanfaat :D.

Cara membuatnya :
1. Buka Proteus ISIS
2. Pada tulisan P/L pilih P dan tuliskan "atmega16"
3. Pilih yang paling atas > OK
4. Masukan LED dengan mengklik P dan tuliskan "led" kemudian pilih warna yang diinginkan > OK
5. Sambungkan PORTA.0 dengan LED yang tadi dibuat (bagian bawah)
6. Ulangin langkah 4-5 sampai lampu LED ada 6
7. Buat daya dengan memilih tools Terminals Code > Power > buat sesuai LED yang ada
8. Sambungkan dengan LED (bagian atas)
9. Klik 2x pada gambar yang bertuliskan U1
10. Pada Program File masukan code baskom yang telah dibuat (yang berformat .hex)
11. Klik Play

Ini merupakan coding yang saya kerjakan sendiri, masih banyak kekurangan dan masih panjang dalam codingnya *maklum masih newbie

$regfile = "m128def.dat"
$crystal = 11059200
$baud = 9600

'variabel
Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.2 = Output

Config Portc.0 = Output
Config Portc.1 = Output
Config Portc.2 = Output

Config Portd.0 = Output
Config Portd.1 = Output
Config Portd.2 = Output

Config Porte.0 = Output
Config Porte.3 = Output
Config Porte.2 = Output

'inisialisasi
Merah1 Alias Portb.0
Kuning1 Alias Portb.1
Hijau1 Alias Portb.2

Merah2 Alias Portc.0
Kuning2 Alias Portc.1
Hijau2 Alias Portc.2

Merah3 Alias Portd.0
Kuning3 Alias Portd.1
Hijau3 Alias Portd.2

Merah4 Alias Porte.0
Kuning4 Alias Porte.3
Hijau4 Alias Porte.2

'PROSES
'awal
Set Merah1
Set Kuning1
Set Hijau1

Set Merah2
Set Kuning2
Set Hijau2

Set Merah3
Set Kuning3
Set Hijau3

Set Merah4
Set Kuning4
Set Hijau4

Ulang:
'traffic 1
   Reset Hijau1
Reset Merah2
Reset Merah3
Reset Merah4
Waitms 300
Set Hijau1
Reset Kuning1
Waitms 100
Set Kuning1
Reset Merah1
Waitms 100

'traffic 4
Set Merah4
Reset Kuning4
Waitms 100
Set Kuning4
   Reset Hijau4
   Waitms 300
Set Hijau4
Reset Kuning4
Waitms 100
Set Kuning4
Reset Merah4
Waitms 100

'traffic 3
Set Merah3
Reset Kuning3
Waitms 100
Set Kuning3
   Reset Hijau3
   Waitms 300
Set Hijau3
Reset Kuning3
Waitms 100
Set Kuning3
Reset Merah3
Waitms 100

'traffic 2
Set Merah2
Reset Kuning2
Waitms 100
Set Kuning2
   Reset Hijau2
   Waitms 300
Set Hijau2
Reset Kuning2
Waitms 100
Set Kuning2
Reset Merah2
Waitms 100

Set Merah1
Reset Kuning1
Waitms 100
Set Kuning1

Goto Ulang

Silahkan dicoba, dan bila ada masukan untuk codingnya bisa komentari postingan ini, karena disini saya baru belajar dalam hal seperti ini.

[update title="Informasi buat sobat" icon="info-circle"]Saat ini sobat sedang membaca artikel Cara Membuat LED dan LCD Berkedip Pada BASCOM dan ISIS Proteus
Sumber:https://anthzoblog.blogspot.com/2015/03/cara-membuat-led-dan-lcd-berkedip-pada_85.html
Jangan lupa untuk memberikan komentar supaya situs ini terus update, terima kasih.[/update]