Wie im folgenden Plan zu sehen ist, ist die Schaltung wirklich sehr simpel.
Hier die reichelt Bauteilliste (3,65 Euro):
1x BUZ 11
1x µA 78L05
1x ATTINY 13-20 DIP
2x 1N 4004
4x LED 5MM 5V GE (bei anderen LEds Vorwiderstand mit einplanen)
1x METALL 220
1x RAD 10/63
1x MKS-02 100N
1, V PR5/15-M3 (Kühlkörper)
1x GS 8 (Fassung für den Prozessor)
1x TASTER 9305 (es kann natürloich auch jeder andere Taster benutzt werden)
Als erster Kühlkörper für den BUZ11 wurde ein einfacher Aluklotz genommen.
Für die Anzeige und Bedienung habe ich ein Flaschendeckel missbraucht.
Auf der Lochrasterplatine wurden die vier Leds und der Taster untergebracht und mit Heißkleber im Deckel fixiert.
Gleichzeitig habe ich im Heißkleber noch ein Schraube mit Mutter versenkt, um das Gebilde später befestigen zu können.
Das Ergebniss kann sich sehen lassen für ein ehemaligen Flaschendeckel :-).
Und hier das ganz noch mal mit gekauften Kühlkörper,
dann ist der Aufbau flacher und ein späteren vergießen in Harz steht nichts mehr im Weg.
Hier nun der Bascom Quelltext:
(Da das Programm deutlich kleiner als 4kb ist kann man es auch noch mit der Demo Version bearbeiten)
$regfile "attiny13.dat" 'Attiny13
$crystal = 1200000 'intern 1.2Mhz
$hwstack = 32 'Hardware stack32
$swstack = 10 'Software stack 10
$framesize = 40
Dim X As Byte
Dim A As Word
Dim B As Word
Dim S As Word
Dim Startmerker As Bit
Config Portb.0 = Output
Config Portb.3 = Output
Config Portb.4 = Output
Config Portb.2 = Output
Config Portb.1 = Input
Portb.1 = 1
X = 0
S = 0
Config Timer0 = Pwm , Prescale = 8 , Compare A Pwm = Clear Down
Do
If Pinb.1 = 0 Then
Gosub Taster
End If
If X = 0 Then
Portb.3 = 0
Portb.4 = 0
Portb.2 = 0
B = 0
End If
If X > 0 And Startmerker = 0 Then
B = 255v
Portb.3 = 0
Portb.4 = 0
Portb.2 = 1
Gosub Startschleife
End If
If X = 1 And Startmerker = 1 Then
Portb.3 = 1
Portb.4 = 0
Portb.2 = 1
B = 60
End If
If X = 2 And Startmerker = 1 Then
Portb.3 = 0
Portb.4 = 1
Portb.2 = 0
B = 80
End If
If X = 3 And Startmerker = 1 Then
Portb.3 = 0
Portb.4 = 1
Portb.2 = 1
B = 110
End If
If X = 4 And Startmerker = 1 Then
Portb.3 = 1
Portb.4 = 0
Portb.2 = 0
B = 170
End If
Pwm0a = B
Loop
Taster:
While Pinb.1 = 0 And A < 300
A = A + 1
Waitms 10
Wend
If A > 10 Then
X = X + 1
If X > 4 Then
X = 0
End If
A = 0
End If
Return
Startschleife:
Waitms 10
S = S + 1
If S = 6000 Then
Startmerker = 1
End If
Return
End
Hinter B steht der jeweilige Werte für die PWM, B = 255 entspricht 100% Leistung an den Heizgriffen.
Da die 100% nur zum kurzzeitigen Aufheizen geeignet ist, habe ich diisen Wert beim Start für 1min gesetzt
und dann wird in der gewählten Stufe weiter gearbeitet.
Wer Hilfe beim Programmieren oder Platinenerstellung benötigt, kann sich gerne per Mail melden.