ADC - zawsze 1023

[lukix]

Nie wiedziałem czy umieścić ten temat w dziale dotyczącym programowania czy elektroniki, bo nie wiem gdzie jest błąd.

Dlaczego odczyt z adc zawsze zwraca wartość 1023, niezależnie od tego czy czujniki linii są nad białą kartką, czy nad czarną?

Czujniki to CNY70.

Schemat:

Program:

$regfile = "m8def.dat"
$crystal = 1000000

'Konfiguracja przetwornika analog-cyfra (ADC)
Config Adc = Single , Prescaler = Auto

Config Portd = Output
      Portd = &B00000000
Config Portb = Output
      Portb = &B00000000

Red_led Alias Portd.6
Green_led Alias Portd.7
Reset Red_led
Reset Green_led
Dim W As Word
Dim Czujnik As Word
Do
  Start Adc
  W = Getadc(5)
  W = Getadc(5)
  Stop Adc
  Czujnik = W
  If Czujnik > 341 Then
       Set Green_led
  Else
       Reset Green_led
  End If
  If Czujnik < 682 Then
       Set Red_led
  Else
       Reset Red_led
  End If

Loop

End

Próbowałem też z:

If Czujnik = 1023 Then
       Set Red_led

i czerwona dioda się świeciła.

Gdy mierzyłem "ręcznie" (woltomierzem) to napięcie się zmieniało w zależności od koloru kartki. Sprawdzałem też aparatem diody w czujnikach - świecą.

Myślałem że jest coś źle z zasilaniem przetwornika ADC, ale sprawdziłem i wydaje mi się że jest wszystko ok.

Proszę o pomoc.

[Mihau]

Spróbuj dodać konfigurację portu C jako wejścia.

[lukix]

Nie da się. Przy kompilacji wyskakuje błąd (chyba dlatego że w atmega8 nie ma portu A)

[piotreks-89]

Mihau raczej port C

[lukix]

Dalej nie działa, a do tego diody zaczęły nagle bardzo słabo świecić

[piotrp7]

Może to drobiazg ale nie widzę na schemacie dławika w zasilaniu ADC.

Jeżeli korzystasz z wewnętrznego generatora to ten zapis jest też raczej zbędny

$crystal = 1000000

[Treker (Damian Szymański)]

Jeżeli korzystasz z wewnętrznego generatora to ten zapis jest też raczej zbędny

$crystal = 1000000

Dlaczego miałby być zbędny?

[piotrp7]

Treker, Ponieważ ten zapis informuje compilator jakiego kwarcu używamy a na schemacie kwarcu nie zauważyłem.

[Treker (Damian Szymański)]

piotrp7, wiem co daje ten zapis, ale skąd kompilator ma wiedzieć czy wewnętrzny generator ustawiony jest na 1Mhz czy na przykład na 8Mhz? Taki zapis jest konieczny.

[piotrp7]

Treker, OK Mój błąd

[Robomaniak]

myślę że wywalenie pomiaru z pętli głównej powinno pomóc.

Trzymaj:

$regfile = "m8def.dat"
$crystal = 1000000

'Konfiguracja przetwornika analog-cyfra (ADC)
Config Adc = Single , Prescaler = Auto

Config Portd = Output
      Portd = &B00000000
Config Portb = Output
      Portb = &B00000000

Red_led Alias Portd.6
Green_led Alias Portd.7
Reset Red_led
Reset Green_led
Dim W As Word
Dim Czujnik As Word
Do
  Gosub Pomiar
  If Czujnik > 341 Then
       Set Green_led
  Else
       Reset Green_led
  End If
  If Czujnik < 682 Then
       Set Red_led
  Else
       Reset Red_led
  End If

Loop
End
Pomiar:

  Start Adc
  W = Getadc(5)
  W = Getadc(5)
  Stop Adc
  Czujnik = W
Return

[Treker (Damian Szymański)]

Spróbuj z tym:

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

Nie pamiętam co się w Bascomie działo bez podania parametru Reference.

[lukix]

Robomaniak niestety dalej nie działa

piotrp7 z tego co wiem to brak tego dławika może zmniejszyć dokładność pomiarów, ale bez niego też powinno działać.

__________

Komentarz dodany przez: Treker

[Treker (Damian Szymański)]

Gdzie mierzyłeś to napięcie, na pinach uC? Na pewno zmienia się na nich napięcie? Nie masz żadnego zwarcia?

[lukix]

Tak, na pinach. Napięcie się zmienia. Sprawdzałem jeszcze raz i żadnych zwarć nie widzę