Nochmal - For - Next mit Bascom und ATtiny13

Antworten
#1
03.11.2008 16:47
avatar  uwe
#1 Nochmal - For - Next mit Bascom und ATtiny13
uw
uwe

Was mache ich falsch ?
Hintergrund:
Möchte Fußgänger - Ampel für Blinde realisieren.
An der Ampel wird ein Beep Beep ausgegeben solange grün ist.

Im Programm schalte ich einen LED an und dann sollte in einer For-Next Schleife ein anderer Ausgang des Attiny einen Ton ausgeben.

For T = 1 to 100 ' 100 Durchläufe
PortB.1 = 1 ' Schalte PortB.1 auf H
Waitus 2500 ' Warte 2500 uSek -> = halbe periodenzeit für 200 Hz
PortB.1 = 0 ' Schalte PortB.1 auf L
next

Warum funktioniert das nicht ?

BASCOM meckert in der Zeile ( For t= 1 to 100 ) "expect next

Was könnte die Ursache sein, fragt Uwe


 Antworten

 Beitrag melden
#2
03.11.2008 18:19
avatar  flowie
#2 RE: Nochmal - For - Next mit Bascom und ATtiny13
fl
flowie

T als Variable deklariert?? Geht aber nicht so einfach mit Bascom und Tiny13 wenn ich mich richtig erinnere!

Grüße FloWie


 Antworten

 Beitrag melden
#3
03.11.2008 18:23
avatar  uwe
#3 RE: Nochmal - For - Next mit Bascom und ATtiny13
uw
uwe

Habe T für Ton benutzt.
Variable "A" geht auch nicht
gehört "T" zu einem reservierten Wort ?

Gruß Uwe


 Antworten

 Beitrag melden
#4
03.11.2008 19:03
avatar  flowie
#4 RE: Nochmal - For - Next mit Bascom und ATtiny13
fl
flowie

Das Problem ist der geringe Speicher des Tiny13. Probier mal diese Einstellungen dann müsste es klappen:

$hwstack = 16
$swstack = 8
$framesize = 16

Ob A oder T ist dann egal

Gruß FloWie


 Antworten

 Beitrag melden
#5
03.11.2008 21:32 (zuletzt bearbeitet: 03.11.2008 21:34)
avatar  uwe
#5 RE: Nochmal - For - Next mit Bascom und ATtiny13
uw
uwe
Hallo FloWie,
Wenn ich das Programm für einen Atmega8 definiere, funktioniert es, allerdings nicht mit einem Attiny13.
Warum das so ist, kann ich mir nicht erklären - dazu habe ich zu wenig Ahnung ..

$regfile = "m8def.dat"
$crystal = 1200000
'LED und Ton

$hwstack = 16
$swstack = 8
$framesize = 16

Dim A As Integer
Do
Portb.0 = 1 ' Port 0 auf H

For A = 1 To 10 ' 10 Durchläufe
Portb.1 = 1 ' Schalte PortB.1 auf H
Waitus 25 ' Warte 25 us
Portb.1 = 0
' Schalte PortB.1 auf L
Next

Portb.0 = 0 'Port 0 auf L
Waitus 250
Loop


Gibt es eine Möglichkeit das ganze doch noch auf einem Attiny13 laufen lassen ?

Gruss Uwe

 Antworten

 Beitrag melden
#6
05.11.2008 18:25
avatar  flowie
#6 RE: Nochmal - For - Next mit Bascom und ATtiny13
fl
flowie

Kommt ne Fehlermeldung beim Compilieren oder kommt kein Ton aus dem Tiny??

Gruß FloWie


 Antworten

 Beitrag melden
Antworten
Bereits Mitglied?
Jetzt anmelden!
Mitglied werden?
Jetzt registrieren!
Forenspende
Hallo !

Wir hoffen, dass dir unser Forum gefällt und du dich hier genauso wohlfühlst wie wir.

Wenn du uns bei der Erhaltung des Forums unterstützen möchtest, kannst du mit Hilfe einer kleinen Spende dazu beitragen, den weiteren Betrieb zu finanzieren.

Deine Spende hilft!

Spendenziel: 346€
93%