/*

 ======================================



 "CENDOL AND A CUP OF COFFEE LICENSE"



 ======================================

 \t doniharis@kaskus.co.id



 Sepanjang agan tetap menampilkan tulisan ini, agan diberikan

 kebebasan untuk memanfaatkan program ini. Jika agan merasakan 

 manfaat dari program ini, agan dapat mengirimkan cendol

 kepada penulis atau bila suatu saat kita dapat berjumpa, agan2

 boleh mentraktir penulis dengan secangkir kopi.





================== Program Speedometer ===================



 Ditulis dengan menggunakan ATMEL@ AVR Studio4 dan WinAVR@20100110

 menggunakan Micro Chip AtTiny2313 dgn Frekuensi Internal 1MHz.



*/



#include <avr/io.h>

#include <util/delay.h>

#include <inttypes.h>

#include <avr/interrupt.h>

#include <avr/iotn2313.h>



#define TIMER1_PRESCALE_64 3

#define Palsu 15\t\t\t\t//\tnilai utk 'DEBOUNCE'



uint8_t angka3=11 ; 

uint8_t angka4=12 ; 

int cacah=0;\t\t\t\t//\tPencacah untuk 'DEBOUNCE'

uint8_t Kecepatan=0 ;\t\t\t//\tSpeed!

uint8_t tik=0 ;\t\t\t\t//\t1 tik = 27.~ cm





void segment(int angka)\t\t\t//\tSubrutin tayang angka pada 7Segment

{

switch (angka)

\t{

\tcase 0:{PORTB=0b1000000;break;}\t//\t0

\tcase 1:{PORTB=0b1111001;break;}\t//\t1

\tcase 2:{PORTB=0b0100100;break;}\t//\t2

\tcase 3:{PORTB=0b0110000;break;}\t//\t3

\tcase 4:{PORTB=0b0011001;break;}\t//\t4

\tcase 5:{PORTB=0b0010010;break;}\t//\t5

\tcase 6:{PORTB=0b0000010;break;}\t//\t6

\tcase 7:{PORTB=0b1111000;break;}\t//\t7

\tcase 8:{PORTB=0b0000000;break;}\t//\t8

\tcase 9:{PORTB=0b0010000;break;}\t//\t9

\tcase 10:{PORTB=0b1111111;break;}\t//\t[Blank] 

\tcase 11:{PORTB=0b0100001;break;}\t//\t' d '

\tcase 12:{PORTB=0b0001001;break;}\t//\t' H '

\t}

}





ISR(TIMER1_COMPA_vect) // Proses penghitungan kecepatan

{ 

cli();\t\t\t\t\t\t//\tnon-aktifkan Interrupt



/* Keliling roda = 205cm

 Sensor kecepatan ( 'tik' ) ditaruh di tujuh titik

 dgn jarak antar titik = 205/7 = 27.~cm



 1 Km/jam = 27.~ cm/dtk */



Kecepatan = tik; \t\t\t //\trumus kecepatan

tik=0;\t\t\t\t\t\t//\tpenihilan 'tik' utk polling data berikutnya



angka4 = Kecepatan%10;\t\t\t\t

//\tangka Satuan



if(Kecepatan>9) angka3 = ((Kecepatan%100) - (Kecepatan%10)) /10 ; 

else angka3=10;

// angka Puluhan



sei();\t\t\t\t\t\t// aktifkan kembali Interrupt

}

ISR (INT0_vect)\t\t\t\t\t//\tProses penambahan jumlah tik

{

cacah++;\t\t\t\t\t\t//DEBOUNCE



if( cacah >= Palsu ){\t\t\t

cacah=0;

tik++;

}

}





int main(void)

{

// Inisialisasi PORT/PIN untuk Input dan Output



DDRD = _BV(PD0) | _BV(PD1) ;

// Common Anode 7Segment

 

DDRB |=(1<<PB0)|(1<<PB1)|(1<<PB2)|(1<<PB3)|(1<<PB4)|(1<<PB5)|(1<<PB6);

// Catode 7Segment: a, b, c, d, e, f, g



GIMSK = 1 << INT0; \t\t\t\t// External Interrupt 0 diaktifkan

MCUCR = 3; \t\t\t\t\t\t// rising edge,



TCCR1B = (1 << WGM12)|TIMER1_PRESCALE_64; // Timer1 CTC mode, Prescaler Fclk_cpu/64 



OCR1A = (uint16_t)15624; \t\t\t

// interupsi setiap 1 detik = (Fclk_cpu/64) - 1 = (1.000.000/64) - 1 = 15625 - 1 = 15624



TIMSK = 1 << OCIE1A; \t\t\t\t// Aktifkan CTC interrupt



sei();\t\t\t\t\t\t// Aktifkan General Interrupt





\twhile(1)\t\t\t\t\t//\t4ever

\t{

\t{

\tsegment(10);

\tPORTD |= _BV(PD0);

\tPORTD &= ~_BV(PD1) ;

\tsegment(angka3);

\t_delay_ms(5);

\t//Proses penayangan Digit PULUHAN 7Segment dgn Metode Scanning / Multiplexing

\t

\tsegment(10);

\tPORTD |= _BV(PD1);

\tPORTD &= ~_BV(PD0) ;

\tsegment(angka4);

\t_delay_ms(5);

\t//Proses penayangan Digit SATUAN 7Segment dgn Metode Scanning / Multiplexing\t

\t}

\t} 

}



// Interupsi yg menjalankan sisanya