Hallo,
Woran kann es liegen, dass alle ADC Channels desRN Moduls 2560 auf high sind? Also 1023 bzw 255 als Byte?
Code:'################################################### ' Testing: 'M1,M2,STATUSLED '############################################################## 'RECHTER MOTOR: 'EN: PORTA.0 'VOR: PORTC.2 'LINKER MOTOR: 'EN: PORTA.1 'VOR: PORTC.1 '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 $baud = 9600 $crystal = 16000000 'Quarzfrequenz Config Pind.5 = Output Config Portc = Output Config Porta.0 = Output Config Porta.1 = Output Config Portb.0 = Output Config Adc = Single , Prescaler = Auto Led_go Alias Portd.5 Led_stat Alias Portb.0 Dim Acc_z As Byte Dim Acc_y As Byte Dim Acc_x As Byte Dim Buffer As Word Dim K As Byte Start Adc K = 0 Do Led_go = 0 Led_stat = 1 Waitms 1000 Buffer = Getadc(k) Print Buffer ; K Incr K If K > 7 Then K = 0 Led_go = 1 Led_stat = 0 Waitms 1000 Loop End







Zitieren

Lesezeichen