خب مشکلم فعلا بدون ورود به بحث وقفه ها حل شد
اشکال از بودن کاراکتر کنترلی قبل از دیتای اصلی بود
که به این روش خالصش کردم
کد:
Dim S As String * 8
Do
Input S
S = Mid(s , 2 , 8)
Lcd S
حالا برم سراغ وقفه ها ...... :)
بابا ای ول!
ممنون از توجه تون.
کار ما حالا داره میوفته رو غلتکريالفقط یه نکته رو ذکر کنم که برای اطمینان هر چه بیشتر در دریافت صحیح اطلاعات بد نیست قبل از ارسال یه بایت به عنوان بایت شروع ارسال کنیم از اون طرف وقتی این بایت بامقدار صحیحش دریافت شد مقادیر دیتای مورد نظر رو ارسال کنیم این طوری فکر کنم خطاهای ارسال و دریافت تا حد قابل قبولی پایین بیاد.
واسه دقت بیشتر میشه چند بایت یا یه رشته رو ارسال کرد و موقع دریافت هم اون چند بایت اول رو تست کرد !
سلام
این بایت اول که میگین باید حذف بشه ،اشتباها توسط میکروی گیرنده یک بایت تلقی شده؟یا اینکه یک بایت کنترلی هستش که باید از اطلاعات اصلی جدا بشه؟
کلا میخواستم بدونم چرا این مشکل پیش میاد؟ و آیا همواره بدنبال دستور input (برای گرفتن یک رشته) باید یک دستور برای اصلاح آن نوشت ؟
سلام
مشکل تون و همینجا مطرح کنید تا بررسی بشه
فایل های مورد نیاز رو هم پیوست کنید
سلام به مهندسین عزیز
آقا یه سر به این لینک زیر بزنید
http://www.iranmicro.ir/forum/15047-%D8%...-post.html
یه قسمت کوچیک از کارم درست شد اما نمی دونم ایراد کارم کجاست ؟
هر کی یه نظری می ده ...
شما دوستان ببیند مشکل کار من از کجاست ؟
اینم برنامه :
کد:
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
$hwstack = 40
$swstack = 16
$framesize = 128
$prog &HFF , &HF4 , &HDF , &H00 ' generated. Take care that the chip supports all fuse bytes.
Config Porta = Output
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.0 , Db5 = Porta.1 , Db6 = Porta.2 , Db7 = Porta.3 , E = Porta.4 , Rs = Porta.5
Enable Interrupts
Enable Utxc
Enable Urxc
On Urxc Read_data
Dim Sa As String * 60
Dim Oa As String * 60
Cls
Do
Lcd Sa
Oa = Sa
Print Oa
Loop
End
Read_data:
Input , Sa
Return
نمی دونم چرا همزمان نمی تونم از پایه rx میکرو به پایه tx میکرو بفرستم اطلاعاتو
الان دارم رشته gps رو دریافت می کنم اما نمی تونم به کامپیوتر ارسالش کنم
سلام
متغیر sa رو از کجا دریافت میکنید و با چه فرمتی هست؟
رو کامپیوتر دیتای سند شده رو از چه محیطی دریافت میکنید؟
این برنامه رو هم امتحان کنید(کمی تغییرات و جابجایی دستورات)
کد:
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 9600
$hwstack = 32
$swstack = 10
$framesize = 40
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.0 , Db5 = Porta.1 , Db6 = Porta.2 , Db7 = Porta.3 , E = Porta.4 , Rs = Porta.5
Dim Sa As String * 60
Dim Oa As String * 60
Enable Interrupts
Enable Urxc
On Urxc Read_data
Cls : Cursor Off
Do
Locate 1 , 1
Lcd Sa ; " "
Oa = Sa
Print Oa ; " "
Loop
End
Read_data:
Input Sa
Return