Jak zrealizować transmisję RS485 między dwoma ATtiny2313 w BASCOM-AVR?

Question

Witam! Państwa bardzo serdecznie, jednocześnie zwracając się do Państwa z poniżej opisanym problemem. Otóż chcę zrealizować transmisję w oparciu o standard RS485 między dwoma mikrokontrolerami ATtiny2313 firmy ATMEL Corporation. Schemat zestawionego układu przedstawiono na poniższej rycinie....

mirley · Accepted Answer

Nie pisałem nic na Rs485 ale mam kilka uwag do programu. Zacznij najpierw od poczytania w helpie bascoma, co robi dokładnie instrukcja Inkey() a dowiesz się że odbiera 1 bajt (jeden znak) z bufora. Sprawdzanie więc warunku B = "zaswiec" nie ma najmniejszego sensu. Nie wiem też po co przełączasz tyle razy układ w nadajnik <>odbiornik:


......
Reset Re_de                                                 'przelaczenie konwertera rs485 na odbiornik
Set Re_de                                                   'przelaczenie konwertera rs485 na nadajnik

Do

Reset Re_de                                                 'przelaczenie konwertera rs485 na odbiornik


Set Re_de       
.....

Zostaw na początku tylko Set Re_de w nadajniku a Reset Re_de i to przed pętlą do loop. W pętli głównej nadajnika napisz:


wait 1
a = 1
printbin a 
wait 1
a = 2
printbin a

Co sekundę wysyła raz 1 a raz 0, binarnie.

W odbiorniku napisz w pętli głównej:


B = Inkey()
If B <>0 Then
 if B = 1 then Pind.5 = 0  else Pind.5 = 1
End If

od takiego programu ja bym rozpoczął zabawę, oczywiście konfiguracja portów na początku programu i zmienna a w nadajniku typu byte

Promuję tematy:
12.06.2018 Filtr do Subwoofera z regulacją pasma i wzmocnienia
15.05.2018 Analogowy regulator obrotów wentylatora

papikus · Answer

Stosowanie konwerterów rs485 w tym przypadku nie ma najmniejszego sensu, ćwiczenia z tym protokołem to zaimplementowanie interfejsu komunikacji, a nie konwersja poziomu sygnałów.
Poczytaj o komunikacji pod Bascomem skoro od niego zaczynasz. A potem dokładaj kolejne klocki.

papikus · Answer

przepraszam że tak zapytam, ale od kiedy linie z RS485 się krosuje?

Konto nie istnieje · Answer

Dziękuję za udzieloną mi pomoc!

Ja jednak posiadam jeszcze jeden mały problem. Otóż próbuję zbudować układ, który po naciśnięciu odpowiedniego przycisku będzie zapalał odpowiednią diodę LED. Poniżej przedstawiam schemat owego układu.

Jak widać na zamieszczonym schemacie układ składa się z 6 diod LED w układzie odbiorczym oraz 6 przycisków w układzie nadawczym. Diody i przyciski podłączone są do pinów portu B zaczynając od pinu PB7 (dioda D1 lub przycisk S1) do pinu PB2 (dioda D6 lub przycisk S6). Gdy nacisnę przycisk S1 - to zaświeci mi się dioda LED oznaczona D1, gdy puszczę ten przycisk to dioda zgaśnie. I analogicznie z pozostałymi diodami LED i przyciskami. Dane między mikrokontrolerami przesyłane są oczywiście za pomocą RS485.

Ja próbowałem wykonać owy układ, na początek z dołączonymi dwoma diodami LED i dwoma przyciskami, jednak niestety nie działał on poprawnie. Przycisk dołączony do portu D o numerze 4 układu nadawczego miał zaświecić diodę podłączoną do portu D o numerze 5 układu odbiorczego. Zaś przełącznik dołączony do portu D o numerze 5
układu nadawczego miał zaświecić diodę podłączoną do portu D o numerze 6 układu odbiorczego.

Poniżej przesyłam listingi układu odbiorczego, a także nadawczego (moje próby):

Listing układu nadawczego:


Re_de Alias Pind.2			'przypisanie aliasu linii pd.2, re_de steruje kierunkiem transmisji konwertera 
Dim A As Byte
Dim B As Byte


Set Re_de				'przelaczenie konwertera rs485 na nadajnik 

Config Pind.4 = Input			'konfiguracja pinu 4 portu D jako wyjście - przycisk pierwszy
Config Pind.5 = Input			'konfiguracja pinu 5 portu D jako wyjście - przycisk drugi

Do
A = 0
B = 0

If Pind.4 = 0 Then			'obsługa przycisku pierwszego
A = 5
Printbin A
Wait 1
End If

