برنامه ارسال سریال

[majid1232]

با عرض سلام
من یه برنامه نوشتم برای ارتباط دو میکرو با هم ولی یه مشکلی دارم اونم اینه که فقط دفعه اول میکرو گیرنده عدد 300 رو نشون می ده و دفعه های بعد 0 نشون میده :angry:

اگه کسی مشکل برنامم رو بگه ممنون می شم :applause:

این برنامه ارسال عدد 300 هست:

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

Config Lcdpin = Pin , Db4 = Pinb.4 , Db5 = Pinb.5 , Db6 = Pinb.6 , Db7 = Pinb.7 , Rs = Pinb.1 , E = Pinb.0
Config Lcd = 16 * 2

Dim A As Integer

Config Int0 = Falling
Enable Interrupts
Enable Int0
On Int0 L

A = 300

Do
Loop

L:
Print A
Retur

n

اینم برنامه دریافت هست :

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

Config Lcdpin = Pin , Db4 = Pinb.4 , Db5 = Pinb.5 , Db6 = Pinb.6 , Db7 = Pinb.7 , Rs = Pinb.1 , E = Pinb.0
Config Lcd = 16 * 2

Dim A As Integer

Enable Interrupts
Enable Urxc
On Urxc L

Cls : Home
Lcd "Start"

Do
Loop

L:
Input A
Cls : Home
Lcd A
Return

[majid1232]

پاسخ : برنامه ارسال سریال

کسی نیست جواب بده :cry: :cry:

[majid1232]

پاسخ : برنامه ارسال سریال

خیلی سخته که کسی جواب نمی ده یا خیلی پیش پا افتادس :cry: :cry2:
بابا به فکر ما تازه کارا هم باشید :sad: