ورود به حساب ثبت نام جدید فراموشی کلمه عبور
برای ورود به حساب کاربری خود، نام کاربری و کلمه عبورتان را در زیر وارد کرده و روی «ورود به سایت» کلیک کنید.





اگر فرم ورود برای شما نمایش داده نمیشود، اینجا را کلیک کنید.









اگر فرم ثبت نام برای شما نمایش داده نمی‌شود، اینجا را کلیک کنید.









اگر فرم بازیابی کلمه عبور برای شما نمایش داده نمی‌شود، اینجا را کلیک کنید.





کاربران برچسب زده شده

صفحه 1 از 3 123 آخرین
نمایش نتایج: از 1 به 10 از 23
  1. #1
    2013/03/02
    21
    1

    انتقال دیتا از طریق rxd , txd بین دو میکرو با زبان بیسیک

    با عرض سلام و ادب خدمت سروران گرامی
    حدود یک هفته هست که درگیر چند خط برنامه شدم و از هر روش و فرمانهایی استفاده میکنم جواب درست نمیگیرم.
    اصل موضوع :
    میخام عددی رو از یک میکرو به میکرو دیگه انتقال بدم
    ابتدا از طریق txd به rxd
    و در مرحله بعد از طریق hm-t و hm-r
    ولی در گام اول با استفاده از سیم دیتا ( word , string , byte ) رو منتقل کردم ، جواب درستی دریافت نکردم...
    اساتید گرامی لطفا راهنمایی کنید...!!!

    میکروی فرستنده:

    $regfile = "m8def.dat"
    $crystal = 1000000
    $baud = 600

    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , _
    Db7 = Portc.5 , E = Portc.0 , Rs = Portc.1
    Cursor Off


    Dim Q As Word
    q=0


    do

    incr q
    print q
    lcd q

    wait 1

    cls

    loop

    End



    میکروی گیرنده:


    $regfile = "m8def.dat" : $crystal = 1000000
    $baud = 600

    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , _
    Db7 = Portc.5 , E = Portc.0 , Rs = Portc.1
    Cursor Off

    Dim A As Word



    do

    a=waitkey()

    lcd a

    wait 1

    cls

    loop



    End
  2. #2
    2015/05/29
    کرج
    147
    1

    پاسخ : انتقال دیتا از طریق rxd , txd بین دو میکرو با زبان بیسیک

    سلام دوست عزیز
    ب نظرم تاپیکه خیلی مفیدی میتونه باشه :job:
    منم متاسفانه از این موضوع نتیجه نگرفتم و هنوز دوس دارم روش کار کنم
    انشالله با کمک دوستان بتونیم به نتیجه برسونیمش
    در ضمن موضوعی که من فهمیدم اهمیت داره ، استفاده از کریستال خارجی برای میکرو هست.
    و البته تنظیم فیوز بیت های مربوطه
    خواهش میکنم از دوستان اگه کسی رو این موضوع کار کرده از کمک دریغ نکنه
    ممنون :smile:
  3. #3
    2013/12/23
    فارس-شيراز
    671
    81

    پاسخ : انتقال دیتا از طریق rxd , txd بین دو میکرو با زبان بیسیک

    سلام
    اینو تست کنید:
    کد:
    $regfile = "m8def.dat"
    $crystal = 1000000
    $baud =9600
    
    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , _
    Db7 = Portc.5 , E = Portc.0 , Rs = Portc.1
    Cursor Off
    
    
    Dim Q As byte
    
    
    
    do
    
    print "123"
    
    
    wait 1
    
    cls
    
    loop
    
    End

    کد:
    $regfile = "m8def.dat" : $crystal = 1000000
    $baud =9600
    
    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , _
    Db7 = Portc.5 , E = Portc.0 , Rs = Portc.1
    Cursor Off
    
    Dim A As byte
    
    
    
    do
    
    a=inkey()
    
    lcd a
    
    wait 1
    
    cls
    
    loop
    
    
    
    End
    اگر جواب گرفتید ادامه میدم تا به هدفتون برسید
  4. #4
    2015/05/29
    کرج
    147
    1

    پاسخ : انتقال دیتا از طریق rxd , txd بین دو میکرو با زبان بیسیک

    ممنون مهندس
    من برنامم تقریبا مثل همین بود البته مقدار کریستال و baud فرق میکرد
    فردا تست میکنم و نتیجه رو میگم
    مرسی از پاسختون :rolleyes:

    فقط یه چیزی
    نیازی به کریستال خارجی نیست؟؟؟
  5. #5
    2013/12/23
    فارس-شيراز
    671
    81

    پاسخ : انتقال دیتا از طریق rxd , txd بین دو میکرو با زبان بیسیک

    نقل قول نوشته اصلی توسط saeed khakdan
    ممنون مهندس
    من برنامم تقریبا مثل همین بود البته مقدار کریستال و baud فرق میکرد
    فردا تست میکنم و نتیجه رو میگم
    مرسی از پاسختون :rolleyes:

    فقط یه چیزی
    نیازی به کریستال خارجی نیست؟؟؟
    خواهش میکنم
    من بیشتر از ۱۰ تا پروژه که به tx وrx میکرو نیاز بوده با اکثر ماژولها تست کردم و اصول اولیه برنامه این بوده.
    نه نیازی نیست
  6. #6
    2013/03/02
    21
    1

    پاسخ : انتقال ديتا از طريق rxd , txd بين دو ميکرو با ز

    با تشکر از آقاي مومني و آقاي خاکدان
    البته رشته تحصيلي من مکانيک بوده و به دليل علاقه فراوان به رشته جذاب الکترونيک ، در مبحث avr ها وارد شدم . تا الان دو تا پروژه انجام دادم اولين پروژه من قفل رمز 6 رقمي بوده که الان در حال بهره برداي هست و بخوبي جواب داده. و دومي هم شمارنده مولتي پلکس سه رقمي رو به بالا و رو به پايين براي سون سگمنت...
    انشالله دستورات آقاي مومني رو هم ، فردا تست ميکنم و جواب رو خدمتون عرض ميکنم.
    اميدوارم اين آموزش نتيجه مطلوبي براي همه ي دوستان داشته باشه... :job:
  7. #7
    2013/12/23
    فارس-شيراز
    671
    81

    پاسخ : پاسخ : انتقال ديتا از طريق rxd , txd بين دو ميکرو با ز

    نقل قول نوشته اصلی توسط seramo
    با تشکر از آقاي مومني و آقاي خاکدان
    البته رشته تحصيلي من مکانيک بوده و به دليل علاقه فراوان به رشته جذاب الکترونيک ، در مبحث avr ها وارد شدم . تا الان دو تا پروژه انجام دادم اولين پروژه من قفل رمز 6 رقمي بوده که الان در حال بهره برداي هست و بخوبي جواب داده. و دومي هم شمارنده مولتي پلکس سه رقمي رو به بالا و رو به پايين براي سون سگمنت...
    انشالله دستورات آقاي مومني رو هم ، فردا تست ميکنم و جواب رو خدمتون عرض ميکنم.
    اميدوارم اين آموزش نتيجه مطلوبي براي همه ي دوستان داشته باشه... :job:
    خواهش میکنم
    اگر خواستید میتونید در گروه واتس اپ بچه های الکترونیک عضو بشید و اموزش برنامه نویسی و طراحی و... از صفر یاد بگیرید.
    انشاالله که جواب مبده.
  8. #8
    2013/03/02
    21
    1

    پاسخ : انتقال دیتا از طریق rxd , txd بین دو میکرو با زبان بیسیک

    با پرتئوس آزمایش کردم . بجای عدد "123" ، عدد 193 نمایش داده میشه.
    اما بر روی بردبورد عدد 10 نمایش داده میشه.
    آیا تنظیم فیوزبیتها میتونه نقش داشته باشه...؟!!
  9. #9
    2013/04/24
    2,690
    2,461

    پاسخ : انتقال دیتا از طریق rxd , txd بین دو میکرو با زبان بیسیک

    شما باید از وقفه سریال استفاده کنید

    قسمت فرقی نمیکنه
    اینم کد گیرنده

    کد:
    $regfile = "m8def.dat" : $crystal = 1000000
    $baud =9600
    
    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , _
    Db7 = Portc.5 , E = Portc.0 , Rs = Portc.1
    Cursor Off
    
    
    Enable Interrupts
    Enable Urxc
    On Urxc Abcd
    
    Dim A As byte
    
    
    
    do
    
    Lcd A ; " "
    
    loop
    
    End
    
    Abcd:
    A = Waitkey()
    Return
  10. #10
    2013/11/03
    مازندران-ساری
    287
    3

    پاسخ : انتقال دیتا از طریق rxd , txd بین دو میکرو با زبان بیسیک

    سلام اگه قراره فقط اعداد رو بفرستید از کد printbin برای فرستادن و inputbin برای دریافت اون عدد استفاده کنید
صفحه 1 از 3 123 آخرین
نمایش نتایج: از 1 به 10 از 23

موضوعات مشابه

  1. انتقال دیتا از طریق wifi
    توسط saeidmo در انجمن Android
    پاسخ: 3
    آخرين نوشته: 2015/09/03, 19:33
  2. پاسخ: 2
    آخرين نوشته: 2014/07/09, 19:53
  3. پروتکلX10(انتقال دیتا از طریق برق) و نمونه مدار...
    توسط مهدی مهری در انجمن میکروکنترلرهای AVR
    پاسخ: 9
    آخرين نوشته: 2009/11/16, 16:55
  4. انتقال دیتا از طریق خطوط تغذیه مدار
    توسط elias در انجمن سایر مطالب مرتبط با ميکرو ها و پروسسورها
    پاسخ: 3
    آخرين نوشته: 2007/10/02, 14:02
  5. سوال در مورد انتقال دیتا از طریق موبایل
    توسط Mehdi1357 در انجمن سیستمهای مخابراتی
    پاسخ: 1
    آخرين نوشته: 2007/07/20, 11:50

کلمات کلیدی این موضوع

علاقه مندي ها (Bookmarks)

علاقه مندي ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •