Witam wszystkich.
Mam następujące pytanie:
Połączyłem dwa uP 89C2051 i 89C4051 następująco TxD jednego z RxD drugiego.
Właczam Bascoma 8051 2.0.11.0 jednego programuje żeby wysyłał drugiego odbierał.
Używałem różnych poleceń print , printbin, printhex; a do odbioru inkey, waitkey,inputbin.
Żadnych efektów.
Owszem kiedy wysyłam np.100 na LCD wyświelją się różne rzeczy począwszy od 48 ,56 ,108 a na 254 skończywszy. Czy ktoś miał podobne problemy, lub posiada jakieś rozwiązania w sprawie komunikacji pomiędzy takimi dwoma uP. Chodzi mi o przesłanie około 200 bajtów po 2, co 10 ms.
Kwarc to 11,0592 Mhz
Baud rate 4800
Nie mam pojęcia gdzie leży błąd. Jestem otwarty na wszelkie pomysłu i propozycje.
Zamieszczam jeszcze przykładowe programy które próbowałem.
Nadajnik:
1
Do
Printbin 100
Wait 2
Printbin 100;
Loop
2
do
print 100
wait 1
loop
odbiornik:
1
Config Lcdpin = Pin , Db4 = P1.2 , Db5 = P1.3 , Db6 = P1.4 , Db7 = P1.5 , E = P1.6 , Rs = P1.7
Config Lcd = 16 * 4
Cls
Cursor Off
Cls
Dim I As Byte
Do
I = Val(i)
Lcd I
Inputbin I
Cls
Loop
2
Config Lcdpin = Pin , Db4 = P1.2 , Db5 = P1.3 , Db6 = P1.4 , Db7 = P1.5 , E = P1.6 , Rs = P1.7
Config Lcd = 16 * 4
Cls
Cursor Off
Cls
dim I as byte
do
lcd I
I = waitkey()
cls
loop i wiele, wiele, wiele innych
Mam następujące pytanie:
Połączyłem dwa uP 89C2051 i 89C4051 następująco TxD jednego z RxD drugiego.
Właczam Bascoma 8051 2.0.11.0 jednego programuje żeby wysyłał drugiego odbierał.
Używałem różnych poleceń print , printbin, printhex; a do odbioru inkey, waitkey,inputbin.
Żadnych efektów.
Owszem kiedy wysyłam np.100 na LCD wyświelją się różne rzeczy począwszy od 48 ,56 ,108 a na 254 skończywszy. Czy ktoś miał podobne problemy, lub posiada jakieś rozwiązania w sprawie komunikacji pomiędzy takimi dwoma uP. Chodzi mi o przesłanie około 200 bajtów po 2, co 10 ms.
Kwarc to 11,0592 Mhz
Baud rate 4800
Nie mam pojęcia gdzie leży błąd. Jestem otwarty na wszelkie pomysłu i propozycje.
Zamieszczam jeszcze przykładowe programy które próbowałem.
Nadajnik:
1
Do
Printbin 100
Wait 2
Printbin 100;
Loop
2
do
print 100
wait 1
loop
odbiornik:
1
Config Lcdpin = Pin , Db4 = P1.2 , Db5 = P1.3 , Db6 = P1.4 , Db7 = P1.5 , E = P1.6 , Rs = P1.7
Config Lcd = 16 * 4
Cls
Cursor Off
Cls
Dim I As Byte
Do
I = Val(i)
Lcd I
Inputbin I
Cls
Loop
2
Config Lcdpin = Pin , Db4 = P1.2 , Db5 = P1.3 , Db6 = P1.4 , Db7 = P1.5 , E = P1.6 , Rs = P1.7
Config Lcd = 16 * 4
Cls
Cursor Off
Cls
dim I as byte
do
lcd I
I = waitkey()
cls
loop i wiele, wiele, wiele innych
