Администрация форума не несёт ответственности за достоверность информации и оставляет за собой право редактировать или в особых случаях даже удалять посты без предупреждения. Спасибо за понимание.

Программирование ATMEL в BASCOM.

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Программирование ATMEL в BASCOM. » Связь проводная и бесп-ная, интерфейсы, протоколы » Передача ПО UART и вывод информации на LCD. Вопрос!


Передача ПО UART и вывод информации на LCD. Вопрос!

Сообщений 1 страница 8 из 8

1

Доброго времени суток Уважаемые!

Возможно ли организовать так, что бы один контроллер выполнял основные функции, а второй получал от него данные по UART
и выводил их на LCD?

Заранее благодарен?

0

2

как бы можно
но надо знать загруженность первого МК, будет ли у енго время на анализ и формирование данных для передачи

0

3

А другие варианты есть? Если не через UART.

0

4

У меня есть, если нужно позже выложу.

0

5

ООчень надо!
Спасибо за поддержку!

0

6

Конкретнее, что за данные, много их?

0

7

Просто!
Температура, влажность и тд. расстояние до 50 метров.

не много :-)

Отредактировано Newmayer (2013-08-19 23:38:36)

0

8

Извиняюсь за молчание. Лето, жарко... Вот примерчик. Приёмник

Код:
$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

0


Вы здесь » Программирование ATMEL в BASCOM. » Связь проводная и бесп-ная, интерфейсы, протоколы » Передача ПО UART и вывод информации на LCD. Вопрос!