Mega8 Anfängerproblem

[Gast (Gast)]

Ich ahbe folgenden Code der bei der simulation auch funktioniert doch 
wennn ich es auf den Mega 8 überspiele leutet die Led immer und mehr 
passiert nicht egal was ich mit dem taster mache.


$regfile = "m8def.dat"
$crystal = 3579545
Config Portb.1 = Output
Config Portb.0 = Input

Portb.1 = 1

Do
  If Portb.0 = 0 Then Portb.1 = 1 Else Portb.1 = 0

Loop

[Hansi (Gast)]

Wie ist der Taster angeschlossen?

[Gast (Gast)]

von null zum taster und dann an pin 14. Weiß echt nicht warum es nicht 
funktioniert.

[Hansi (Gast)]

Du musst den internen Pull-Up-Widerstand noch aktivieren mit einer 
'Portb.0=1'  Anweisung.

[Gast (Gast)]

habe ich gemacht doch jetzt leuchtet die Led überhaupt nicht mehr.

[Hansi (Gast)]

Ich sehe gerade. Du musst die IF-Anweisung anders schreieben. Nicht:

'If Portb.0 Then ....'

sondern

'If Pinb.0=0 then ...'

[Gast (Gast)]

Danke wunderbar jetzt gehts.
Vielendank

[Hansi (Gast)]

Gern geschehen. Kannst ja mal auf www.DieElektronikerseite.de vorbei 
schauen, da sind in der Computerecke noch einige Beispiele für Bascom 
und AVR.