INA226 czy ktoś z Was ma działający kod w Bascom avr?

Michał6201 · Post autor: **Michał6201** » 29 maja 2026, 21:40

Cieszę się bardzo

Ciekaw jestem w jaki sposób można usunąć wskazanie dużego poboru prądu pomimo odłączonego odbiornika, gdzie jednocześnie pomiar napięcia multimetrem na boczniku wskazuje 0,000mOhm.
Moim zdaniem problem lezy po stronie sprzętowej tego scalaka.

niveasoft · Post autor: **niveasoft** » 08 cze 2026, 21:35

Zaczynam zawsze od niskopoziomowych funkcji. Tu ważne jest żeby on mi czytał i zapisywał w prawidłowej kolejności bo jak masz zamienione bajty to nigdy do ładu z tym nie dojdziesz.
Tak więc mam odczyt parametrów POR (Power-on Reset state) i jak widac zgadza mi sie to z notą.
Ta funkcja która zapisuje rejestry konfiguracyjne tez działa bo ją sprawdzałem. Zapisałem sobie na przykład "&B0000_1111_1111_0000" do jakiegos rejestru i to mi sie też zgadza.

Teraz mozna sie bawić dalej...

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

$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack = 64
$swstack = 32
$framesize=128
$baud = 38400
Debug On
Config Submode = New
$lib "i2c_twi.lbx"
Config Scl = Portcc.5
Config Sda = Portc.4
Config Twi = 100000
I2cinit
Dim Helpb As Byte , Testaddr As Byte , Slave As Byte
Dim Regword As Word
Dim Regbuff(2) As Byte At Regword Overlay
Sub Read_reg(byval Addr As Byte)
Regbuff(1) = Addr
I2creceive Slave , Regbuff(1) , 1 , 2
Swap Regword
Debug "Reg &H" ; Hex(addr) ; " is " ; Bin(regword)
End Sub
Sub Write_reg(byval Addr As Byte)
Debug "Writing value " ; Bin(regword) ; " at addr &H" ; Hex(addr)
I2cstart
I2cwbyte Slave
I2cwbyte Addr
I2cwbyte Regbuff(2)
I2cwbyte Regbuff(1)
I2cstop
Waitms 100
End Sub
Debug "{013}{010}Debug started"
For Testaddr = 0 To 254 Step 2
I2cstart
I2cwbyte Testaddr
If Err = 0 And Testaddr <> 0 Then
I2cstop
Slave = Testaddr
Debug "Slave found at &H" ; Hex(slave)
Exit For
End If
I2cstop
Next
If Slave = 0 Then
Debug "End scan but no device found"
Do : Loop
End If
'read POR values
Read_reg &H0
Read_reg &H5
Read_reg &HFE
Read_reg &HFF
Debug "" 'space
End

niveasoft · Post autor: **niveasoft** » 08 cze 2026, 23:43

Łap. Działa.
Oryginalnie był tam rezystor 0.1R Przypominam, że to jest opisane iż z takim rezystorem mozesz mierzyć do 0.8A
Znalazłem w szufladzie taki ceramiczny 0.1R i go dolutowałem więc teraz mam 0.05R

Nie ma sensu się bawić i wyliczać ten rejestr konfiguracyjny bo na końcu wszyscy i tak go dopieszczają czy faktycznie kalibrują.
Dodałem więc możliwość kalibracji bezpośrednio z terminala komputera. Wpisujesz sobie "CALIB=2050" + CRLF i patrzysz co tam wypluje.
Może uda mi się załączyć filmik. Chodzi o to że mój program pokazuje zarówno przeliczony amperaż jak i odczytany rejestr.
Na filmie widać że mierzy elegancko, ale.... do 1,6A i to chyba nie dziwi bo rezystor jest po prostu o połowę mniejszy.
Widać jak wszystkie bity rejestru są już ustawione na 1 więc nie ma cudów żeby z tym rezystorem pokazał więcej.

Zamontujesz sobie jaki będziesz chciał i skalibrujesz a potem to przeniesiesz do swojego programu i gotowe.

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

