Ja. Habe mal alles abgeworfen was nicht zu der ADC erfassung und Ausgabe gehört.
Sieht so aus
Code:
$regfile = "m16def.dat"
$crystal = 16000000
$hwstack = 40
$swstack = 16
$framesize = 32
Ddrb = &HFF
Ddrd = &HFF
Ddrc = &HFF
Ddra = &H00
Config Lcdpin = Pin , Db4 = Portc.5 , Db5 = Portc.4 , Db6 = Portc.3 , Db7 = Portc.2 , E = Portc.0 , Rs = Portc.1
Config Lcd = 20 * 4
Dim Adc_rot As Word
Dim Adc_grün As Word
Dim Adc_blau As Word
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Do
Cls
Locate 1 , 1
Lcd "Motion Control @ RAU"
Locate 2 , 1
Lcd "ROT "
Lcd Adc_rot
Locate 3 , 1
Lcd "GRUEN "
Lcd Adc_grün
Locate 4 , 1
Lcd "BLAU "
Lcd Adc_blau
Adc_rot = Getadc(2)
Adc_grün = Getadc(1)
Adc_blau = Getadc(0)
Waitms 100
Loop
End
Nachmessen mit dem Multimeter an ADC0/1/2 ergibt keine Auffälligkeit. Spannung fällt wie gewohnt von 4,8 auf 0 Volt.
Dachte erst die Schaltung würde mir die Probleme Machen.
Grüße Flo
Lesezeichen