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

[atmega32][bascom] Efekt świetlny pwm

Manio79 05 Lis 2010 18:39 2241 4
REKLAMA
  • #1 8706367
    Manio79
    Poziom 10  
    Witam.Mam taką łamigłówke,a mianowicie jak steruje diodą [pwm] to podpinam ją pod pin pd5 lub pd4 poprostu pod timer.Czy może mi ktoś objaśnić,wytłumaczyć jak gościu podpioł tyle ledów że jednocześnie przygasają to na dodatek podpioł wszystkie pod port B

    YouTube: http://www.youtube.com/watch?v=GD6lYOd9TqI
  • REKLAMA
  • REKLAMA
  • #3 8709895
    Manio79
    Poziom 10  
    Przesortowałem tematy z programowalnym PWM,ale większość przykładów jest na atmege8 :cry: .A ja żeby zrozumieć,nauczyć się muszę "dotknąć" jakiegoś przykładu.Mirekk36 możesz jakiś przykład takiego PWM podać.Miałbym co analizować i testować na płytce uruchomieniowej przez weekend :D .
  • REKLAMA
  • #5 8710094
    Manio79
    Poziom 10  
    Wklepałem to:

    $regfile = "m32def.dat"
    $hwstack = 32
    $swstack = 32
    $framesize = 32
    $crystal = 16000000

    Dim Licz As Byte , Wyp(4) As Byte

    Portd = Portd Or &B00001111
    Ddrd = Ddrd Or &B00001111

    Config Timer0 = Timer , Prescale = 1
    On Timer0 Przerwanie
    Enable Interrupts
    Enable Timer0

    Wyp(1) = 31
    Wyp(2) = 63
    Wyp(3) = 95
    Wyp(4) = 127

    Do
    Wait 10
    Set Wyp(2).7 'LED-ka wygaszona
    Wait 10
    Reset Wyp(2).7 'LED-ka PWM-uje ;)
    Loop



    Przerwanie:
    Decr Licz
    If Licz = 255 Then
    Portd = Portd Or &H0F
    Licz = 127 '128 kroków/~241Hz
    End If
    If Licz = Wyp(1) Then Reset Portd.0
    If Licz = Wyp(2) Then Reset Portd.1
    If Licz = Wyp(3) Then Reset Portd.2
    If Licz = Wyp(4) Then Reset Portd.3
    Return

    i diody tylko świecą.Hmm?Co tu nie gra
REKLAMA