Hallo liebes µC.net,
mein Ziel wahr es, mit hilfe des Attiny2313 eine
Frequenz mit dem Tastverhältniss 50% zu erzeugen,
diese soll mittels 2 Tastern verändert werden.
Mit dem Atmega8 funktioniert der Code (mit kleinen Veränderungen
natürlich) mit dem
Attiny leider nicht, warum ist mir leider rätselhaft.
Für jegliche Tipps bin ich dankbar :-)
Programmiert wurde in Bascom, steht ja in der Überschrift.
1 | $regfile = "attiny2313.dat"
|
2 |
|
3 | $crystal = 8000000
|
4 |
|
5 | Config Portb.2 = Output
|
6 | Config Portd.5 = Input
|
7 | Config Portd.4 = Input
|
8 |
|
9 | Config Timer1 = Timer , Prescale = 1
|
10 |
|
11 |
|
12 | Dim Timervorgabe As Word
|
13 |
|
14 | On Timer1 Timer_irq
|
15 | Timervorgabe = 55000
|
16 |
|
17 | Enable Timer1
|
18 | Enable Interrupts
|
19 |
|
20 |
|
21 |
|
22 | Do
|
23 | If Pind.5 = 1 And Timervorgabe > 1 Then
|
24 | Decr Timervorgabe
|
25 | Waitms 4
|
26 | End If
|
27 | If Pind.4 = 1 And Timervorgabe < 65535 Then
|
28 | Incr Timervorgabe
|
29 | Waitms 4
|
30 | End If
|
31 | Loop
|
32 |
|
33 |
|
34 |
|
35 | Timer_irq:
|
36 | Portb.2 = 1
|
37 | Portb.2 = 0
|
38 | Timer1 = Timervorgabe
|
39 | Return
|