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





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









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









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






جهت تبلیغ در وب سایت ECA کلیک کنید.

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

نمایش نتایج: از 1 به 9 از 9
  1. #1
    2012/05/09
    18
    0

    درخواست کمک برنامه ارسال و دريافت داده با پورت سريال بين ميکرو و کامپيوتر(بسکام)

    سلام خدمت همه اساتيد:
    در زير برنامه اي نوشتم و آنرا با hyper terminal چک کردم و بدون استفاده از دستور input داده هاي ارسالي از ميکرو بصورت متوالي نمايش داده ميشه.ميخواستم برنامه اي مثلا با ويژوال بيسيک نوشته بشه و داده ها هم ديده بشن البته مجزا و بشه از طريق کامپيوتر تنظيمات انجام داد و روي lcd ديد. البته فکر کنم هر رشته داده رو بايد آدرس دهي کرد تا بتونيم در کامپيوتر و برنامه ويژوال بيسيک مجزا کرد . در اين برنامه مقدار دماي 4 محيط به کامپيوتر ارسال شود و در ضمن بتوان از طريق کامپيوتر 4 داده را تنظيم کرد .

    کد:
    '''''''''''''''''''''''''
    '  AVR-serial port  '
    '''''''''''''''''''''''''
    
    
    
    $regfile = "m16def.dat"
    $crystal = 2000000
    $baud = 9600
    
    Config Lcd = 20 * 4
    Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.2 , Rs = Portd.3
    Config Adc = Single , Prescaler = Auto , Reference = Internal
    Config Pinc.7 = Output
    
    Deflcdchar 1 , 12 , 18 , 18 , 12 , 32 , 32 , 32 , 32
    
    Dim Adc0 As Word
    Dim Temp0 As Integer
    
    Dim Adc1 As Integer
    Dim Temp1 As Integer
    
    Dim Adc2 As Integer
    Dim Temp2 As Integer
    
    Dim Adc3 As Integer
    Dim Temp3 As Integer
    
    Dim In0 As Integer
    Dim In1 As Integer
    Dim In2 As Integer
    Dim In3 As Integer
    
    Start Adc
    
    Cursor Off
    Cls
    
    Do
    
    '---- read ADC
    
    Adc0 = Getadc(0)
     Temp0 = Adc0 / 4
    Adc1 = Getadc(1)
     Temp1 = Adc1 / 4
    Adc2 = Getadc(2)
     Temp2 = Adc2 / 4
    Adc3 = Getadc(3)
     Temp3 = Adc3 / 4
    
    '---- send to lcd 20*4
    
    Locate 1 , 1
    Lcd "Temp0:" ; Temp0 ; Chr(0) ; "c "
    
    Locate 2 , 1
    Lcd "Temp1:" ; Temp1 ; Chr(0) ; "c "
    
    Locate 3 , 1
    Lcd "Temp2:" ; Temp2 ; Chr(0) ; "c "
    
    Locate 4 , 1
    Lcd "Temp3:" ; Temp3 ; Chr(0) ; "c "
    
    
    Locate 1 , 13
    Lcd "Adj0:" ; In0
    
    Locate 2 , 13
    Lcd "Adj1:" ; In1
    
    Locate 3 , 13
    Lcd "Adj2:" ; In2
    
    Locate 4 , 13
    Lcd "Adj3:" ; In3
    
    '---- delay
    Waitms 200
    
    '---- AVR send to serial port
    
    Print "Temp0:" ; Temp0
    Print "Temp1:" ; Temp1
    Print "Temp2:" ; Temp2
    Print "Temp3:" ; Temp3
    
    '---- AVR recive from serial port
    Input "Adj0:" , In0
    Input "Adj1:" , In1
    Input "Adj2:" , In2
    Input "Adj3:" , In3
    
    Loop
    
    End                             'end program
  2. #2
    2012/05/09
    18
    0

    پاسخ : برنامه ارسال و دريافت داده با پورت سريال بين ميکرو و کامپيوتر(بسکام)

    کسي نيست جواب بده !!!!!!!!!!!!!!!!!!!!!!!!! :redface:
  3. #3
    2012/05/09
    18
    0

    پاسخ : درخواست کمک برنامه ارسال و دريافت داده با پورت سريال بين ميکرو و کامپيوتر(بسکام)

    سايت خوبي دارين !!!!!!! ما تازه واردها رو خوب تحويل ميگيرين!!!!!!!!!
  4. #4
    2012/05/09
    18
    0

    پاسخ : درخواست کمک برنامه ارسال و دريافت داده با پورت سريال بين ميکرو و کامپيوتر(بسکام)

    کسي نيست جواب بده!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!
  5. #5
    2013/02/01
    BND
    166
    11

    پاسخ : درخواست کمک برنامه ارسال و دريافت داده با پورت سريال بين ميکرو و کامپيوتر(بسکام)

    اين لينك هارو ببين شايد به كارت بياد
    http://www.eca.ir/forum2/index.php?topic=98237.0

    يا اين پروژه نمايش دما با كامپيوتر به زبان بيسيك

    http://s5.picofile.com/file/8136035650/VB_TEMPRETURE.zip.html
    I WORK HARDLY AND I HAVE BIG DREAMS
  6. #6
    2012/01/26
    baku
    190
    6

    پاسخ : درخواست کمک برنامه ارسال و دريافت داده با پورت سريال بين ميکرو و کامپيوتر(بسکام)

    من با سي شارپ بين ميکرو و سيستم ارتباط برقرار کردم
    کار بسيار ساده اي هست فقط يه usb to com ميخواد
    مدت زمانی که صرف ایجاد تاپیک و منتظر پاسخ هستید را صرف سرچ کنید...
  7. #7
    2012/05/09
    18
    0

    پاسخ : درخواست کمک برنامه ارسال و دريافت داده با پورت سريال بين ميکرو و کامپيوتر(بسکام)

    meysamjet عزيز دستت درد نکنه خيلي ممنون از اينکه جوابم را دادي.
    nimaaryamehr اگه امکان داره سورس برنامه ات رو برام بگذار ممنون ميشم چون من سي شارپ تا حدودي بلدم.ممنون
  8. #8
    2013/05/18
    2
    0

    پاسخ : درخواست کمک برنامه ارسال و دريافت داده با پورت سريال بين ميکرو و کامپيوتر(بسکام)

    سلام
    يه برنامه ي هست به نام hercules_3-2-4 هستش روي کامپيوتر نصب ميشه و ميتوني با اون ارسال و دريافت کني دانلودش کن جالبه ...
  9. #9
    2012/05/09
    18
    0

    پاسخ : درخواست کمک برنامه ارسال و دريافت داده با پورت سريال بين ميکرو و کامپيوتر(بسکام)

    دوست عزيز rn24 اين برنامه رو داري برام ايميل کني
    hamid_t_gh@yahoo.com
نمایش نتایج: از 1 به 9 از 9

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

  1. پاسخ: 7
    آخرين نوشته: 2015/06/02, 10:00
  2. پاسخ: 7
    آخرين نوشته: 2014/12/19, 08:47
  3. ارسال داده باينري از طريق پورت سريال بر روي پورت ميکرو
    توسط Soheilas در انجمن میکروکنترلرهای AVR
    پاسخ: 48
    آخرين نوشته: 2014/10/25, 16:52
  4. ارسال اطلاعات از ميکرو به c# بوسيله پورت سريال!
    توسط arashdj72 در انجمن میکروکنترلرهای AVR
    پاسخ: 4
    آخرين نوشته: 2014/09/24, 20:51
  5. پاسخ: 10
    آخرين نوشته: 2012/12/03, 10:15

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

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

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

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

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