UART - работает только при разных скоростях девайсов.

[a_skr]

можно весь код в студию?

[olegkomak]

Код: Выделить всё

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600

Config Pinc.0 = Input
K1 Alias Pinc.0

Config Pinb.0 = Input
K2 Alias Pinb.0

Do
If K1 = 0 Then
Do
Loop Until K1 <> 0
Print "k1"
End If

If K2 = 0 Then
Do
Loop Until K2 <> 0
Print "k2"
End If

Loop
End

[a_skr]

понятно...
а теперь значение фьюзов CKSEL.
должно быть 0100 - для 8 МГц. по-умолчанию стоит 0001 - 1 МГц.

[olegkomak]

Спасибо огромное !
Теперь хоть порядок в голове начинает формироваться . Вечером все опробую .

[a_skr]

в протеусе они тоже выставляются в свойствах контроллера

[olegkomak]

да - в протеусе все прокатило !
поставил в свойствах МК фьюз 8 МГц и теперь для виртуального терминала скорость обмена тоже ставлю 9600 как и в программе для МК

Огромное спасибо !

[olegkomak]

А еще пнете в нужном направлении ?
В протеус рисуем 2 МК . Один с кнопками , второй с лампами . По UART каждая кнопка зажигает свою лампу на 1 сек .


программа первого МК

Спойлер

Код: Выделить всё

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600

Config Pinc.0 = Input
K1 Alias Pinc.0

Config Pinb.0 = Input
K2 Alias Pinb.0

Do
If K1 = 0 Then
Do
Loop Until K1 <> 0
Print "k1"
End If

If K2 = 0 Then
Do
Loop Until K2 <> 0
Print "k2"
End If

Loop
End

программа 2-го МК

Спойлер

Код: Выделить всё

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600

Dim Sk As String * 2
Dim B As Byte
Declare Sub Flushbuf()

Config Portc.0 = Output
L2 Alias Portc.0

Config Portc.1 = Output
L1 Alias Portc.1

Do

Input Sk
If Sk = "k1" Then
L1 = 1
Waitms 100
L1 = 0
Else
If Sk = "k2" Then
L2 = 1
Waitms 100
L2 = 0
End If
End If
Flushbuf

Loop
End

Sub Flushbuf()
 Waitms 100
 Do
 B = Inkey()                                    
 Loop Until B = 0

End Sub

Виртуальный терминал подключен для наблюдений .
Все работает на ура , в терминале все команды отображаются при нажатии на кнопки .
Но - почему я не могу вместо нажатия на кнопку ввести команду в терминале и тем самым включить лампу ?

[a_skr]

можете. только источник должен быть какой-то один - или МК1 или терминал. поставим переключатель источника:

[olegkomak]

Я отключал МК 1 - нифига не прокатывало ...
Но у вас все работает !
Чудеса ....
Спасибо !

[a_skr]

ВЫХОД Tx источника соединяют со ВХОДОМ Rx приемника. источник - терминал, приемник - МК2.

[olegkomak]

Да да да - все правильно . а я просто Tx МК1 отключил не подумавши .

PS Варганю удаленное управление с помощью сим900 по TCP протоколу - если кому что надо подсказать - почти собаку на сим900 съел