Witam,
poniżej prosty progranm w bascomie który nie działa a chyba powinien...
Sekcja LCD działa bez zarzutu, ale ADC pokazuje na lcd cały czas 1023 niezależnie jakie napięcie podam na nóżkę ADC.
Gdzie jest błąd?
Dziękuję za pomoc.
$crystal = 16000000
$regfile = "m16def.dat"
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Portb.0 , Db6 = Portb.1 , Db5 = Portb.2 , Db4 = Portb.3 , E = Portd.5 , Rs = Portd.4
Cursor Off
Cls
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim Adcval As Word
Dim P1 As Single
Start Adc
A:
Adcval = Getadc(0)
Adcval = Getadc(0)
P1 = Adcval
Locate 1 , 1
Lcd P1
Goto A
poniżej prosty progranm w bascomie który nie działa a chyba powinien...
Sekcja LCD działa bez zarzutu, ale ADC pokazuje na lcd cały czas 1023 niezależnie jakie napięcie podam na nóżkę ADC.
Gdzie jest błąd?
Dziękuję za pomoc.
$crystal = 16000000
$regfile = "m16def.dat"
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Portb.0 , Db6 = Portb.1 , Db5 = Portb.2 , Db4 = Portb.3 , E = Portd.5 , Rs = Portd.4
Cursor Off
Cls
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim Adcval As Word
Dim P1 As Single
Start Adc
A:
Adcval = Getadc(0)
Adcval = Getadc(0)
P1 = Adcval
Locate 1 , 1
Lcd P1
Goto A