SERIN , SEROUT

[febo26]

Mozda je vec bilo pitanje negdi na forumu ali nisam nasao zadovoljavajuci odgovor pa da opet pitam.

Znaci imam sat koji dekodira DCF signal i prikazuje te podatke na LCD displeju.

Posto sam trenutno u nemogucnosti kupit jos koji DCF prijemnik odlucio sam da drugi sat koji je u drugoj prostoriji sinkroniziram s ovim prvim.

Varijable koje dekodiram s DCF prijemnika su ,sat,minute,dan u mjesecu,dan u tjednu,mjesec i godina.
Kako da te varijable posaljem na drugi PIC i da ih tamo razdvojim i ispisem na drugom LCD-u.

Jedino sto sam uspio poslati s jednog na drugi je jedna varijabla,a vise varijabli neznam.

Code: Select all

Predajna strana:
 Serout PORTB.7, N9600, ["MINUTE: ", # MINUTE,]




Prijemna strana:

Rcvbyte	Var	Byte

main:
	Serin PORTA.0,N9600,Rcvbyte			' Get Serial Data in
	Lcdout,$FE,1, Rcvbyte
goto main

[febo26]

I dalje nema napretka.ne komuniciraju piceki jedan s drugim

Ovo pokusam poslati s jednog na drugi pic ali ne ide

Code: Select all

SAT      VAR BYTE
MINUTE   VAR BYTE
DAN      VAR BYTE
MJESEC   VAR BYTE 
GODINA   VAR BYTE


SAT = 12
MINUTE = 24
DAN = 13
MJESEC = 2
GODINA = 2012

s cime to poslati na drugi PIC i na drugom PIC-u s cime to procitati.

PIC je 16f628 i na jednoj i na drugoj strani

[pedja089]

Baci oko malo na manual... Jako je jednostavno...
Serout bla bla,["Vreme:",sekund,minut,sat.....]
Serin2 bla bla,[WAIT("Vreme:"),sekund,minut,sat.....]

[febo26]

uspio sam napravit na ovaj nacin,za sada radi

Code: Select all

predajna strana

  Serout2 PortB.7,B2400,["#OK",HOURLCD,MINUTE,DAY,MONTH,YEAR]	

s time da varijable moraju biti sve byte duzine

a na prijemnoj strani sam rijesio ovako:

	
HOURLCD VAR BYTE
    MINUTE  VAR BYTE
    DAY VAR BYTE
    MONTH VAR BYTE
    YEAR VAR BYTE

	B2400		Con	16780  
			
lcdout $fe,1, "FERIC"
    PAUSE 1000

Main:	
Serin2 PORTA.0,B2400,[wait ("#OK"),HOURLCD,MINUTE,DAY,MONTH,YEAR] 
 lcdout $fe,$1,#HOURLCD," : ",#MINUTE,"  "
 lcdout $fe,$C0,#DAY,".",#MONTH,".","20",#YEAR		
Goto Main
 

[febo26]

Da li se na taj nacin moze ostvariti i komunikacija preko RS485 transivera ili za njih ide drugaciji postupak.
jedan transiver bi radio u predaji a druga dva u prijemu i da oba dva citaju iste podatke.