$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack = 64
$swstack = 32
$framesize=128
$baud = 38400
Debug On
Config Submode = New
Const _valcheck = 1
Const Bus_voltage_reg = &H02 'read only
Const Current_reg = &H04 'read only
Config Serialin = Buffered , Size = 20
Dim Command As String * 20 , Znak As Byte
Dim Command_timeout As Byte , Got_str As Byte
Config Timer2 = Timer , Prescale = 1024 , Clear_timer = 1
Compare2a = 155 '10ms @16MHz/1024
$lib "i2c_twi.lbx"
Config Scl = Portc.5
Config Sda = Portc.4
Config Twi = 100000
I2cinit
Dim Helpstr As String * 20 , Helpw As Word
Dim Helpb As Byte , Testaddr As Byte , Slave As Byte
Dim Regword As Word
Dim Regbuff(2) As Byte At Regword Overlay
Dim Miliseconds As Word
Dim Mysingle As Single
Sub Read_reg(byval Addr As Byte)
Regbuff(1) = Addr
I2creceive Slave , Regbuff(1) , 1 , 2
Swap Regword
Debug "Reg &H" ; Hex(addr) ; " is " ; Bin(regword)
End Sub
Sub Write_reg(byval Addr As Byte)
Debug "Writing value " ; Bin(regword) ; " at addr &H" ; Hex(addr)
I2cstart
I2cwbyte Slave
I2cwbyte Addr
I2cwbyte Regbuff(2)
I2cwbyte Regbuff(1)
I2cstop
Waitms 100
End Sub
Debug "{013}{010}Debug started"
For Testaddr = 0 To 254 Step 2
I2cstart
I2cwbyte Testaddr
If Err = 0 And Testaddr <> 0 Then
I2cstop
Slave = Testaddr
Debug "Slave found at &H" ; Hex(slave)
Exit For
End If
I2cstop
Next
If Slave = 0 Then
Debug "End scan but no device found"
Do : Loop
End If
'read POR values
Read_reg &H00
Read_reg &H05
Read_reg &HFE
Read_reg &HFF
Debug "" 'space
Enable Interrupts
Do
If Tifr2.ocf2a = 1 Then '10ms
Tifr2.ocf2a = 1
If Ischarwaiting() > 0 Then 'jeśli w buforze czeka znak
Znak = Inkey()
Select Case Znak
Case 10 'zignoruj
Case 13 : Got_str = 1 'nadszedł Enter więc sprawdź komendę
Case Else
Command = Command + Chr(znak) 'jeśli to nie ENTER ani LF to dodaj do stringa
End Select
If Len(command) > 19 Then Got_str = 1 'zabezpieczenie by nie przepełnić zmiennej
If Got_str = 1 Then
Helpb = Instr(command , "CALIB=")
If Helpb > 0 Then
Helpb = Helpb + 6
Helpstr = Mid(command , Helpb)
Helpw = Val(helpstr)
If Err = 0 Then
Debug "New calib value " ; Helpw
Regword = Helpw
Write_reg 5
End If
End If
Command = ""
Got_str = 0
Else
Command_timeout = 30
End If
End If
If Command_timeout > 0 Then
Decr Command_timeout
If Command_timeout = 0 Then Command = ""
End If
If Miliseconds < 99 Then
Incr Miliseconds
Else
Miliseconds = 0
Read_reg Current_reg
Mysingle = Regword * 0.00005
Debug Fusing(mysingle , "#.##") ; " A"
End If
End If
Loop
End

Michał6201 · Post autor: **Michał6201** » 09 cze 2026, 0:13

Bardzo Ci dziękuję, jutro od razu zabieram się za testowanie tego kodu.
I jak nie masz podłączonego żadnego obciążenia, to pokazuje prąd 0,0A?
Bo na tym moim programie poprawnie mierzył pobór prądu, ale pokazywał głupoty jak odłączyłem obciążenie.
U siebie dałem rezystor 0,01R (10mOhm) ale to nie problem.

niveasoft · Post autor: **niveasoft** » 09 cze 2026, 0:25

No coś tam chyba na początku pokazywał ale to musi wynikać z tego że to jest pomiar różnicowy. Wystarczy chyba albo podać jakieś napięcie z góry jak w nocie albo masę z dołu i to sie potrafiło uspokoić i pokazywało 0.0A

