pierwszy program (attiny2313)

[x21]

Witam, niedawno zacząłem swoją przygodę z Avr i programem bascom avr demo postanowiłem żeby mój pierwszy program sterował kilkoma LED-ami na początku napisałem program zapalający po kolei diody potem dodałem opcje żeby po dojściu do końca wracały się w tył . Mój problem polega na tym ,że chcę dodać efekt że np diody zrobią jakby 3 takie kółka a następnie zatrzymają się i zaczną np wszystkie migać, migną 5 razy a potem znów zrobią 3 kółka itd Wie ktoś jak to zrobić ? Z góry dzięki za pomoc Pozdrawiam .
Mój aktualny program :

Kod: Zaznacz cały

$regfile = "attiny2313.dat"
    $crystal = 1000000


    Config Portb = Output
           Portb = &B11111111
    Config Portd = Output
           Portd = &B1111111


     Do

     Portd.0 = 0
     Waitms 200
     Portd.0 = 1
        Portd.1 = 0
        Waitms 100
        Portd.1 = 1
     Portd.2 = 0
     Waitms 100
     Portd.2 = 1
        Portd.3 = 0
        Waitms 100
        Portd.3 = 1
     Portd.4 = 0
     Waitms 100
     Portd.4 = 1
        Portd.5 = 0
        Waitms 100
        Portd.5 = 1
           Portd.6 = 0
           Waitms 100
           Portd.6 = 1
        Portb.0 = 0
        Waitms 100
        Portb.0 = 1
           Portb.1 = 0
           Waitms 100
           Portb.1 = 1
        Portb.2 = 0
        Waitms 100
        Portb.2 = 1
           Portb.3 = 0
           Waitms 100
           Portb.3 = 1
        Portb.4 = 0
        Waitms 100
        Portb.4 = 1
           Portb.5 = 0
           Waitms 100
           Portb.5 = 1
        Portb.6 = 0
        Waitms 100
        Portb.6 = 1
           Portb.7 = 0
           Waitms 100
           Portb.7 = 1
        Portb.7 = 0
        Waitms 100
        Portb.7 = 1
           Portb.6 = 0
           Waitms 100
           Portb.6 = 1
        Portb.5 = 0
        Waitms 100
        Portb.5 = 1
           Portb.4 = 0
           Waitms 100
           Portb.4 = 1
        Portb.3 = 0
        Waitms 100
        Portb.3 = 1
           Portb.2 = 0
           Waitms 100
           Portb.2 = 1
        Portb.1 = 0
        Waitms 100
        Portb.1 = 1
           Portb.0 = 0
           Waitms 100
           Portb.0 = 1
        Portd.6 = 0
        Waitms 100
        Portd.6 = 1
           Portd.5 = 0
           Waitms 100
           Portd.5 = 1
        Portd.4 = 0
        Waitms 100
        Portd.4 = 1
           Portd.3 = 0
           Waitms 100
           Portd.3 = 1
        Portd.2 = 0
        Waitms 100
        Portd.2 = 1
           Portd.1 = 0
           Waitms 100
           Portd.1 = 1
        Portd.0 = 0
        Waitms 100
        Portd.0 = 1




    Loop

   
    End

[haterkmp]

ojejkuś ale żeś przekombinował... to co zamieściłeś można zmniejszyć do kilku linijek wraz z konfiguracją 2313...

ja nie będę mówił co zrobić i jak ale za to polece Ci świetną książkę/kurs Piotra Góreckiego - Mikrokontrolery dla początkujących. Ten kurs był prowadzony na łamach EdW i jest chyba takim najlepszym wprowadzeniem do AVR i bascoma

ale nawet jak nie chcesz inwestować w książki to ściągnij sobie z elportalu helpa do bascoma w języku polskim.

[Pikczu]

Witam dawno nie widziałem tak desperackiego kodu
Nie podważalnie kup tą książkę i wróć jak poczytasz a na pewno pomożemy

[x21]

Wielkie dzięki w najbliższym czasie zakupie książkę i biorę się za lekturę