Picaxe jako převodník RS485

Uživatelský avatar
fulda
Příspěvky: 596
Registrován: 04 led 2016, 17:18

Re: Picaxe jako převodník RS485

Příspěvek od fulda » 01 srp 2018, 15:56

a propojení zem-zem máš?
Za pravopisné chyby v této zprávě může moje učitelka češtiny.

jova
Příspěvky: 262
Registrován: 16 pro 2013, 11:40

Re: Picaxe jako převodník RS485

Příspěvek od jova » 01 srp 2018, 15:58

Tak beru zpět. Zdá se že to funguje :D
Špatně jsem propojil na cvičné desce na přijímači to ovládání RE/DE-PICAXE :?

Uživatelský avatar
fulda
Příspěvky: 596
Registrován: 04 led 2016, 17:18

Re: Picaxe jako převodník RS485

Příspěvek od fulda » 01 srp 2018, 16:41

jova píše:
01 srp 2018, 15:58
Tak beru zpět. Zdá se že to funguje :D
Špatně jsem propojil na cvičné desce na přijímači to ovládání RE/DE-PICAXE :?
bezva, takže tím je to vyřešené a teď už jen ladit a vylepšovat!!
Za pravopisné chyby v této zprávě může moje učitelka češtiny.

jova
Příspěvky: 262
Registrován: 16 pro 2013, 11:40

Re: Picaxe jako převodník RS485

Příspěvek od jova » 02 srp 2018, 10:43

Přikládám program od Luďka jak ho v úvodu diskuse slíbil:

Kód: Vybrat vše

;
REM PICAXE-08M - OBSLUHA modulu RS485
;
#picaxe 08M2						
#no_data
setfreq M16							
symbol BAUD	=N9600_16		;rychlost pro LCD	
symbol BDC  =T9600_16		;rychlost pro RS485

symbol LCD	=0			;výstup pro LCD Display					
symbol T485	=1			;výstup data				-> do modulu vstup DI
symbol D485	=2			;výstup - ovládání směru toku dat	-> do modulu DE a RE
symbol R485	=3			;vstup data				<- z modulu výstup RO
;==================================================================================================
START:	pause 200								;pauza pro procesor
		serout LCD,BAUD,($FE,$01)					;smaže display
;..................................................................................................
RS:		High D485 :	pause 100					;přepne modul RS485 na zápis
		serout T485, BDC, ("*B$TR",13) : Low D485			;pošle požadavek - čtení teploty
		serin [5000,ERR], R485,BDC,b0,b1,b2,b3,b4,b5,b6,b7,b8,b9,b10	;čeká na data 11 Byte
		serout LCD, BAUD,($FE,$C0,b0,b1,b2,b3,b4,b5,b6,b7,b8,b9,b10)	;zobrazí teplotu
T48B:		pause 2000 : goto START						;pauza a návrat
;..................................................................................................
ERR:		serout LCD, BAUD,($FE,$C0,"Error ")				;obsluha, když nepřijdou data
		goto T48B		;TEXT -> "Error" a návrat		;zkok zpět
;--------------------------------------------------------------------------------------------------
#rem
		toto je ukázka obsluhy teploměru TQS3 - (Papouch.com)
		to znamená - přepne modul RS485 na zápis - oba vstupy DE a RE jsou propojeny
		pak pošle data a přene oba vstupy zpátky na čtení
		RE a DE = 0 = čtení dat
		RE a DE = 1 = zápis dat
		Modul chce opačnou polaritu dat, než má display, proto T9600

Odpovědět

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 1 host