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
$crystal = 12000000
$regfile = “m32def.dat” Config Porta = Output Config Portb = Output Config Portc = Output Merah1 Alias Porta.0 Kuning1 Alias Porta.1 Hijau1 Alias Porta.2 Merah2 Alias Porta.3 Kuning2 Alias Porta.4 Hijau2 Alias Porta.5 Hijaucounter1 Alias Porta.6 Merahcounter1 Alias Porta.7 Hijaucounter2 Alias Portb.0 Merahcounter2 Alias Portb.1 Dim C As Integer Declare Sub Segment(byval Dataa As Integer) Do Hijau1 = 1 Kuning1 = 0 Merah1 = 0 Hijaucounter1 = 1 Merahcounter1 = 0 Hijau2 = 0 Kuning2 = 0 Merah2 = 1 Hijaucounter2 = 0 Merahcounter2 = 1 C = 10 Do Call Segment(c) Waitms 100 Decr C Loop Until C = 0 Hijaucounter1 = 0 Merahcounter2 = 0 Hijau1 = 0 Kuning1 = 1 Waitms 100 Hijau1 = 0 Hijaucounter1 = 0 Merahcounter1 = 1 Kuning1 = 0 Merah1 = 1 Hijau2 = 1 Kuning2 = 0 Merah2 = 0 Hijaucounter2 = 1 Merahcounter2 = 0 C = 10 Do Call Segment(c) Waitms 100 Decr C Loop Until C = 0 Hijaucounter2 = 0 Merahcounter1 = 0 Hijau2 = 0 Kuning2 = 1 Waitms 100 Loop End Sub Segment() Select Case Dataa Case 0 : Portc = 0 Case 1 : Portc = 63 ’0 Case 2 : Portc = 6 ’1 Case 3 : Portc = 91 ’2 Case 4 : Portc = 79 ’3 Case 5 : Portc = 102 ’4 Case 6 : Portc = 109 ’5 Case 7 : Portc = 125 ’6 Case 8 : Portc = 7 ’7 Case 9 : Portc = 127 ’8 Case 10 : Portc = 111 ’9 End Select End Sub |
2 komentar:
Gan code list buat AVR gak ada ya ?
Gan code list buat AVR gak ada ya ?
Posting Komentar