مشکل در راه اندازی uart

[saeid bahari]

با سلا م من دو میکرو را با پورت سریال وصل کردم به صورتی که یکی دما را میگیرد به دیگری ارسال میکند میکرو دوم دما را روی lcd نمایش میدهد
ولی در این صورت یک حرف چینی هم در اول به صورت نا خواسته ظاهر میشود کسی میتواند کمک کند

[moslem1368]

پاسخ : مشکل در راه اندازی uart

برنامتون رو بذارین شاید اشکال از برنامه باشه

[ehsancompany]

پاسخ : مشکل در راه اندازی uart

شما حتما دیتا رو به صورت ساده میفرستین
دیتا رو کد شده بفرستین
و از ذستور ها mid استفاده کنید
این طور یا دیتا رو ندارین اگر هم داشته باشین سالمه
البته بحث کد گذاری بحث مفصلیه
جا داره که اساتید بیانو در این مورد بیشتر صحبت کنن

[akazemin]

پاسخ : مشکل در راه اندازی uart

برنامه بده برادر

[saeid bahari]

پاسخ : مشکل در راه اندازی uart

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

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

'--------------------------------------------------------
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
'--------------------------------------------------------
Dim A As Byte
Dim T As Word
Dim T1 As Word
Dim T2 As String * 10
Dim W As Byte
Dim Adc1 As Word
Dim Adc0 As Word
Dim Adc2 As Word

Dim Adc1_20 As Long
Dim Adc0_20 As Long
Dim Bitt As Bit


Dim Singlee0 As Single
Dim Singlee1 As Single

Dim Temp As Single
Dim Temp2 As Single

Dim Stringg As String * 5
Dim Stringg2 As String * 5
'---------------------------------------------
Do
Adc0 = Getadc(1)
Waitms 10
Temp = Adc0 / 2
Stringg = Str(temp)




Print Stringg
Waitms 20
Loop
End


برنامه گیرنده


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



'--------------------------------------------------------
Config Lcdpin = Pin , Db4 = Pinc.2 , Db5 = Pinc.3 , _
Db6 = Pinc.4 , Db7 = Pinc.5 , Rs = Pinb.1 , E = Pinb.0
Config Lcd = 16 * 2
Cursor Off
Cls
'--------------------------------------------------------
Locate 1 , 1
Lcd "uart reciver"

'--------------------------------------------------------
Dim A As Byte
Dim W As Word
Dim Ss As Single
Dim S As Word
Dim Temp As String * 5
Dim Temp2 As String * 5
'---------------------------------------------
Getdata:
Do
Input Temp

Locate 2 , 5
Lcd Temp ; " "
Loop