ATNEL tech-forum

Re: RS485 odpowiada tylko jeden slave

2014-11-21T20:04:24+01:00

Witam

Problem rozwiązany. Między innymi chodziło o instrukcję Config Print0 ale głównym powodem błędów była stara wersja bascoma która miała błędy w funkcji Printbin przy RS485

Dziękuję wszystkim za pomoc

Statystyki: Napisane przez mjc — 21 lis 2014, o 20:04

Re: RS485 odpowiada tylko jeden slave

2014-11-21T15:58:47+01:00

Ja używam takiego "stwora" do sterowania przekaźnikami:
[syntax=basic4gl]$regfile = "m32def.dat"
$crystal = 11059200
$baud = 9600

On Urxc Przerwanie_od_rxd

Config Portb.0 = Output
Config Portd.3 = Output
Config Print0 = Portd.3 , Mode = Set

Out1 Alias Portb.0

Dim Bufor(10) As Byte , Dana As Byte , B As Byte , C As Byte , G As Byte
Dim Adres As Byte , Karta As Byte , Urzadzenie As Byte , Stan As Byte

Adres = 01
G = 1

Print
Print "Karta nr: " ; Adres
Wait 1

Enable Interrupts
Enable Urxc

Do

Loop
End

Przerwanie_od_rxd:

Inputbin Dana
Bufor(g) = Dana
Incr G

If G = 6 Then
If Bufor(1) = 83 Then

Karta = Bufor(2) - 48
Karta = Karta * 10
Karta = Karta + Bufor(3)
Karta = Karta - 48
Urzadzenie = Bufor(4) - 48
Stan = Bufor(5) - 48

If Karta = Adres Then

If Stan = 0 Then
Select Case Urzadzenie
Case 1 : Reset Out1
End Select
End If

If Stan = 1 Then
Select Case Urzadzenie
Case 1 : Set Out1
End Select
End If

If Stan = 2 Then
Print
Select Case Urzadzenie
Case 1 : If Out1 = 0 Then Print "off" Else Print "on"
End Select
End If

G = 1
Else
G = 5
For B = 1 To 4
C = B
Incr C
Bufor(b) = Bufor(c)
Next
End If
Else
G = 5
For B = 1 To 4
C = B
Incr C
Bufor(b) = Bufor(c)
Next
End If

End If

Return[/syntax]
Wysyłam komendy:
S0111-włącz przekaźnik nr1
S0110-wyłącz przekaźnik nr1
S0110-stan przekaźnika nr1 (zwraca on/off)

Statystyki: Napisane przez pimowo — 21 lis 2014, o 15:58

Re: RS485 odpowiada tylko jeden slave

2014-11-21T09:25:10+01:00

RS485 jest oparty o magistrale, czyli przewód 2 żyłowy (skrętka) zakończony rezystorami dopasowującymi o wartości impedancji magistrali (np 120ohm). To powoduje że od strony elektrycznej magistrala wydaje się nieskończona i nie powstają odbicia sygnałów.

Rezystory podciągające do vcc i gnd to tryb awaryjny (FAILSAFE), do normalnej pracy nie stosuje się ich.

Statystyki: Napisane przez OdeOn — 21 lis 2014, o 09:25

RS485 odpowiada tylko jeden slave

2014-11-21T04:39:27+01:00

Witam

Mam pewien problem: zaczynam swoją przygodę z magistralą RS485, chcę uruchomić dwa slave'y na magistrali (są to twa zestawy uruchomieniowe) oraz przejściówka USB-RS485 http://electropark.pl/moduly-komunikacj ... rs485.html

Wszystko działa pięknie z jednym slave'm jednak gdy podłącze drugi to odpowiada na zapytania tylko jeden, ten później podłączony. Można to zmienić wciskając reset na płytce - wtedy działać będzie tylko ten na którym później został wciśnięty reset.
Oczywiście adresy slave'ów są różne.

Walczę z tym już kilka godzin i nic - kod jest dość prosty. Po stronie przejściówki RS485-USB testuję pod linuxem na własnym programie oraz pod windowsem przez RealTerm - efekt ten sam, działa tylko jeden slave. Przy konwerterze USB-RS485 linie A i B są podciągnięte odpowiednio do zasilania i masy przez rezystory 2.2k, nigdzie indziej w projekcie nie były podciągane linie A i B. Wyczytałem gdzieś, ze linie A i B powinny być podciągnięte do +5V i GND przez rezystor 450-680 ale czy we wszystkich slave'ach ? Jednak przy krótkich kablach (wszystko leży na biurku) nie powinno być problemu...

Może ktoś z kolegów by pomógł?

Poniżej kod slave'a:

[syntax=basic4gl]$regfile = "m32def.dat"
$crystal = 16000000
$hwstack = 64 ' default use 32 for the hardware stack
$swstack = 50 ' default use 10 for the SW stack
$framesize = 50 ' default use 40 for the frame space

$baud = 115200

'max485 DE pin -> 1 - włączenie nadajnika, 0 - wyłączenie nadajnika
Config Pind.7 = Output
_de Alias Portd.7
_de = 0
'*** przerwanie odbioru danych via UART
Enable Urxc
On Urxc Odbieraj

Enable Interrupts 'globalne włączenie przerwań
'*************************************
Dim Bufor_odbioru(16) As Byte
Dim Urxc_ilosc_bajtow As Byte
Urxc_ilosc_bajtow = 0
Dim Odebrano As Byte
Odebrano = 0
Dim Adres As Byte
Adres = 6

'***main()
Do
If Odebrano = 1 Then
Disable Urxc
If Bufor_odbioru(1) = &HAB Then 'poczatek ramki
If Bufor_odbioru(2) = Adres Then 'mamy zgodny adres
If Bufor_odbioru(4) = &H51 Then 'pytanie czy mamy karte
_de = 1
Waitms 2
Printbin &HAB ; &H80 ; Adres ; &H5A ; &HAA ; &HAC
Waitms 2
_de = 0
End If
End If
End If
Odebrano = 0
Urxc_ilosc_bajtow = 0
Enable Urxc
End If
Loop
'///////////////////////////////////////////////////////////////////////////////
Odbieraj:
If Urxc_ilosc_bajtow < 6 Then
Incr Urxc_ilosc_bajtow
Bufor_odbioru(urxc_ilosc_bajtow) = Udr

If Urxc_ilosc_bajtow = 6 Then
Odebrano = 1
End If
End If
Return[/syntax]

Statystyki: Napisane przez mjc — 21 lis 2014, o 04:39