Bascom : getADC 10 bits => 8 bits

[qwintine]

Bonjour, j'ai un petit problème pour lire un tension analogique sur un ADC 10 bit d'un atmega 48 j'aimerais lire la tension suivante :




Le programme réaliser est le suivant :

$regfile = "M48def.dat"                                     ' défini le type de processeur
$crystal = 8000000                                          ' a quelle vitesse il tourne ici 8Mhz
$hwstack = 32                                               ' réserve 32 bytes pour un stack, interruptions
$swstack = 32                                               ' 32 bytes de stack pour les appels de fonctions
$framesize = 32                                             '32                                             ' 32 bytes de heap pour les variables locales
$baud = 9600                                                ' uniquement si on utilise le port série


' Le portd c est configuré pour des sorties

Config Portc = Output

' saut pc 5 qui est entrée (Boutons)
Config Pinc.5 = Input


Config Adc = Single , Prescaler = Auto , Reference = Internal

Dim W As Word


Led Verte Alias Portc.0
Led Bleue Alias Portc.1
Led Rouge Alias Portc.2


Start Adc

      '  5V = 1024
     ' 1 unité = 4,88 mV

Do


'Lecture De La Valeur Du Potemtiomètre Sur Adc5

W = Getadc(5)

Shift W , Right , 2


If W < 0 And W < 300 Then                                   ' pont diviseur pour 1V
Set Led Rouge
Reset Led Bleue
Reset Led Verte
End If


If W > 300 And W < 700 Then
Reset Led Rouge                                             'pont diviseur pour 2,5 V
Set Led Bleue
Reset Led Verte
End If


If W > 700 And W < 1024 Then                                'pont diviseur pour 3,8 V
Reset Led Rouge
Reset Led Bleue
Set Led Verte
End If


Loop
End

J'ai un doute pour la conversion de 10 bit en 8 bit. Est ce bien comme ça ?
Qu'est ce qui pourrait causer problème ?


Merci
-----

[vincent66]

Bonsoir !
Le shift w right, 2 est correct, w n'est alors plus qu'une valeur 8 bits, il faudrait peut-être faire un w=w and H00FF pour que ça soit plus propre...
Alors pourquoi par la suite faire des comparaisons avec des valeurs 10 bits comprises entre 0 et 1024..!
Et au passage bizarre non la comparaison if w<o and w<300 , non..?!

[qwintine]

Oui juste, je suis repasser e valeur de 0 à 256 (8bits) mais ça ne fonctionne toujours pas. Je dois le placer ou le w=w and H00FF

W = Getadc(5)

Shift W , Right , 2


If W > 0 And W < 75 Then                                    ' pont diviseur pour 1V
Set Led Rouge
Reset Led Bleue
Reset Led Verte                                             'End If
End If


If W > 75 And W < 175 Then
Reset Led Rouge                                             'pont diviseur pour 2,5 V
Set Led Bleue
Reset Led Verte
End If



If W > 175 And W < 255 Then                                 'pont diviseur pour 3,8 V
Reset Led Rouge
Reset Led Bleue
Set Led Verte
End If

Merci

[vincent66]

Juste après le sift right, ça met les 8msb à 0 et garde tes 8lsb intacts, mais je ne suis pas sur du format H00FF pour spécifier de l'hexadécimal...
Vincent

[A voir en vidéo sur Futura]

[qwintine]

Ce format ne fonctionne pas.
Quelqu'un peut il me dire pourquoi ma lecture adc ne fonctionne elle pas ? Les 3 tensions différentes (1, 2.5 et 3.8 V) arrivent bien à la pin 28 de mon atmega48.

Merci d'avance

[ftorama]

Tu configures ton port C en sortie (comprendre sortie numérique) alors que c'est le port utilisé par l'ADC, on a droit à un joli conflit là.

Edit: je viens de voir la ligne dessous...mais ça ne serait pas plutôt ANALOG ou un truc dans le genre?

[qwintine]

problème résolu :

Config Adc = Single , Prescaler = Auto , Reference = Avcc

Et non reference = internal.

Merci