Bonsoir tout le monde,
Quelqu'un pourrait-il m'indiquer sur quel document technique trouver la séquence complete necessaire a la programmation du PIC (genre de séquence que IC Prog ou WinPIC peut executer) car je veux me faire mon propre programmateur (intéressant du point de vue didactique)
MErci tout le monde !!!
Bonjour,
Il existe un document pour la programmation pour chaque PIC appelé Porgramming specification.
Bien sur cette spécification est semblable pour la plupart des produits d'une famille voir pour plusieurs familles.
Exemple : pour le PIC16F877A tu peux la voir sur cette page :
http://www.microchip.com/stellent/id...ext=PIC16F877A
La specification elle-meme est ici :
http://ww1.microchip.com/downloads/e...Doc/39589b.pdf
Il existe également un document interessant sur l'ICSP (In Circuit System Programming) :
http://ww1.microchip.com/downloads/e...Doc/30277d.pdf
De nombreux projets de programmateurs existent sur internet ou tu pourras trouver des infos
Bon courage
a+
ok pas de problème je suis nouveaux sur Siteduzero j'ai Fai un inscrit car j'ai besoin d'aide et de votre experience et j suis en terminale, je fais mon projet fin d'etude qui consiste de faire un systéme de sécurite dans le treuil de forage je veux calculer le nombre de tours du tombour par seconde et affiché le resultat sur LCD par exemle 1tr.s 2tr.s ... 105tr.s. j'ai considéré de faire deux capteur sur la partie fixe pour calculer le nbre d tour dans la partie mobile et j'ai trouver sa il ne veux pas marché
program xd
dim LCD_RS as sbit at RB0_bit
LCD_EN as sbit at RB1_bit
LCD_D4 as sbit at RB2_bit
LCD_D5 as sbit at RB3_bit
LCD_D6 as sbit at RB4_bit
LCD_D7 as sbit at RB5_bit
LCD_RS_Direction as sbit at TRISB0_bit
LCD_EN_Direction as sbit at TRISB1_bit
LCD_D4_Direction as sbit at TRISB2_bit
LCD_D5_Direction as sbit at TRISB3_bit
LCD_D6_Direction as sbit at TRISB4_bit
LCD_D7_Direction as sbit at TRISB5_bit
dim Char_Tours as string [3]
dim Nb_Tours as byte
dim Nb_Tours_P as byte
dim Compteur as word
dim AB_state as byte
dim A as sbit at RA0_bit
dim B as sbit at RA1_bit
dim AA as sbit at AB_State.0
dim AP as sbit at AB_State.1
dim BA as sbit at AB_State.2
dim BP as sbit at AB_State.3
' End Lcd module connections
dim txt1 as char[8]
txt2 as char[7]
i as byte ' Loop variable
sub procedure Move_Delay() ' Function used for text moving
Delay_ms(500) ' You can change the moving speed here
end sub
main:
ADCON1 = 0x07 ' Configure AN pins as digital I/O
ADCON0 = 0x00
PORTA = 0x00
TrisA=0x00
PORTB = 0xFF
TRISB = 0xFF
txt1 ="NB.Tours:"
txt2 ="NB.Tours:"
Lcd_Init() ' Initialize Lcd
Lcd_Cmd(_LCD_CLEAR) ' Clear display
Lcd_Cmd(_LCD_CURSOR_OFF) ' Cursor off
Lcd_Out(1,1,txt1) ' Write text in first row
Lcd_Out(1,11,Char_Tours) ' Write text in second row
Delay_ms(2000)
while TRUE ' Endless loop
if
AA <> A then
AP=AA
AA=A
end if
if
BA <> B then
BP=BA
BA=B
end if
if ((AP=0) and (BP=0)) then
if ((AA=1) and (BA=0)) then
Compteur = Compteur +1
end if
if ((AA=0) and (BA=1)) then
Compteur = Compteur -1
end if
end if
if ((Ap=1) and (BP=0)) then
if ((AA=1) and (BA=1)) then
Compteur = Compteur +1
end if
if ((AA=0) and (BA=0)) then
Compteur = Compteur -1
end if
end if
if ((Ap=1) and (BP=1)) then
if ((AA=0) and (BA=1)) then
Compteur = Compteur +1
end if
if ((AA=1) and(BA=0)) then
Compteur = Compteur -1
end if
end if
if ((Ap=0) and (BP=1)) then
if ((AA=0) and (BA=0)) then
Compteur = Compteur +1
end if
if ((AA=1) and (BA=1)) then
Compteur = Compteur -1
end if
end if
NB_Tours_P = NB_Tours
NB_Tours = Compteur div 4
if NB_Tours_P <> NB_Tours then
byteToStr ( Nb_Tours , Char_Tours)
Lcd_out (1,11,Char_Tours)
end if
if LimB (PortC 0,1,1) then
AP= 0
end if
if AP and LimB ( portC 1,0,0)then
PORTD = not(PORTD)
AP = 0
end if
wend
end.
