اطلاعیه

Collapse
No announcement yet.

دماسنج

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

    دماسنج

    سلام دوستان
    من با سنسور pt100یک دماسنج ساختم اما درست نشان نمی ده مشکل برنامه کجاست
    کد:
    $regfile = "m8def.dat"                   '
    $crystal = 1000000
    
    $hwstack = 30                        
    $swstack = 60                        
    $framesize = 50
    
    Config Adc = Single , Prescaler = Auto , Reference = Avcc
    
    
    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Db4 = Pind.3 , Db5 = Pind.2 , Db6 = Pind.1 , Db7 = Pind.0 , Rs = Pind.5 , E = Pind.4
    Cls
    Cursor Off
    Locate 1 , 6 : Lcd "start....."
    Wait 2
    Cls
    Dim I As Byte
    Deflcdchar 1 , 28 , 20 , 28 , 32 , 32 , 32 , 32 , 32
    
    
    Dim Adc1 As Word
    Dim Adc0 As Word
    
    Dim Adc1_20 As Long
    Dim Adc0_20 As Long
    Dim Bitt As Bit
    
    
    Dim Singlee0 As Single
    Dim Singlee1 As Single
    
    Dim Temp As Single
    
    Dim Stringg As String * 10
    
    Enable Interrupts
    Start Adc
    
    
    Main:
    Do
    Adc0_20 = 0
    
    
         For I = 1 To 10
         Adc0 = Getadc(0)
         Waitms 10
         Adc0_20 = Adc0_20 + Adc0
         Next I
         Adc0_20 = Adc0_20 / 10
    
    
         For I = 1 To 10
         Adc1 = Getadc(1)
         Waitms 10
         Adc1_20 = Adc1_20 + Adc1
         Next I
         Adc1_20 = Adc1_20 / 10
    
    
         Singlee0 = Adc0_20 * 4.887585
         Singlee1 = Adc1_20 * 4.887585
    
    
         Temp = Singlee0 - Singlee1             
         Temp = Temp * 10
         Temp = Temp / 45
    
         Stringg = Fusing(temp , "#.#")
    
    
        Locate 1 , 1
        Lcd "Temp=" ; Stringg ; " " ; Chr(1) ; "C" ; "   "
    
         Waitms 300
    
         Toggle Bitt
         If Bitt = 1 Then
         Locate 1 , 16
         Lcd "."
         End If
    
         If Bitt = 0 Then
         Locate 1 , 16
         Lcd " "
         End If
    
         Loop
    
    
    
    End

    #2
    پاسخ : دماسنج



    اینم از شبیه سازی

    دیدگاه


      #3
      پاسخ : دماسنج

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

      دیدگاه


        #4
        پاسخ : دماسنج

        تشکر از شما نه همین pt100چون می خوام برنامه نویسی غیر خطی را هم یاد بگیرم روزی بدردم می خوره

        دیدگاه


          #5
          پاسخ : دماسنج

          نوشته اصلی توسط بنیامین خلیلی
          تشکر از شما نه همین pt100چون می خوام برنامه نویسی غیر خطی را هم یاد بگیرم روزی بدردم می خوره
          سلام
          ما ابزاردقیق که میخوندیم واسه سنسورهای غیر خطی از یه جدول استفاده میکردیم...مثلا واسه ترموکوپل یا NTC یا PTC و ...
          پیشنهادی که دارم اینه که مقادیر این سنسور رو روی حافظه فلش میکرو یا حافظه جانبی بریزید و واسه هر دما مقدار رو از جدول بخونید.
          این فایلو دانلود کنید :

          download link
          تولید کننده تجهیزات برنامه پذیر اتوماسیون صنعتی

          www.intelart.ir


          ساخت کنترلر دما PID فازي با AVR [آموزشی]

          دیدگاه

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