5 Minuten Timer mit Attiny 13

**dolivo** · 05.04.2011, 09:27

Hallo, John13,
das ist so ein schönes Anfängerproblem, dass Du das in kurzer Zeit selbst schaffst. Für den Anfang kannst Du es ja mit wait (Puristen weghören!) probieren, aber dann auf jeden mit dem Timer.

**John13** · 05.04.2011, 14:54

Hallo dolivo,

ich habe mal versucht das programm zu schreiben, aber irgendwie haut das noch nicht so richtig hin.
den quellcode habe ich im Anhang.

Code:

'5 Minuten Timer für Attiny13                                                   05.04.2011'

'Einstellungen ---------------------------------------------------------------------------'

$regfile = "attiny13.dat"
$crystal = 1200000
$hwstack = 0
$swstack = 0
$framesize = 0

Config Portb.1 = Input                                      ' Taster(S1)
Config Portb.2 = Output                                     ' LED1
Config Portb.3 = Output                                     ' LED2
Config Portb.4 = Output                                     ' Piezo-Summer
Config Timer0

'Hauptprogramm ---------------------------------------------------------------------------'

Do
      if Portb.1 = 1 then
      Portb.2 = 1 
      Portb.3 = 1
      Waitms 300000
      then Portb.4 = 1
      Portb.2 = 0
      Portb.3 = 0
      Waitms 1000 
      then Portb.4 = 0
Loop

Die Grundlagen habe ich mir übrigens auch schon durchgelesen.
Ich hoffe einer von euch kann mir da weiter helfen

Gruß
John13

**lokirobotics** · 05.04.2011, 15:21

Ich hab die Bascom Feinheiten jetzt nicht im Kopf, aber wenn du einen Eingang abfragen willst, musst du das über PIN.X machen.

**oZe** · 05.04.2011, 15:34

Hallo!
Also du hast ein paar Fehler in deinem Programm. Zunächst musst du lernen die If Abfrage richtig anzuwenden. Das Grundkonstrukt sieht folgendermaßen aus:

Code:

If BEDINGUNG then
Hier der code der ausgeführt werden soll wenn If zutrifft
End If

Bei dir kommt das Wort "then" mehrfach vor. Das ist nicht notwendig, da alles was zwischen If und End If steht ausgeführt wird. Korrigiert würde dein Code so aussehen:

Code:

if PINB.1 = 1 Then
      Portb.2 = 1 
      Portb.3 = 1
      Waitms 300000
      Portb.4 = 1
      Portb.2 = 0
      Portb.3 = 0
      Waitms 1000 
      Portb.4 = 0

Unter das letzte Loop gehört zusätzlich noch das Wort END. Was du auch noch beachten musst ist die richtige Schreibweise der eingebundenen Bibliothek.
Du hast attiny13.dat geschrieben aber die Datei heißt glaube ich ATtiny13.dat. Also groß und kleinschreibung beachten!
Das Confic Timer0 in deinem Quellcode ist überflüssig da du keinen Timer in deinem Programm benutzt

und wie schon erwähnt wurde: Bei Inputs nimmt man
PinX.X anstelle von PortX.X auch wenn viele sagen das es auch anders geht.
Hoffe ich konnte helfen!

**dolivo** · 05.04.2011, 17:28

nicht vergessen, den Summer wieder auszuschalten.

**KingSauce** · 05.04.2011, 20:33

kann man eigentlich irgendwie errechnen, wie weit der waitms-Befehl vom wirklichen Timer abweicht? Ich habe die Timerfunktion noch nie benutzt / benötigt würd mich aber mal interessieren, damit ich weiß, wann es Zeit wird sich das mal anzuschauen

**John13** · 05.04.2011, 20:55

Hallo,

ich habe den Quellcode nun folgendermaßen Programmiert:

Code:

'10 Minuten Timer mit 2 Schaltausgängen PB2 und PB3 / Buzzer an PB4
'Taktfrequenz 1200 KHz
'-------------------------------------------------------------------------------
'Grundeinstellungen
'-------------------------------------------------------------------------------

$regfile = "attiny13.dat"
$crystal = 1200000                                          'Standard- Takt 9,6 MHz / 8
$hwstack = 0
$swstack = 0
$framesize = 0
Baud = 9600

Config Pinb.1 = Input                                       'Taster(S1)
Config Portb.2 = Output                                     'Schaltausgang1
Config Portb.3 = Output                                     'Schaltausgang2
Config Portb.4 = Output                                     'Buzzer

'-------------------------------------------------------------------------------
'Hauptprogramm
'-------------------------------------------------------------------------------

Do                                                          'Beginn der Schleife
     If Pinb.1 = 1 Then                                     'Anfang Der If Bedingung
     Portb.2 = 1                                            'Schaltausgang1 wird gesetzt
     Portb.3 = 1                                            'Schaltausgang2 wird gesetzt
     Wait 600                                               '10 Minuten warten
     Portb.2 = 0                                            'Schaltausgang1 wird resetet
     Portb.3 = 0                                            'Schaltausgang2 wird resetet
     Portb.4 = 1                                            'Buzzer wird gesetzt
     Wait 2                                                 '2 Sekunden warten
     Portb.4 = 0                                            'Buzzer wird resetet
     End If                                                 'Ende der If Bedingung
Loop                                                        'Ende der Schleife

End                                                         'Programm Ende

Dieser funktioniert nun auch schon sehr gut. Deshalb schon einmal ein großes Danke für die Hilfe.

Mich würde aber auch noch einmal interessieren, wie man das mit dem Ton für den Buzzer programmiert? Und was müsste ich ändern wenn ich zwei Zeiten haben möchte ( 5 Minuten über einen Taster S1 einschaltbar und 10 Minuten über einen Taster S2 einschaltbar ). Den Taster S2 würde ich dann an PB0 anschließen.

Gruß
John13