NOTICE توجه: این یک موضوع قدیمی است که آخرین پست ارسالی آن مربوط به 3522 روز قبل است . لطفا فقط پاسخ ها ، سوالات و درخواست های 100 درصد مرتبط را به آن ارسال کنید و برای درخواست ها و سوالات جدید موضوع جدیدی را ایجاد کنید
نمایش نتایج: از 1 به 1 از 1

موضوع: درخواست کمک تصحیح برنامه ارتباط سريال بين ميکرو و کامپيوتر(بسکام)

  1. #1
    تازه وارد
    تاریخ عضویت
    Aug 2014
    نوشته ها
    1
    تشکر
    1
    تشکر شده 1 بار در 1 پست

    Icon16 درخواست کمک تصحیح برنامه ارتباط سريال بين ميکرو و کامپيوتر(بسکام)

    سلام خدمت همه اساتيد:
    در زير برنامه اي نوشتم و آنرا با 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. تشکرها از این نوشته :


  3. # ADS
    Circuit advertisement
    تاریخ عضویت
    Always
    نوشته ها
    Many
     

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

  1. [سوال] اتصال درست گیرنده مادون قرمز به میکرو
    توسط arasp در انجمن سایر موارد مرتبط با میکرو کنترلرها
    پاسخ: 7
    آخرين نوشته: 26-07-2014, 14:16
  2. پاسخ: 1
    آخرين نوشته: 17-04-2013, 21:40
  3. پاسخ: 6
    آخرين نوشته: 03-08-2011, 00:24
  4. پاسخ: 2
    آخرين نوشته: 21-12-2009, 13:38

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

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