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

Atmega 128 i dioda bascom

marcinwrc2 29 Cze 2011 20:38 1406 2
REKLAMA
  • #1 9663402
    marcinwrc2
    Poziom 12  
    Witam.Dorwałem płytkę testową do at128 i chcę sprawdzić procesorek. Wgrywam mu program z bascoma i dioda zamiast migać to świeci.Częstotliwość zegara ustawiałem i powinna być ok.Nie wiem gdzie szukać przyczyny.
    Taki programik.

    $regfile = "m128def.dat"
    $crystal = 1000000
    Config Pind.7 = Output
    Config Timer 0 = Timer , Prescale = 256
    On Timer 0 Odmierz_1s
    Dim Licz_8ms As Byte
    Enable Interrupts
    Enable Timer0
    Load Timer0 = 250
    Do
    Loop
    End
    Odmierz_1s:
    Load Timer 0 = 250
    Incr Licz_8ms
    If Licz_8ms = 125 Then
    Licz_8ms = 0
    Toggle Portd.7
    End If
    Return
  • REKLAMA
  • #2 9663493
    Wojtek75
    Poziom 24  
    Pewnie trza wyłączyć bit M103C w fuse.
    zapis:
    Kod: text
    Zaloguj się, aby zobaczyć kod

    jest błędny.
    prawidłowo:
    Kod: text
    Zaloguj się, aby zobaczyć kod

    Poza tym przy tych ustawieniach timera w stosunku do prędkości kwarcu nie uzyskasz przerwania co 8ms.
  • #3 9663563
    marcinwrc2
    Poziom 12  
    Czyli gdzie jest znak = ma być , ? wszędzie? Zegar mam na 8MHz.Już zmieniłem.
    Bit 103 jest na zero, watchdog na jeden

    zrobiłem tak
    $regfile = "m128def.dat"
    $crystal = 8000000
    Config Pina.0 = Output
    Config Timer 0 = Timer , Prescale = 256
    On Timer0 Odmierz_1s
    Dim Licz_8ms As Byte
    Enable Interrupts
    Enable Timer 0
    Load Timer0 = 250
    Do
    Loop
    End
    Odmierz_1s:
    Load Timer 0 , 250
    Incr Licz_8ms
    If Licz_8ms = 125 Then
    Licz_8ms = 0
    Toggle Porta.0
    End If
    Return
    i są błędy error 12 line 4

    Błędy zlikwidowane , kompilacja ok a dioda tylko świeci.

    Dodano po 34 [minuty]:

    Program jest ok bo na atmega 8 dział jak należy.Więc co z tz atmegą 128?

    No i wszystko ok .wyłączyć bit M103C w fuse
    dzięki
REKLAMA