Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

Jak gasić diody bascom? Wszystkie jednocześnie.

henryxxl 07 Gru 2010 17:21 834 3
  • #1 07 Gru 2010 17:21
    henryxxl
    Poziom 26  

    Witam. Napisałem program który zapala po kolei diody i jest dobrze lecz po zapalaniu diod program gasi jedna po drugiej a chcę żeby na końcu programu gasił wszystkie.

    Code:
    $regfile = "m16def.dat"
    
    $crystal = 1000000



    Config Portd = Output
           Portd = &B0000000


    Do


         Waitms 200
        Toggle Portd.0


        Waitms 200
        Toggle Portd.1

        Waitms 200
        Toggle Portd.2


          Waitms 200
        Toggle Portd.3



          Waitms 200
        Toggle Portd.4




     Loop

    End


    Dodano po 44 [minuty]:

    już rozwiązane dzięki koledze SP3OTS.
    wystarczyło dopisać portd.0=1

    0 3
  • Pomocny post
    #2 07 Gru 2010 17:22
    hotdog
    Poziom 26  

    Nie znam bascoma, ale takie coś powinno działać:

    Code:
    $regfile = "m16def.dat"
    
    $crystal = 1000000



    Config Portd = Output
           Portd = &B0000000


    Do


         Waitms 200
        Toggle Portd.0


        Waitms 200
        Toggle Portd.1

        Waitms 200
        Toggle Portd.2


          Waitms 200
        Toggle Portd.3



          Waitms 200
        Toggle Portd.4

        Waitms 200
        Toggle Portd.0
        Toggle Portd.1
        Toggle Portd.2
        Toggle Portd.3
        Waitms 200

     Loop

    End

    0
  • #4 07 Gru 2010 18:41
    arktik1
    Poziom 27  

    jeśli chcesz by zgasił na 100% to wpisz:

    Code:

         Portd.0 = 0
         Portd.1 = 0
         Portd.2 = 0
         Portd.3 = 0

    lub
    Code:

    Portd = &B0000

    Poleceniem TOGGLE zmieniasz stan portu na przeciwny.
    Jeśli coś się nie uda TOGGLE przełączy port nie zależnie od jego stanu.

    0
  Szukaj w 5mln produktów