Meine Eingangs-Ports gehen nicht mehr beim Mega 8 ?

**Roberto** · 31.10.2005, 07:45

Hallo Leute

Bin am verzweifeln

Hatte mir vor ein paar Monaten das Bascom gekauft und jetzt ist alles neu.
Version V 1.11.7.9

Jetzt wollte ich mal wieder was schreiben, aber es gehen die Ports beim Mega8 einfach nicht als Eingänge.

Programm ist das :

Code:

$regfile = "m8def.dat"
$crystal = 8000000


'---Config Port's--------------------
Config Portd = Input
Portd = 255

Config Portb = Output
Portb = 0

Config Portc = Input


'---Sonstiges------------------------
Dim A As Word





'========================================================================
'========= Hauptprogramm ================================================
'========================================================================

Do


 'Portb = &B00001100
If Portd.0 = 1 Then Portb = &B00001100



Loop


End

Müsste doch eigentlch passen ?! (oder stehe ich im Wald?)

Die Ausgänge funktionieren... (Port B)
Sonst gibt es auch keine Fehler... kann nur keine Ports einlesen und auswerten ?! (Port C)

Hat noch jemand dieses Problem..?
Liegt es an der neuen Version...

l.G. Roberto