bueno aqui les pongo una pequeña ayuda o introduccion a los pic para todo aquellos que como yo no iniciamos en esto del pic este es un programa muy socorrido para iniciar programacion en pics el primer programa es en mplab el segundo es en pic-c y el tercero es en pic basic pro este programa hace lo mismo ya sea en cualquiera de los programas que lo compilen segun creo yo la gran mayoria hizo este como su primer programa:
;este es un programa muy didactico es el de prender y apagar un led
; AUTOR: Rubén_burrito
#INCLUDE "P18F452.INC"
CONT1 EQU 00H
CONT2 EQU 01H
CONT3 EQU 02H
;......VECTOR DE PROGRAMA....
ORG 0000H
GOTO INICIO
;......PROGRAMA PRINCIPAL....
INICIO CALL CONFIG_CPU
OTRA BSF PORTB,7,0
CALL RETARDO
BCF PORTB,7,0
CALL RETARDO
GOTO OTRA
;........SUBRUTINA DE RETARDO.....
RETARDO MOVLW 0FH
MOVWF CONT1,0
T1 CALL DELAY
DECFSZ CONT1,1,0
GOTO T1
RETURN
;.........SUBRUTINA DE DELAY........
DELAY MOVLW 0FFH
MOVWF CONT2,0
P2 MOVLW 0FFH
MOVWF CONT3,0
P1 DECFSZ CONT3,1,0
GOTO P1
DECFSZ CONT2,1,0
GOTO P2
RETURN
;........SUBRUTINA DE CONF PUERTOS...
CONFIG_CPU CLRF TRISA,0
CLRF TRISB,0
CLRF TRISC,0
CLRF TRISD,0
CLRF TRISE,0
RETURN
END
- - - - - - - - - - - - - - - - - - - - - - - -- - - - - - - - - - - - - - - - - - ---------
#use delay (clock=4000000)
//AUTOR: Rubén_burrito
void main() {
setup_adc_ports(NO_ANALOGS);
setup_adc(ADC_CLOCK_DIV_2);
setup_psp(PSP_DISABLED);
setup_spi(FALSE);
setup_wdt(WDT_OFF);
setup_timer_0(RTCC_INTERNAL);
setup_timer_1(T1_DISABLED);
setup_timer_2(T2_DISABLED,0,1);
setup_timer_3(T3_DISABLED|T3_DIV_BY_1);
//PROGRAMA DIDACTTICO DE ENSENDER Y APAGAR UN LED////////
OTRA:
OUTPUT_HIGH (PIN_D2);
DELAY_MS(2000);
OUTPUT_LOW (PIN_D2);
DELAY_MS(2000);
GOTO OTRA;
}
-------------------------------------------------------------------------------------
" EJEMPLO DE COMO PRENDE UN LED EN EL PORTB.0 EN PIC BASIC
loop: High 0 " PRENDE EL LED DEL PORTB.0
Pause 500 " DELAY DE .5 SEGUNDOS
Low 0 " APAGA EL LED DEL PORTB.0
Pause 500 " DELAY DE .5 seconds
Goto loop " SE REGRESA AL LOOP O CICLO Y ASI SIGUE
" HACIENDO POR SIEMPRE
End
-------------------------------------------------------------------------------------espero que esto les ayude a empezar por algo.
