-         

Ergebnis 1 bis 3 von 3

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

  1. #1
    Benutzer Stammmitglied
    Registriert seit
    17.08.2005
    Ort
    Pegnitz
    Alter
    29
    Beiträge
    36

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

    Anzeige

    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

  2. #2
    Erfahrener Benutzer Roboter Genie
    Registriert seit
    16.10.2008
    Ort
    Wulferstedt
    Beiträge
    1.042
    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

  3. #3
    Erfahrener Benutzer Begeisterter Techniker
    Registriert seit
    21.04.2006
    Ort
    Dortmund
    Alter
    30
    Beiträge
    379
    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.

    Code:
    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

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •