ATNEL tech-forum

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

2019-05-20T18:08:32+01:00

Wstaw fotki na forum zanim admini zaczną się denerwować.

Statystyki: Napisane przez micky — 20 maja 2019, o 18:08

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

2019-05-19T15:04:25+01:00

[syntax=basic4gl]Wart_nap = Getadc(1)

v = Wart_nap
v = v / 1023
v = v * 1.1 ' tu sobie wpisz napięcie odniesienia
v=v * 10 ' v masz teraz wartość w amperach. Bedzie sie to zgadzać jeśli rezystor ma faktycznie 0.1R.[/syntax]

Jeśli nie pomnożysz będziesz miał wynik w mA

Statystyki: Napisane przez grzeniu 73 — 19 maja 2019, o 15:04

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

2019-05-21T01:51:29+01:00

mógł byś mi przerobić kod do procka bardzo bym cie prosił to bym sprawdził twoja teorie może zadziała
co do rezystora tego 5W to wygląda to tak

Statystyki: Napisane przez kulamario — 19 maja 2019, o 11:57

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

2019-05-19T08:37:00+01:00

A sprawdziłeś jakie masz napięcie za rezystorem? Jeśli wszystko masz Ok to przy tym wzorze ,który Ci wyżej napisałem i pomnożeniu przez 10 bodziesz miał wynik w amperach. Przy tak malym rezystorze i dokladnisci jego pewnie ze 20% wyniki mogą byc rożne (napięcie referencyjne najlepiej zmierz woltomierzem ,bo różnią sie trochę ,a przy tak małych napięciach ma to spore znaczenie) . Najlepiej do pomiaru prądu daj wzmacniacz operacyjny i pomnożyć napięcie. Teraz powinieneś mieć tam 0.175 volt,a to dosyć male napięcia i o pomyłkę nie trudno. Żebyś chociaż miał napięcie odniesienia 1.1 v dokładność byłaby duzo większa. Pytka i masa tez maja duzo wspólnego z dokładnością. Za kilka zl można kupić ads1115 i możesz mierzyć napięcie w 4 punktach i dodatkowo masz wzmacniacz juz w środku. Nie wspominając o duzo większej dokładności.

Statystyki: Napisane przez grzeniu 73 — 19 maja 2019, o 08:37

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

2019-05-18T12:28:42+01:00

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.1
jak mam to zapisać w tym równaniu ze by mi liczyło dobrze ?

Statystyki: Napisane przez kulamario — 18 maja 2019, o 12:28

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

2019-05-18T11:53:53+01:00

Zeby sprawdzić ,czy dobrane rezystory sa ok to wez miernik i sprawdź napięcie jakie masz za dzielnikiem. Możesz skorzystać z Mcavrcalkulatora i tam masz w narzędziach kalkulator dzielnikow. Po drugie w poradnikach Mirek podał wzór jak sobie przeliczać ADC na napięcie nie znając wartości rezystorów.
[syntax=basic4gl]Getadc(1) = getadc(1) * 10 ' odczyt ADC x polowa napiecia / przez odczytany wczesniej ADC przy polowie napiecia
napiecie = getadc(1) / 719 ' np: 242 ADC x 6v / 512 ADC[/syntax]

No i na początku sprawdzaj na samym ADC czy tam wogole cos odczytujesz.

A tu gdzie nie masz dzielnika
[syntax=basic4gl]W = Getadc(0)
v = W
v = v / 1023
v = v * 2.56 ' tu sobie wpisz napięcie odniesienia
Locate 1 , 1
S = Fusing(v , "#.##")
Lcd S[/syntax]

Statystyki: Napisane przez grzeniu 73 — 18 maja 2019, o 11:53

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

2019-05-21T01:34:47+01:00

Witam
jako ze juz rady nie daje to zapytam na forum moze ktos pomoze
Mam taki schemat

i taki kod

[syntax=basic4gl]$regfile "m48def.dat" 'procesor Atmega8
$crystal = 8000000 'taktowanie 8MHz

Config Lcd = 16 * 2

Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , E = Portb.4 , Rs = Portb.5
Cursor Off

Deflcdchar 0 , 2 , 5 , 2 , 32 , 32 , 32 , 32 , 32 ' znak stopnia {008}

Config Adc = Single , Prescaler = auto , Reference = Internal 'konfiguracja wewnetrznego przetwornika ADC

Start Adc 'uruchomienie przetwornika ADC

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

Config 1wire = Portd.4 'Global DS18B2 1Wire

Dim Odczyt(2) As Byte
Dim Db(2) As Byte
Dim T As Integer
Dim Ulamek As Integer

dim wat as Dword
dim ero1 as Dword
dim ser1 as Dword

'
'------------------------KONFIGURACJA LCD--------------------------------------'
locate 1 , 1

Lcd " Power Supply "

locate 2 , 1

Lcd "20V - 2A v.1.0 " 'wyowietlanie ekranu pocz1tkowego

Wait 3

Cls

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

Do

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

' V = Wart_nap * 0.0049 'unormowaanie zmierzonego napiecia i napiecia do pomiaru pr1du
' Vv = Wart_dc * 0.24

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

I = V / 0.6 '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

ero1 = val(wart_str)
ser1 = val(wart_pr)

wat = ero1 * ser1

Home Upper

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

LCD ; Wart_pr ; "A" ; Spc(4) 'wyowietlanie pomierzonych wartooci

Waitms 100

1wreset
1wwrite &HCC
1wwrite &H44
Waitms 750
1wreset
1wwrite &HCC
1wwrite &HBE
Db(1) = 1wread(2)
T = Makeint(db(1) , Db(2))
T = T * 10
T = T / 16
Ulamek = T Mod 10
T = T / 10

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

Locate 2 , 1

'lcd wat

Lcd " Temp : " ; T ; "." ; Ulamek ; Chr(0) ; "C "

Loop
End[/syntax]

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

Statystyki: Napisane przez kulamario — 17 maja 2019, o 15:11