scheitere an einfach if - then - else

[M!ni M0nk3y]

schon probiert...
habs halt nur auf meine ausgänge/eingänge umgeschrieben...
geht nix

kann man portd.0 als eingang definieren?
vllt ist ja da irgendwas faul.

weil ein einfaches blinklicht oder so funktioniert, also der atmenga8 is nicht defekt! is außerdem ganz neu, heute erst gekommen...

[Zentauro]

Was mich wundert ist, dass du den Pull-Up Widerstand nicht aktivieren musst. Ich kann bei mir keinen Taster auswerten, wenn ich den nicht aktiviere

@jon: ich hab den code simuliert, falls du mich meintest

[Zentauro]

ist die hardware ok??

schon nachgemessen, ob der input vom taster richtig kommt???

[Stromi]

Im Simulator im Einzelschritt geht es. Haste das mal simuliert?

[M!ni M0nk3y]

wie gehtn das?

[Zentauro]

F2 drücken, dann der vierte button von links oben

[Jon]

Ich bin dafür, dass es so funktioniert:

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

Config Portc = Output
Config Pind.0 = Input
Portd.0=1

Do
If Portd.0 = 1 Then
Portc.5 = 1
Else
Portc.5 = 0
End If
Loop

[Zentauro]

ich kann mich dem nur anschiessen, falls es so nicht geht, haste nen hardwarefehler...

[chr-mt]

Ich bin dafür, dass es so funktioniert:

Nö
If Portd.0 = 1 Then 'geht nicht

So geht's:

If Pind.0 = 0 then 'Eingang=Pin , gegen Masse schalten =0

Gruß
Christopher

[Stromi]

@Jon
Mit der Zeile: Portd.0 schaltest du die Pullup ein, richtig?
Mit der Zeile: If Portd.0=1 fragst du eigentlich: Ist der Pullup von Portd.0 eingeschaltet?
Teste mal im Simulator beide Varianten !!
In der reallen Schaltung ist es deutlich zu sehen.
Merke
Portd.x für Output-Sachen
Pind.x für Input-Sachen