10mR to chyba do 8A pociągnie

Nie dotykałem tego rejestru konfiguracyjnego bo tam w nocie doczytałem że on jest doś tak ustawiony podstawowo. Tea czasy wszystko tak samo. jedyne co było w Twoim kodzie to uśrednianie x16 a domyślnie jest x1 czyli wyłączone.

Michał6201 · Post autor: **Michał6201** » 09 cze 2026, 20:52

Niestety nie działa kod.
Na wyświetlaczu pokazuje 3,27A zarówno z obciążeniem jak i bez. I nie odświeża się ten błędny wynik.

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

$regfile = "m644pdef.dat"
$crystal = 11059200
$hwstack = 64
$swstack = 32
$framesize=128
$baud = 38400
' KONFIGURACJA WYŚWIETLACZA LCD 2 X 16
Config Lcdpin = Pin , Rs = Porta.0 , E = Porta.1 , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5
Config Lcd = 16x2
Cursor Off
CLS
Debug On
Config Submode = New
Const _valcheck = 1
Const Bus_voltage_reg = &H02 'read only
Const Current_reg = &H04 'read only
Config Serialin = Buffered , Size = 20
Dim Command As String * 20 , Znak As Byte
Dim Command_timeout As Byte , Got_str As Byte
Config Timer2 = Timer , Prescale = 1024 , Clear_timer = 1
Compare2a = 155 '10ms @16MHz/1024
$lib "i2c_twi.lbx" ' Konfiguracja I2C
Config Scl = Portc.0
Config Sda = Portc.1
I2cinit
Config Twi = 100000
Dim Helpstr As String * 20 , Helpw As Word
Dim Helpb As Byte , Testaddr As Byte , Slave As Byte
Dim Regword As Word
Dim Regbuff(2) As Byte At Regword Overlay
Dim Miliseconds As Word
Dim Mysingle As Single
Sub Read_reg(byval Addr As Byte)
Regbuff(1) = Addr
I2creceive Slave , Regbuff(1) , 1 , 2
Swap Regword
Debug "Reg &H" ; Hex(addr) ; " is " ; Bin(regword)
End Sub
Sub Write_reg(byval Addr As Byte)
Debug "Writing value " ; Bin(regword) ; " at addr &H" ; Hex(addr)
I2cstart
I2cwbyte Slave
I2cwbyte Addr
I2cwbyte Regbuff(2)
I2cwbyte Regbuff(1)
I2cstop
Waitms 100
End Sub
Debug "{013}{010}Debug started"
For Testaddr = 0 To 254 Step 2
I2cstart
I2cwbyte Testaddr
If Err = 0 And Testaddr <> 0 Then
I2cstop
Slave = Testaddr
Debug "Slave found at &H" ; Hex(slave)
Exit For
End If
I2cstop
Next
If Slave = 0 Then
Debug "End scan but no device found"
Do : Loop
End If
'read POR values
Read_reg &H00
Read_reg &H05
Read_reg &HFE
Read_reg &HFF
Debug "" 'space
Enable Interrupts
Dim Voltage As String * 10
' Dim Current As String * 10
Do
If Tifr2.ocf2a = 1 Then '10ms
Tifr2.ocf2a = 1
If Ischarwaiting() > 0 Then 'jeśli w buforze czeka znak
Znak = Inkey()
Select Case Znak
Case 10 'zignoruj
Case 13 : Got_str = 1 'nadszedł Enter więc sprawdź komendę
Case Else
Command = Command + Chr(znak) 'jeśli to nie ENTER ani LF to dodaj do stringa
End Select
If Len(command) > 19 Then Got_str = 1 'zabezpieczenie by nie przepełnić zmiennej
If Got_str = 1 Then
Helpb = Instr(command , "CALIB=")
If Helpb > 0 Then
Helpb = Helpb + 6
Helpstr = Mid(command , Helpb)
Helpw = Val(helpstr)
If Err = 0 Then
Debug "New calib value " ; Helpw
Regword = Helpw
Write_reg 5
End If
End If
Command = ""
Got_str = 0
Else
Command_timeout = 30
End If
End If
If Command_timeout > 0 Then
Decr Command_timeout
If Command_timeout = 0 Then Command = ""
End If
If Miliseconds < 99 Then
Incr Miliseconds
Else
Miliseconds = 0
Read_reg Current_reg
Mysingle = Regword * 0.00005
Debug Fusing(mysingle , "#.##") ; " A"
End If
End If
'-------------- WYŚWIETLENIE NA LCD
Locate 2 , 1
Lcd "I=" ; mysingle ; "A"
Loop
end

