-         
+ Antworten
Ergebnis 1 bis 3 von 3

Thema: Suche Knight Rider Code

  1. #1
    Erfahrener Benutzer Begeisterter Techniker
    Registriert seit
    16.05.2004
    Beiträge
    304

    Suche Knight Rider Code

    Hi!
    Hat jemand von euch einen fertigen, funktionierenden Knight rider Lauflicht code, der funktioniert? (für 8 Ausgänge)
    wäre sehr dankbar, da meiner bissl umständlich programmiert ist

  2. #2
    Gast
    wenn er funktioniert is doch ok! :P

    hast du den in assembler geschrieben?

    poste doch mal den quellcode




    goblin

  3. #3
    Erfahrener Benutzer Begeisterter Techniker
    Registriert seit
    16.05.2004
    Beiträge
    304
    Ein Lauflicht das ich mal geschickt bekommen hab umgeschrieben.
    Code:
    list p=16f84 
    
    #include <P16f84.INC> 
    
    
    loops   Equ     0x22              
    loops2  Equ     0x23            
    
    
    
    Init 
            bsf     STATUS, RP0     
            movlw   B'00000000'     
            movwf   TRISB 
            bcf     STATUS, RP0      
            clrf    PORTB            
    
    
    
            bsf     PORTB,0         
    
     
    
    Loop 
            call    Wait            
            rlf     PORTB,f  
            call    Wait            
            rlf     PORTB,f
            call    Wait            
            rlf     PORTB,f
            call    Wait            
            rlf     PORTB,f
            call    Wait            
            rlf     PORTB,f
            call    Wait            
            rlf     PORTB,f
            call    Wait            
            rlf     PORTB,f
            call    Wait            
            rlf     PORTB,f
    
            call    Wait            
            rrf     PORTB,f
            call    Wait            
            rrf     PORTB,f
            call    Wait            
            rrf     PORTB,f
            call    Wait            
            rrf     PORTB,f
            call    Wait            
            rrf     PORTB,f
            call    Wait            
            rrf     PORTB,f
            call    Wait            
            rrf     PORTB,f
            call    Wait            
            rrf     PORTB,f
           
            goto    Loop  
      
    
    
    Wait 
            movlw   D'250'         
            movwf   loops  
    
    Wai 
            movlw   .110           
            movwf   loops2 
    Wai2    nop                      
            nop 
            nop 
            nop 
            nop 
            nop 
            decfsz  loops2, F      
            goto    Wai2            
                                  
            decfsz  loops, F       
            goto    Wai            
            retlw   0             
    
            end

+ Antworten

Berechtigungen

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