'****************************************************************
'* Name : Control de Motor Ac con PWM *
'* Author : Mario Labán Martinez *
'* Notice : Copyright (c) 2013 [select VIEW...EDITOR OPTIONS] *
'* : All Rights Reserved *
'* Date : 13/09/2013 *
'* Version : 1.0 *
'* Notes : *
'* : *
'****************************************************************
Define osc 4
Define LOADER_USED 1
include "MODEDEFS.BAS" ' Include Shiftin/out modes
DEFINE LCD_DREG PORTB ;port de Data LCD
DEFINE LCD_DBIT 4 ;datos LCD comenzando en BIT 0 o 4 "estos deven estar consecutivos"
define LCD_EREG PORTA ;cambiamos Enable del portb.3
DEFINE LCD_EBIT 2 ;al portb.2
DEFINE LCD_RSREG PORTA
DEFINE LCD_RSBIT 1
DEFINE CCP1_REG PORTB
DEFINE CCP1_BIT 3
CMCON=7
ANG VAR BYTE
DATO VAR BYTE
X VAR BYTE
'*************************************************
BIENVENIDA:
lcdout $FE,1," BIENVENIDO"
LCDOUT $FE,$C2,"*MARIO LABAN*"
PAUSE 100
GOTO iniciar
'*************************************************
INICIAR:
POT porta.0,255,dato
'ang= 255-DATO
X= DATO*100/255
hpwm 1, DATO, 60
SALTO2:
Lcdout $FE, 1, "VEL. DE MOTOR"
lcdout $FE,$C0, "VELOCIDAD=",DEC X, "%"
PAUSE 100
GOTO INICIAR
