Ismét elakadtam. Egy NANO és egy UNO panelt akarok összekötni Rx/Tx kivezetéseiken keresztül direktben. Az UNO-n van egy Ext1 panel és azon egy két soros LCD. A küldő NANO és a vevő UNO teszt program fut, de nem látom, hogy a vevő input-ja bármit is beolvasna.
Lehet egyáltalán használni a panelek Rx/Tx kivezetéseit ilyen direkt összekötésre, vagy azok a letöltésre vannak lefoglalva? A NANO panel Rx (PD0) és Tx (PD1) kivezetéseit kötöttem az UNO panel Tx (PD1) és Rx (PD0) kivezetéseihez. Vagyis keresztbe Tx-Rx és Rx-Tx módon. Mindkét panel külső tápról megy. Az USB csatlakozóikba nincs bedugva semmi.
A vevő oldali UNO program nem jut túl az INPUT soron.
Esetleg van valami, amit figyelmen kívül hagytam?
Adó oldali kód NANO-val:
Kód: Egész kijelölése
'NANO
'{FILE} {EEPROM} COM3 328
$regfile = "m328def.dat" 'target chip on NANO
$crystal = 16000000 'base frequency for chip
$baud = 9600 '4800 is for Arduino/UNO panel as a workaround for setting the 9600baud speed
$hwstack = 90
$swstack = 90
$framesize = 90
Led Alias Portb.5 'NANO, UNO
Config Led = Output
Dim Wtime As Integer
Wtime = 200
Do
Set Led
Wait 1
Reset Led
Print "ABC"
Wait 2
Print "CBA"
Set Led
Waitms Wtime
Reset Led
Waitms Wtime
Set Led
Waitms Wtime
Reset Led
Waitms Wtime
Loop
End
Vevő oldali kód UNO+Ext1-vel:
Kód: Egész kijelölése
'UNO
'{FILE} {EEPROM} COM3 328UNO
$regfile = "m328pdef.dat" 'target chip on Arduino/UNO
$crystal = 16000000 'base frequency for chip
$baud = 9600 'For Arduino/UNO panel
$hwstack = 90
$swstack = 90
$framesize = 90
'Serial data read config
Config Serialin = Buffered , Size = 30
Dim Msgstr As String * 10
Dim Msgarray(11) As Byte At Msgstr Overlay
Msgarray(9) = 13 'CR - Carriage Return
Msgarray(10) = 10 'LF - Line Feed
Msgarray(11) = 0 '0 - String end
Led Alias Portb.5
Config Led = Output
'Config LCD for Ext1 panel
Config Lcd = 16 * 2 'configure lcd screen
Config Lcdpin = Pin , Db4 = Portd.6 , Db5 = Portd.7 , Db6 = Portb.0 , Db7 = Portb.1 , E = Portd.5 , Rs = Portd.4
Initlcd
Cls 'clear the LCD display
Lcd "Hello"
Do
Input Msgarray(1) ; 4
Cls
Lcd Msgstr
Toggle Portb.5
Loop
End
