Jak zwiększyć szybkość transmisji RS232 w Bascom na ATmega16 16MHz?

Question

Witam! Buduję urządzenie komunikujące się z PC poprzez port RS232. Zależy mi na jak najszybszej transmisji. Aplikacja PC wysyła rozkaz TX do urządzenia, urządzenie odsyła zmierzone wartości w postaci ciągu: dana1:dana2:dana3:dana4:dana5:dana6:dana7:dana8 za pomocą Bascomowej instrukcji Print....

szymtro · Accepted Answer

No to zaczynamy po raz kolejny.

Coś takiego jak stworzyłeś to niestety za szybko nie będzie działać. Mega z kwarcem rs 14 z groszami działa naprawdę szybko i można zrobić bardzo dużo w jedna sekundę.
Do odbierania i wysyłania danych można sobie napisać własną procedurę - nawet w bascomie i jest ona sporo szybsza i działa rewelacyjnie.
Deklarujemy przerwania od rs'a:

On Urxc Rs_rx_ok
On Utxc Rs_tx_ok

Deklarujemy zmienne:

Dim Rs_rx_bufor As Byte

Dim Rs_tx_bufor(30) As Byte 'na wszelki wiecej
Dim Rs_tx_licznik As Byte
Dim Rs_tx_ograniczenie As Byte

Przerwanie od rx:

Rs_rx_ok:
   If Udr = "i" Then
      Rs_tx_licznik = 2 : Rs_tx_ograniczenie = 25           'ustaw poczatek w stringu do wyslania
      Reset Ucr.4
      Udr = Rs_tx_bufor(1)                                  'poczatek wiadomosci
   Else
      Rs_rx_bufor = Udr
   End If
Return

Przerwanie od tx:

Rs_tx_ok:
   If Rs_tx_licznik > Rs_tx_ograniczenie Then
      Rs_tx_licznik = 1
      Set Ucr.4
   Else
      Udr = Rs_tx_bufor(rs_tx_licznik) : Incr Rs_tx_licznik
   End If
Return

Deklarujemy sobie jakieś napisy początkowe(przed pętlą główną):

   Rs_tx_bufor(1) = "0"
Rs_tx_bufor(2) = "0"
Rs_tx_bufor(3) = ":"
Rs_tx_bufor(4) = "0"
Rs_tx_bufor(5) = "0"
Rs_tx_bufor(6) = ":"
Rs_tx_bufor(7) = "0"
Rs_tx_bufor(8) = "0"
Rs_tx_bufor(9) = ":"
Rs_tx_bufor(10) = "0"
Rs_tx_bufor(11) = "0"
Rs_tx_bufor(12) = ":"
Rs_tx_bufor(13) = "0"
Rs_tx_bufor(14) = "0"
Rs_tx_bufor(15) = ":"
Rs_tx_bufor(16) = "0"
Rs_tx_bufor(17) = "0"
Rs_tx_bufor(18) = ":"
Rs_tx_bufor(19) = "0"
Rs_tx_bufor(20) = "0"
Rs_tx_bufor(21) = ":"
Rs_tx_bufor(22) = "0"
Rs_tx_bufor(23) = "0"
Rs_tx_bufor(24) = &h0A 'CR
Rs_tx_bufor(25) = &h0d 'LF

Przykład z pliku napisanego dla tiny2313 - dlatego takie nazwy rejestrów. Konfiguracje prędkości i ustawienia wysyłania, załączenia przerwań podpatrz w załączonym pliku.

Dobrze ci idzie ale poanalizuj jeszcze trochę datasheet do twojego uC.

Dodano po 5 [minuty]:

