Miernik napięcia i natężenia prądu

[kulamario]

Witam
jako ze juz rady nie daje to zapytam na forum moze ktos pomoze
Mam taki schemat
https://drive.google.com/file/d/1YmVHVr ... sp=sharing
i taki kod

Code: [Zaznacz cały] [Rozwiń/Zwiń]

1. $regfile "m48def.dat"                                        'procesor Atmega8
2. $crystal = 8000000                                          'taktowanie 8MHz
3.  
4. Config Lcd = 16 * 2
5.  
6.  
7. Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , E = Portb.4 , Rs = Portb.5
8. Cursor Off
9.  
10.  
11. Deflcdchar 0 , 2 , 5 , 2 , 32 , 32 , 32 , 32 , 32       ' znak stopnia {008}
12.  
13. Config Adc = Single , Prescaler = auto , Reference = Internal       'konfiguracja wewnetrznego przetwornika ADC
14.  
15. Start Adc                                               'uruchomienie przetwornika ADC
16.  
17.  
18. '--------------------DEKLARACJA ZMIENNYCH--------------------------------------'
19. Dim Wart_dc As Word
20. Dim V As Single , I As Single , Vv As Single , Ia As Single
21. Dim Wart_pr As String * 6 , Wart_nap As Word
22. Dim Wart_str As String * 6 , W As Single
23. Dim Wart_wat As String * 6
24.  
25.  
26. Config 1wire = Portd.4                                      'Global DS18B2 1Wire
27.  
28. Dim Odczyt(2) As Byte
29. Dim Db(2) As Byte
30. Dim T As Integer
31. Dim Ulamek As Integer
32.  
33. dim wat as Dword
34. dim ero1 as Dword
35. dim ser1 as Dword
36.  
37. '
38. '------------------------KONFIGURACJA LCD--------------------------------------'
39. locate 1 , 1
40.  
41. Lcd "  Power Supply  "
42.  
43. locate 2 , 1
44.  
45. Lcd "20V - 2A  v.1.0 "                                        'wyowietlanie ekranu pocz1tkowego
46.  
47. Wait 3
48.  
49. Cls
50.  
51.  
52. '------------------------POCZYTEK PETLI GLÓWNEJ--------------------------------'
53.  
54. Do
55.  
56.    Wart_dc = Getadc(0)                                      'pobranie wartooci mierzonego napiecia
57.    Wart_nap = Getadc(1)                                     'pobranie wartooci mierzonego napiecia do obliczenia pr1du
58.  
59.  
60.  
61.  
62.  
63.  
64.  ' V = Wart_nap * 0.0049                                    'unormowaanie zmierzonego napiecia i napiecia do pomiaru pr1du
65.  ' Vv = Wart_dc * 0.24
66.  
67.  
68.  
69.  
70.    V = Wart_nap * 0.0025                                    'unormowaanie zmierzonego napiecia i napiecia do pomiaru pr1du
71.    Vv = Wart_dc * 0.035
72.  
73.    I = V / 0.6                                        'dzielenie zmierzonego spadku napiecia na rezystorze (prawo Ohma)
74.  
75.  
76.    Wart_str = Fusing(vv , "##.&&")
77.    Wart_pr = Fusing(i , "#.&&")                       'zaokrl1glanie do dwóch miejsc po przecinku wartooci wyowietlanych na LCD
78.  
79.    ero1 = val(wart_str)
80.    ser1 = val(wart_pr)
81.  
82.    wat = ero1 * ser1
83.  
84.    Home Upper
85.  
86.    LCD ; Wart_str ; "V" ; Spc(4)
87.  
88.    LCD ; Wart_pr ; "A" ; Spc(4)                       'wyowietlanie pomierzonych wartooci
89.  
90.    Waitms 100
91.  
92.  
93.  
94.    1wreset
95.    1wwrite &HCC
96.    1wwrite &H44
97.    Waitms 750
98.    1wreset
99.    1wwrite &HCC
100.    1wwrite &HBE
101.    Db(1) = 1wread(2)
102.    T = Makeint(db(1) , Db(2))
103.    T = T * 10
104.    T = T / 16
105.    Ulamek = T Mod 10
106.    T = T / 10
107.  
108.  
109.  
110. '----------------------------KONIEC PETLI GLÓWNEJ------------------------------'
111.  
112.  
113.  
114.    Locate 2 , 1
115.  
116.    'lcd wat
117.  
118.    Lcd "  Temp : " ; T ; "." ; Ulamek ; Chr(0) ; "C            "
119.  
120. Loop
121. End

