ok ich hab´s probiert und es geht leider nicht.
Ist der Code einfach nur falsch ... ich verstehe es nicht :
Ich habe jetzt mal den Code zusammengeschrumpft um nur den ADC10 auszulesen.
Der Code ist so minimal und Übersichtlich das ich keine Fehler entdecken kann. Das einzigste wo ich mir unsicher bin ob ich den Analogeingang auch mit Config Portf = Input konfigurieren muß.
Code:
'Diese Anweisung setzt die Fusebits automatisch korrekt (Syntax $PROG LB, FB , FBH , FBX )
$prog , 255 , &B11011001 , 'Quarz an / Teiler aus / Jtag aus
$regfile = "m2560def.dat"
$hwstack = 82 '80
$framesize = 68 ' 64
$swstack = 68 '44
$crystal = 16000000 'Quarzfrequenz
'Definition USB
Config Com4 = 38400 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Open "com4:" For Binary As #4 'USB Port
'Analogport Definition
Config Portk = Input ' Port k als Anlogeingang konfigurieren 8 Analogports '
Config Portf = Input
Enable Interrupts
Dim Getdata As Word
Config Adc = Single , Prescaler = Auto , Reference = Avcc 'Analog Digitalwander Zuweisungen
Start Adc
Do
'hab ich noch zusätzlich eingetragen und auch ohne probiert aber ob das sinn ergibt ?
Adcsrb.acme = 1
Adcsrb.aden = 1
'ergibt das sinn ende
Adcsrb.mux5 = 1 ' ADC8-15
Getdata = Getadc(10)
Print #4 , Getdata
Print #4 ,
Waitms 500
Loop
End
Der Code gibt mir auf meiner RS232 immer 1021 schwankend bis 1023 aus den wirklichen Messwert macht er nie.
Zitieren
Lesezeichen