با سلام خدمت دوستان عزیز
من برای ارتباط سریال بین میکرو AVR و PC از یک مبدل Prolific استفاده کردم. کد برنامه را در پایین قرار می دم. البته باید بگم در برنامه مشکلی نیست و حتی دیتای ارسالی و دریافتی صحیح است و بر روی ال سی دی متصل به میکرو به درستی نمایش داده میشه و اهم مشکل با کاراکترهای نامفهومی است که بر روی پنجره نرم افزار مشاهده می شه. در انجمن های اون ور آبی نوشته شده بود این مشکل به دلیل تنظیم نبودن باودریت و بیت شروع و ... است که برای من این صادق نیست.
میشه لطفا راهنمایی بفرمایید

کد برنامه
من برای ارتباط سریال بین میکرو AVR و PC از یک مبدل Prolific استفاده کردم. کد برنامه را در پایین قرار می دم. البته باید بگم در برنامه مشکلی نیست و حتی دیتای ارسالی و دریافتی صحیح است و بر روی ال سی دی متصل به میکرو به درستی نمایش داده میشه و اهم مشکل با کاراکترهای نامفهومی است که بر روی پنجره نرم افزار مشاهده می شه. در انجمن های اون ور آبی نوشته شده بود این مشکل به دلیل تنظیم نبودن باودریت و بیت شروع و ... است که برای من این صادق نیست.
میشه لطفا راهنمایی بفرمایید

کد برنامه
کد:
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 1200
$hwstack = 20
$swstack = 30
$framesize = 40
Dim A As String * 100
Enable Interrupts
Enable Urxc
On Urxc Serialre
Config Lcd = 16x2
Config Lcdpin = Pin , Db7 = Pind.6 , Db6 = Pind.5 , Db5 = Pind.4 , Db4 = Pind.3 , Rs = Pind.7 , E = Pinc.0
Cls
Initlcd
Cursor Off
Cls
Lcd "***ONLY ALLAH***"
Locate 2 , 1
Lcd "Now Sending"
Print "****IN THE NAME OF ALLAH****"
Waitms 100
Do
Loop
End
Serialre:
Input , A
If A = "H" Then
Print "Hi!, H recieved!" ; "{013}"
Cls
Lcd "H Recived!"
End If
If A = "q" Then
Print "Q is recieved! thanks" ; "{013}"
Cls
Lcd "Q Recived!"
End If
Print "Thanks" ; "{013}"
Return




دیدگاه