Do moderatora: wiem że złamałem regulamin (wysyłanie post pod postem) ale tak chyba będzie bardziej czytelne - inaczej wychodzi straszny tasiemiec.
--------------------------------------------------------------------------------------
Programik działa tak ze normalnie w pętli coś tam może sobie robić (najpewniej analizować zmienne, przerabiać je na hex i wstawiać w odpowiednie miejsca do bufora(tam gdzie w przykładzie są zera).

W momencie nadejścia literki "i" ustawia sobie odpowiednio liczniki i ograniczenia liczników i wysyła jeden znak(pierwszy). W momencie jak wyśle wystąpi przerwanie nadania (nadawania), zwiększy licznik, sprawdzi czy już ma być koniec (ograniczenie) i albo zakończy albo wyśle kolejny znak z bufora.

Tak to działa i działa bardzo dobrze.

crazy_phisic · Answer

Nota katalogowa -> zakładka USART -> Examples of Baud Rate Setting i juz wszystko jasne

szymtro · Answer

Coś nie mogę za bardzo uwierzyć w te 5hz - może 50hz?
19200 to w przybliżeniu 1500 znaków na sekundę. Jak zrobisz z danych postać hex to mi wychodzi 23znaki w wiadomości (no może 25 bo crlf).
Jakby nie patrzeć taka ramkę można powtórzyć szybciej niż 60hz.

Masz coś źle z samym algorytmem na pc albo coś nie tak z tym programem w bascomie.

Zaraz się pewnie okaże że używasz komendy input do wykrycia znaku specjalnego tx z pc.

MES Mariusz · Answer

To jest przykładowy string wysłany od urządzenia do PC: Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka514:512:512:512:514:515:512:516 łącznie 32 znaki, wysłane za pomocą komendy print a dokładniej kodu: Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka Print Zmienna1 ; Print : ; Print Zmienna2 ; Print : ; Print Zmienna3 ; Print : ; Print Zmienna4 ; Print : ; Print Zmienna5 ; Print : ; Print Zmienna6 ; Print : ; Print Zmienna7 ; Print : ; Print Zmienna8 ; Ot cały skomplikowany algorytm. Najpierw urządzenie czeka na komendę (Input Komenda) a po odebraniu właściwej komendy wysyła printami 8 danych. I tyle. W rzeczy samej. Instrukcją Input czekam na string dwu znakowy TX. A dlaczego nie? Film, na którym widać (ostatnie sekundy) opisywany problem zamieszczam w załączniku oraz pod adresem: Widać - urządzenie nie zdąża wysłać wszystkich danych.

MES Mariusz · Answer

Zanim przystąpiłem do prób z zaproponowaną procedurą do obsługi UARTu, przeprowadziłem testy siłowe za pomocą kodu:


$regfile = "m16def.dat"
$crystal = 16000000
$baud = 38400

Dim Licznik As Integer
Dim Rozkaz As String * 2

Licznik = 0

Do                                                     
   Incr Licznik
   Print Licznik ; " : 1023:1023:1023:1023:1023:1023:1023:1023"

   If Licznik > 1000 Then
    Do
     Input Rozkaz
     If Rozkaz = "TX" Then
      Licznik = 0
      Exit Do
     End If
    Loop
   End If

Loop                                                   

End

Efekt jest taki, że 1000 takich stringów jest wysyłany do terminala na PC w ciągu 12 sekund, co daje maksymalną prędkość około 80 stringów (po ok. 40 znaków) na jedną sekundę.

Dlaczego więc aplikacja odczytuje pełny string bufora jeśli przesyłane jest nie więcej niż ok. 5 stringów na sekundę?

Zrobiłem kolejny test.

Ustawiłem $baud na 128000 baud (pozwoliłem sobie na baud error na poziomie 2%).

Jaki efekt? Aplikacja prawidłowo działa przy dwukrotnie większym interwale! (10Hz). Tym razem urządzenie spokojnie wyrabia się w przesłaniu 10 pełnych stringów po 40 znaków w ciągu sekundy! Przejrzałem listę odebranych danych i widzę, że ten błąd 2% nie robi mi problemu (żadna dana nie została przekłamana).

Ciekawe tylko, skąd takie duże zapotrzebowanie na prędkość transmisji, skoro przy prędkośc 38400, 1000 takich 40 znakowych stringów jest wysyłane do terminala na PC w ciągu 12 sekund, czyli około 80 stringów (po ok. 40 znaków) na jedną sekundę?

Oto jest pytanie...

Jak zwiększyć szybkość transmisji RS232 w Bascom na ATmega16 16MHz?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6