Forum www.nestor-electronic.pl Strona Główna www.nestor-electronic.pl
Forum sterowników procesorowych- programy BASCOM
 
 FAQFAQ   SzukajSzukaj   UżytkownicyUżytkownicy   GrupyGrupy   RejestracjaRejestracja 
 ProfilProfil   Zaloguj się, by sprawdzić wiadomościZaloguj się, by sprawdzić wiadomości   ZalogujZaloguj 

OBSŁUGA RS 485

 
Napisz nowy temat   Odpowiedz do tematu    Forum www.nestor-electronic.pl Strona Główna -> Pomoc w programowaniu BASCOM
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
endurasek
Lekko zaangażowany


Dołączył: 14 Lis 2007
Posty: 69

PostWysłany: Czw Wrz 12, 2013 6:56 am    Temat postu: OBSŁUGA RS 485 Odpowiedz z cytatem

Witam
mam taki problem mianowicie zbudowałem dwa układy jeden działa jako master-steruje wyjsciami,odlicza czas itp. a drugi
slave - ma za zadanie tylko wyświetlać to co mu master wyśle

Napisałem krótki program ale on tylko przy włączeniu zasilania odczyta dana wartość a potem już nie a mi zależy aby cały czas sprawdzał co mu master wysyła

Master-nadajnik
Kod:
$regfile = "m8def.dat"

$crystal = 8000000
$baud = 19200


'------------------------pierwsza próba----------------------------------------
'Config Portd.2 = Output
'Kierunek Alias Portd.2
'Config Serialin = Buffered , Size = 15
' set kierunek
'-------------------------------------------------------------------------------


'------------------------druga próba--------------------------------------------

$hwstack = 42                                               ' default use 32 for the hardware stack
$swstack = 40                                               ' default use 10 for the SW stack
$framesize = 40                                             ' default use 40 for the frame space

$lib "modbus.lbx"
Config Print0 = Portd.2 , Mode = Set
Kierunek Alias Portd.2
Config Kierunek = Output
Kierunek = 1
'-------------------------------------------------------------------------------

Dim A As Integer

A = 1

Do

Print A
Wait 1
A = A + 1


Loop
                 


i odbiornik jest to wyświetlacz

Kod:
$regfile = "m8def.dat"

$crystal = 8000000
$baud = 19200

Config Lcdpin = Pin , Db4 = Pordc.3 , Db5 = Pordc.2 , Db6 = Portc.1 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5
Config Lcd = 20 * 4

'----------------------------------pierwsza proba-------------------------------
'Config Serialin = Buffered , Size = 15
'Config Pind.2 = Output
'Kierunek Alias Portd.2
'Reset Kierunek
'-------------------------------------------------------------------------------

'------------------------------------druga proba--------------------------------
$hwstack = 42                                               ' default use 32 for the hardware stack
$swstack = 40                                               ' default use 10 for the SW stack
$framesize = 40                                             ' default use 40 for the frame space

$lib "modbus.lbx"
Config Print0 = Portd.2 , Mode = Set
Kierunek Alias Portd.2
Config Kierunek = Output
Kierunek = 0                                                ' go to receive mode
'-------------------------------------------------------------------------------


                                    'zmienia kierunek transmisji

Enable Interrupts

Dim A As Integer

Cls
Cursor Off

Do


Input A
Waitms 100


Locate 1 , 1
Lcd A


Loop                                                        'end program
End

Powrót do góry
Zobacz profil autora Wyślij prywatną wiadomość
rafal
Site Admin


Dołączył: 08 Lis 2007
Posty: 1180
Skąd: Olkusz

PostWysłany: Sob Wrz 14, 2013 6:24 pm    Temat postu: Odpowiedz z cytatem

Na dołączonej płycie cd masz przykład takiego układu w programie sterownik do pieca w wersji 3.0 ze zdalnym lcd- wiec podgladnij.
Powrót do góry
Zobacz profil autora Wyślij prywatną wiadomość Wyślij email Odwiedź stronę autora
Wyświetl posty z ostatnich:   
Napisz nowy temat   Odpowiedz do tematu    Forum www.nestor-electronic.pl Strona Główna -> Pomoc w programowaniu BASCOM Wszystkie czasy w strefie CET (Europa)
Strona 1 z 1

 
Skocz do:  
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach


Powered by phpBB © 2001, 2005 phpBB Group