Доброго времени суток Уважаемые!
Возможно ли организовать так, что бы один контроллер выполнял основные функции, а второй получал от него данные по UART
и выводил их на LCD?
Заранее благодарен?
Программирование ATMEL в BASCOM. |
Привет, Гость! Войдите или зарегистрируйтесь.
Вы здесь » Программирование ATMEL в BASCOM. » Связь проводная и бесп-ная, интерфейсы, протоколы » Передача ПО UART и вывод информации на LCD. Вопрос!
Доброго времени суток Уважаемые!
Возможно ли организовать так, что бы один контроллер выполнял основные функции, а второй получал от него данные по UART
и выводил их на LCD?
Заранее благодарен?
как бы можно
но надо знать загруженность первого МК, будет ли у енго время на анализ и формирование данных для передачи
А другие варианты есть? Если не через UART.
У меня есть, если нужно позже выложу.
ООчень надо!
Спасибо за поддержку!
Конкретнее, что за данные, много их?
Просто!
Температура, влажность и тд. расстояние до 50 метров.
не много 
Отредактировано Newmayer (2013-08-19 23:38:36)
Извиняюсь за молчание. Лето, жарко... Вот примерчик. Приёмник
$regfile = "m8def.dat" $crystal = 16000000 $baud = 19200 $hwstack = 40 $swstack = 16 $framesize = 32 'On Urxc Aaa Nosave 'Enable Urxc 'On Utxc Bbb Nosave 'Enable Utxc 'Enable Interrupts Config Portc = Output Dim A(3)as Byte , B(6) As Byte , Aa As Word , Bb As Byte , C As Byte , D As Byte , E As Byte , F As Byte , G As Byte , H As Byte , J As Byte , K As Byte Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0 Config Lcd = 16 * 2 Cursor Off Cls Lcd "Test" Waitms 500 Do Toggle Portd.7 D = D + 1 E = 22 F = 33 G = 44 H = 55 J = 66 K = K + 2 Printbin D ; E ; F ; G ; H ; J ; K Waitms 10 'Portc = D Inputbin Aa Locate 1 , 1 Lcd Aa ; "A " ; D ; "D " ; E ; "E " ; F ; "F " Locate 2 , 1 Lcd G ; "G " ; H ; "H " ; J ; "J " ; K ; "K " Waitms 300 Loop End 'Aaa: 'Inputbin A(1) , 3 'Waitms 30 'Return 'Bbb: 'Printbin B(1) , 3 'Return
Передатчик
$regfile = "m8def.dat" $crystal = 16000000 $baud = 19200 $hwstack = 40 $swstack = 16 $framesize = 32 On Urxc Aaa Enable Urxc 'On Utxc Bbb Nosave 'Enable Utxc Enable Interrupts Config Portc = Output 'Dim A As Word , B As Word , C As Word Dim A(3) As Byte , B(7) As Byte , Aa As Word , Bb As Byte , C As Byte , D As Byte , E As Byte , F As Byte , G As Byte , H As Byte , J As Byte , K As Byte Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0 Config Lcd = 16 * 2 Cursor Off Cls 'Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 'Open "com1:" For Binary As #1 'Open "com1:" For Binary As #1 'Config Serialout = Buffered , Size = 20 'Open "comd.1:9600,8,n,1" For Output As #1 Lcd "Test" Waitms 500 Do Aa = Aa + 1 Printbin Aa Portc = D Waitms 30 Locate 1 , 1 Lcd Aa ; "A " ; D ; "D " ; E ; "E " ; F ; "F " Locate 2 , 1 Lcd G ; "G " ; H ; "H " ; J ; "J " ; K ; "K " Waitms 300 Loop End Aaa: Inputbin D , E , F , G , H , J , K Waitms 10 Return 'Bbb: 'Printbin A(1) , 3 'Return
Вы здесь » Программирование ATMEL в BASCOM. » Связь проводная и бесп-ная, интерфейсы, протоколы » Передача ПО UART и вывод информации на LCD. Вопрос!