RS232 komunikácia medzi dvoma MCU

Moderátori: psichac, Moderátori

bibibo
Pokročilý člen
Pokročilý člen
Príspevky: 625
Dátum registrácie: 05 Nov 2009, 00:00
Bydlisko: Bratislavský kraj

RS232 komunikácia medzi dvoma MCU

Príspevok od používateľa bibibo » 16 Jan 2013, 21:12

Chcel by som si spraviť bezdrôtový teplomer a mám Transceiver moduly HM-TRS433. Som úplne na začiatku a aby som vylúčil stratu dát, tak to testujem vodičmi prepojil USART oboch MCU. Problém je, že ak odošlem z vysielača nejaké číslo, tak prijímač zobrazí hlúposť. Spravil som jednoduchý program v ktorom posielam číslo 0 - 255.

Vysielač:

Kód: Vybrať všetko

$regfile = "m8def.dat"
$crystal = 4000000
$baud = 9600
$hwstack = 40
$swstack = 16
$framesize = 32



Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
Config Pinc.0 = Input

Dim I As Byte



Cls
Cursor Off

Do

For I = 0 To 255

Lcd "Cislo: " ; I
Print I

Wait 1
Cls
Next


Loop

End



Prijímač:

Kód: Vybrať všetko

$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
$hwstack = 40
$swstack = 16
$framesize = 32



Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E = Portc.3 , Rs = Portc.2
Config Lcd = 16 * 2

Cls

Cursor Off
Dim I As Byte


Do


Inputbin I
Cls


Lcd "Cislo: " ; I




Loop

End
Písal som aj na mcselec forum kam som dal kód teplomera, ale bohužiaľ anglicky dobre neviem. http://www.mcselec.com/index2.php?optio ... ic&t=11154
0

Pega
Stály člen
Stály člen
Príspevky: 192
Dátum registrácie: 28 Mar 2012, 08:52

Re: RS232 komunikácia medzi dvoma MCU

Príspevok od používateľa Pega » 20 Jan 2013, 19:17

Kód: Vybrať všetko

Print I
Tento příkaz pošle : I 0x13 0x10 ' I CR LF
Aby poslal jenom číslo I napiš

Kód: Vybrať všetko

Print I;
Za I je středník.
0

Napísať odpoveď
  • Podobné témy
    Odpovedí
    Zobrazení
    Posledný príspevok