Tips-Blogger: Simulasi Mikrokontroler, Membuat TRAFFICT LIGHT

Selasa, 07 Juni 2011

Simulasi Mikrokontroler, Membuat TRAFFICT LIGHT

05.45 |

Diposting oleh Unknown

Kali ini kita belajar simulasi membuat traffict light sederhana. Kenapa sederhana?? hhm…. konsep traffict light sangat mudah dipahami bila kita mulai dari yang sederhana.

Yaah.. kita bikin 2 lampu traffict light dulu, biar pembaca paham bagaimana cara membuat programnya.

Idenya sederhana, cuma menghidupkan lampu hijau dan merah bergantian, plus counternya. yuuk,, kita simak!

1. Siapkan PROTEUS kamu!
2. Ini dia komponen yang diperlukan.

Atmega32
7Segment 4 buah (2 hijau, 2 merah)
TRAFFICT LIGHT (Sudah disediakan oleh PROTEUS)
Transistor BC107 (untuk saklar counter)
dan resistor 10K

Gambar 1. Komponen

3. Rangkainnya seperti ini

Gambar 2. Rangkaian

Gambar 2, saya menggunakan fasilitas wireless cable. Blok Traffict2 nampak tidak berhubungan langsung dengan AVR, namun karena dimasing2 port namanya sama, maka otomatis mereka saling berhubungan sesuai namanya. Klik pada gambar untuk melihat lebih jelas.

4. Bagaimana programnya?? yuph, ini dia program dalam bahasa BASCInya. Silakan co-pas ke BASCOM-AVR kamu.

`01`	`$crystal = 12000000$regfile =` `"m32def.dat"`

`02`	`Config Porta = Output`

`03`	`Config Portb = Output`

`04`	`Config Portc = Output`

05

`06`	`Merah1 Alias Porta.0`

`07`	`Kuning1 Alias Porta.1`

`08`	`Hijau1 Alias Porta.2`

`09`	`Merah2 Alias Porta.3`

`10`	`Kuning2 Alias Porta.4`

`11`	`Hijau2 Alias Porta.5`

`12`	`Hijaucounter1 Alias Porta.6`

`13`	`Merahcounter1 Alias Porta.7`

`14`	`Hijaucounter2 Alias Portb.0`

`15`	`Merahcounter2 Alias Portb.1`

16

`17`	`Dim C As Integer`

`18`	`Declare Sub Segment(byval Dataa As Integer)`

19

20 Do

`21`	`Hijau1 = 1`

`22`	`Kuning1 = 0`

`23`	`Merah1 = 0`

`24`	`Hijaucounter1 = 1`

`25`	`Merahcounter1 = 0`

`26`	`Hijau2 = 0`

`27`	`Kuning2 = 0`

`28`	`Merah2 = 1`

`29`	`Hijaucounter2 = 0`

`30`	`Merahcounter2 = 1`

31

32 C = 10

33 Do

`34`	`Call Segment(c)`

`35`	`Waitms 100`

36 Decr C

`37`	`Loop Until C = 0`

`38`	`Hijaucounter1 = 0`

`39`	`Merahcounter2 = 0`

`40`	`Hijau1 = 0`

`41`	`Kuning1 = 1`

`42`	`Waitms 100`

`43`	`Hijau1 = 0`

`44`	`Hijaucounter1 = 0`

`45`	`Merahcounter1 = 1`

`46`	`Kuning1 = 0`

`47`	`Merah1 = 1`

`48`	`Hijau2 = 1`

`49`	`Kuning2 = 0`

`50`	`Merah2 = 0`

`51`	`Hijaucounter2 = 1`

`52`	`Merahcounter2 = 0`

53 C = 10

54 Do

`55`	`Call Segment(c)`

`56`	`Waitms 100`

57 Decr C

`58`	`Loop Until C = 0`

`59`	`Hijaucounter2 = 0`

`60`	`Merahcounter1 = 0`

`61`	`Hijau2 = 0`

`62`	`Kuning2 = 1`

`63`	`Waitms 100`

64 Loop

65 End

66

`67`	`Sub Segment()`

`68`	`Select Case Dataa`

`69`	`Case 0 : Portc = 0`

`70`	`Case 1 : Portc = 63 '0`

`71`	`Case 2 : Portc = 6 '1`

`72`	`Case 3 : Portc = 91 '2`

`73`	`Case 4 : Portc = 79 '3`

`74`	`Case 5 : Portc = 102 '4`

`75`	`Case 6 : Portc = 109 '5`

`76`	`Case 7 : Portc = 125 '6`

`77`	`Case 8 : Portc = 7 '7`

`78`	`Case 9 : Portc = 127 '8`

`79`	`Case 10 : Portc = 111 '9`

`80`	`End Select`

81 End Sub

5. Menggunakan BASCOM-AVR, simpan dengan nama Traffict.BAS, kemudian compile.
6. Download file Traffict.HEX (hasil compile) dari AVR di PROTEUS.
7. jalankan simulasi…