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][Atmega16] Problemy z UARTem

Piotrek_I 02 Wrz 2010 19:48 947 2
REKLAMA
  • #1 8469149
    Piotrek_I
    Poziom 12  
    Panowie podłączę się ponieważ ja też mam problem:(
    Łączę się z Atmegą za pomocą FTDI, który działa poprawnie. Po połączeniu TX i RX dokładnie to co wysyła to odbiera. Ale ten krótki kod nie chce działać:( krzaczy i krzaczy.
    Kod:

    $regfile = "m16def.dat"
    $crystal = 7372800
    $baud = 9600
    
    Config Com1 = 9600 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
    
    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portb.2 , Rs = Portb.0
    
    Dim Rsdata As String * 1
    
    Do
       Rsdata = ""
       Rsdata = Waitkey()
    
       If Rsdata = "R" Then
          Print "R"
          Cls
          Lcd "Connected"
       End If
    
       If Rsdata = "S" Then
          Print "S"
          Cls
          Lcd "Disconnect"
       End If
    
       Waitms 100
    
       Lcd Rsdata
    Loop
    
    Return



    Kwarc się zgadza. 7.3728. Prędkość transmisji też. Fuse Bity w ATmega16 to 99 ED. Od ustawień fabrycznych różni się tylko ustawieniem Kwarca zewnętrznego na 3-8MHz. Działał działał i nagle nie działa. Myślałem że może coś się fizycznie stało z UARTem procesora i do innej atmegi16 wrzuciłem program. I to samo:( Fusy też tak ustawione.
    Bascom 1.11.9.4 oryginalny.
    Co tu nie tak jest??

    Ktoś pisał żeby dodać:
    $hwstack = 32
    $swstack = 32
    $framesize = 64 
    

    ale jest tak samo.
    Po usunięciu config com to samo.
    Dodanie
    $prog &HFF , &H9F , &HDD , &H00

    również nic nie zmieniło.
  • REKLAMA
  • #3 8469885
    Piotrek_I
    Poziom 12  
    Po zmianie kwarca na kolejny i napisniu programu od nowa przestało krzaczyć. Problem rozwiązany.
REKLAMA