اطلاعیه

Collapse
No announcement yet.

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

Collapse
X
Collapse
 
  • صفحه of 9
  • فیلتر
  • زمان
  • Show
Clear All
new posts
قبلی 1 2 3 4 5 6 7 8 9 template بعدی
    #61
    پاسخ : مشگل در نگه داشتن دما ثابت در محدوده منفی

    نوشته اصلی توسط mohammad safarnejad
    سلام اقا محمد
    من الان مونتاژ برد تموم شد و پروگرام کردمو زدم ولی سنسور رو نمیشناسه
    سنسور رو جای دیگه امتحان کردم سالمه
    همه جوره وصلش کردم
    پایه هاشم درسته یعنش مشکل از کجاس؟
    اینم کد
    کد:
    $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.7 = 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 150
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
    تو پروتئوس میشناسه ولی اینجا نمیشناسه
    سلام
    شما یه دونه سنسور دما وصل کردین یا دو تا؟
    باید عیب یابی کنی ببینیم مشکل سخت افزاریه یا نرم افزاری
    شما اول خوب ds18b20 رو چک کن ببین وصله مثلا پایه ی مثبت و منفی و مقاومت پول پ وصله
    اگه درست باشه من برنامه رو رو یه سنسور تنظیم کنم شما اونم امتحان کن بعد ببینیم چی میشه
    من الان زیاد وقت ندارم باید برم دانشگاه ولی بعد اینکه اومدم جوابتو میدم احتمالا سات 18 به بعد
    برد جوجه کشی:
    مطالعه پست 1 (حتما مطالعه کنید)

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

    دانلود

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

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

    دیدگاه

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

      نوشته اصلی توسط mohammad...
      سلام
      شما یه دونه سنسور دما وصل کردین یا دو تا؟
      باید عیب یابی کنی ببینیم مشکل سخت افزاریه یا نرم افزاری
      شما اول خوب ds18b20 رو چک کن ببین وصله مثلا پایه ی مثبت و منفی و مقاومت پول پ وصله
      اگه درست باشه من برنامه رو رو یه سنسور تنظیم کنم شما اونم امتحان کن بعد ببینیم چی میشه
      من الان زیاد وقت ندارم باید برم دانشگاه ولی بعد اینکه اومدم جوابتو میدم احتمالا سات 18 به بعد
      با تشکر
      من یه سنسور وصل کردم
      سخت افزارش درسته
      نکنه مشگل از مگا16 باشه چون تازه فهمیدم پشتش نوشته چین
      مقاومتم وصله

      دیدگاه

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

        اینم کل فایل ها
        http://s5.picofile.com/file/8155223250/dama_ba_ds18b20_7segment.rar.html
        pcb و شماتیک و کد بسکام
        به نظرتون مشگل کجاس؟

        دیدگاه

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

          نوشته اصلی توسط mohammad safarnejad
          اینم کل فایل ها
          http://s5.picofile.com/file/8155223250/dama_ba_ds18b20_7segment.rar.html
          pcb و شماتیک و کد بسکام
          به نظرتون مشگل کجاس؟
          سلام :smile:
          شما باید قدم به قدم برنامه رو تست کنی تا ببینیم مشکل کجاست برای این کار شما یه کپی از برنامه اصلیت بگیر و اونا رو نگه دار
          بعد شما اون سون سگمنت رو کلا کد هاش رو پاک کن دوباره تست کن
          اگه درست نشد کد ها رو کاهش بده تا فقط کد های سنسور های دما بمونه اگه اینبار هم کار نکنه می فهمیم که مشکل از کد های دما ست و اونوقت می تونیم یه کاری بکنیم الان نمی تونم چیزی بگم چون سخت افزار هم درسته یه چیز دیگه برای مقاومت پول پ 3.3 کیلو بزار تست کن
          برد جوجه کشی:
          مطالعه پست 1 (حتما مطالعه کنید)

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

          دانلود

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

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

          دیدگاه

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

            نوشته اصلی توسط mohammad...
            سلام :smile:
            شما باید قدم به قدم برنامه رو تست کنی تا ببینیم مشکل کجاست برای این کار شما یه کپی از برنامه اصلیت بگیر و اونا رو نگه دار
            بعد شما اون سون سگمنت رو کلا کد هاش رو پاک کن دوباره تست کن
            اگه درست نشد کد ها رو کاهش بده تا فقط کد های سنسور های دما بمونه اگه اینبار هم کار نکنه می فهمیم که مشکل از کد های دما ست و اونوقت می تونیم یه کاری بکنیم الان نمی تونم چیزی بگم چون سخت افزار هم درسته یه چیز دیگه برای مقاومت پول پ 3.3 کیلو بزار تست کن
            ممنون
            میشه 3.2 کیلو گذاشت ؟

            دیدگاه

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

              نوشته اصلی توسط mohammad safarnejad
              ممنون
              میشه 3.2 کیلو گذاشت ؟
              آره مشکلی نداره 3.2 کیلو بزار
              برد جوجه کشی:
              مطالعه پست 1 (حتما مطالعه کنید)

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

              دانلود

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

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

              دیدگاه

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

                نوشته اصلی توسط mohammad...
                آره مشکلی نداره 3.2 کیلو بزار
                یه مشگل دیگه
                الان همون سنسور رو روی یه جای دیگه که قبلا کار میکرد وصل کردم دیدم رو دمای 85 قفل کرده
                یعنی سنسور مشگل دار شده؟

                دیدگاه

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

                  با مقاومت 3.2 کیلو امتحان کردم درست نشد

                  دیدگاه

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

                    ببخشید دیر شد

                    این کد رو بدون دستکاری پروگرام کن و تنها یه سنسور دما وصل کن و نتیجه رو بگو
                    راستی فیوز بیت میکرو رو تو فرکانس 2 مگا هرتز گذاشتین؟
                    [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
                    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 , "#.#&quot
                    Do
                    If Pind.5 = 0 And F = 0 Then Goto Settempon
                    1wreset
                    1wwrite &HCC
                    1wwrite &H44
                    '=================================
                    'For N = 0 To 20
                    'Segment
                    'Next
                    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)
                    '---------------------------------'
                    Segment
                    '1wreset
                    '1wwrite &H55
                    '1wverify Dsid2(1)
                    '1wwrite &HBE
                    'I2 = 1wread(2)
                    'Segment
                    '---------------------------------'
                    Ss = ""
                    I11 = I1 \ 16
                    Ss = Fusing(i11 , "#.##&quot
                    Temp1 = Ss
                    Segment
                    Dt = Val(temp1)
                    T1 = Dt
                    'Ss = ""
                    'I22 = I2 \ 16
                    'Segment
                    'Ss = Fusing(i22 , "#.##&quot
                    '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[/code]
                    برد جوجه کشی:
                    مطالعه پست 1 (حتما مطالعه کنید)

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

                    دانلود

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

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

                    دیدگاه

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

                      نه اصلا به فیوز بیت ها دست نزدم
                      چه جوری میتونم عوضشون کنم
                      با برنامه prog isp پروگرام میکنم؟

                      دیدگاه

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

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

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

                        دانلود

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

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

                        دیدگاه

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

                          :mrgreen:
                          از این
                          http://eshop.eca.ir/%D9%BE%D8%B1%D9%88%DA%AF%D8%B1%D8%A7%D9%85%D8%B1%D 9%87%D8%A7/489-multi-avr-programmer.html

                          دیدگاه

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

                            نوشته اصلی توسط mohammad safarnejad
                            :mrgreen:
                            از این
                            http://eshop.eca.ir/%D9%BE%D8%B1%D9%88%DA%AF%D8%B1%D8%A7%D9%85%D8%B1%D 9%87%D8%A7/489-multi-avr-programmer.html
                            از چه نرم افزاری میکرو رو پروگرام می کنید از خود بسکام یا...
                            اسم اون نرم افزار رو می خوام
                            برد جوجه کشی:
                            مطالعه پست 1 (حتما مطالعه کنید)

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

                            دانلود

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

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

                            دیدگاه

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

                              از prog isp

                              دیدگاه

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

                                نوشته اصلی توسط mohammad safarnejad
                                از prog isp
                                این مراحل رو انجام بده و فرکانس رو 2 مگ قرار بده

                                برد جوجه کشی:
                                مطالعه پست 1 (حتما مطالعه کنید)

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

                                دانلود

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

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

                                دیدگاه

                                قبلی 1 2 3 4 5 6 7 8 9 template بعدی
                                لطفا صبر کنید...
                                X