logo elektroda
logo elektroda
X
logo elektroda
REKLAMA
REKLAMA
Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

[bascom][Atmega8] PWM. Rozjaśnianie diod za pomocą stanu niskiego.

ma16 20 Sie 2011 23:00 2138 3
REKLAMA
  • #1 9845708
    ma16
    Poziom 13  
    Witam wszystkich
    mam pytanie jak mogę zrobić aby załanczać rozjaśnianie diód za pomocą stanu niskiego ale w ten sposób żeby po zakończeniu rozjaśniania nie rozpoczynał jeszcze raz tej samej pętli. udało mi się zrobić samo rozjaśnianie i ściemnianie ale nie moge sobie poradzić żeby nie powtarzał tego samego kroku kilka razy. Oto mój program..
    
    $regfile = "m8def.dat"
    
    $crystal = 8000000
    
    Config Pinb.5 = Input
    Config Pinb.4 = Input
    Config Pinb.1 = Output
    
    Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Compare B Pwm = Disconnect , Prescale = 64
    
    
    Dim I As Byte
    
    Centr1 Alias Pinb.5
    Centr Alias Pinb.4
    
    Set Portb.4
    Set Portb.5
    Pwm1a = 0
    
    Do
    
          If Centr = 0 Then
                For I = 0 To 255
                Pwm1a = I
                Waitms 50
                Next I
    
          End If
    
          If Centr1 = 0 Then
             For I = 255 To 0 Step -1
             Pwm1a = I
             Waitms 50
             Next I
          End If
    Loop
    End
  • REKLAMA
  • REKLAMA
  • Pomocny post
    #3 9846011
    danthe
    Poziom 30  
    Kod: text
    Zaloguj się, aby zobaczyć kod


    Spróbuj tak. Jeśli nie zadziała dodaj zmienną np.

    Kod: text
    Zaloguj się, aby zobaczyć kod


    Oczywiście to wszystko w pętli Do - Loop
  • #4 9846444
    ma16
    Poziom 13  
    danthe właśnie o coś takiego chodziło dzięki wielkie :)
REKLAMA