niveasoft · Post autor: **niveasoft** » 09 cze 2026, 20:55

Kolego nie rób sobie żartów. Dodałeś zmienną I dla wyświetlacza? A gdzie jej deklaracja?

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

'-------------- WYŚWIETLENIE NA LCD
Current = Fusing(mysingle , "&&.&&&")
Locate 2 , 1
Lcd "I=" ; Current ; "A"

Michał6201 · Post autor: **Michał6201** » 09 cze 2026, 21:01

Znalazłem już to z Fusing.

Ten kod działa od Ciebie, ale po odłączeniu zasilania +12V i pozostawienie obciążenia podłączonego do masy powoduje wyświetlanie 3,27A Co jest błędem.
Czyli to samo się robi co na tym moim badziewnym programie.
Niestety ten układ nie nadaje się do użytku

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

$regfile = "m644pdef.dat"
$crystal = 11059200
$hwstack = 64
$swstack = 32
$framesize=128
$baud = 38400
' KONFIGURACJA WYŚWIETLACZA LCD 2 X 16
Config Lcdpin = Pin , Rs = Porta.0 , E = Porta.1 , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5
Config Lcd = 16x2
Cursor Off
CLS
Debug On
Config Submode = New
Const _valcheck = 1
Const Bus_voltage_reg = &H02 'read only
Const Current_reg = &H04 'read only
Config Serialin = Buffered , Size = 20
Dim Command As String * 20 , Znak As Byte
Dim Command_timeout As Byte , Got_str As Byte
Config Timer2 = Timer , Prescale = 1024 , Clear_timer = 1
Compare2a = 155 '10ms @16MHz/1024
$lib "i2c_twi.lbx" ' Konfiguracja I2C
Config Scl = Portc.0
Config Sda = Portc.1
I2cinit
Config Twi = 100000
Dim Helpstr As String * 20 , Helpw As Word
Dim Helpb As Byte , Testaddr As Byte , Slave As Byte
Dim Regword As Word
Dim Regbuff(2) As Byte At Regword Overlay
Dim Miliseconds As Word
Dim Mysingle As Single
Sub Read_reg(byval Addr As Byte)
Regbuff(1) = Addr
I2creceive Slave , Regbuff(1) , 1 , 2
Swap Regword
Debug "Reg &H" ; Hex(addr) ; " is " ; Bin(regword)
End Sub
Sub Write_reg(byval Addr As Byte)
Debug "Writing value " ; Bin(regword) ; " at addr &H" ; Hex(addr)
I2cstart
I2cwbyte Slave
I2cwbyte Addr
I2cwbyte Regbuff(2)
I2cwbyte Regbuff(1)
I2cstop
Waitms 100
End Sub
Debug "{013}{010}Debug started"
For Testaddr = 0 To 254 Step 2
I2cstart
I2cwbyte Testaddr
If Err = 0 And Testaddr <> 0 Then
I2cstop
Slave = Testaddr
Debug "Slave found at &H" ; Hex(slave)
Exit For
End If
I2cstop
Next
If Slave = 0 Then
Debug "End scan but no device found"
Do : Loop
End If
'read POR values
Read_reg &H00
Read_reg &H05
Read_reg &HFE
Read_reg &HFF
Debug "" 'space
Enable Interrupts
Dim Voltage As String * 10
' Dim Current As String * 10
Do
If Tifr2.ocf2a = 1 Then '10ms
Tifr2.ocf2a = 1
If Ischarwaiting() > 0 Then 'jeśli w buforze czeka znak
Znak = Inkey()
Select Case Znak
Case 10 'zignoruj
Case 13 : Got_str = 1 'nadszedł Enter więc sprawdź komendę
Case Else
Command = Command + Chr(znak) 'jeśli to nie ENTER ani LF to dodaj do stringa
End Select
If Len(command) > 19 Then Got_str = 1 'zabezpieczenie by nie przepełnić zmiennej
If Got_str = 1 Then
Helpb = Instr(command , "CALIB=")
If Helpb > 0 Then
Helpb = Helpb + 6
Helpstr = Mid(command , Helpb)
Helpw = Val(helpstr)
If Err = 0 Then
Debug "New calib value " ; Helpw
Regword = Helpw
Write_reg 5
End If
End If
Command = ""
Got_str = 0
Else
Command_timeout = 30
End If
End If
If Command_timeout > 0 Then
Decr Command_timeout
If Command_timeout = 0 Then Command = ""
End If
If Miliseconds < 99 Then
Incr Miliseconds
Else
Miliseconds = 0
Read_reg Current_reg
Mysingle = Regword * 0.00005
Debug Fusing(mysingle , "#.##") ; " A"
End If
End If
'-------------- WYŚWIETLENIE NA LCD
Locate 2 , 1
Lcd "I=" ; mysingle ; "A"
Loop
end

