اطلاعیه

Collapse
No announcement yet.

چند مشکل در کد نویسی دماسنج ...

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

    چند مشکل در کد نویسی دماسنج ...

    سلام بچه ها ....
    خوب امروز قصد داشتم یک پروژه بسازم ولی یکم مشکل داشتم خواستیم اگر ممکنه یکی از دوستان کد نویسی هامو درست کنه ......
    من یک دماسنج با lm35 می خواهم ببندم وال سی دی 4*20 و مگا 8 ....
    من کد نویسی دماسنجو نوشتم ولی یک مشکلی دارم ....من می خواهم توی یک محیط بسته دما رو ثابت نگهدارم یعنی مثلا توی یک جعبه دما 27 درجه ثابت باشه و برای اینکار باید دوتا مثلا سیم پیچ حرارتی و فن بزارم من توی اینقسمت کنترل دما مشکل دارم اگر کسی از دوستان میتونه کمکم کنه لطفا دریغ نکنید .....اینم کد نویسی دماسنجم .....
    $regfile = "M8def.dat"
    $crystal = 10000000

    Deflcdchar 0 , 32 , 32 , 31 , 31 , 31 , 31 , 32 , 32
    Deflcdchar 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1
    Deflcdchar 2 , 16 , 16 , 16 , 16 , 16 , 16 , 16 , 16
    Deflcdchar 3 , 16 , 16 , 31 , 31 , 31 , 31 , 16 , 16
    Deflcdchar 4 , 1 , 1 , 31 , 31 , 31 , 31 , 1 , 1
    Deflcdchar 5 , 32 , 32 , 28 , 28 , 28 , 28 , 32 , 32

    Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.2 , Db6 = Portd.1 , Db7 = Portd.0 , E = Portd.6 , Rs = Portd.7

    Config Lcd = 16 * 2

    Config Adc = Single , Prescaler = Auto , Reference = Avcc

    Start Adc

    Dim W As Word , Perc As Word , Volt As Word , Volt_d As Byte , Channel As Byte , I As Byte , Cols As Byte , Cols_d As Byte

    Cls
    Cursor Off
    Locate 3 , 1
    Lcd "0"
    Locate 3 , 5
    Lcd "10"
    Locate 3 , 10
    Lcd "20"
    Locate 3 , 15
    Lcd "30"
    Locate 3 , 19
    Lcd Chr(223) ; "C"

    Do
    W = Getadc(0)
    Volt = W * 5
    Volt_d = Volt Mod 10
    Volt = Volt / 10
    Locate 1 , 1
    Lcd Volt ; "," ; Volt_d

    Cols = Volt / 2

    Locate 2 , 1
    For I = 1 To Cols
    Select Case I
    Case 1 : Lcd Chr(3)
    Case 5 : Lcd Chr(4)
    Case 10 : Lcd Chr(4)
    Case 15 : Lcd Chr(4)
    Case 20 : Lcd Chr(4)
    Case Else : Lcd Chr(0)
    End Select
    Next I

    Cols_d = Cols Mod 2
    If Cols_d > 0 Then
    Lcd Chr(5)
    Cols = Cols + 2
    Else
    Cols = Cols + 1
    End If

    For I = Cols To 20
    Select Case I
    Case 1 : Lcd Chr(2)
    Case 5 : Lcd Chr(1)
    Case 10 : Lcd Chr(1)
    Case 15 : Lcd Chr(1)
    Case 20 : Lcd Chr(1)
    Case Else : Lcd Chr(32)
    End Select
    Next I

    Waitms 1000
    Loop
    End
    طراحی برد و شماتیک و برنامه نویسی پروژه شما با هزینه اندک پذیرفته میشود ...برای سفارش پیغام خصوصی بدید ...

    #2
    پاسخ : چند مشکل در کد نویسی دماسنج ...

    سلام بچه ها من یک کریستال داخلی اشتباه انتخاب کردم و حالا هرچی میزنم این ارور رو میده
    ---------------------------
    BASCOM-AVR
    ---------------------------
    Could not identify chip with ID:FFFFFF
    ---------------------------
    OK
    ---------------------------

    بنظرتون مگا 8 سوخته ؟؟؟؟ تو را به خدا حد اقل به این سوال پاسخ بدید ....
    طراحی برد و شماتیک و برنامه نویسی پروژه شما با هزینه اندک پذیرفته میشود ...برای سفارش پیغام خصوصی بدید ...

    دیدگاه


      #3
      پاسخ : چند مشکل در کد نویسی دماسنج ...

      تو را به خدا یکی زودتر یک جواب کوتاه بده ....
      طراحی برد و شماتیک و برنامه نویسی پروژه شما با هزینه اندک پذیرفته میشود ...برای سفارش پیغام خصوصی بدید ...

      دیدگاه


        #4
        پاسخ : چند مشکل در کد نویسی دماسنج ...

        با درود . . .
        1) راجع به قفل شدن آی سی
        http://www.eca.ir/forum2/index.php?topic=30857.0

        به احتمال 98 در صد برمیگرده. البته اگه فیوز بیت کریستال رو اشتباه زده باشی.

        2) در کل احتیاج به هیتر و فن نیست
        بستگی داره در چه محیطی بخوای اینکارو بکنی؟؟؟
        مثلا اگه محیط ذاتا گرمه شما به یه فن و یا یه المان خنک کننده احتیاج داری که در صورت بالا رفتن محیط دما رو پایین بیاره و بعد از پایین اومدن دما خاموش بشه تا پیک بعدی و یا بلعکس.
        اگه یه توضیحی راجع به پروژه بدی بهتر میشه راهها رو برای انجامش ارائه داد.
        درد من تنهایی نیست؛ بلكه مرگ ملتی است كه گدایی را قناعت، بی‏عرضگی را صبر، و با تبسمی بر لب این حماقت را حكمت خداوند می‏ نامند! "گاندی"

        به دلیل وجود برخی مشکلات و بی احترامی ها این اکانت رو غیر فعال کردم. همیشه سر بلند باشید.
        بدرود . . .

        دیدگاه


          #5
          پاسخ : چند مشکل در کد نویسی دماسنج ...

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

          دیدگاه


            #6
            پاسخ : چند مشکل در کد نویسی دماسنج ...

            نوشته اصلی توسط sasan18s
            سلام ممنون که پاسخ دادید ....
            ببینید من می خواهم توی یک جعبه دمای 27 درجه یا ... رو داشته باشم و همیشه توی اون محیط دما ثابت باشه یعنی اگر هوای داخل جعبه پایین 27 اومد دوباره بیاد 27 و اگربالا رفت هم همینطور ...
            میخوای جوجه کشی راه بندازی؟؟؟

            اگه آی سیت زنده نشده پس بهتره یه نگا به پروگرمرت هم بندازی. شاید مشکل از اون باشه. با این روش تاحالا خیلی ها جواب گرفتن.

            ساخت دماسنج کنترلی(همون ترموستات خودمون) زیاد سخت نیست.
            ابعاد جعبه شما چقدره؟؟؟
            در حد یه جعبه کفشه؟؟؟ یا بزرگتر؟
            درد من تنهایی نیست؛ بلكه مرگ ملتی است كه گدایی را قناعت، بی‏عرضگی را صبر، و با تبسمی بر لب این حماقت را حكمت خداوند می‏ نامند! "گاندی"

            به دلیل وجود برخی مشکلات و بی احترامی ها این اکانت رو غیر فعال کردم. همیشه سر بلند باشید.
            بدرود . . .

            دیدگاه


              #7
              پاسخ : چند مشکل در کد نویسی دماسنج ...

              سلام دوست عزیز
              اگه میتونی از مگا16 یا 32 استفاده کن که داخلش رگولاتور 2.56 داره و فقط کافیه عدد ADC رو بر 4 تقسیم کنی.
              به همین سادگی.
              این یه برنامه است که عملا هم جواب میده...
              من با Tiny45 کار کردم و با سریال مجازی میفرتم به پورت سریال.
              کد:
              $regfile = "attiny45.dat"
              $crystal = 8000000
              Config Adc = Single , Prescaler = Auto , Reference = Internal_2.56_nocap
              Start Adc
              Dim A As Word
              Open "comb.2:9600,8,n,1" For Output As #1
              Print #1 , "Amir"
              Do
              A = Getadc(2) / 4
              Print #1 , A
              Waitms 64
              Loop
              Close #1
              الهم عجل لولیک الفرج

              فقط 313 نفر...

              دیدگاه


                #8
                پاسخ : چند مشکل در کد نویسی دماسنج ...

                سلام ...
                خدمت آقای نصیری بگم که آره تقریبا مثل دستگاه جوجه کشی ......
                و خدمت آقای الفتی هم بگم اگر روشی میدونید بگید که از همون تجهیزاتی که تو پست اول زدم استفاده کنم.....
                طراحی برد و شماتیک و برنامه نویسی پروژه شما با هزینه اندک پذیرفته میشود ...برای سفارش پیغام خصوصی بدید ...

                دیدگاه


                  #9
                  پاسخ : چند مشکل در کد نویسی دماسنج ...

                  اگه عجله نداری تا آخر هفته ی بعد صبر کن برات ردیف میکنم...
                  الهم عجل لولیک الفرج

                  فقط 313 نفر...

                  دیدگاه


                    #10
                    پاسخ : چند مشکل در کد نویسی دماسنج ...

                    ممنون میشم دوست عزیز ....
                    طراحی برد و شماتیک و برنامه نویسی پروژه شما با هزینه اندک پذیرفته میشود ...برای سفارش پیغام خصوصی بدید ...

                    دیدگاه


                      #11
                      پاسخ : چند مشکل در کد نویسی دماسنج ...

                      ببخشید آقای امیر حسام الفتی یک هفته به دو هفته رسید و شما پاسخ منو ندادید ممنون میشم زودتر پاسخ بدید .....
                      طراحی برد و شماتیک و برنامه نویسی پروژه شما با هزینه اندک پذیرفته میشود ...برای سفارش پیغام خصوصی بدید ...

                      دیدگاه


                        #12
                        پاسخ : چند مشکل در کد نویسی دماسنج ...

                        کد:
                        $regfile = "M8def.dat"
                        $crystal = 10000000
                        
                        Deflcdchar 0 , 32 , 32 , 31 , 31 , 31 , 31 , 32 , 32
                        Deflcdchar 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1
                        Deflcdchar 2 , 16 , 16 , 16 , 16 , 16 , 16 , 16 , 16
                        Deflcdchar 3 , 16 , 16 , 31 , 31 , 31 , 31 , 16 , 16
                        Deflcdchar 4 , 1 , 1 , 31 , 31 , 31 , 31 , 1 , 1
                        Deflcdchar 5 , 32 , 32 , 28 , 28 , 28 , 28 , 32 , 32
                        
                        Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.2 , Db6 = Portd.1 , Db7 = Portd.0 , E = Portd.6 , Rs = Portd.7
                        
                        Config Lcd = 20 * 4
                        
                        Config Adc = Single , Prescaler = Auto , Reference = Aref
                        
                        Start Adc
                        
                        Dim W As Word , Perc As Word , Volt As Word , Volt_d As Byte , Channel As Byte , I As Byte , Cols As Byte , Cols_d As Byte
                        
                        Cls
                        Cursor Off
                        Locate 3 , 1
                        Lcd "0"
                        Locate 3 , 5
                        Lcd "10"
                        Locate 3 , 10
                        Lcd "20"
                        Locate 3 , 15
                        Lcd "30"
                        Locate 3 , 19
                        Lcd Chr(223) ; "C"
                        
                        Do
                         W = Getadc(0) / 4
                         Locate 1 , 1
                         Lcd w ; "'C"
                        if w > 28 then : set portb.0 : waitms 256 : end if      ' Fan
                        if w < 26 then : set portb.1 : waitsm 256 : end if      ' Heater
                        if w > 26 and w < 28 then : reset portb.0 : reset portb.1 : waitms 64 : end if 
                        Loop
                        الهم عجل لولیک الفرج

                        فقط 313 نفر...

                        دیدگاه


                          #13
                          پاسخ : چند مشکل در کد نویسی دماسنج ...

                          ممنون میشم یکم راجع بهش توضیح بدید .....
                          طراحی برد و شماتیک و برنامه نویسی پروژه شما با هزینه اندک پذیرفته میشود ...برای سفارش پیغام خصوصی بدید ...

                          دیدگاه


                            #14
                            پاسخ : چند مشکل در کد نویسی دماسنج ...

                            ببخشید وقتی کدها رو زدم تو بیسکام هنگام کامپایل ارور میده ممنو میشم کد سالم رو برام بزارید ....
                            Error : 12 Line : 11 Unknown CONFIG parameter [AREF]
                            طراحی برد و شماتیک و برنامه نویسی پروژه شما با هزینه اندک پذیرفته میشود ...برای سفارش پیغام خصوصی بدید ...

                            دیدگاه


                              #15
                              پاسخ : چند مشکل در کد نویسی دماسنج ...

                              m8 رو به m88 تبدیل کنید...
                              الهم عجل لولیک الفرج

                              فقط 313 نفر...

                              دیدگاه

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