Encienda un led conectado en RB4 durante 1,5 seg. y luego apáguelo por 0,5 seg. el proceso debe repetirse repetirse sólo 4 veces, luego luego el led debe permaner permaner apagado.
; encender un led conectado al pin 37 (RB4) del pic 16F877A durante 1.5 seg y ;luego apagarlo .5 seg el proceso de!e repetirse 4 "eces luego el led de!e ;per#anecer apagado.
$ de"ice %t&osc
; oscilador e%terno '
deine osc 4
; especiica *ue se "a a utili+ar uno de 4 ,-+
% "ar !yte
; crea la "aria!le % y asigna un espacio de #e#oria ; de o a 55
/0 "ar port!.4
; asigna el no#!re de led a RB4 del pic 16877A
progra#a2
; inicio de la linea de progra#a
or % to 3
; repetir 4 "eces
-ig- led
;enciende led
pause 15
; esperar 1.5 seg
lo led
;apaga led
pause 5
; espera .5 seg
ne%t
; siguiente repeticion -asta *ue sea %3
end
; in del progra#a
Encienda 2 leds conectados en RB0 y RB1 alternadamente, alternadamente, es decir mientras el un led está encendido, el otro permanece apagado y viceversa, los tiempos de transición son de 00 mls. entre encendido y apagado, el proceso debe continuar inde!inidamente. inde!inidamente.
; encender leds conectados a (RBRB1) del pic 16F877A alternada#ente es ;decir un led esta encendido #ientras el otro esta apagado y "ice"ersa los ;tie#pos de transicion son de 7#ls entre encendido y apagado el proceso ;de!e continuar indeinida#entedurante.
$ de"ice %t&osc
; oscilador e%terno '
deine osc 4
; especiica *ue se "a a utili+ar uno de 4 ,-+
% "ar !yte
; crea la "aria!le % y asigna un espacio de #e#oria ; de o a 55
/01 "ar port!.
; asigna el no#!re de led1 a RB del pic 16877A
/0 AR port!.1
; asigna el no#!re de led a RB1
progra#a2
; inicio de la linea de progra#a
-ig- led12lo led
;enciende led1 y apaga led
pause 7
; esperar .7 seg
lo led12-ig- led
;apaga led1 y enciende led
pause 7 goto progra#a end
; espera .7 seg ; ir a progra#a ; in del progra#a
En el proyecto 5.1." #uego de luces para discoteca, encienda los leds del medio $acia los e%tremos, es decir empiece por B4 y B", luego apáguelos y encienda B5 y B2 y as& sucesivamente $asta llegar a los e%tremos B y B0, utilice '()*E 200 y $aga +ue se repita inde!inidamente.
;LUEGO DE LAS LUCES DE DISCOTECA ENCIENDA LOS LEDS DEL MEDIO HACIA LOS EXTREMOS ;CON UN TIEMPO DE 200mseg ;
ledsleds1
09:A/0 A ,:/R >? @ 0? A :>
;
ledsleds
09:A/0 A ,:/R =:AR> @ 0??
0 >? ;
ledsledsCC1
09:A/0 A R
<>R >? @ 0? A :>
DA=A /A ;
0R0=DA.
$ de"ice %t&osc
; oscilador e%terno '
deine osc 4
; especiica *ue se "a a utili+ar uno de 4 ,-+
% "ar !yte
; crea la "aria!le % y asigna un espacio de #e#oria ; de o a 55
/0? "ar <>RB
; asigna el no#!re de leds a todo el puerto B del pic
16877A /0 "ar port!.
; asigna el no#!re de led1 a RB del pic 16877A
/01 AR port!.1
; asigna el no#!re de led a RB1
/0 AR port!.
/03 AR port!.3 /04 AR port!.4 /05 AR port!.5 /06 AR port!.6 /07 AR port!.7 R?B
; -ace#os salidas a todo el puerto !
leds1
; carga#os el puerto ! con 1 (E1)
progra#a2 or % to 6 /0?/0?1 >?:B 0,<> ne%t or % to 6
; inicio de la linea de progra#a ; repetir 7 "eces ;despla+a uno a uno a la let ; esperar . seg ; siguiente repeticion -asta *ue sea %6 ; repetir 7 "eces
/0?/0?CC1
; despla+a uno a uno a la rig-t
pause
; esperar . seg
ne%t -ig- led32DD /042/>G /02/>G /07 >?:B 0,<> />G /032/>G /042DD /02DD /05 >?:B 0,<> />G /02/>G /052DD /012DD /06 >?:B 0,<> />G /012/>G /062DD /02DD /07 >?:B 0,<> >>
RA,A 0,<>2
; in del progra#a
Encienda una ruleta con leds conectados a todos los pines del micro 15 leds-, e%cepto R(5 y $ágalo girar las luces a la velocidad y en el sentido +ue desee.
enere / parpadeos de un led con intervalos de "00 mls. luego $aga 2 parpadeos de 1 segundo con un segundo led, luego $aga +ue los 2 leds parpadeen " veces, repita el proceso inde!inidamente
;Generar 6 parpades de !n "ed #n $n%er&a"s de '00m"s( "!eg ds parpades de ;!n seg!nd #n %r "ed( desp!es "s ds "eds parpadean %res &e#es( e" pr#es ;se rep$%e $nde)$n$damen%e
deine >?= 4
;especiica al
$ de"ice '&>?= % "ar !yte
;oscilador e%terno para progra#acion. ; crea la "aria!le % y asigna un espacio de #e#oria ; de o a 55
led1 "ar port!.
;eti*ueta asignada al pin del pic 16877A
led "ar port!.1
;eti*ueta asignada al pin 3 del pic 16877A
progra#a2
or % to 5 -ig- led1 gosu! tie#po lo led1 gosu! tie#po ne%t
or % to 1 -ig- led gosu! tie#po1 lo led gosu! tie#po1
; inicio de la linea de progra#a
ne%t
or % to
; repetir 3 "eces
-ig- led12-ig- led
;enciende leds
gosu! tie#po
; ir a rutina tie#po
lo led12 lo led
;apaga leds
gosu! tie#po
; ir a rutina tie#po
ne%t
; siguiente repeticion -asta *ue sea %3
goto progra#a
tie#po2 pause 3 return
tie#po12 pause 1 return end
; in del progra#a
