اطلاعیه

Collapse
No announcement yet.

مشگل در نگه داشتن دما ثابت در محدوده منفی

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

    #76
    پاسخ : مشگل در نگه داشتن دما ثابت در محدوده منفی

    آقا محمد مممنوننن :wow:
    درست شد
    فقط رو سگمنت امتحان نکردم
    درسته دیگه؟

    دیدگاه


      #77
      پاسخ : مشگل در نگه داشتن دما ثابت در محدوده منفی

      نوشته اصلی توسط mohammad safarnejad
      آقا محمد مممنوننن :wow:
      درست شد
      فقط رو سگمنت امتحان نکردم
      درسته دیگه؟
      یعنی چی رو سگمنت امتحان نکردم
      برنامه خودتو امتحان کن
      یه سواله دیگه هر دوتا سنسور کار کرد؟
      برد جوجه کشی:
      مطالعه پست 1 (حتما مطالعه کنید)


      مطالعه پست 2 (برای مطلع شدن از تغییرات برنامه مطالعه کنید)

      دانلود

      توجه:
      این برد نیمه صنعتی و خانگی هست...
      برای صنعتی شدن حتما برد مخصوص خودتون رو بزنید...

      آی دی کانال تلگرامی مربوط به برد جوجه کشی : electr0o0nic@

      دیدگاه


        #78
        پاسخ : مشگل در نگه داشتن دما ثابت در محدوده منفی

        نوشته اصلی توسط mohammad...
        یعنی چی رو سگمنت امتحان نکردم
        برنامه خودتو امتحان کن
        یه سواله دیگه هر دوتا سنسور کار کرد؟
        نه فقط یکی از سنسور ها کار میکنه
        سنسور بعدی دما نشون نمیده
        سگمنت فعلا وصل نکردم
        باید سیم هاشو وصل کنم

        دیدگاه


          #79
          پاسخ : مشگل در نگه داشتن دما ثابت در محدوده منفی

          تو پرتئوس شبیه سازی کن مثل همون میشه
          سگمنت ها چرا اونجوری میشن
          منظورم اینه که خاموش و روشن میشن؟

          دیدگاه


            #80
            پاسخ : مشگل در نگه داشتن دما ثابت در محدوده منفی

            نوشته اصلی توسط mohammad safarnejad
            تو پرتئوس شبیه سازی کن مثل همون میشه
            سگمنت ها چرا اونجوری میشن
            منظورم اینه که خاموش و روشن میشن؟
            شما از برنامه ای که من گفتم اینو امتحان کن همونو پروگرام کردین
            اگه آره من تو اون برنامه فقط یه سنسور دما رو گذاشتم کار کنه و دومی رو غیر فعال کردم بعدش از دستور wait استفاده کردم برای همین سون سگمنت روشن و خاموش میشه
            اگه از کد قبلی که من قرار دادم استفاده کردی اونو بی خیال برنامه خودتو پروگرام کن تست کن
            بعدش دیگه لازم نیست هر بار پروگرام کردن میکرو فیوز بیت رو هم پروگرام کنی همون دفعه اول که پروگرام کردی کافیه مگه اینکه بخوای فرکانس میکرو رو تغییر بدی
            برد جوجه کشی:
            مطالعه پست 1 (حتما مطالعه کنید)


            مطالعه پست 2 (برای مطلع شدن از تغییرات برنامه مطالعه کنید)

            دانلود

            توجه:
            این برد نیمه صنعتی و خانگی هست...
            برای صنعتی شدن حتما برد مخصوص خودتون رو بزنید...

            آی دی کانال تلگرامی مربوط به برد جوجه کشی : electr0o0nic@

            دیدگاه


              #81
              پاسخ : مشگل در نگه داشتن دما ثابت در محدوده منفی

              ممنون اقا محمد
              من این برنامه قبلی رو ریختم ولی مشکلی که هست اینه که دما هر دو سنسور روی 85 هست و بالا و پایین نمیره
              اینم کدش
              کد:
              $regfile = "m16def.dat"
              $crystal = 2000000
              Config Lcdpin = Pin , Rs = Porta.7 , E = Porta.6 , Db4 = Porta.5 , Db5 = Porta.4 , _
               Db6 = Porta.3 , Db7 = Porta.2
              Config Lcd = 16 * 2
              Cursor Off
              Config Single = Scientific , Digits = 1
              Config 1wire = Portd.7
              Dim Ss As String * 30
              Dim Temp As String * 6
              Dim Temp1 As String * 6
              Dim Temp2 As String * 6
              Dim I1 As Integer
              Dim I2 As Integer
              Dim I11 As Single
              Dim I22 As Single
              Dim Dsid1(8) As Byte
              Dim Dsid2(8) As Byte
              '##############################################################################'
              Dim L As Single
              Dim H As Single
              Dim Ll As String * 4
              Dim Hh As String * 4
              Dim T As Single
              Dim T1 As Single
              Dim T2 As Single
              Dim Dt As Single
              Dim F As Byte , V As Byte , Kilid As Byte
              Dim String_s As String * 3 , String_a As String * 2 , Sr(5) As String * 1 , P(5) As Integer
              Dim Val_s As Single , D1 As Word , D2 As Word
              Dim Cont(5) As Byte , I As Integer , N As Byte , Ul As String * 6
               Dim Pg As Single
              Declare Sub Segment
              '##############################################################################'
              Dsid1(1) = 1wsearchfirst()
              Dsid2(1) = 1wsearchnext()
              '**************'
              Config Portb = Output
              Config Portc = Output
              Config Portd.2 = Output
              Config Portd.0 = Output
              Config Porta.1 = Output
              Config Porta.0 = Output
              Config Portd.1 = Input
              Config Portd.5 = Input
              Config Portd.6 = Input
              Config Portd.4 = Input
              Config Portd.3 = Input
              '**************'
              Set Porta.1
              Cls
              Locate 1 , 4
              Lcd "AZAR NOGA"
              Wait 5
              'For N = 0 To 167
              'Segment
              'Portb = &B01000000
              'Next
              Submain:
              Set Porta.1
              F = 1
              Cls
              Cursor Off
              Readeeprom L , 1
              Waitms 5
              Readeeprom H , 8
              Waitms 5
              Readeeprom Kilid , 12
              Waitms 5
              Ll = Fusing(l , "#.#")
              Do
              If Pind.5 = 0 And F = 0 Then Goto Settempon
              1wreset
              1wwrite &HCC
              1wwrite &H44
              '=================================
              For N = 0 To 20
              Segment
              Next
              If Err = 1 Then
              Cls
              Locate 1 , 4
              Lcd "No DS18B20"
              Wait 1
              Portb = &H00
              Else
              '---------------------------------'
              1wreset
              1wwrite &H55
              1wverify Dsid1(1)
              1wwrite &HBE
              I1 = 1wread(2)
              '---------------------------------'
              Segment
              1wreset
              1wwrite &H55
              1wverify Dsid2(1)
              1wwrite &HBE
              I2 = 1wread(2)
              Segment
              '---------------------------------'
              Ss = ""
              I11 = I1 \ 16
              Ss = Fusing(i11 , "#.##")
              Temp1 = Ss
              Segment
              Dt = Val(temp1)
              T1 = Dt
              Ss = ""
              I22 = I2 \ 16
              Segment
              Ss = Fusing(i22 , "#.##")
              Temp2 = Ss
              Dt = Val(temp2)
              T2 = Dt
              Segment
              If Kilid = 0 Then T = T1
              If Kilid = 1 Then T = T2
              If Pind.6 = 0 And V = 0 Then
              Incr Kilid
              If Kilid > 1 Then Kilid = 0
              V = 1
              Writeeeprom Kilid , 12
              Waitms 5
              Cls
              Waitms 300
              Cls
              End If
              Segment
              
              If Pind.6 = 1 Then V = 0
              Locate 1 , 1
              If Kilid = 0 Then
              Lcd "Temp=" ; Temp1 ; Chr(223) ; "C   "
              Temp = Temp1
              End If
              Segment
              If Kilid = 1 Then
              Lcd "Temp=" ; Temp2 ; ":" ; ; Chr(223) ; "C   "
              Temp = Temp2
              End If
              Segment
              '====================7segment formol==
              If T < 0 Then
               Pg = Abs(t)
               Else
               Pg = -1
               End If
              If T >= 100 Then String_s = Left(temp , 3)
              If T >= 10 And T < 100 Then String_s = Left(temp , 2)
              If T < 10 Then String_s = Left(temp , 1)
              String_a = Right(temp , 2)
              Segment
              If T < 10 And T >= 0 Then
              Cont(1) = 1 : Cont(2) = 4 : Cont(3) = 5 : Cont(4) = 20 : Cont(5) = 20
              Elseif T >= 10 And T < 100 Then
              Cont(1) = 1 : Cont(2) = 2 : Cont(3) = 4 : Cont(4) = 5 : Cont(5) = 20
              Elseif T >= 100 Then
              Cont(1) = 1 : Cont(2) = 2 : Cont(3) = 3 : Cont(4) = 4 : Cont(5) = 5
              End If
              Segment
              If Pg >= 10 And Pg < 100 Then String_s = Mid(temp , 2 , 2)
              If Pg < 10 And Pg >= 0 Then String_s = Mid(temp , 2 , 1)
              String_a = Right(temp , 2)
              Segment
              If Pg < 10 And Pg >= 0 Then
              Cont(1) = 30 : Cont(2) = 1 : Cont(3) = 4 : Cont(4) = 5 : Cont(5) = 20
              Elseif Pg >= 10 And Pg < 100 Then
              Cont(1) = 30 : Cont(2) = 2 : Cont(3) = 3 : Cont(4) = 4 : Cont(5) = 5
              End If
              Segment
              Sr(1) = Left(string_s , 1)
              If T => 0 Then Sr(2) = Mid(string_s , 2 , 1)
              If T < 0 Then Sr(2) = Left(string_s , 1 )
              Segment
              Sr(3) = Right(string_s , 1)
              Sr(4) = Left(string_a , 1)
              Sr(5) = Right(string_a , 1)
              Segment
              P(1) = Val(sr(cont(1)))
              P(2) = Val(sr(cont(2)))
              P(3) = Val(sr(cont(3)))
              P(4) = Val(sr(cont(4)))
              P(5) = Val(sr(cont(5)))
              '============================
              Segment
              Locate 2 , 1
              Lcd "Temp Off:" ; L ; Chr(223) ; "C  "
              Segment
              End If
              Deflcdchar 1 , 31 , 28 , 29 , 29 , 13 , 19 , 27 , 27
              Segment
              If T > L And T < H Then
              End If
              Segment
              '=================Gharm Shodan                        '
              If T > L Then
              Locate 1 , 16
              Lcd "*"
              Segment
              Set Portd.2
              Set Porta.0
              Reset Portd.0
              For N = 0 To 34
              Segment
              Next
              Else
              Locate 1 , 14
              Lcd " "
              Segment
              Reset Portd.2
              Reset Porta.0
              For N = 0 To 10
              Segment
              Next
              End If
              If Pind.5 = 1 Then F = 0
              Segment
              '=============
              Loop
              '###############################temp control####################################
              Settempon:
              Portb = &H00
              F = 1
              Cursor Off
              Locate 1 , 1
              Cls
              Lcd "Set Temp Off"
              Do
              Waitms 100
              If Pind.3 = 0 Then L = L + 0.1
              If Pind.4 = 0 Then L = L -0.1
              If Pind.5 = 0 And F = 0 Then
              Cls
              Lcd "  SAVING..."
              Waitms 700
              Writeeeprom L , 1
              Waitms 5
              Cls
              Goto Submain
              End If
              Locate 2 , 1
              Lcd "Temp Off = " ; L ; Chr(0) ; "c "
              If Pind.5 = 1 Then F = 0
              Waitms 120
              Loop
              '############################7Segment module####################################
              Sub Segment
              Set Portc.5
              Set Portc.4
              Set Portc.3
              Set Portc.2
              Set Portc.1
              Reset Portc.0
              Portb = Lookup(p(1) , Temp_data)
              If T < 10 Then Portb = Portb Or &H80
              If T < 0 Then Portb = &H40
              Waitms 4
              '=============
              Set Portc.5
              Set Portc.4
              Set Portc.3
              Set Portc.2
              Set Portc.0
              Reset Portc.1
              Portb = Lookup(p(2) , Temp_data)
              If T => 10 And T < 100 Then Portb = Portb Or &H80
              If Pg < 10 And Pg > 0 Then Portb = Portb Or &H80
              Waitms 4
              '=============
              Set Portc.5
              Set Portc.4
              Set Portc.3
              Set Portc.1
              Set Portc.0
              Reset Portc.2
              If Cont(3) <> 20 Then Portb = Lookup(p(3) , Temp_data)
              If T >= 100 Then Portb = Portb Or &H80
              If Pg => 10 And Pg < 100 Then Portb = Portb Or &H80
              If Cont(3) = 20 Then Portb = &H39
              Waitms 4
              '=============
              Set Portc.5
              Set Portc.4
              Set Portc.2
              Set Portc.1
              Set Portc.0
              Reset Portc.3
              If Cont(4) <> 20 Then Portb = Lookup(p(4) , Temp_data)
              If Cont(4) = 20 And Cont(3) <> 20 And T => 0 Then
              Portb = &H39
              Elseif Cont(4) = 20 Then
              Portb = &H00
              End If
              If Pg >= 100 Then Portb = Portb Or &H80
              Waitms 4
              '=============
              Set Portc.5
              Set Portc.3
              Set Portc.2
              Set Portc.1
              Set Portc.0
              Reset Portc.4
              If Cont(5) <> 20 Then Portb = Lookup(p(5) , Temp_data)
              If Cont(5) = 20 And Cont(4) <> 20 Then
               Portb = &H39
               Elseif Cont(5) = 20 Then
               Portb = &H00
               End If
              Waitms 4
              '=============
              Set Portc.4
              Set Portc.3
              Set Portc.2
              Set Portc.1
              Set Portc.0
              Reset Portc.5
              If Cont(5) = 20 Then Portb = &B0000000
              If Cont(5) <> 20 Then Portb = &H39
              Waitms 4
              '=============
              End Sub
              '#############################eeprom data#######################################
              Temp_data:
              Data &H3F , &H06 , &H5B , &H4F , &H66 , &H6D , &H7D , &H07 , &H7F , &H6F
              '###############################################################################
              Dta:
              $eeprom
              Data 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 10 , 11 , 12 , 13 , 14 , 15 , 16
              $data

              دیدگاه


                #82
                پاسخ : مشگل در نگه داشتن دما ثابت در محدوده منفی

                الان دوباره پروگرام کردم مشکل 85 درجه درست شد ولی هر دو سنسور رو یک دما نشون میده

                دیدگاه


                  #83
                  پاسخ : مشگل در نگه داشتن دما ثابت در محدوده منفی

                  نوشته اصلی توسط mohammad safarnejad
                  الان دوباره پروگرام کردم مشکل 85 درجه درست شد ولی هر دو سنسور رو یک دما نشون میده
                  خوب یکی از سنسورها رو با فندک گرم کن ببین چی میشه
                  برد جوجه کشی:
                  مطالعه پست 1 (حتما مطالعه کنید)


                  مطالعه پست 2 (برای مطلع شدن از تغییرات برنامه مطالعه کنید)

                  دانلود

                  توجه:
                  این برد نیمه صنعتی و خانگی هست...
                  برای صنعتی شدن حتما برد مخصوص خودتون رو بزنید...

                  آی دی کانال تلگرامی مربوط به برد جوجه کشی : electr0o0nic@

                  دیدگاه


                    #84
                    پاسخ : مشگل در نگه داشتن دما ثابت در محدوده منفی

                    نوشته اصلی توسط mohammad...
                    خوب یکی از سنسورها رو با فندک گرم کن ببین چی میشه
                    با هویه گرم میکنم ولی فقط یکی از سنسور ها دماش تغیر می کنه
                    یعنی دومی اصلا دماش تغیر نمیکنه

                    دیدگاه


                      #85
                      پاسخ : مشگل در نگه داشتن دما ثابت در محدوده منفی

                      نوشته اصلی توسط mohammad safarnejad
                      با هویه گرم میکنم ولی فقط یکی از سنسور ها دماش تغیر می کنه
                      یعنی دومی اصلا دماش تغیر نمیکنه
                      سلام
                      اون کلید T که خودت قرار دادی اونم میزنی چیزی نمیشه
                      ببین اگه سنسور دومی شناخته نشه باید یک سنسور رو وقتی دماش تغییر می کنه رو ال سی دی نمایش داده بشه و تغییر دمای سنسور دومی رو ال سی دی نمایش داده نشه
                      هر چقد هم کلید T رو بزنی که دمای سنسور دومی رو بخونه باز دمای سنسور اولی رو می خونه اگه مشکل شما هم همینه
                      باید برنامه رو همون طور که قبلا گفتم قدم به قدم تست کرد تا بدونیم که مشکل از کجا می تونه باشه
                      برد جوجه کشی:
                      مطالعه پست 1 (حتما مطالعه کنید)


                      مطالعه پست 2 (برای مطلع شدن از تغییرات برنامه مطالعه کنید)

                      دانلود

                      توجه:
                      این برد نیمه صنعتی و خانگی هست...
                      برای صنعتی شدن حتما برد مخصوص خودتون رو بزنید...

                      آی دی کانال تلگرامی مربوط به برد جوجه کشی : electr0o0nic@

                      دیدگاه


                        #86
                        پاسخ : مشگل در نگه داشتن دما ثابت در محدوده منفی

                        نوشته اصلی توسط mohammad...
                        سلام
                        اون کلید T که خودت قرار دادی اونم میزنی چیزی نمیشه
                        ببین اگه سنسور دومی شناخته نشه باید یک سنسور رو وقتی دماش تغییر می کنه رو ال سی دی نمایش داده بشه و تغییر دمای سنسور دومی رو ال سی دی نمایش داده نشه
                        هر چقد هم کلید T رو بزنی که دمای سنسور دومی رو بخونه باز دمای سنسور اولی رو می خونه اگه مشکل شما هم همینه
                        باید برنامه رو همون طور که قبلا گفتم قدم به قدم تست کرد تا بدونیم که مشکل از کجا می تونه باشه
                        بله دقیقا همینطوریه
                        یعنی کلید T رو میزنم صفحه تغیر میکنه ولی دمای سنسور اول رو میخونه و نمایش داده میشه

                        دیدگاه


                          #87
                          پاسخ : مشگل در نگه داشتن دما ثابت در محدوده منفی

                          نوشته اصلی توسط mohammad safarnejad
                          بله دقیقا همینطوریه
                          یعنی کلید T رو میزنم صفحه تغیر میکنه ولی دمای سنسور اول رو میخونه و نمایش داده میشه
                          این برنامه رو پروگرام کن ببین هر دو سنسور کار می کنن یا نه
                          تو این برنامه کلا سون سگمنتا غیر فعال شدن
                          [code=vb]$regfile = "m16def.dat"
                          $crystal = 2000000
                          Config Lcdpin = Pin , Rs = Porta.7 , E = Porta.6 , Db4 = Porta.5 , Db5 = Porta.4 , _
                          Db6 = Porta.3 , Db7 = Porta.2
                          Config Lcd = 16 * 2
                          Cursor Off
                          Config Single = Scientific , Digits = 1
                          Config 1wire = Portd.7
                          Dim Ss As String * 30
                          Dim Temp As String * 6
                          Dim Temp1 As String * 6
                          Dim Temp2 As String * 6
                          Dim I1 As Integer
                          Dim I2 As Integer
                          Dim I11 As Single
                          Dim I22 As Single
                          Dim Dsid1(8) As Byte
                          Dim Dsid2(8) As Byte
                          '############################################ ##################################'
                          Dim L As Single
                          Dim H As Single
                          Dim Ll As String * 4
                          Dim Hh As String * 4
                          Dim T As Single
                          Dim T1 As Single
                          Dim T2 As Single
                          Dim Dt As Single
                          Dim F As Byte , V As Byte , Kilid As Byte
                          Dim String_s As String * 3 , String_a As String * 2 , Sr(5) As String * 1 , P(5) As Integer
                          Dim Val_s As Single , D1 As Word , D2 As Word
                          Dim Cont(5) As Byte , I As Integer , N As Byte , Ul As String * 6
                          Dim Pg As Single
                          '############################################ ##################################'
                          Dsid1(1) = 1wsearchfirst()
                          Dsid2(1) = 1wsearchnext()
                          '**************'
                          Config Portb = Output
                          Config Portc = Output
                          Config Portd.2 = Output
                          Config Portd.0 = Output
                          Config Porta.1 = Output
                          Config Porta.0 = Output
                          Config Portd.1 = Input
                          Config Portd.5 = Input
                          Config Portd.6 = Input
                          Config Portd.4 = Input
                          Config Portd.3 = Input
                          '**************'
                          Set Porta.1
                          Cls
                          Locate 1 , 4
                          Lcd "AZAR NOGA"
                          Wait 5
                          Submain:
                          Set Porta.1
                          F = 1
                          Cls
                          Cursor Off
                          Readeeprom L , 1
                          Waitms 5
                          Readeeprom H , 8
                          Waitms 5
                          Readeeprom Kilid , 12
                          Waitms 5
                          Ll = Fusing(l , "#.#&quot
                          Do
                          If Pind.5 = 0 And F = 0 Then Goto Settempon
                          1wreset
                          1wwrite &HCC
                          1wwrite &H44
                          '=================================
                          Waitms 750
                          If Err = 1 Then
                          Cls
                          Locate 1 , 4
                          Lcd "No DS18B20"
                          Wait 1
                          Portb = &H00
                          Else
                          '---------------------------------'
                          1wreset
                          1wwrite &H55
                          1wverify Dsid1(1)
                          1wwrite &HBE
                          I1 = 1wread(2)
                          '---------------------------------'
                          1wreset
                          1wwrite &H55
                          1wverify Dsid2(1)
                          1wwrite &HBE
                          I2 = 1wread(2)
                          '---------------------------------'
                          Ss = ""
                          I11 = I1 \ 16
                          Ss = Fusing(i11 , "#.##&quot
                          Temp1 = Ss
                          Dt = Val(temp1)
                          T1 = Dt
                          Ss = ""
                          I22 = I2 \ 16
                          Ss = Fusing(i22 , "#.##&quot
                          Temp2 = Ss
                          Dt = Val(temp2)
                          T2 = Dt
                          If Kilid = 0 Then T = T1
                          If Kilid = 1 Then T = T2
                          If Pind.6 = 0 And V = 0 Then
                          Incr Kilid
                          If Kilid > 1 Then Kilid = 0
                          V = 1
                          Writeeeprom Kilid , 12
                          Waitms 5
                          Cls
                          Waitms 300
                          Cls
                          End If
                          If Pind.6 = 1 Then V = 0
                          Locate 1 , 1
                          If Kilid = 0 Then
                          Lcd "Temp=" ; Temp1 ; Chr(223) ; "C "
                          Temp = Temp1
                          End If
                          If Kilid = 1 Then
                          Lcd "Temp=" ; Temp2 ; ":" ; ; Chr(223) ; "C "
                          Temp = Temp2
                          End If
                          Locate 2 , 1
                          Lcd "Temp Off:" ; L ; Chr(223) ; "C "
                          End If
                          Deflcdchar 1 , 31 , 28 , 29 , 29 , 13 , 19 , 27 , 27
                          If T > L And T < H Then
                          End If
                          '=================Gharm Shodan '
                          If T > L Then
                          Locate 1 , 16
                          Lcd "*"
                          Set Portd.2
                          Set Porta.0
                          Reset Portd.0
                          For N = 0 To 34
                          Next
                          Else
                          Locate 1 , 14
                          Lcd " "
                          Reset Portd.2
                          Reset Porta.0
                          For N = 0 To 10
                          Next
                          End If
                          If Pind.5 = 1 Then F = 0
                          '=============
                          Loop
                          '###############################temp control####################################
                          Settempon:
                          Portb = &H00
                          F = 1
                          Cursor Off
                          Locate 1 , 1
                          Cls
                          Lcd "Set Temp Off"
                          Do
                          Waitms 100
                          If Pind.3 = 0 Then L = L + 0.1
                          If Pind.4 = 0 Then L = L -0.1
                          If Pind.5 = 0 And F = 0 Then
                          Cls
                          Lcd " SAVING..."
                          Waitms 700
                          Writeeeprom L , 1
                          Waitms 5
                          Cls
                          Goto Submain
                          End If
                          Locate 2 , 1
                          Lcd "Temp Off = " ; L ; Chr(0) ; "c "
                          If Pind.5 = 1 Then F = 0
                          Waitms 120
                          Loop
                          '#############################eeprom data#######################################
                          Temp_data:
                          Data &H3F , &H06 , &H5B , &H4F , &H66 , &H6D , &H7D , &H07 , &H7F , &H6F
                          '############################################ ###################################
                          Dta:
                          $eeprom
                          Data 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 10 , 11 , 12 , 13 , 14 , 15 , 16
                          $data[/code]
                          برد جوجه کشی:
                          مطالعه پست 1 (حتما مطالعه کنید)


                          مطالعه پست 2 (برای مطلع شدن از تغییرات برنامه مطالعه کنید)

                          دانلود

                          توجه:
                          این برد نیمه صنعتی و خانگی هست...
                          برای صنعتی شدن حتما برد مخصوص خودتون رو بزنید...

                          آی دی کانال تلگرامی مربوط به برد جوجه کشی : electr0o0nic@

                          دیدگاه


                            #88
                            پاسخ : مشگل در نگه داشتن دما ثابت در محدوده منفی

                            آقا محمد ممنون
                            ولی فعلا سنسور دوم رو بیخیال
                            الان سگمنت ها رو وصل کردم
                            مثلا الان دما24.26 هست
                            الان
                            دو رقم اول یعنی 24 و ممیز رو نشون میده ولی 26 رو نشون نمیده
                            یعنی دو رقم دوم
                            2 رو نشون نمیده کلا
                            و عدد6 رو 8و ممیز نشون میده
                            راستی زود زود خاموش روشن میشن
                            چیکار کنم؟
                            خواهشا کمک کنید تا امشب راه بیفته

                            دیدگاه


                              #89
                              پاسخ : مشگل در نگه داشتن دما ثابت در محدوده منفی

                              نوشته اصلی توسط mohammad safarnejad
                              آقا محمد ممنون
                              ولی فعلا سنسور دوم رو بیخیال
                              الان سگمنت ها رو وصل کردم
                              مثلا الان دما24.26 هست
                              الان
                              دو رقم اول یعنی 24 و ممیز رو نشون میده ولی 26 رو نشون نمیده
                              یعنی دو رقم دوم
                              2 رو نشون نمیده کلا
                              و عدد6 رو 8و ممیز نشون میده
                              راستی زود زود خاموش روشن میشن
                              چیکار کنم؟
                              خواهشا کمک کنید تا امشب راه بیفته
                              شما از بافر برای تقویت جریان استفاده کردین؟
                              بافر رو هم تست کنین که تغذیش درست وصل شده باشه
                              اگه زود زود پر پر می زنه سون سگمنت زمان 4 میلی ثانیه رو می تونی کاهش بدی تا یک میلی ثانیه دیگه کمتر از اون درست کار نمی کنه
                              اینا رو فعلا یه امتحان بکن ببینیم نتیجه چی میشه
                              اگه درست نشد اگه می تونی از کارکردش یه عکس از سون سگمن بگیر بزار اینجا تا بهتر بتونم راهنمایی کنم
                              برد جوجه کشی:
                              مطالعه پست 1 (حتما مطالعه کنید)


                              مطالعه پست 2 (برای مطلع شدن از تغییرات برنامه مطالعه کنید)

                              دانلود

                              توجه:
                              این برد نیمه صنعتی و خانگی هست...
                              برای صنعتی شدن حتما برد مخصوص خودتون رو بزنید...

                              آی دی کانال تلگرامی مربوط به برد جوجه کشی : electr0o0nic@

                              دیدگاه


                                #90
                                پاسخ : مشگل در نگه داشتن دما ثابت در محدوده منفی

                                بله از بافر استفاده میکنم
                                http://upload7.ir/imgs/2014-12/47574581155533741819.jpg

                                http://upload7.ir/imgs/2014-12/52741424528541408446.jpg

                                دیدگاه

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