Programación rapida en MikroC Pro For AVR (1).doc

Robótica 0.1

Programación rápida MicroC pro for avr  El contenido de este libro está protegido por la licencia de documentación libre Free Documentation License)

GFDL(GNU

Autores: Indice 1. Hace Hacerr titi titila larr un LE LED. D. 2. Hacer Hacer ttiti itilar lar todos todos los los LEDs LEDs a la vez. vez.

{ PORTB.B31! PORTB.B31! ""Enciende el #E$. dela%&'s()00*!""Espera )00 'ili segundos. PORTB.B00! PORTB.B00! ""Apaga el #E$. dela%&'s()00*!""Espera )00 'ili segundos. + while(1) while (1) {

+

/* Aclaraciones: Las etiquetas se utilizan por si se debe utilizar ese puerto para otra aplicación, solo sea necesario cambiar en la etiqueta la posición del nueo puerto */ int main(oid main(oid)) { !on"#$%in$Leds & ' Leds & '

//+e con"#uran odos los -its del %uerto - !omo +alida //+e inicializa el %uerto - en !eros

//!iclo .n"nito while(1) while (1) {  $dela$ms(0'') Leds 3& '

//etardo de '20 +e#undos //!omplem //!om plemento ento el el %-4 del del puerto puerto -, es decir, decir, el el cuarto cuarto bit

5 5

+3

Hacer una oruga:

,oid 'ain(* {

1

Robótica 0.1 $$RB 1! ""-onigura el puerto puerto B3 co'o co'o salida. /ile(1*

""Bucle ininito.

{ PORTB.B01! PORTB.B01! ""Enciende el #E$1. dela%&'s()00*!""Espera )00 'ili segundos. PORTB.B11! PORTB.B11! ""Apaga el #E$. dela%&'s()00*!""Espera )00 'ili segundos. PORTB.B1! PORTB.B1! ""Enciende el #E$3. dela%&'s()00*!""Espera )00 'ili segundos. PORTB.B31! PORTB.B31! ""Apaga el #E$2. dela%&'s()00*!""Espera )00 'ili segundos. PORTB.B21! PORTB.B21! ""Enciende el #E$). dela%&'s()00*!""Espera )00 'ili segundos. PORTB.B)1! PORTB.B)1! ""Apaga el #E$. dela%&'s()00*!""Espera )00 'ili segundos. PORTB.B1! PORTB.B1! ""Enciende el #E$4. dela%&'s()00*!""Espera )00 'ili segundos. PORTB.B41! PORTB.B41! ""Apaga el #E$5. dela%&'s()00*!""Espera )00 'ili segundos. PORTB0! PORTB0!

""Apaga todos los #E$s.

+ +

-orreciones 6 de"ne $!%7 1''''''7L //Librerias 6include 8ar/io2h9 6include 8util/dela2h9 6de"ne !on"#$%in$Leds del %uerto 6de"ne Leds 6de"ne Led$4 %uerto -, es decir el %-4

- //+e etiqueta el e#istr e#istro o de !on"#uración %;- //+e etiqueta el %uerto %-4 //+e etiqueta el cuarto %in del

/* Aclaraciones: Las etiquetas se utilizan por si se debe utilizar ese puerto para otra aplicación, solo sea necesario cambiar en la etiqueta la posición del nueo puerto



Robótica 0.1 */ int main(oid main(oid)) { !on"#$%in$Leds & ' //+e con"#uran odos los -its del %uerto - !omo +alida Leds & ' //+e inicializa el %uerto - en !eros unsi#ned char i //!iclo .n"nito while(1) while (1) { //or (i&'i8=i??) { Leds @& ''1 //+e realiza una ; con  se enciende el primer -it  $dela$ms(0'') //etardo de '20 +e#undos Leds & Leds881 //+e rota el puerto de 1 en 1 5 Leds & ''' //+e apa#a todo el puerto 5 5

4 Hacer un programa para un semaforo ,oid 'ain(* {  $$RB 1!  /ile(1* { PORTB.B01! PORTB.B01!

""Enciende Ro6o1

PORTB.B)1!

""Enciende ""Encie nde 7erde 7erde

$ela%&'s(3000*!""Retardo de 3 8egundos PORTB.B)0!

""Apaga 7erde 7erde

PORTB.B01! PORTB.B01!

""Enciende A'arillo

$ela%&'s(1000*!""Retardo de 1 8egundos PORTB.B20! PORTB.B20!

""Apaga A'arillo

PORTB.B00! PORTB.B00!

""Apagar Ro6o1

PORTB.B31! PORTB.B31!

""Enciende Ro6o

PORTB.B1!

""Enciende ""Encie nde 7erde1 7erde1

$ela%&'s(3000*!""Retardo de 3 8egundos PORTB.B0!

""Apaga 7erde1 7erde1

PORTB.B11! PORTB.B11!

""Enciende A'arillo1

$ela%&'s(1000*!""Retardo de 1 8egundo PORTB.B10! PORTB.B10!

""Apaga A'arillo1 3

Robótica 0.1 PORTB.B30! PORTB.B30!

""Apaga Ro6o

+ +

-orrecciones 6 de"ne $!%7 1''''''7L //Librerias 6include 8ar/io2h9 6include 8util/dela2h9 6de"ne %uerto 6de"ne 6de"ne 6de"ne 6de"ne 6de"ne 6de"ne 6de"ne

!on"#$%in$+em

- //+e etiqueta el e#istr e#istro o de !on"#uración del

+ema>oros +em$1$ +em$1$A +em$1$B +em$C$ +em$C$A +em$C$B

%;- //+e etiqueta el %uerto %-' //+ema>oro 1 -ombillo oo %-1 //+ema>oro 1 -ombillo Amarillo %-C //+ema>oro 1 -ombillo Berde %-4 //+ema>oro C -ombillo oo %-D //+ema>oro C -ombillo Amarillo %-0 //+ema>oro C -ombillo Berde

int main(oid main(oid)) { !on"#$%in$+em & '//+e '//+e con"#uran odos los -its del %uerto - !omo +alida +ema>oros @& (188+em$1$) @ (188+em$C$B)//+e (188+em$C$B)//+e inicializan los sema>oros, el sema>oro 1 en roo  el C en erde  $dela$ms(1''') //!iclo .n"nito while(1) while (1) { //%roceso de sema>oro C +ema>oros @& (188+em$C$B)  $dela$ms(4''') +ema>oros E& F(188+em$C$B) +ema>oros @& (188+em$C$A)  $dela$ms(1''') +ema>oros E& F(188+em$C$A) +ema>oros @& (188+em$C$) //  $dela$ms(1''') //

//+e enciende el bombillo Berde del sema>oro C //+e apa#a Berde de sema>oro C //+ema>oro dos enciende el amarillo //+e apa#a amarillo de sema>oro C //+ema>oro dos enciende el oo

//ela mientras los ultimos carros pasan

//%roceso de sema>oro 1 +ema>oros E& F(188+em$1$) +ema>oros @& (188+em$1$A)

//+e apa#a el bombillo roo del sema>oro 1 //+e enciende el bombillo amarillo del sema>oro

1  $dela$ms(1''') +ema>oros E& F(188+em$1$A) +ema>oros @& (188+em$1$B)  $dela$ms(4''') +ema>oros E& F(188+em$1$B) +ema>oros @& (188+em$1$A)

//+e apa#a#a la luz amarilla del sema>oro 1 //+e enciende la Luz erde del sema>oro 1 //+e apa#a luz erde del sema>oro 1 //+e enciende el bombillo amarillo del sema>oro

1

2

Robótica 0.1  $dela$ms(1''') +ema>oros E& F(188+em$1$A) +ema>oros @& (188+em$1$) //  $dela$ms(1''') //

//+e apa#a#a la luz amarilla del sema>oro 1 //+e enciende el roo del sema>oro 1

//ela mientras los ultimos carros pasan

+ema>oros E& F(188+em$C$) +ema>oros @& (188+em$C$A)

//+e apa#a el bombillo roo del sema>oro C //+e enciende el bombillo amarillo del sema>oro

C  $dela$ms(1''') +ema>oros E& F(188+em$C$A)

//+e apa#a#a la luz amarilla del sema>oro C

5 5

Otros progra'as áciles para seguir:

1.

Encender un #E$ con un pulsador (-uando se suelta el pulsador el #E$ se apaga*.

2.

Encender un #E$ con un pulso del pulsador % apagarlo apagarlo con un segundo pulso.

3.

9sar librera de sonido.

4.

;acer un 6uego de luces.

5.

;acer 3 6uegos de luces con tres pulsadores
.

P=> por sot/are.

!.

;acer progra'a de control de tie'po para rel?.

)

Robótica 0.1

