freqence et conversion analogique sur pic

[alainav1]

Bonjour,
j'utilise un pic sous 4MHZ pour réaliser une conversion analogique .
La datasheet propose de configuter le pic (registre ANSEL ) avec une fréquence mini de f/8 .
sous ses conditions je récupère la valeur de la tension analogique sous forme d'une valeur comprise ente 0 et 255 ( pour 0 à 5V).
cela génère bien des créneaux avec une valeur haute proportionelle à la tension mesuré mais je ne comprend pas que la féquence pour compter de 0 à 255 soit de 40HZ ? (le pic réduis la préquence à 1MHZ et F/8 la reduit à 125kHZ ? on est loin des 40hZ )

(ci dessous le code qui génere la sortie )
compt est un registre qui compte de 0 à 255 puis repasse à 0
result est le valeur de la conversion
label:
compt = compt + 1
If compt < result Then
sortie = 1
Else
sortie = 0
Endif
Goto label

avez vous une explication ?
Cordialement
Alian
-----

[invite03481543]

Salut,

quel µC utilises-tu?

Qu'entends-tu par créneaux générés, où as-tu ces créneaux?

[alainav1]

bonjour,
j'utilise un 12F675
je lis la sortie sur un oscillo
(ce qui m'a permi de mesurer la fréquence émise sur la sortie
(1=5V à 0V je visualise ces "creneaux " sur l'oscillo
cordialement
Alain

[invite03481543]

Il faudrait que tu postes l'ensemble de ton programme, pour voir notamment comment est déclaré l'oscillateur.

[A voir en vidéo sur Futura]

[alainav1]

voici le code
Define CONF_WORD = 0x31a5

CMCON = %00000000
ANSEL = %000100001
ADCON0 = %00000001
TRISIO = %00111101
Symbol sortie = GPIO.1
Symbol entre = GPIO.0
Dim result As Byte
Dim compt As Byte
Dim t As Byte
result = 62
compt = 0


label:
ADCON0.ANS0 = 1 'conversion
Adcin 0, result 'resultat de la conversion dans result
For t = 1 To 255
compt = compt + 1
If compt < result Then
sortie = 1
Else
sortie = 0
Endif
If compt > 5 Then
compt = 0
Endif
Next t
Goto label
End


cordialement
Alain