Chciałem zrobić amperomierz i woltomierz. Próbuje mierzyc prąd pobierany przez cały układ tak jak na rysunku , niestety oba pomiary wskazują tą samą wartość. To samo gdy podłącze je do 2 rożnych nóżek świecącej diody.
Gdy 1 sonda jest podpięta do 5V a druga do potencjometru obie wskazują prawie dobrze ( do 100mV roznicy z miernikiem )
Pomiar prądu chciałem zrealizować jako wynik spadku napięcia na rezystorze dzielonego przez jego rezystancje.
Co robię źle / czego brakuje ?
![[Atmega8] Pomiar różnicy 2 napięć -> prądu . Złe wskazani [Atmega8] Pomiar różnicy 2 napięć -> prądu . Złe wskazani](https://obrazki.elektroda.pl/29_1233834638_thumb.jpg)
Gdy 1 sonda jest podpięta do 5V a druga do potencjometru obie wskazują prawie dobrze ( do 100mV roznicy z miernikiem )
Pomiar prądu chciałem zrealizować jako wynik spadku napięcia na rezystorze dzielonego przez jego rezystancje.
Co robię źle / czego brakuje ?
$regfile = "m8def.DAT"
$crystal = 4000000
Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portd.0 , E = Portc.1 , Rs = Portb.6
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = avcc
Dim Wart_ac As Word
Dim V As Single
Dim Wart_nap As String * 3
Start Adc
Cursor Off
Do
Waitms 200
Cls
Wart_ac = Getadc(0)
Lcd Wart_ac
Locate 1 , 6
V = Wart_ac * 0.004889
Wart_nap = Fusing(v , "#.&&&&")
Lcd Wart_nap
Lowerline
Wart_ac = Getadc(5)
Lcd Wart_ac
Locate 2 , 6
V = Wart_ac * 0.004889
Wart_nap = Fusing(v , "#.&&&&")
Lcd Wart_nap
Loop
End