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:
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ć:
ale jest tak samo.
Po usunięciu config com to samo.
Dodanie
również nic nie zmieniło.
Łą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ć
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
ReturnKwarc 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 , &H00również nic nie zmieniło.