Danke ! War ein heiser Tipp.
Habe mir das Datenblatt nochmal angeschaut, erscheint mir jetzt auch als logisch was du da schreibst
100000 ADC8 entspricht DEZ 32
100001 ADC9
100010 ADC10
100011 ADC11
100100 ADC12
100101 ADC13
100110 ADC14
100111 ADC15 entspricht DEZ 39
Mit folgendem Bascom 1.11.9.1Code funktioniert es jetzt bei mir
man kann natürlich auch zwei getrennte Schleifen programmierenCode:$regfile = "m2560def.dat" $hwstack = 82 '80 $framesize = 68 ' 64 $swstack = 68 '44 $crystal = 16000000 'Quarzfrequenz Config Pind.5 = Output Led Alias Portd.5 $baud = 57600 'Config Com4 = 115200 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 'Open "com4:" For Binary As #4 'USB Buchse Dim Kanal As Byte Const Tz = "," ' Trennzeichen ist ein Komma ' *** ADC *** Config Adc = Single , Prescaler = Auto , Reference = Internal_1.1 Start Adc '*** Hauptschleife *** Do Print "*" ; Tz; Led = 0 For Kanal = 0 To 15 If Kanal > 7 Then Kanal = Kanal + 24 ' Wegen Bascom 1.11.9.1 Bug notwendig Print Getadc(kanal) ; Tz; If Kanal > 7 Then Kanal = Kanal - 24 ' Wegen Bascom 1.11.9.1 Bug notwendig Next Kanal Led = 1 Print "#" ; Tz Loop End
For Kanal = 0 To 7
und
For Kanal = 32 To 39 ' = 8-15
Nochmal Danke und viel Spaß weiterhin







Zitieren

Lesezeichen