Basic Programm mit IS471f

[Niels_93]

Hallo zusammen,

ich (Anfänger) bin dabei meine ersten Schaltungen zu basteln, momentan habe ich vor, einen IS471f IR-Sensor mit dem AVR Attiny85 zu betreiben; sobald der Sensor ein Hindernis erkennt, soll eine LED aufleuchten (LED Port 0, Sensor Port 1).
Leider tut der Attiny nicht das, was ich möchte. Nach eingehender Untersuchung der Schaltung auf Fehler bin ich zu dem Schluss gekommen, dass mein BASIC-Programm nicht korrekt sein kann. Ich benutze folgenden Quelltext (Bascom):

$regfile = "attiny85.dat"
$chrystal = 1000000

Config PORTB.1 = Input
Config PORTB.0 = Output

If PORTB.1 = 0 Then
PORTB.0 = 0
Else
PORTB.0 = 1

GOTO 7

End If


Kann mir jemand sagen, was da verkehrt ist? Vielen Dank im Vorraus.

Niels

[oZe]

Die Endlosschleife fehlt. Schreib mal vor das If ein do und hinter das end if ein loop. Wofür is das GOTO 7?

[Niels_93]

Das GOTO 7 sollte die Endlosschleife sein. Also eine Anweisung, die bei Zeile 7 fortfährt. Das mit der If-Do-Schleife probier ich gleich aus wenn ich heute nach Hause komme ;)

[Searcher]

... und zur Abfrage des aktuellen Portpinzustandes muß es
If PINB.1 = 0 Then
heißen

Gruß
Searcher

[Niels_93]

Jaaaa, jetzt funktioniert es :D Vielen Dank