ale nie daje rady zrobic tego ze by mierzyl mi napiecie mniejsze niz 19.35V przy rzeczywistym 12V
nie wiem jak sobie z tym poradzic czy rezystory sa zle dobrane czy jak
prosil bym o jakas pomoc w tym problemie

[niveasoft]

No jest nieciekawie. Możesz nawet usmażyć procesor.
W Mkavcalkulatorze są darmowe narzedzia, nie trzeba licencji.
Można szybko zerknac na dzielnik napięcia. Zrobiłem trzy symulacje.
Na Rys.1 widać że napięcie groźne nie jest, ale na środkowym położeniu potencjometra masz juz prawie maks zakresu ADC bo 1014.
Kiedy pokrecisz całkowicie w prawo Rys.2 czyli do rezystora 1k to z potencjometra i rezystora wstepnego zrobi się 20K ale to i tak daje Tobie minimalne wskazanie na poziomie 530 działek ADC .
Natomiast Rys3 pokazuje że krecąc w lewo do rezystora 8.2k (tutaj 10k) usmażysz procka bo rezystor 1k zsumuwany z potencjometrem da 11k a wstępny ma 10k i jest lipa.
6,3V może uszkodzić procek.

Moim zdaniem powinieneś w ogóle wywalić ten rezystor 1k. Zostawić rezystor wstępny na 10K a potencjometr powinien mieć 1k. Wtedy chocbyś nie wiem jak krecił to będziesz miał od 1.1V do 0V bo wiesz że Reference Internal ustawia wewnętrzne napięcie odniesienia 1.1V w tej Atmedze.

[kulamario]

elegancko
teraz jest 12v możliwe do ustawienia wymieniłem rezystor nastawny na 1K i wywaliłem ten 1k i dałem zworkę tylko teraz pytanie do ilu mogę mierzyć bo potrzebuje do 35V miernik
i czy obciążenie będzie pokazywać rzeczywisty stan czy w programie jest ok?
teraz na tych rezystorach po podlaczeniu 35V bedzie na wyjsciu 3.18V a nie 1.09V

[niveasoft]

Kolego odpal łaskawie Mkavrcalkulator jak ja. "Mi nie było zgniło" (to po śląsku oznacza, że nie byłem leniwy) dla Ciebie sprawdzić coś trzy razy i nawet przerabiać zrzuty ekranu.
Poświęć teraz chwilę Ty. Wpisz po prawej 35V i Ok, na dole wybierz rezystor 1K (to będzie Twój potencjometr) i OK. Całkiem po lewej wybierz 1,1V i OK. Powinno Tobie obliczyć ten górny rezystor jaki potrzebujesz

Dopiero potem policz jak ma sie ADC do napięcia i gotowe

Jak tak myślę, to jeśli uda się ustawić potencjometr tak żeby przy 12V pokazywał 12V to to oznacza że nic nie musisz liczyć bo przelicznik w programie pasuje do przekładni dzielnika Potem sprawdź na innym napięciu co pokazuje i powinno sie zgadzać.

[kulamario]

dałem 27K i nastawny 1K teraz mogę mierzyć te swoje 30V z zasilacza i w sumie to pokazuje rzetelnie w miarę
teraz zostało tylko liczenie poboru prądu
Rezystor emiterowy dałem 0.1R
niestety ale prądu to on nie liczy dobrze mam żarówkę od auta 21W i zasilam ja 12V pobór powinienem mieć 1.75A a mi pokazuje 0.74A
I = V / 0.10
jak mam to zapisać w tym równaniu ze by mi liczyło dobrze ?

[kulamario]

możesz Bartek coś podpowiedzieć z tym prądem jak to policzyć ?

[Jacek]

Witam policz spadek napięcia na rezystorze.

pozdr. Jacek.

[kulamario]

No właśnie niby tak jak zapisałem wyżej I = V / 0.1ohm
Ale to nie pokazuje dobrze bo po podłączeniu żarówki 21W na 12V powinno być 1.75A A nie 0.77A

[niveasoft]

Sprawdź amperomierzem multimetra ile tam naprawdę leci i potem ustaw w programie przelicznik tak żeby pokazywało tyle ile ma pokazywać.

[kulamario]

1.58A