RS485

[niveasoft]

Ty tam chyba już śpisz.
Czy prędkości $baud są takie same? Nie wydaje mi się...328P nadaje $baud = 57600 a ta 2560 ma dwa COM`y ustawione na 19200

W kodzie dla 328P powinieneś też zmienić "Dim A As Bit" na "Dim A As Byte"
Potem niżej zamiast "Toggle A" napisz "If A = 0 Then A = 1 Else A = 0"

Nie napisałeś do którego COMa się podłączyłeś w 2560
Jak podłączyłeś się do COM2 to, tak jak wcześniej pisałem:

Code: [Zaznacz cały] [Rozwiń/Zwiń]

1. Open "COM2:" For Binary As #2
2.  
3. 'potem w kodzie
4. If Ischarwaiting(#2) > 0 Then
5. A = Inkey(#2)
6.       Locate 1 , 1 : Lcd "A: " ; A
7. End If
8.  

Pomyśl nad tym.

[Jacek]

Witam - no krczaki Bartek zapominam o tym"#2"
przepraszam - ale jestem osioł - muszę chyba sobie młotkiem powbijać "#2" do głowy.
dzięki Bartek za cierpliwość.
pozdrawiam Jacek.
P.S. chyba wiek powoli już daje o sobie znać.