Suche Programmierer für Attiny 13-20/ einfaches Programm

[bebop]

Hallo zusammen,

ich habe mich in der Disziplin zwar auch schon versucht aber das blieb erfolglos, ein einfaches Taster-drück Licht-an Programm bekomme ich hin aber das wars dann auch schon.
Wurde jemand ein kleines Programm für mich schreiben ? Die Logik ist ganz einfach. Ein Taster druck soll Ausgang A ein schalten, ein weiteres drücken schaltet Ausgang A aus und B an, noch mal drücken schaltet Ausgang C an und B aus, bei nochmaliger Betätigung soll Ausgang C aus gehen und alles wieder von vorne los gehen.

Als Mikrocontroller dachte ich mir einen Atmel Attiny 13-20.
Mit freundlichen Grüßen
Johannes Kohler

[hardware.bas]

Ich denke, das kriegst Du hin - ein wenig hast Du ja schon realisiert.
Kannst Dich ja mal in BASCON reinlesen, speziell in Sachen Toggeln
und Entprellen. VG Micha

[oZe]

Eigentlich solltest du das auch ohne Probleme selbst schnell hinbekommen. Ich habs dir trotzdem mal schnell geschrieben. Das Regfile und die Taktfrequenz musst du oben noch einbinden.



Config Porta.0 = Output
Config Porta.1 = Output
Config Porta.2 = Output
Config Pina.3 = Input

Dim State As Byte
State = 1

Do

Debounce Pina.3 , 0 , Unterfunkt , Sub

Loop
End


Unterfunkt:
If State = 1 Then
Porta.0 = 1
Waitms 50
State = 2

Elseif State = 2 Then
Porta.0 = 0
Porta.1 = 1
Waitms 50
State = 3

Elseif State = 3 Then
Porta.1 = 0
Porta.2 = 1
Waitms 50
State = 4

Elseif State = 4 Then
Porta.2 = 0
Waitms 50
State = 1

End If

Return

Ist zugegebenermaßen mit heißer Nadel gestrickt aber wird funktionieren ;-)