اطلاعیه

Collapse
No announcement yet.

چیجوری دما رو با میکرو انتقال بدم به یک میکروی دیگه؟؟؟؟

Collapse
X
 
  • فیلتر
  • زمان
  • Show
Clear All
new posts

    چیجوری دما رو با میکرو انتقال بدم به یک میکروی دیگه؟؟؟؟

    سلام .
    اگه میشه یه کد بنویسید که باهاش بتونم مقدار اندازه گیری شده دما رو با سیم به یک میکروی دیگه منتقل کنم .
    خودم با دستور Print و Waitkey نوشتم ولی فقط یک بار نشونش میده و بعد مقدار دما صفر میشه . :angry:
    اگه کمکم کنید ممنون میشم . :rolleyes:
    با بسکام کار میکنم و میکرو هم Atmega8 است .
    این کدیه که خودم نوشتم . فرستنده
    کد:
    $regfile = "m8def.dat"
    $crystal = 8000000
    Config Lcdpin = Pin , Db4 = Pinb.0 , Db5 = Pinb.1 , Db6 = Pinb.2 , Db7 = Pinb.3 , E = Pinb.4 , Rs = Pinb.5
    Config Lcd = 16 * 2
    Config Adc = Single , Prescaler = Auto , Reference = Internal
    Start Adc
    Dim B As Word
    Dim A As Word
    Dim C As Single
    Dim F As String * 10
    Deflcdchar 0 , 32 , 4 , 10 , 4 , 32 , 32 , 32 , 32
    Cursor Off
    Cls
    
    Main:
    Do
    Home
    B = Getadc(1)
    A = Getadc(2)
    C = B - A
    C = C / 4
    F = Str(c)
    Home
    Lcd "Temp : " ; C ; " C" : Lcd Chr(0) ;
    Waitms 50
    jmp data_r
    Loop
    
    Data_r:
    Do
    Waitms 50
    Print F
    Waitms 50
    jmp main
    Loop
    
    Return
    اینم برای گیرنده
    کد:
    $regfile = "m8def.dat"
    $crystal = 8000000
    Config Lcdpin = Pin , Db4 = Pinb.0 , Db5 = Pinb.1 , Db6 = Pinb.2 , Db7 = Pinb.3 , E = Pinb.4 , Rs = Pinb.5
    Config Lcd = 16 * 2
    Dim S As Single
    Dim F As String * 10
    Deflcdchar 1 , 7 , 5 , 7 , 32 , 32 , 32 , 32 , 32
    Cursor Off
    Cls
    
    Main:
    Do
    Waitms 50
    Input S
    F = Waitkey(s)
    jmp lcd_r
    Loop
    
    
    Lcd_r:
    Do
    Home
    Lcd "Temp : " ; S ; "C" : Lcd Chr(1) :
    Waitms 950
    jmp main
    Loop
    
    Return

    #2
    پاسخ : چیجوری دما رو با میکرو انتقال بدم به یک میکروی دیگه؟؟؟؟

    وقفه پورت سریال رو فعال کن
    و از دستور
    A = Inkey()
    در روتین وقفه استغاده کن
    نوع A
    Byte, Integer, Word, Long or String variable
    میتونه باشه

    دیدگاه


      #3
      پاسخ : چیجوری دما رو با میکرو انتقال بدم به یک میکروی دیگه؟؟؟؟

      میشه یکم بیشتر توضیح بدبد ؟ من تازه کارم :biggrin:

      دیدگاه


        #4
        پاسخ : چیجوری دما رو با میکرو انتقال بدم به یک میکروی دیگه؟؟؟؟

        کد:
        $regfile = "m8def.dat"
        $crystal = 8000000
        Config Lcdpin = Pin , Db4 = Pinb.0 , Db5 = Pinb.1 , Db6 = Pinb.2 , Db7 = Pinb.3 , E = Pinb.4 , Rs = Pinb.5
        Config Lcd = 16 * 2
        Dim S As Single
        Dim F As String * 10
        Deflcdchar 1 , 7 , 5 , 7 , 32 , 32 , 32 , 32 , 32
        Cursor Off
        Cls
        Enable Interrupts
         Enable Urxc
         On Urxc Urxc_isr
        Main:
        Do
        
        Loop
        
        Urxc_isr:
        F = Inkey()
        Cls
        Lcd "Temp : " ; f ; "C" : Lcd Chr(1) :
        Return
        پایه 3 میکرو فرستنده به پایه 2 میکرو گیرنده متصل بشه و زمین دوتا میکرو هم به هم وصل بشه

        دیدگاه


          #5
          پاسخ : چیجوری دما رو با میکرو انتقال بدم به یک میکروی دیگه؟؟؟؟

          دمت گرم . :job: :wow: :wow: :wow: :wow: :wow: :wow: :wow:
          ایول . دستت درد نکنه .کارت درسته .
          خیلی ممنون

          دیدگاه


            #6
            پاسخ : چیجوری دما رو با میکرو انتقال بدم به یک میکروی دیگه؟؟؟؟

            فقط یه سوال :rolleyes:
            اگر بخوام بین این دو میکرو اتصال بیسیم برقرار کنم همین متغییر ها خوبه یا باید به متغییر خاصی تغییرش بدم که دما ارسال و دریافت بشه ؟ یه فرستنده و گیرنده ساختم که رو یک موج خاص قابل تنظیم کار میکنه که میخوام پایه های 2 و 3 میکرو رو بهش وصل کنم . کار میکنه ؟ قدرت رادیویی بالایی هم داره .

            دیدگاه


              #7
              پاسخ : چیجوری دما رو با میکرو انتقال بدم به یک میکروی دیگه؟؟؟؟

              نوشته اصلی توسط esar-robat
              فقط یه سوال :rolleyes:
              اگر بخوام بین این دو میکرو اتصال بیسیم برقرار کنم همین متغییر ها خوبه یا باید به متغییر خاصی تغییرش بدم که دما ارسال و دریافت بشه ؟ یه فرستنده و گیرنده ساختم که رو یک موج خاص قابل تنظیم کار میکنه که میخوام پایه های 2 و 3 میکرو رو بهش وصل کنم . کار میکنه ؟ قدرت رادیویی بالایی هم داره .
              بستگی داره به فرستنده و گیرنده بیسیمت
              نوعش رو بگو اگه من بلد بودم راهنمایی می کنم اگه نه بقیه دوستان هستن

              دیدگاه


                #8
                پاسخ : چیجوری دما رو با میکرو انتقال بدم به یک میکروی دیگه؟؟؟؟

                یه مدار ترانزیستوریه سادست . اسم خاصی هم نداره . از یه ترانزیستور npn ساخته شده که ورودیش بیس ترانزیستوره
                و خروجیش هم کلکتوره که با یه (سلف و خازن تریمر موازی) ، سری شده است . یه چیزی مثل عکس زیر :

                دیدگاه

                لطفا صبر کنید...
                X