If Pind.5 = 0 Then			'obsługa przycisku drugiego
B = 4
Printbin B
Wait 1
End If


Loop
End

Listing układu odbiorczego:


Re_de Alias Pind.2			'przypisanie aliasu linii pd.2, re_de steruje kierunkiem transmisji konwertera
Dim B As Byte
Dim C As Byte

Reset Re_de				'przelaczenie konwertera rs485 na odbiornik
Config Pind.5 = Output			'konfiguracja pinu 5 portu D jako wyjście - dioda D1
Config Pind.6 = Output			'konfiguracja pinu 6 portu D jako wyjście - dioda D2


Do

Set Pind.5				'ustawienie stanu początkowego PD.5
Set Pind.6				'ustawienie stanu początkowego PD.5

B = 0
C = 0



B = Inkey()				'obsługa diody pierwszej
If B <> 0 Then
 If B = 5 Then Pind.5 = 0 else Pind.5 = 1
 Wait 1
End If



C = Inkey()				'obsługa diody drugiej
If C <> 0 Then
If C = 4 Then Pind.6 = 0 else Pind.6 = 1
Wait 1
End If

Loop
End

Bardzo proszę o pomoc w kwestii rozwiązania powyżej opisanego problemu.

Życzę miłego dnia!

mirley · Answer

Napisz odbiornik w taki sposób i zobacz jaki jest efekt:



Re_de Alias Pind.2         'przypisanie aliasu linii pd.2, re_de steruje kierunkiem transmisji konwertera
Dim B As Byte

Reset Re_de            'przelaczenie konwertera rs485 na odbiornik
Config Pind.5 = Output         'konfiguracja pinu 5 portu D jako wyjście - dioda D1
Config Pind.6 = Output         'konfiguracja pinu 6 portu D jako wyjście - dioda D2

Set Pind.5            'ustawienie stanu początkowego PD.5
Set Pind.6            'ustawienie stanu początkowego PD.5

Do

B = Inkey()            'obsługa diody pierwszej
If B <> 0 Then
 If B = 1 Then Pind.5 = 0 
 If B = 2 Then Pind.5 = 1 
 If B = 3 Then Pind.6 = 0 
 If B = 4 Then Pind.6 = 1 
End If

Loop
End

Teraz taki odbiornik po odebraniu 1 właczy diodę a po odebraniu 2 ją wyłaczy, tak samo 3 i 4 dla drugiego kanału

Układ nadawczy:


Re_de Alias Pind.2         'przypisanie aliasu linii pd.2, re_de steruje kierunkiem transmisji konwertera
Dim A As Byte
Dim Stan1 as bit, Stan2 as bit


Set Re_de            'przelaczenie konwertera rs485 na nadajnik

Config Pind.4 = Input         'konfiguracja pinu 4 portu D jako wyjście - przycisk pierwszy
Config Pind.5 = Input         'konfiguracja pinu 5 portu D jako wyjście - przycisk drugi

Do


If Pind.4 = 0 Then         'obsługa przycisku pierwszego
toggle Stan1
if Stan1 = 0 then A = 1 else  A=2
Printbin A
Wait 1
End If

If Pind.5 = 0 Then         'obsługa przycisku drugiego
toggle Stan2
if Stan2 = 0 then A = 3 else  A=4
Printbin A
Wait 1
End If

Loop
End

Wydaje mi się że teraz powinno działać

Promuję tematy:
12.06.2018 Filtr do Subwoofera z regulacją pasma i wzmocnienia
15.05.2018 Analogowy regulator obrotów wentylatora

kubusek32 · Answer

Witam, mam ten sam problem, połączyłem układ tak jak w pierwszym poście.
Kod nadajnika:


$regfile "attiny2313.dat"
$crystal = 4000000
Dim A As Byte
A = 0

Config Portd.2 = Output
Re_de Alias Portd.2
Set Re_de
Do
   Toggle A
   Printbin A
   Wait 1
Loop
End

Kod odbiornika:


$regfile "attiny2313.dat"
$crystal = 4000000
Dim A As Byte
A = 0

Re_de Alias Portd.2
Config Portd.2 = Output
Config Portb = Output
Portb = 0

Reset Re_de
Do
   A = Inkey()
   Portb = A
Loop
End

Próbowałem też dać rezystor 120 om między A i B (wtedy stabilizator strasznie się grzeje) ale dalej dioda nie mruga (podłączona pod nóżkę z portu B). Dodam, że nie mam kwarcu tylko taktuję wewnętrznym RC.

Jak zrealizować transmisję RS485 między dwoma ATtiny2313 w BASCOM-AVR?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Podsumowanie tematu