Sparrow lässt Teddybär zwinkern und Sterne funkeln

Der ATtiny13 auf einer Sparrow-Platine kann z.B. auch das abgebildete Projekt ansteuern. Das aus Tonpapier gestaltete Bild klebt auf der Bestückungsseite einer 100 x 80 mm großen Platine mit Lötpunkten.

Nach diesem Plan sind die Low Current Leuchtdioden des kleinen Projekts auf der Lötseite der Platine an Vorwiderstände angeschlossen. An den jeweiligen Enden sind zweipolige Buchsenleisten angelotet, damit man mit Schaltdraht verschiedene Verbindungen herstellen kann.

Werden die Leuchtdioden gemäß diesem Plan an die Sparrow-Platine angeschlossen, blinken abwechselnd zwei der zusammengeschalteten gelben Exemplare. Die Taktfrequenz lässt sich mit Taster S1 verringern, während sie mit S2 erhöht wird. Die grünen Leuchtdioden, die „Augen“ des stilisierten „Teddybärs“, blinken unabhängig von den gelben Exemplaren abwechselnd, und zwar durch Timer0 gesteuert.

Dies ist das Programmlisting in Bascom AVR dazu:

'Teddybaer '

$regfile = "attiny13.dat"
$crystal = 1200000

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


Dim N As Byte
Dim P As Byte
Dim T As Byte

Declare Sub Pause()

Ddrb = &B00011010

Config Timer0 = Timer , Prescale = 1024
On Timer0 Ontimer0
Tccr0b = &B00000101
Timsk0 = &B00000010
Enable Interrupts
Enable Timer0
N = 0
Do
If Pinb.0 = 0 Then
Incr T
End If
If Pinb.2 = 0 Then
Decr T
End If

Set Portb.4
Reset Portb.3
Pause
Set Portb.3
Reset Portb.4
Pause
Loop


Sub Pause
For P = 0 To T
Waitms 50
Next P
End Sub

Ontimer0:
Incr N
If N = 8 Then
Toggle Portb.1
N = 0
End If
'Timer0 = 0
Return