Practicas para Pic 16f877a con motores

Practica #1
Encendido y Apagado de un motor.
El programa realizara el encendido y apagado de un motor de CD. Mediante una botonera.
Condiciones:
1. Si S1= 1 y S2=0 seencenderá el motor y un LED de color ROJO (pin elegido por el alumno del puerto correspondiente), LED ROJO apagado.

2. Si S1= 0 y S2=1 se apagara el motor y encenderá un LED de colorROJO (pin elegido por el alumno del puerto correspondiente), LED ROJO apagado.

3. Si S1=S2 se apagara el motor y encenderá un LED de color ROJO (pin elegido por el alumno delpuerto correspondiente), LED ROJO apagado.



Diagrama de Conexión.
[pic]

[pic]
Programa.
'****************************************************************
'* Name :UNTITLED.BAS *
'* Author : [select VIEW...EDITOR OPTIONS] *
'* Notice : Copyright (c) 2010 [select VIEW...EDITOR OPTIONS]*
'* : All Rights Reserved *
'* Date : 13/10/2010 *
'* Version : 1.0*
'* Notes : *
'* : *'****************************************************************
define ccp1_reg1 portc
define ccp1_bit2
define osc 4
include "modedefs.bas"
x var byte
trisa=%11111111
adcon1=6
trisb=%00000000
X=10portb=0

main:
pwm 1,x,500
IF (porta.0=1 and porta.1) THEN
pause 200
x= x+10
portb.0=1
portb.1=0
IF x>=250 THEN
x=240
portb.1=1
ENDIF
ENDIF
IF (porta.0=0 andporta.1=1) THEN
pause 200
x= x-10
portb.0=0
portb.1=1
IF x =250 THEN
x=240
portb.1=1
ENDIF
ENDIF
IF (porta.0=0 and porta.1=1) THEN
pause 200
x= x-10
portb.0=0
portb.1=1
IF x