niveasoft · Post autor: **niveasoft** » 09 cze 2026, 21:08

Ten kawałek z mojego poprzedniego postu wstaw po ludzku pod tę linie gdzie ja wyświetlam Debug Fusing(mysingle... bo Ty to teraz wyświetlasz w pętli z pełną prędkościa procesora a ja tylko co sekundę...

Do tego to trzeba przecież skalibrować. Uzywasz tego terminala?
Napisz gdzieś przed pętlą główną

Regword = 2050 : Write_reg 5

BTW. Co Ci szkodzi w programie odczytywać też napięcie i zrobić tak że jeśli napięcie = 0 to prad = 0

Michał6201 · Post autor: **Michał6201** » 09 cze 2026, 21:57

Przeprasza, ale dzisiaj chyba nie myślę w ogóle.

Można i tak zrobić jak mówisz, że jak napięcie = 0 to prąd też = 0.
Z założenie od samego początku nie oczekiwałem cudów od tego scalaka bo i cudów żadnych miał nie robić, a później jak się okazało to się tylko naciąłem niepotrzebnie, bo mogłem dołożyć kilka elementów więcej i zrobić pomiar przy użyciu opampa i ASD1110. Ale nie chciałem używać armaty do muchy.
Ten scalak ma mierzyć pobór prądu w samochodzie przez ledy w dziennych i w razie spadku poboru prądu (spalenie chińskich ledów) to powiadomi sterownik o tym i przynajmniej mandatu nie będzie.
Zmierzyłem miernikiem i ledy pobierają około 720mA przy 12V. Na płytce docelowej dałem rezystor pomiarowy 10mOhm, bo takie miałem w domu. A co do wartości rezystora pomiarowego, to w którym miejscu w kodzie ustaliłeś wartość tego rezystora?

A co to masz za terminal? Bo ja to mam tylko Putty. A chętnie podłączę i zobaczę jak to działa.

Edit.

Działa komunikacja poprzez FR232RL.
Wysyła na terminal putty Wartość prądu i wartość rejestru.

Wpisać z klawiatury CALIB=2050 nie jestem w stanie fizycznie ani na Putty ani Teraterm bo zdążę wpisać zaledwie dwa - trzy znaki i wyskakuje kolejna linijka z danymi z procka i po moim pisaniu.

INA226 czy ktoś z Was ma działający kod w Bascom avr?

Re: INA226 czy ktoś z Was ma działający kod w Bascom avr?

Re: INA226 czy ktoś z Was ma działający kod w Bascom avr?

Re: INA226 czy ktoś z Was ma działający kod w Bascom avr?

Re: INA226 czy ktoś z Was ma działający kod w Bascom avr?

Re: INA226 czy ktoś z Was ma działający kod w Bascom avr?

Re: INA226 czy ktoś z Was ma działający kod w Bascom avr?

Re: INA226 czy ktoś z Was ma działający kod w Bascom avr?

Re: INA226 czy ktoś z Was ma działający kod w Bascom avr?

Re: INA226 czy ktoś z Was ma działający kod w Bascom avr?

Re: INA226 czy ktoś z Was ma działający kod w Bascom avr?