UART příjem
Moderátor: Moderátoři
- forbidden
- Příspěvky: 9442
- Registrován: 14 úno 2005, 00:00
- Bydliště: Brno (JN89GF)
- Kontaktovat uživatele:
Zaprvé, hoď do Googlu "škola programování PIC" a vyjede na tebe spousty stránek, nicméně hned první na pandatronu je docela zajímavej seriál pro začátečníky, obdobně zpracovanej je i na 8bitu (kousek dole).
Zadruhé skoukni toto vlákno, odkazů je tam spousty.
Zatřetí, začni s angličtinou.
Kód: Vybrat vše
LIST P=16F630, R=DEC
INCLUDE<P16F630.INC>
__CONFIG _PWRTE_ON & _WDT_OFF & _MCLRE_OFF & _INTRC_OSC_NOCLKOUT
#DEFINE TLAC PORTA,0 ; Poznamky se pisi
#DEFINE LED PORTA,1 ; za stredniky !!!
#DEFINE LED2 PORTA,2 ; za stredniky !!!
CISLO equ 20h ; prirazeni nazvu registrum
CISLOA equ 21h
MOVLW B'00000111' ; typ komparatoru (off)
MOVWF CMCON
BSF STATUS,RP0
MOVLW B'00000001'
MOVWF TRISA
BCF STATUS,RP0
MOVLW 00000000
MOVWF PORTA
RE BTFSC TLAC
GOTO RE
START CALL BLIKA
CALL BLIKA
CALL BLIKA
CALL BLIKA
CALL BLIKB
CALL BLIKB
CALL BLIKB
GOTO START
BLIKA MOVLW 00000000
MOVWF PORTA
CALL CEKEJ
MOVLW 00000010
MOVWF PORTA
CALL CEKEJ
MOVLW 00000110
MOVWF PORTA
CALL CEKEJ
MOVLW 00000100
MOVWF PORTA
CALL CEKEJ
RETURN
BLIKB MOVLW 00000000
MOVWF PORTA
CALL CEKEJ
MOVLW 00000110
MOVWF PORTA
CALL CEKEJ
MOVLW 00000000
MOVWF PORTA
CALL CEKEJ
MOVLW 00000110
MOVWF PORTA
CALL CEKEJ
RETURN
CEKEJ CLRF CISLO ; podprogram CEKEJ
MOVLW 0 ; zmenou tohoto cisla muzete zmenit rychlost
MOVWF CISLOA
CEKEJ2 INCFSZ CISLO,1
GOTO CEKEJ2
DECFSZ CISLOA,1
GOTO CEKEJ2
RETURN
ENDkdyž se přeruší laser na 5 sekund (nwm proč ale je to tak) tak se zapne blikač
to je asi všechno co umím