hi zusammen, habe folgendes Programm in meinen Attiny13A gepflanzt, zum ansteuern eines Funk-Senders:
1 | $regfile = "attiny13a.dat" |
2 | |
3 | $crystal = 9600000 |
4 | $hwstack = 20 ' default use 32 for the hardware stack |
5 | $swstack = 10 ' default use 10 for the SW stack |
6 | $framesize = 34 ' default use 40 for the frame space |
7 | |
8 | Declare Sub Sendbit(byval A As Byte) |
9 | Declare Sub Alpha() |
10 | Declare Sub Longa() |
11 | Declare Sub Synca() |
12 | |
13 | |
14 | Config Portb.2 = Output |
15 | Dataout Alias Portb.2 |
16 | Reset Dataout |
17 | |
18 | Do |
19 | |
20 | Sendbit 0 'a0 |
21 | Sendbit 0 'a1 |
22 | Sendbit 1 'a2 |
23 | Sendbit 1 'a3 |
24 | Sendbit 1 'a4 |
25 | Sendbit 1 'a5 |
26 | Sendbit 0 'a6 |
27 | Sendbit 0 'a7 |
28 | ' Sendbit 0 'a0 |
29 | ' Sendbit 0 'a1 |
30 | ' Sendbit 1 'a2 |
31 | ' Sendbit 1 'a3 |
32 | ' Sendbit 1 'a4 |
33 | ' Sendbit 1 'a5 |
34 | ' Sendbit 0 'a6 |
35 | ' Sendbit 0 'a7 |
36 | ' Sendbit 0 'a0 |
37 | ' Sendbit 0 'a1 |
38 | ' Sendbit 1 'a2 |
39 | ' Sendbit 1 'a3 |
40 | |
41 | Sendbit 0 'btn0 (not on my unit) |
42 | Sendbit 0 'btn1 |
43 | Sendbit 1 'btn2 |
44 | Sendbit 0 'btn3 (not on my unit) |
45 | Sendbit 3 |
46 | |
47 | Wait 5 |
48 | |
49 | Loop |
50 | |
51 | |
52 | Sub Alpha() |
53 | |
54 | Waitms 14 |
55 | |
56 | End Sub |
57 | |
58 | |
59 | Sub Longa() |
60 | |
61 | Alpha |
62 | Alpha |
63 | Alpha |
64 | |
65 | End Sub |
66 | |
67 | Sub Synca() |
68 | |
69 | Local Y As Byte |
70 | For Y = 1 To 7 |
71 | Alpha |
72 | Next Y |
73 | |
74 | End Sub |
75 | |
76 | Sub Sendbit(a As Abyte) |
77 | Select Case A |
78 | ' 0 bit |
79 | Case 0: |
80 | Dataout = 1 |
81 | Alpha |
82 | Dataout = 0 |
83 | Longa |
84 | Dataout = 1 |
85 | Alpha |
86 | Dataout = 0 |
87 | Longa |
88 | ' 1 bit |
89 | Case 1: |
90 | Dataout = 1 |
91 | Longa |
92 | Dataout = 0 |
93 | Alpha |
94 | Dataout = 1 |
95 | Longa |
96 | Dataout = 0 |
97 | Alpha |
98 | ' FLOAT bit |
99 | Case 2: |
100 | Dataout = 1 |
101 | Alpha |
102 | Dataout = 0 |
103 | Longa |
104 | Dataout = 1 |
105 | Longa |
106 | Dataout = 0 |
107 | Alpha |
108 | ' SYNC bit |
109 | Case 3: |
110 | Dataout = 1 |
111 | Alpha |
112 | Dataout = 0 |
113 | Synca |
114 | |
115 | End Select |
116 | |
117 | End Sub |
Der Code wird auch übertragen, nur kommt beim Empfänger nichts an. Nun ist die Frage warum. Ist der Tiny vllt zu träge? was gibt es für Abhilfe? Oder liegt das Problem wo anders?