Hallo Roland,
habe die Led deaktiviert.
Nun ist die LED immer an was bei der beschaltung bedeutet das die Enable-Leitung nie auf die High-Pegel wechselt.
Daraus schliesse ich das irgendwas nicht stimmt. Allerdings hat das Programm so vor 2 Jahren auch funktioniert weshalb ich sehr verwundert bin.
Hier die Absulote Orginacode von vor 2 Jahren:
Bis auf ein paar geändert pins ist alles gleich.Code:$prog , 255 , &B11011001 , 'Quarz an / Teiler aus / Jtag aus $regfile = "m2560def.dat" $hwstack = 82 '80 $framesize = 68 ' 64 $swstack = 8 '44 $crystal = 16000000 Config Pinf.1 = Input 'Quarzfrequenz Config Pind.5 = Output Led Alias Portd.5 Config Pine.5 = Input USB Alias Pine.5 Start Adc 'Ist 1 wenn USB angeschlossen Config Lcdpin = Pin , Rs = Portd.4 , E = Portd.7 , Db4 = Portd.0 , Db5 = Portd.1 , Db6 = Portd.2 , Db7 = Portd.3 Waitms 100 Config Lcdbus = 4 Waitms 100 Config Lcd = 16 * 4 Waitms 100 Dim A As Integer Initlcd Cursor Off A = 0 Do Dim W0 As Word W0 = Getadc(1) Incr A Cls Locate 2 , 1 Lcd "Sensorwert:" Locate 2 , 12 Lcd W0 Locate 1 , 1 Lcd "Messungen" Locate 1 , 11 Lcd A Waitms 100 Loop End
Gruß Sebasti







Zitieren


Lesezeichen