Hallo, ich habe mal versucht über einen Taster eine 7 Segmentanzeige hochzählen zu lassen. Hab jetzt auch schon diverse Fehler ausgebügelt. Nur leider funktioniert es immer noch nicht. Der Code ist für BASCOM, hier der Code: $regfile = "attiny2313.dat" $crystal = 1000000 '----------------------------------------------------------------------- Led1 Alias Portb.3 Config Led1 = Output Anzeige Alias Portd Config Anzeige = Output Taster Alias Portb.0 Config Taster = Input Taster = 1 Dim Stufe As Byte Do If Taster = 0 Then Bitwait Taster , Set Incr Stufe If Stufe > 9 Then Stufe = 0 End If Select Case Stufe Case 0 : Anzeige = &B01111110 Case 1 : Anzeige = &B01001000 Case 2 : Anzeige = &B00111101 Case 3 : Anzeige = &B01101101 Case 4 : Anzeige = &B01001011 Case 5 : Anzeige = &B01100111 Case 6 : Anzeige = &B01110111 Case 7 : Anzeige = &B01001100 Case 8 : Anzeige = &B01111111 Case 9 : Anzeige = &B01101111 End Select Loop End Nachdem das Programm übertragen wurde zeigt das Display nur eine 0 an. Wenn ich dann den Taster gegen GND betätige tut sich rein gar nix, warum? Vielen Dank schon mal! Gruß, Benny.
> Taster Alias Portb.0 > Config Taster = Input > Taster = 1 Kannst du einem Eingang etwas zuweisen? Probiers doch mal so:
1 | Do |
2 | |
3 | Bitwait Taster , Reset |
4 | Bitwait Taster , Set |
5 | Incr Stufe |
6 | If Stufe > 9 Then Stufe = 0 |
7 | |
8 | Select Case Stufe |
9 | Case 0 : Anzeige = &B01111110 |
10 | Case 1 : Anzeige = &B01001000 |
11 | Case 2 : Anzeige = &B00111101 |
12 | Case 3 : Anzeige = &B01101101 |
13 | Case 4 : Anzeige = &B01001011 |
14 | Case 5 : Anzeige = &B01100111 |
15 | Case 6 : Anzeige = &B01110111 |
16 | Case 7 : Anzeige = &B01001100 |
17 | Case 8 : Anzeige = &B01111111 |
18 | Case 9 : Anzeige = &B01101111 |
19 | End Select |
20 | |
21 | Loop |
Schreib es mal so: ddrb=&B00001000 'Pin b3 ist Ausgang, der Rest Eingang Portb=&B00000001 'Ziehwiderstand an Pin B0 einschalten ddrd=&B11111111 'Port D komplett auf Ausgang Led1 Alias Portb.3 Anzeige Alias Portd Taster Alias Portb.0 Es muß erst der Portpin als Ein-oder Ausgang konfiguriert werden, bevor man mit Alias einen schönen Namen vergeben kann. MfG Paul
Und ein Taster ist nunmal wie du richtig konfiguriert hast ein Eingang. Aber man sollte dann nicht den Ausgang zuweisen. Taster Alias Pinb.0 / Pin = Eingang Port = Ausgang Grüße Addy
Hi, vielen Dank! Die Sache mit dem PINB statt PORTB hats gebracht. Oh Mist, ich bin doch soooo blind. Übrigends, die Reihenfolge, ob zuerst Alias oder Config, ist egal. Hey das Forum hier ist echt klasse! Andere Frage, gibt es eigentlich eine Möglichkeit nen Wert in den Flash zu speichern? So das dieser nach dem ausschalten wieder zur verfügung steht? Gruß, Benny.
;-) alt bekannter Fehler Naja Flash würde ich nicht empfehlen, aber im EEPROM sind die Daten auch in stromlosen Zustand gespeichert. Siehe Dim as Eram in der Hilfe. Also Variable im Ram und im EEPROM definieren und bei Bedarf untereinander kopieren (lesen/schreiben). Erste Speicherstelle im EEPROM auslassen, wegen Gefahr von Datenverlust, siehe Errata in den Atmel-Manuals oder den Hinweis in der Bascom-Hilfe. Grüße Addy
Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.