ارسال دیتا بین دو میکرو

[feshwari]

سلام دوستان
من یه برنامه با بسکام نوشتم میکروی اول 2 کلید داره که با زدن هر دکمه یک کد به بورت سریال میکرو ارسال می کنه و میکروی دوم اون دیتا رو می کیره و جک می کنه اکه کلید یک زده شده باشد موتور به سمت راست و اکر کلید دو زده شده باشد موتور به سمت جب حرکت می کند برنامه ای که نوشتم وقتی کلید 1 رو می زنم موتور به سمت راست حرکت می کند ولی مدتی که معیین کردم نمی ایستد اکر کلید شماره 2 رو هم بزنم موتور به سمت جب نمی جرخد باید مدار رو رسیت کنم تا بتونم موتور رو به سمت جب بجرخانم

این هم برنامه مشکل از کجاست؟
L298 رو به میکرو وصل کردم

قسمت فرستنده

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

Config Pina.0 = Input

Config Pina.1 = Input

Dim C1 As Byte
Dim C2 As Byte
C1 = 127
C2 = 100

Main:

Do
Reset Pina.0
Reset Pina.1

If Pina.0 = 1 Then Goto Go_right
If Pina.1 = 1 Then Goto Go_left

Loop
End

Go_right:
Print C1
Waitms 20

Goto Main

Go_left:
Print C2
Waitms 20

Goto Main

++++++++++++++++++++++++++++++++++++++++++++++++++ +

قسمت کیرنده

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

Config Porta.0 = Output
Config Porta.1 = Output
Config Porta.2 = Output
Config Porta.3 = Output

Config Portc.0 = Output
Config Portc.1 = Output

Config Portb.0 = Output

Set Portc.0
Set Portc.1

Set Portb.0

Reset Porta.0
Reset Porta.1
Reset Porta.2
Reset Porta.3

Dim M1 As Byte


Main:
Do
Input M1
If M1 = 127 Then Goto Go_right
If M1 = 100 Then Goto Go_left


Loop
End


Go_right:
Porta.0 = 1
Porta.1 = 0
Waitms 600

Goto Main

Go_left:
Porta.0 = 0
Porta.1 = 1
Waitms 600

Goto Main

[jafar2000]

پاسخ : ارسال دیتا بین دو میکرو

ممدجون برو پیغامی رو که برات زدم با دقت بخون حال کن