Witam.
Mam dwa woltomierze ,jeden na atmega32 i mierzy dokładnie.
Złożyłem drugi układ na atmedze8 i mam ciągle 1,8V na wyświetlaczu bez podłaczonego napięcia do portu ADC.
Dziwne bo mam ten sam kod/schemat co z atmega32.
Mam dwa woltomierze ,jeden na atmega32 i mierzy dokładnie.
Złożyłem drugi układ na atmedze8 i mam ciągle 1,8V na wyświetlaczu bez podłaczonego napięcia do portu ADC.
Dziwne bo mam ten sam kod/schemat co z atmega32.
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0 ,
Deflcdchar 0 , 21 , 14 , 14 , 31 , 31 , 14 , 14 , 21 ' replace ? with number (0-7)
Config Pind.0 = Output 'dioda
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dioda Alias Portd.0
Dim I As Byte
Dim Wart_ac As Word
Dim Wart_acpomoc As Word
Dim V As Single
Dim Wart_nap As String * 3
Dim Wart_ac1 As Word
Dim Wart_acpomoc1 As Word
Dim V1 As Single
Dim Wart_nap1 As String * 3
Start Adc
Cursor Off Noblink
Do
Cls
Toggle Dioda
Wart_acpomoc = 0
Wart_acpomoc1 = 0
Wart_ac = 0
Wart_ac1 = 0
For I = 1 To 100
Wart_acpomoc = Getadc(2)
Wart_ac = Wart_ac + Wart_acpomoc
Wart_acpomoc1 = Getadc(3)
Wart_ac1 = Wart_ac1 + Wart_acpomoc1
Next
Wart_ac = Wart_ac / 100
V = Wart_ac * 0.0049
V = V * 5.86 'dla dzielnika
Wart_nap = Fusing(v , "#.&&")
Locate 1 , 1
Lcd "Akus " ; Wart_nap
Wart_ac1 = Wart_ac1 / 100
V1 = Wart_ac1 * 0.0049
Wart_nap1 = Fusing(v , "#.&&")
Locate 2 , 1
Lcd "Sonda " ; Wart_nap1
Waitms 100
Loop
End