Probleme mit Takt in Bascom

[keineAhnung (Gast)]

Hallo Leute!

Ich bin Anfänger in Bascom und komme bei folgendem Problem nicht zum 
Ziel.

Ich möchte eine LED an einem ATmega324P im Sekundentakt blinken lassen.
Allerdings blinkt die LED nicht in diesem Takt, sondern viel langsamer 
(ca. alle 2 Sekunden).
Der Controller benutzt einen externen 20 MHz Quarz. Die Fuses sollten 
eigentlich stimmen.
Hier der Code

$regfile = "m324pdef.dat"
$crystal = 20000000
$hwstack=32
$swstack = 32
$framesize = 32

Config Portb = Output
Do
   Pinb.0 = 1
   Wait 1

   Pinb.0 = 0
   Wait 1
Loop

Die Fuse-Settings habe ich nochmal ausgelesen und in der Anlage 
beigefügt.

Hat da jemand einen Tip für mich?

Beste Grüße

Andreas

[Wilhelm F. (Gast)]

Das ich was in Basic machte, ist lang lang her. Kann es sein, das die 
Wait-Funktion nur für eine bestimmte Quarzfrequenz spezifiziert ist?

Funktionieren tut es ja bei dir grundsätzlich.

[Dietrich L. (dietrichl)]

keineAhnung schrieb:
> blinkt die LED nicht in diesem Takt, sondern viel langsamer
> (ca. alle 2 Sekunden)
>
> Do
>    Pinb.0 = 1
>    Wait 1
>
>    Pinb.0 = 0
>    Wait 1
> Loop

Wieso, das stimmt doch: 1 Sekunde "1", 1 Sekunde "0" macht eine 
Periodendauer von 2 Sekunden :-))

Gruß Dietrich

[Albert M. (Firma: Bastler aus Mönchengladbach) (albertm)]

keineAhnung schrieb:
> Ich möchte eine LED an einem ATmega324P im Sekundentakt blinken lassen.
> Allerdings blinkt die LED nicht in diesem Takt, sondern viel langsamer
> (ca. alle 2 Sekunden).

> Do
>    Pinb.0 = 1
>    Wait 1
>
>    Pinb.0 = 0
>    Wait 1
> Loop

das sind ja insgesamt 2s. Wenn die Led in 1s Takt blinken soll musst Du 
jeweils Waitms 500 schreiben.

[keineAhnung (Gast)]

Na gut, ich meine schon 2 sek. an und 2 sek. aus. Das ist dann eine 
Periodendauer von ca. 4 sek. und dass passt eben leider nicht.
Andere Ideen?

Andreas

[Albert M. (Firma: Bastler aus Mönchengladbach) (albertm)]

Dann solltest Du Dich schon genau ausdrücken und nicht erst später damit 
rausrücken was Du wirklich meinst.

[keineAhnung (Gast)]

Gut, dann genauer.
Die LED soll eine Sekunde eingeschaltet sein, gefolgt von einer Sekunde 
Aus-Zeit. Der Istzustand ist ca. 2 Sekunden ein und ca. zwei Sekunden 
aus.

Andreas

[konf (Gast)]

Um den Pin high oder low zu schalten schreibt man PORTB.0 = 1 bzw. = 0
Bei manchen µc bedeutet Schreiben in das PIN Register ein Toggeln.

[keineAhnung (Gast)]

Danke konf, das ist die Lösung!

Andreas