Pomiar prądu ADC Atmega

[kulamario]

Witam
Mam mały problem próbuje sobie zmierzyć napięcie i natężenie prądu(Miernik do zasilacza) za pomocą atmegi o ile z napięciem sobie poradziłem to natężenie nie wiem jak zmierzyć szukałem info na necie ale nic co by mi pomogło nie znalazłem może ktoś w prosty sposób by wytłumaczył jak to jest z tym mierzeniem natężenia wiem ze można tez do tego wykorzystać Opamap może ktoś już robił taki projekt i wie co się z czym je i pomoże troszkę

Schemat jaki używam


Tylko R7 mam 0,24 ohm

Dodaje tez listing programu
Może ktoś coś doradzi jak zmierzyć natężenie

Kod: Zaznacz cały

$regfile "m8def.dat"                                        'procesor Atmega8
$crystal = 8000000                                          'taktowanie 8MHz
$baud = 38400

Config Adc = Single , Prescaler = 4 , Reference = Internal       'konfiguracja wewnetrznego przetwornika ADC
Start Adc                                                   'uruchomienie przetwornika ADC


'--------------------DEKLARACJA ZMIENNYCH--------------------------------------'
Dim Wart_ac As Word
Dim V As Single , I As Single , Vv As Single , Ia As Single
Dim Wart_pr As String * 3 , Wart_nap As Word
Dim Wart_str As String * 6 , W As Single
Dim Wart_wat As String * 6

'
'------------------------KONFIGURACJA LCD--------------------------------------'

cls


'upperline

Print "Zasilacz"

'Lowerline

Print "Laboratoryjny"                                        'wyowietlanie ekranu pocz1tkowego

Wait 3

Cls


'------------------------POCZYTEK PETLI GLÓWNEJ--------------------------------'

Do

   Wart_ac = Getadc(0)                                      'pobranie wartooci mierzonego napiecia
   Wart_nap = Getadc(1)                                     'pobranie wartooci mierzonego napiecia do obliczenia pr1du

   V = Wart_nap * 0.0025                                    'unormowaanie zmierzonego napiecia i napiecia do pomiaru pr1du
   Vv = Wart_ac * 0.035

   I = V / 0.24                                              'dzielenie zmierzonego spadku napiecia na rezystorze (prawo Ohma)



         Wart_str = Fusing(vv , "##.&&")
         Wart_pr = Fusing(i , "#.&&")                       'zaokrl1glanie do dwóch miejsc po przecinku wartooci wyowietlanych na LCD

         Home Upper

         print ; Wart_str ; "V" ; Spc(4)

         print ; Wart_pr ; "A" ; Spc(1)                       'wyowietlanie pomierzonych wartooci

            Waitms 100

'----------------------------KONIEC PETLI GLÓWNEJ------------------------------'

Loop
End

[Pikczu]

Wstaw czujnik hala ACS712.

[kulamario]

No w sumie chyba tak zrobie kupiłem właśnie ten moduł

[kaktus]

Ja proponuję byś zainteresował się układem prezentowanym w NE 6/2004 (Nowy Elektronik) strona 4. Dla praktykującego sztukę Bascom AVR będzie to nie lada gradka.
Można też pewno gdzieś zakupić gotowy moduł o oznaczeniu 388-K.

Dla zachęcenia zdradzę tytuł artykułu "Uniwersalny V/A do zasilaczy". Jeszcze szczypta pikanterii - zakres pomiarowy 0-100V i 0-9A.
Artykuł zawiera opis urządzenia kod źródłowy no i oczywiście schemat.

[kaktus]

A jako przyrząd dydaktyczno naukowy polecę pooglądanie układu z NE 05/2006 427-K. Zasilacz stabilizowanego z regulacją elektroniczną.
Bardzo ciekawa konstrukcja ale już bez opublikowanych źródeł.