Haz una pregunta
  Foros de Electrónica » Diseño digital » Microcontroladores y sistemas embebidos
Foros Registrarse ¿Olvidaste tu contraseña?

Temas similares

09/05/2010 #1


Pic 16F876A control Servo
Aqui les dejo un programa que hice yo, no se programar realmente, pero pues estuve leyendo y aprendiendo en estos foros y en un ebook de microcontroladores..

El programa es una forma de controlar un servo para que gire a -90, 0 y 90 grados por medio de 3 botones, inicialmente inicia en -90. aqui les dejo el codigo:

Código PHP:

'****************************************************************
'
*  Name    Movimiento Servos.BAS                             *
'*  Author  : [Fernando Nava]                                    *
'
*  Notice  Sientanse libres de meter mano ;)                    *
'*          : ^^ Grax a neoteo y forosdeelectronica                *
'
*  Date    09/05/2010                                        *
'*  Version : 1.0                                               *
'
*  Notes   Este programa tiene 3 botones para controlar un   *
'*          : servomotor, tiene -90, 0 y 90 grados con p16f876A *
'
*          : y esta programado en basiccon PicBasicPlus 2.0  *
'****************************************************************
device 16f876a                            '
Modelo Pic
xtal 
4                                  'Cristal
TRISB.1 = 1                             '
Defino RB1 como ENTRADA
TRISB.2 
1                                'Defino RB2 como ENTRADA
TRISB.3 = 1                                '
Defino RB3 como ENTRADA
TRISB.4 
0                             'Defino RB4 como SALIDA
Symbol boton1    = PORTB.1                '
Renombrando RB1 como boton1
Symbol boton2    
PORTB.2                'Renombrando RB2 como boton2
Symbol boton3    = PORTB.3                '
Renombrando RB3 como boton3
Symbol serv     
PORTB.4                'Renombrando PA2 como serv
dim pulso1 as word                        '
Variable Pulso 1
dim pulso2 
as word                        'Variable Pulso 2
dim pulso3 as word                        '
Variable Pulso 3
all_digital 
on                        'Enciende las salidas como digitales
pulso1=38                                    '
0
pulso2
=100                                '90
pulso3=10                                   '
-90
    serv 
pulso2                        'La salida inicia con 90
main:                                       '
Etiqueta main
    pulsout serv
serv                    'La salida se activa con el valor dado
    if boton1 = 1 then movimiento1        '
Si boton 1movimiento 1
    
if boton2 1 then movimiento2        'Si boton 2, movimiento 2
    if boton3 = 1 then movimiento3        '
Si boton 3movimiento 3
    
goto main                                'Regresa a main
movimiento1:                            '
Etiqueta movimiento1
    pulsout serv
pulso1                'Pulso salida = pulso1
    delayms 20                              '
Retardo de 20ms
    
goto main                            'Regresa a main
movimiento2:                             '
Etiqueta movimiento2
    pulsout serv
pulso2                'Pulso salida = pulso2
    delayms 20                              '
Retardo de 20ms
    
goto main                            'Regresa a main
movimiento3:                             '
Etiqueta movimiento3
    pulsout serv
pulso3                'Pulso salida = pulso3
    delayms 20                              '
Retardo de 20ms
    
goto main                            'Regresa a main
end                                         '
Fin Programa 
Aca abajo les dejo el circuito, obviamente le falta la alimentacion al pic, asi como el cristal, pero bueno, eso ya se entiende que lo deben conectar, busquen en el datashit XD
09/05/2010 #2


Respuesta: Pic 16F876A control Servo
Se ve bien tu codigo lo probare algún día ;
Suerte con tu proyecto
Respuesta
¿Tienes una mejor respuesta a este tema? ¿Quieres hacerle una pregunta a nuestra comunidad y sus expertos? Registrate

Foros de Electrónica » Diseño digital » Microcontroladores y sistemas embebidos

Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Search Engine Optimization by vBSEO ©2011, Crawlability, Inc.