Hallo,
Ich bin gerade dabei einen Schlüsselanhänger zu bauen, der SOS blinken
soll. Gesteuert wird er durch einen Attiny13. Ziel ist es, dass die LED
"SOS" blinkt sobalt der Knopf einmal kurz gedrückt wird. Die LED blinkt
aber leider nur wenn der Knopf gedrückt bleibt, sonst geht sie sofort
aus.Lötstellen sind alle kontrolliert!!!
Hier ein paar infos:
Ich programmiere den Attiny13 mit Bascom AVR
Mein Programmer ist ein: "mySmartUSB light"
Zum flashen verwende ich: "myAVR Programm Tool V 1.39"
Ich bin erst 13 also bitte verständnis für kleine Fehler haben :-)
Hier der code:
1 | $regfile = "attiny13.dat"
|
2 | $crystal = 1000000
|
3 | $hwstack = 10
|
4 | $swstack = 20
|
5 | $framesize = 30
|
6 |
|
7 | Config Portb.2 = Output
|
8 | Config Pinb.1 = Input
|
9 |
|
10 | Portb.2 = 0
|
11 |
|
12 | Do
|
13 | If Pinb.1 = 0 Then
|
14 | Portb.2 = 1 'An kurz
|
15 | Waitms 200
|
16 | Portb.2 = 0
|
17 | Waitms 200 'Aus kurz
|
18 | Portb.2 = 1 'An kurz
|
19 | Waitms 200
|
20 | Portb.2 = 0
|
21 | Waitms 200 'Aus kurz
|
22 | Portb.2 = 1 'An kurz
|
23 | Waitms 200
|
24 | Portb.2 = 0
|
25 | Waitms 200 'Aus kurz
|
26 | Portb.2 = 1 'An lang
|
27 | Waitms 500
|
28 | Portb.2 = 0
|
29 | Waitms 500 'Aus lang
|
30 | Portb.2 = 1 'An land
|
31 | Waitms 500
|
32 | Portb.2 = 0
|
33 | Waitms 500 'Aus lang
|
34 | Portb.2 = 1 'An lang
|
35 | Waitms 500
|
36 | Portb.2 = 0
|
37 | Waitms 500 'Aus lang
|
38 | Portb.2 = 1 'An kurz
|
39 | Waitms 200
|
40 | Portb.2 = 0
|
41 | Waitms 200 'Aus kurz
|
42 | Portb.2 = 1 'An kurz
|
43 | Waitms 200
|
44 | Portb.2 = 0
|
45 | Waitms 200 'Aus kurz
|
46 | Portb.2 = 1 'An kurz
|
47 | Waitms 200
|
48 | Portb.2 = 0 'Aus kurz
|
49 | Waitms 1500
|
50 | Else
|
51 | Portb.2 = 0
|
52 |
|
53 | End If
|
54 | Loop
|
55 | End
|
PS: ja ich weiß der sockel ist zu groß