RoboDoupě.cz

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