Codigo Para el control de el Drone

 

Programa en Pic Basic Para el control de un motor con estabilización automática
DEFINE OSC 20 'se uso un cristal oscilador de 20 mhz
DEFINE ADC_BITS 10 'convertidor 10 bits
'-------defines necesarios para la utilizacion de la lcd
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 3
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 2
DEFINE LCD_LINES 2

ADCON1= %10000001 'ESTO ES PARA EL CONVERTIDOR ANALOGICO DIGITAL
TRISB=000000
TRISA.0= 1
TRISA.3= 1

x var byte
y var byte
z var byte


lcdout $fe,1
lcdout $fe,2

inicio :
adcin 0,x
adcin 1,y
adcin 2,z
pause 500
lcdout $fe,2
lcdout "x",dec3 x," y",dec3 y," z",dec3 z
lcdout $FE, $C0

pulsout portb.0,y
goto inicio

end