Próbuję odpalić programik na Attiny13, ale nie mogę dojść do ładu z ADC. Może ktoś mógłby podpowiedzieć?
$regfile = "attiny13.dat"
Config Adc = Single , Prescaler = Auto , Reference = Internal
Config Pinb.1 = Output
Config Pinb.2 = Output
Config Pinb.0 = Output
Dim Wart_ac As Iram Byte 'zmienna na wartość odczytaną z przetwornika
Dim V As Iram Byte 'zmienna przechowująca obliczoną wartość zmierzonego napięcia
Start Adc
Reset Portb.1
Reset Portb.2
Reset Portb.0
Do
Wart_ac = Getadc(3) 'odczytanie wartości z wejścia
V = Wart_ac * 0.0049 'zamiana odczytanej wartości
If V < 1.5 Then 'dioda 1 (zbyt male napiecie) wlacz
Reset Portb.1
End If
If V >= 1.5 Then 'wylacz
Set Portb.1
End If
If V > 4.5 Then 'dioda 2 (za duze napicie) wlacz
Reset Portb.2
End If
If V <= 4.5 Then 'wylacz
Set Portb.2
End If
If V > 4 Then 'swiatla wlaczanie
Reset Portb.0
End If
If V <= 4 Then 'wylaczanie
Set Portb.0
End If
Loop 'koniec pętli Do...Loop
End