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:
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
Bis auf ein paar geändert pins ist alles gleich.

Gruß Sebasti