Ports einlesen, aber wie ??

[RCO]

Also probiers mal so, mir ist der Einsatz der Diode bei dir nciht ganz verständlich, vielleicht könntest du es kurz erläutern.
Ansonosten so:

Config Pind.7 = Input
Portd.7 = 1                                                 'Pullup aktivieren
Config Pinb.1 = Output
Eingang Alias Pind.7
Ausgang Alias Portb.1

Do
Ausgang = Not Eingang
Loop
End

Zu beachten ist allerdings, dass der AVR, wenn er die Diode wie im Schaltbild schaltet weniger Strom vließen lässt, als wenn man die Diode andersrum einsetzt, also der AVR quasi die erforderliche Masse bildet... ICh hoffe das ist verständlich
Bei kleinen Dioden (Low Current) sollte es aber so kein Problem sein.

MFG Moritz