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





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









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









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





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

نمایش نتایج: از 1 به 7 از 7
  1. #1
    2007/04/08
    361
    28

    ارسال ديتا به ميکرو کنترلر AVR و در يافت آن توسط يک ميکرو کنترلر ديگر

    سلام
    از دوستان عزيز خواهشمندم که يک مثال عملي از ارسال ديتا به ميکرو کنترلر AVR و در يافت آن توسط يک ميکرو کنترلر ديگر را در اين تاپيک مطرح کنند
    زبان برنامه نويسيBASCOM
  2. #2
    2007/10/05
    1,643
    7

    پاسخ : طرح یک مثال عملی(فوری)

    ساده ترين حالت اينه كه باود رو تو هر دو تا برنامه يه جور تعيين كني. مثلا 9600
    در ميكروي فرستنده با دستور print ارسال كني و در ميكروي گيرنده با input دريافت كني
    همين
  3. #3
    2007/01/25
    تهران
    96
    2

    پاسخ : طرح یک مثال عملی(فوری)

    سلام
    برنامه send در ساده ترین حالت:

    $regfile = "m16def.dat"
    $crystal = 8000000
    $baud = 16000
    Config Adc = Single , Prescaler = Auto , Reference = internal
    Dim A As Word
    Start Adc
    Do
    A = Getadc(1)
    Print A
    Loop
    End



    برنامه recieve در ساده ترین حالت:


    $regfile = "m16def.dat"
    $crystal = 8000000
    $baud = 16000
    Dim A As Word
    Dim B As Byte
    Dim C As Byte
    Config Portc = Output
    Config Portb = Output
    Do
    A = Inkey()
    Input A
    B = Low(A)
    C = High(A)
    Portb = B
    Portc = C
    Loop
    End



    یه جور دیگش:


    RS-232 CONFIGURATION

    SEND PART

    $regfile = "m16def.dat"
    $crystal = 8000000
    $baud = 8000
    Config Adc = Single , Prescaler = Auto , Reference = Avcc
    Dim A As Word
    Config Portb = Output
    Start Adc
    Do
    A = Getadc(0)
    Print A
    Portb = A
    Loop
    End


    RECEIVE PART

    $regfile = "m16def.dat"
    $crystal = 8000000
    $baud = 8000
    Dim A As Word
    Config Portb = Output
    Do
    A = Inkey()
    Input A
    Portb = A
    Loop
    End


    حسین خواجه جعفری
    اللهم صل علی فاطمة و ابیها، و بعلها و بنیها، و سر المستودع فیها،
    بعدد ما احاط به علمک...
  4. #4
    2007/04/08
    361
    28

    پاسخ : طرح یک مثال عملی(فوری)

    سلام دوست عزیز
    چرا در مثالی که ذکر کردید ADC را فعال کردید
    لطفا مثالی بزنید که بتوان با آن کدهای ASCII را ارسال کرد و پس از دریافت آن را بروی lcd نمایش داد متشکرم
  5. #5
    2007/01/25
    تهران
    96
    2

    پاسخ : طرح یک مثال عملی(فوری)

    سلام
    این یه بخشی از یک پروژه بود که من تغییرش ندادم و برای شما فرستادم
    توی اون بخش کار من، سیستم عدد رو از ورودی adc می خوند.
    من صدا رو دیجیتال می کردم و میفرستادم اونور
    با اون یکی میکرو میخوندمش میذاشتم روی یه پورت دیگه و با استفاده از یه dac دوباره سیگنال صدا رو تحویل می گرفتم

    حسین خواجه جعفری
    اللهم صل علی فاطمة و ابیها، و بعلها و بنیها، و سر المستودع فیها،
    بعدد ما احاط به علمک...
  6. #6
    2006/08/04
    تبريز
    177
    6

    پاسخ : طرح یک مثال عملی(فوری)

    سلام>
    خیلی سادست>
    برای ارسال متن یا در کل یک رشته کافیه از دستور print بصورت زیر اسفاد کنی:
    print"s"
    که در بالا ما حرف S رو فرستادیم.
    برای خوندن هم دو روش وچود داره یکی بصورت وقفه یکی هم با دستور input
    که راه دوم از همش بهتره:
    برای اینکار باید اینتراپت و urxc (وقفه سریال ) رو enable کنی:
    enable interrupts
    enable urxc
    بعد باید یه فلق تعریف کنی مثلا:
    on urxc eca
    بعد در برچسب که در این مثال eca اسمشو
    گذاشتیم از متغییر udr داده هاتو دریافت کنی.داده های ورودی کدهای اسکی
    هستند که ما بصورت رشته تعریف کرده بودیم برای اینکه ما اونا رو بصورت رشته ای
    داشته باشیم کافیه از دستور chr استفاده کنیم:
    a=chr(udr)
    البته باید a رو هم از نوع رشته تعریف کنی
    چون udr فقط یه بایت یه بایت تحویلت میده
    با یه ترفند نرم افزاری ساده میتونی کل یه کلمه و عبارت رو داشته باشی.

  7. #7
    2006/08/04
    تبريز
    177
    6

    پاسخ : طرح یک مثال عملی(فوری)

    سلام>

    مهمان عزیز شما حق دیدن لینک ها را ندارید

    عضویت


    pass:www.eca.ir
    این بسته شامل 2 تا فایله که یکیش شامل کدهای گیرنده و دومی فرستنده هست
    برنامه مربوط به فرستنده با 0 شدن pinb.0 دستور" print "salam رو اجرا میکنه.
    در قسمت گیرنده هم برنامه تا زمانی که داده ای دریافت نکرده یک پین رو
    toggle (صفر و یک) میکنه وقتی برنامه پیام رو دریافت کرد اونرو با با پیامی که
    منتظرش بود(یعنی "salam&quot مقایسه میکنه و اگه شرط درست بود یه پین رو ست میکنه
    و ...
    تو خود برنامه بصورت command نوشتم
    چون مدار اماده برای تست نبود اگه ایرادی احیانا پیدا شدکلیاتش همینه با چندتا تغییر
    جزئی حل میشه
نمایش نتایج: از 1 به 7 از 7

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

  1. سريعترين روش ارسال ديتا از ميکرو به ميکروي ديگر
    توسط feshwari در انجمن میکروکنترلرهای AVR
    پاسخ: 17
    آخرين نوشته: 2014/02/02, 20:54
  2. ايجاد وقفه توسط ميکرو ديگر ؟؟؟؟
    توسط starsoheil در انجمن میکروکنترلرهای AVR
    پاسخ: 17
    آخرين نوشته: 2012/08/27, 20:08
  3. پاسخ: 2
    آخرين نوشته: 2012/02/14, 14:02
  4. ارسال ديتا از يک ميکرو به 4 ميکروي ديگر
    توسط feshwari در انجمن میکروکنترلرهای AVR
    پاسخ: 12
    آخرين نوشته: 2011/04/20, 23:25
  5. ميکرو کنترلر هاي DSP
    توسط kimia در انجمن پردازش سیگنال
    پاسخ: 13
    آخرين نوشته: 2006/12/27, 21:04

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

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

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

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

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