Jak skręcę potencjometr na płytce w którekolwiek skrajne położenie to ekran LCD szaleje. Pomijając już że wyświetlane wartości są daleko absurdalne.
Filmik z eksperymentów
Kod: Zaznacz cały
'SHARP 2D120X tester
$crystal = 1000000
$regfile = "attiny861.dat"
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.5 , Rs = Portb.4
Config Lcd = 16 * 2
Config Porta = Input
Dim Wynik As Word At &H60
Dim Ad_low As Byte At &H60 Overlay
Dim Ad_high As Byte At &H61 Overlay
Dim Licz As Byte
Cursor Off
Cls
Lcd " SHARP 2D120X"
Enable Interrupts
Enable Oc0a
'Ocr0a = 40 ' przerwania ok 25 razy na sek
'Tccr0a = &H01 ' CTC mode
'Tccr0b = &H0D ' start timera z dzielnikiem 1024
Admux = 0
Adcsra = &B10000110
Adcsrb = &H0
Adcsra = &B11000110
Do
If Licz > 250 Then
Licz = 0
End If
Locate 2 , 2
Lcd Wynik
If Adcsra.4 = 1 Then
Locate 2 , 7
Lcd "ADIF 1"
Ad_low = Adcl
Ad_high = Adch
Reset Adcsra.4
Adcsra = &B11000110
End If
Waitms 200
Loop
End