PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Attiny13



Ledblu
27.05.2017, 15:29
Hallo und guten Tag an alle,
ich bin nicht nur neu in der materie sonder auch noch brett vom Kopf.
ich möchte gern mit eine oder Zwei Taster eine Led schalten der soll 10 mal blinken und dann aus gehen der Zweite Taster solle eine andere Led
Schalten an bleibe 10 sec. und dann aus gehen dennoch muss die möglichkeit haben mit der selbe taster alles aus zu mache .
ich habe ein kleine Prg. geschieben geht aber nur an aus, bitte ich brauche eure hilfe vielleicht hat jemand so was schon,
ich danke euch schon in voraus.
Gruß Andre

$regfile = "attiny13.dat"
$crystal = 1200000
$swstack = 10

Config Pinb.3 = Input
Taste Alias Pinb.3 PIN... nicht port... fuer EINGABE
Portb.3 = 1

Waitms 10 'Pullup-Widerstand

Config Portb.0 = Output 'Portb.0 als Ausgabe
Led Alias Portb.0 'Definition von Aliasnamen


Do

Debounce Taste , 0 , Umschalten , Sub 'Abfragen, ob Taste neu gedrueckt wurde und entprellen

Loop '
End

Umschalten:
Toggle Led
Retun


Bitte

Sauerbruch
28.05.2017, 14:17
ich habe ein kleine Prg. geschieben geht aber nur an aus

Aber das ist doch genau das was es soll, oder? Im Unterprogramm "Umschalten" wird geoggelt - fertig!

Probier doch mal ins Unterprogramm eine For-Next-Schlefe zu schreiben, die die LED 20 mal toggelt (also 10 mal an- und ausmacht). Etwa so:



Dim X as Byte
...
...

Do
Debounce Taste , 0 , Umschalten
Loop

Umschalten:
For X = 1 to 20
Toggle Led
waitms 100
Next X
Return



Und wenn das funktioniert, kümmern wir uns um den 2. Taster!

Gruß,

Daniel