Meine Eingangs-Ports gehen nicht mehr beim Mega 8 ?
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
