Hallo, ich habe mir das Pollin Evaluation Board 2.0 zugelegt und zusammengelötet. Jetzt wollte ich die Funktion mithilfe des Beispielprogramms von Pollin testen. Hier der Quellcode:
1 | $regfile = "m32def.dat" 'definieren des verwendeten Chips |
2 | |
3 | $crystal = 8000000 'definieren des verwendeten externen Quarz (8MHz) |
4 | |
5 | Dim A As Byte 'dimensionieren der verwendeten Variablen |
6 | Dim B As Byte |
7 | |
8 | Ddrd = &B11100000 'definieren der verwendeten Ports ( 1 = ausgang; 0= eingang) |
9 | Portd = &B00000000 'definieren der einzelnen Pins an einem Port ( 0= low level; 1= high level) |
10 | |
11 | |
12 | Main: 'Hauptprogramm |
13 | Do 'Anfang der Schleife |
14 | |
15 | If Pind.2 = 1 Then 'Wenn an Pin 2 von Port D ein high level anliegt, dann... |
16 | |
17 | Toggle Portd.5 '...setze Pin 5 von Port D von high auf low oder umgekehrt |
18 | Bitwait Pind.2 , Reset 'warte bis an Pin 2 von Port D wieder ein low level anliegt |
19 | |
20 | End If 'Ende der Bedingung |
21 | If Pind.3 = 1 Then 'Wenn an Pin 3 von Port D ein high level anliegt, dann... |
22 | |
23 | Toggle Portd.6 '...setze Pin 6 von Port D von high auf low oder umgekehrt |
24 | Bitwait Pind.3 , Reset 'warte bis an Pin 3 von Port D wieder ein low level anliegt |
25 | |
26 | End If 'Ende der Bedingung |
27 | If Pind.4 = 1 Then 'Wenn an Pin 2 von Port D ein high level anliegt, dann... |
28 | |
29 | Gosub Beep '...gehe zum Untermenü "Beep" |
30 | Gosub Textausgabe '...gehe zum Untermenü "Textausgabe" |
31 | Bitwait Pind.4 , Reset 'warte bis an Pin 4 von Port D wieder ein low level anliegt |
32 | |
33 | End If 'Ende der Bendingung |
34 | |
35 | Loop 'zum Anfang der Schleife |
36 | |
37 | Beep: 'Untermenü "Beep" |
38 | |
39 | Portd.7 = 1 'setzte den Pin 7 von Port D auf high |
40 | Waitms 500 'Warte 500 ms |
41 | Portd.7 = 0 'setzt den Pin 7 von Port D auf low |
42 | |
43 | Return 'zurück zum Hauptmenü |
44 | |
45 | Textausgabe: 'Untermenü "Textausgabe" |
46 | |
47 | Print "Atmel-Evaluation-Board" 'Sende den Text in den Anführungszeichen über RS232 zum PC |
48 | |
49 | Return
|
Statt eines Atmega 16, benutze ich einen Atmega 32. Wenn ich mit PonyProg das Programm rüberladen möchte stürzt das Programm allerdings ab? Woran kann das liegen? Gruss Markus