(anfänger) Problem mit Bascom AVR Experimentierboard

[Sanchez (Gast)]

So Hallo :)

Geschrieben habe ich in Basic mit einem Atmega88
Folgendes Paket:
http://www.franzis.de/elektronik/lernpakete-elektronik/lernpaket-mikrocontroller-technik-mit-bascom

Das Programm soll die Led leuchten lassen wenn man den Taster drückt 
(low) und gelöscht werden wenn er ungedrückt ist.

Da ich über die Forensuche und Google nix gefunden habe frage ich mal 
hier nach...

Stattdessen blinkt die LED einfach dauerhaft, wenn man auf den Taster 
drückt leuchtet sie permanent, was ja richtig ist... nur sollte sie eben 
nicht blinken da PIND.2 im Normalfall auf high bleibt.
Ich glaube ich sehe den Wald vor lauter Bäumen nichtmehr...

PORTB.6 ist die LED
PIND.2 ist der Taster

hier der Code:

$regfile = "M88def.dat"
$crystal = 8000000

Config PORTB.6 = Output
Config PIND.2 = Input

Do

If PIND.2 = 0 Then
PORTB.6 = 1
Else
PORTB.6 = 0
Emd if

Waitms 500

Loop

End

Ich hoffe ich habe alles nötige angegeben.

Gruß Sanchez

[Sanchez (Gast)]

Problem gelöst... wenn man das board bewegt verändert sich der LED 
Zustand, danke für eure Zeit...

[S. M. (lichtmensch)]

Das Programm siht richtig aus bis auf eine kleinigkeit

Else
PORTB.6 = 0
Emd if
---
ENd if heißt es sollte aber auch einen Error verursachen :)

Ansonsten währe noch der Pullup des Tasters einzuschalten
Config PIND.2 = Input
Portd.2 = 1