NOTICE توجه: این یک موضوع قدیمی است که آخرین پست ارسالی آن مربوط به 3452 روز قبل است . لطفا فقط پاسخ ها ، سوالات و درخواست های 100 درصد مرتبط را به آن ارسال کنید و برای درخواست ها و سوالات جدید موضوع جدیدی را ایجاد کنید
نمایش نتایج: از 1 به 1 از 1

موضوع: اشکال در عملکرد کلید و atmega8

  1. #1
    عضو جدید
    تاریخ عضویت
    Apr 2013
    نام
    مصطفی متقی
    نوشته ها
    10
    تشکر
    11
    تشکر شده 3 بار در 3 پست

    پیش فرض اشکال در عملکرد کلید و atmega8

    سلام دوستان/
    من این برنامه رو برای کنترل دما پیدا کردم/
    دمای پایین و بالا توسط کلید به میکرو داده میشه و خروجی به یک رله وصل میشه/
    ولی بعضی اوقات چندین بار باید کلید رو فشار بدی تا دما تغییر کنه و بعضی مواقع مقدار دما ناخودآگاه ریست میشه/
    کسی علت این مشکل رو میدونه؟
    واقعا کلافه شدم
    $sim
    $regfile = "m8def.dat"
    $crystal = 8000000 ' 8 MHz crystal
    $swstack = 40
    $hwstack = 32
    $framesize = 32
    '************************************************* ********
    ' CONFIGURE 16X2 LCD
    '************************************************* ********
    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , E = Portb.4 , Rs = Portb.5
    Cursor Off 'MAKE CURSOR OFF
    '************************************************* ********
    ' CONFIGURE ADC FOR MEASUREMENT OF LM35
    '************************************************* ********
    Config Adc = Single , Prescaler = Auto , Reference = Avcc
    Start Adc
    '************************************************* ********
    ' DECLARATION OF I/0
    '************************************************* ********
    Config Pind.2 = Input
    Config Pind.5 = Input
    Config Pind.6 = Input
    Config Pind.7 = Input
    H1_up Alias Pind.5
    H1_down Alias Pind.2
    L1_up Alias Pind.6
    L1_down Alias Pind.7
    Config Portd.4 = Output
    Heater Alias Portd.4 'MAKE FAN OFF
    Heater = 0 'MAKE HEATER OFF
    '************************************************* ********
    ' DECLARATION OF VARIABLES
    '************************************************* ********
    Dim W As Word , W_single As Single , W_avg As Single
    Dim T As Integer
    Dim Gp As Byte
    Dim H As Integer , H_s As Eram Integer
    Dim L As Integer , L_s As Eram Integer
    Dim Heat_off As Integer , Heat_on As Integer
    '************************************************* ********
    Deflcdchar 0 , 4 , 14 , 31 , 14 , 4 , 32 , 32 , 32 ' replace [x] with number (0-7)
    Cls 'CLEAR DISPLAY
    Lcd "T=" ; Spc(3) ; Chr(0) ; "C" ; Spc(2) ; "HT="
    Lowerline
    Lcd "L=" ; Spc(3) ; Chr(0) ; "C" ; Spc(2) ; "H="
    L = L_s
    H = H_s
    Main:
    Gosub Measure_lm35
    Gosub Check_temp
    Debounce L1_up , 0 , L_up
    Debounce L1_down , 0 , L_down
    Debounce H1_up , 0 , H_up
    Debounce H1_down , 0 , H_down
    Goto Main
    '************************************************* *******
    'HEAR WE MEASURE TEMPERATURE FROM LM35 SENSOR
    'FIRST WE MEASURE THE ADC COUNT AT 'W'
    'AS WE KNOW ADC WILL COUNT MAXIMUM VALUE(1024) AT 5V
    'WE CAN PER COUNT VALUE BY THE FORMULA,
    'W_SINGLE=(WX5)/1024=WX0.005
    'I.E. EACH COUNT IS EQUAL TO 5mV
    'NOW FROM DATA SHEET OF LM35 WE KNOW THAT LM35 WILL
    'OUTPUT 10mV PER DEGREE CENTRIGATE
    'SO EACH COUNT=W_SINGLE/2 DEGREE CENTRIGATE
    'FOR ACCURACY WE TAKE 100 SAMPLE AND THEN TAKE AVARAGE
    '************************************************* *******
    Measure_lm35:
    W_avg = 0
    For Gp = 1 To 100
    W = Getadc(0)
    'W_single = W * 5 'CHECK MATH FOR LM35
    'W_single = W_single / 1024
    'W_single = W_single / 2
    If W <> 0 Then
    W_single = W / 2
    Else
    W_single = 0
    End If
    W_avg = W_avg + W_single
    Next Gp
    If W_avg <> 0 Then
    W_avg = W_avg / 100 'MAKE AVAGARE OF DISPLAY
    Else
    W_avg = 0
    End If
    T = W_avg 'TO IGNORE THE FRACTION
    Locate 1 , 4 'LOCATE THE DISPALY VALUE LOCATION
    Lcd Spc(3) 'ERASE OLD VALUE
    Locate 1 , 4 'LOCATE THE DISPLAY VALUE LOCATION
    Lcd T 'DISPLAY THE CURRENT VALUE
    Locate 2 , 4
    Lcd Spc(3)
    Locate 2 , 4
    Lcd L
    Locate 2 , 14
    Lcd Spc(3)
    Locate 2 , 14
    Lcd H 'DISPLAY THE SET VALUE
    Return
    '************************************************* *******
    'HERE WE INCREASE SET TEMPERATURE VALUE BY 1
    '************************************************* *******
    L_up:
    Incr L 'INCREMENT SV BY 1
    If L > 110 Then
    L = 0
    End If
    L_s = L 'SAVE SV AT EEPROM
    Locate 2 , 4
    Lcd Spc(3)
    Locate 2 , 4
    Lcd L
    Goto Main
    '************************************************* *******
    'HERE WE DECREASE SET TEMPERATURE VALUE BY 1
    '************************************************* *******
    L_down:
    If L <> 0 Then
    Decr L 'DECREASE SV BY 1
    Else
    L = 110
    End If
    L_s = L 'SAVE SV AT EEPROM
    Locate 2 , 4
    Lcd Spc(3)
    Locate 2 , 4
    Lcd L
    Goto Main
    '************************************************* ******
    H_up:
    Incr H 'INCREMENT SV BY 1
    If H > 110 Then
    L = 0
    End If
    H_s = H 'SAVE SV AT EEPROM
    Locate 2 , 14
    Lcd Spc(3)
    Locate 2 , 14
    Lcd H
    Goto Main
    '************************************************* ******
    H_down:
    If H <> 0 Then
    Decr H 'DECREASE SV BY 1
    Else
    H = 110
    End If
    H_s = H 'SAVE SV AT EEPROM
    Locate 2 , 14
    Lcd Spc(3)
    Locate 2 , 14
    Lcd H
    Goto Main
    '************************************************* ******
    Check_temp:
    Heat_off = H + 1 'HYSTERISYS=1
    If T >= Heat_off Then 'TURN ON THE FAN
    Heater = 0 'TURN OFF HEATER
    Locate 1 , 14
    Lcd Spc(3)
    Locate 1 , 14
    Lcd "OFF"
    End If
    Heat_on = L - 1 'HYSTERISYS=1
    If T <= Heat_on Then 'TURN OFF FAN
    Heater = 1 'TURN ON HEATER
    Locate 1 , 14
    Lcd Spc(3)
    Locate 1 , 14
    Lcd "ON"
    End If
    Return
    '************************************************* ***********
    End 'end program

  2. # ADS
    Circuit advertisement
    تاریخ عضویت
    Always
    نام
    Advertising world
    نوشته ها
    Many
     

موضوعات مشابه

  1. مشکل پروگرامر با میکرو atmega8
    توسط shahrivar88 در انجمن AVR
    پاسخ: 4
    آخرين نوشته: 09-06-2014, 13:42
  2. مشکل عجیب در adc میکروکنترلر atmega8
    توسط azadmard در انجمن AVR
    پاسخ: 13
    آخرين نوشته: 31-01-2014, 15:08
  3. مشخصات میکرو atmega8
    توسط kendab در انجمن AVR
    پاسخ: 2
    آخرين نوشته: 13-02-2013, 19:30
  4. مشکل با تایمرها در atmega8
    توسط morteza_rk در انجمن AVR
    پاسخ: 16
    آخرين نوشته: 07-03-2010, 14:10
  5. یه برنامه ساده USB با ATMEGA8
    توسط saeed_niknami در انجمن AVR
    پاسخ: 21
    آخرين نوشته: 07-05-2009, 20:45

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •