ورود به حساب ثبت نام جدید فراموشی کلمه عبور
برای ورود به حساب کاربری خود، نام کاربری و کلمه عبورتان را در زیر وارد کرده و روی «ورود به سایت» کلیک کنید.





اگر فرم ورود برای شما نمایش داده نمیشود، اینجا را کلیک کنید.









اگر فرم ثبت نام برای شما نمایش داده نمی‌شود، اینجا را کلیک کنید.









اگر فرم بازیابی کلمه عبور برای شما نمایش داده نمی‌شود، اینجا را کلیک کنید.





کاربران برچسب زده شده

نمایش نتایج: از 1 به 6 از 6
  1. #1
    2014/04/16
    76
    21

    راه اندازی سنسور رطوبت dht22

    سلام دوستان من یه برنامه راه اندازی سنسور رطوبت dhtt22 دارم که کامل جواب میده اما یک مشکلی هست تویه یک قسمت برنامه که با رنگ قرمز مشخص کرئم میاد فاصله زمانی قطع و وصل شدن پینی که سنسور بهش وصله اندازه میگیره و این فاصله رو با تایمر 0 میکرو اندازه میگیره , حالا راهی است که بشه از تایمر استفاده نکرد؟؟؟ من با pulsein امتحان کردم جواب نگرفتم!!!! خیلی کارم گیره دوستان یه کمکی برسونید






    $regfile = "m16adef.dat"
    $crystal = 8000000 'Const Min_time = 48
    '$crystal = 16000000 'Const Min_time = 95
    '$crystal = 11059200 'Const Min_time = 66
    '-------------------------------------------------------------------------------

    Config Pind.0 = Input 'DHT22 Data
    Config Timer0 = Timer , Prescale = 8

    '.-------------------------------------------------------------------------------
    'Const Min_time = 95
    Const Min_time = 48
    'Const Min_time = 66
    '-------------------------------------------------------------------------------

    Dim Count As Byte
    Dim Signaltime(43) As Byte
    Dim Humidityw As Word
    Dim Temperaturew As Word
    Dim Humsens_chksum As Byte

    Dim Humiditys As String * 16
    Dim Temperatures As String * 16


    Dim Strstring As String * 14
    Dim Ib As Byte

    '-------------------------------------------------------------------------------
    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Db4 = Pina.2 , Db5 = Pina.3 , Db6 = Pina.4 , Db7 = Pina.5 , E = Pina.1 , Rs = Pina.0
    Cursor Off
    Cls
    Cls
    Deflcdchar 0 , 14 , 10 , 14 , 32 , 32 , 32 , 32 , 32 ' replace ? with number (0-7)
    '-------------------------------------------------------------------------------
    Declare Sub Read_timings
    Declare Sub Humtemp_values

    Declare Function Compare_chksum(byval Hsens_humidity As Word , _
    Byval Hsens_temperature As Word , Byval Hsens_chksum As Byte) As Byte

    '-------------------------------------------------------------------------------
    Do

    Call Humtemp_values

    Humiditys = Str(humidityw)
    Temperatures = Str(temperaturew)
    Locate 1 , 1
    Lcd "Humidity:" ; Format(humiditys , "0.0&quot ; " % "
    Lowerline
    Lcd "Temp:" ; Format(temperatures , "0.0&quot : Lcd " " : Lcd Chr(0) : Lcd "C"
    Waitms 100

    Loop

    End
    '-------------------------------------------------------------------------------

    Sub Read_timings

    Wait 3

    Count = 1

    Config Pind.0 = Output : Portd.0 = 0 ' request data
    Waitms 20 ' wait 20 ms
    Config Pind.0 = Input ' wait for data, receive data

    While Count < 43 'collect 42 timings / signals

    Bitwait Pind.0 , Set 'signal goes high > start timer
    Start Timer0
    Bitwait Pind.0 , Reset 'signal goes low > stop timer
    Stop Timer0
    Signaltime(count) = Tcnt0 / 7 'store number of ticks per signal in Signaltime byte

    Tcnt0 = 0
    Incr Count

    Wend


    End Sub

    '############################################ ## Humidity and temperature values

    Sub Humtemp_values

    Local X As Byte

    Humidityw = 0
    Temperaturew = 0
    Humsens_chksum = 0

    Call Read_timings

    For Count = 3 To 42 ' skip first two

    Select Case Count

    Case 3 To 18
    X = 18 - Count
    If Signaltime(count) > Min_time Then Toggle Humidityw.x

    Case 19 To 34
    X = 34 - Count
    If Signaltime(count) > Min_time Then Toggle Temperaturew.x

    Case 34 To 42
    X = 42 - Count
    If Signaltime(count) > Min_time Then Toggle Humsens_chksum.x

    End Select

    Next

    End Sub

    '######################### Calculate Checksum and compare with trasnmitted value


    Function Compare_chksum(byval Hsens_humidity As Word , Byval Hsens_temperature As Word , Byval Hsens_chksum As Byte) As Byte

    Local Chksum As Byte

    Chksum = Low(hsens_humidity ) + High(hsens_humidity )
    Chksum = Chksum + Low(hsens_temperature)
    Chksum = Chksum + High(hsens_temperature)

    If Chksum = Hsens_chksum Then
    Compare_chksum = 1
    Else
    Compare_chksum = 0
    End If

    End Function





  2. #2
    2014/04/16
    76
    21

    پاسخ : راه اندازی سنسور رطوبت dht22

    دوستان چرا کسی یه جوابی نمیده!
  3. #3
    2010/05/22
    یزد
    382
    22

    پاسخ : راه اندازی سنسور رطوبت dht22

    نقل قول نوشته اصلی توسط hamedspartacus
    سلام دوستان من یه برنامه راه اندازی سنسور رطوبت dhtt22 دارم که کامل جواب میده اما یک مشکلی هست تویه یک قسمت برنامه که با رنگ قرمز مشخص کرئم میاد فاصله زمانی قطع و وصل شدن پینی که سنسور بهش وصله اندازه میگیره و این فاصله رو با تایمر 0 میکرو اندازه میگیره , حالا راهی است که بشه از تایمر استفاده نکرد؟؟؟ من با pulsein امتحان کردم جواب نگرفتم!!!! خیلی کارم گیره دوستان یه کمکی برسونید






    $regfile = "m16adef.dat"
    $crystal = 8000000 'Const Min_time = 48
    '$crystal = 16000000 'Const Min_time = 95
    '$crystal = 11059200 'Const Min_time = 66
    '-------------------------------------------------------------------------------

    Config Pind.0 = Input 'DHT22 Data
    Config Timer0 = Timer , Prescale = 8

    '.-------------------------------------------------------------------------------
    'Const Min_time = 95
    Const Min_time = 48
    'Const Min_time = 66
    '-------------------------------------------------------------------------------

    Dim Count As Byte
    Dim Signaltime(43) As Byte
    Dim Humidityw As Word
    Dim Temperaturew As Word
    Dim Humsens_chksum As Byte

    Dim Humiditys As String * 16
    Dim Temperatures As String * 16


    Dim Strstring As String * 14
    Dim Ib As Byte

    '-------------------------------------------------------------------------------
    Config Lcd = 16 * 2
    Config Lcdpin = Pin , Db4 = Pina.2 , Db5 = Pina.3 , Db6 = Pina.4 , Db7 = Pina.5 , E = Pina.1 , Rs = Pina.0
    Cursor Off
    Cls
    Cls
    Deflcdchar 0 , 14 , 10 , 14 , 32 , 32 , 32 , 32 , 32 ' replace ? with number (0-7)
    '-------------------------------------------------------------------------------
    Declare Sub Read_timings
    Declare Sub Humtemp_values

    Declare Function Compare_chksum(byval Hsens_humidity As Word , _
    Byval Hsens_temperature As Word , Byval Hsens_chksum As Byte) As Byte

    '-------------------------------------------------------------------------------
    Do

    Call Humtemp_values

    Humiditys = Str(humidityw)
    Temperatures = Str(temperaturew)
    Locate 1 , 1
    Lcd "Humidity:" ; Format(humiditys , "0.0&quot ; " % "
    Lowerline
    Lcd "Temp:" ; Format(temperatures , "0.0&quot : Lcd " " : Lcd Chr(0) : Lcd "C"
    Waitms 100

    Loop

    End
    '-------------------------------------------------------------------------------

    Sub Read_timings

    Wait 3

    Count = 1

    Config Pind.0 = Output : Portd.0 = 0 ' request data
    Waitms 20 ' wait 20 ms
    Config Pind.0 = Input ' wait for data, receive data

    While Count < 43 'collect 42 timings / signals

    Bitwait Pind.0 , Set 'signal goes high > start timer
    Start Timer0
    Bitwait Pind.0 , Reset 'signal goes low > stop timer
    Stop Timer0
    Signaltime(count) = Tcnt0 / 7 'store number of ticks per signal in Signaltime byte

    Tcnt0 = 0
    Incr Count

    Wend


    End Sub

    '############################################ ## Humidity and temperature values

    Sub Humtemp_values

    Local X As Byte

    Humidityw = 0
    Temperaturew = 0
    Humsens_chksum = 0

    Call Read_timings

    For Count = 3 To 42 ' skip first two

    Select Case Count

    Case 3 To 18
    X = 18 - Count
    If Signaltime(count) > Min_time Then Toggle Humidityw.x

    Case 19 To 34
    X = 34 - Count
    If Signaltime(count) > Min_time Then Toggle Temperaturew.x

    Case 34 To 42
    X = 42 - Count
    If Signaltime(count) > Min_time Then Toggle Humsens_chksum.x

    End Select

    Next

    End Sub

    '######################### Calculate Checksum and compare with trasnmitted value


    Function Compare_chksum(byval Hsens_humidity As Word , Byval Hsens_temperature As Word , Byval Hsens_chksum As Byte) As Byte

    Local Chksum As Byte

    Chksum = Low(hsens_humidity ) + High(hsens_humidity )
    Chksum = Chksum + Low(hsens_temperature)
    Chksum = Chksum + High(hsens_temperature)

    If Chksum = Hsens_chksum Then
    Compare_chksum = 1
    Else
    Compare_chksum = 0
    End If

    End Function





    سلام...برنامه ای دارم که با دستور waitms به مدت هر سه ثانیه اطلاعات روبروز میکنه...این بدردتون میخوره؟
  4. #4
    2014/04/16
    76
    21

    پاسخ : راه اندازی سنسور رطوبت dht22

    ببخشید منظورتونو نفهمیدم! این برنامه ای که دارید ماله راه اندازی dht22 اگه هست اره میخوام!!
  5. #5
    2011/08/19
    61
    4

    پاسخ : راه اندازي سنسور رطوبت dht22

    من يه مدار ساخته بودم, که وقتي از dhtw2 استفاده ميکنم, بعد از,چند ساعت برنامه.هنگ ميکنه يا خيلي اوقات موقع رله زدن مدار ريست ميکنه. , ولي وقتي با ds18b20 .راه اندازي ميکنم مشکلي نيست.
    جالبه
  6. #6
    2020/08/20
    1
    0

    پاسخ : راه اندازی سنسور رطوبت dht22

    سلام . من dht22 رو بستم . توی پروتیوس کار میکنه . ولی وقتی عملی میبندم کار نمیکنه خروجی سنسور دیتا داره ولی میکرو همش 0 رو نشون میده
نمایش نتایج: از 1 به 6 از 6

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

  1. راه اندازی سنسور رطوبت DHT 11/22
    توسط آقای دکتر در انجمن میکروکنترلرهای AVR
    پاسخ: 42
    آخرين نوشته: 2019/03/23, 12:22
  2. راه اندازی dht22 سنسور رطوبت
    توسط ry.mohammad در انجمن میکروکنترلرهای AVR
    پاسخ: 19
    آخرين نوشته: 2017/10/17, 00:47
  3. سنسور رطوبت و دما DHT11,DHT22
    توسط alimohammad_sh در انجمن سایر مطالب مرتبط با ميکرو ها و پروسسورها
    پاسخ: 2
    آخرين نوشته: 2017/04/15, 14:13
  4. مشکل در راه اندازی سنسور رطوبت
    توسط farmani در انجمن سنسورها
    پاسخ: 2
    آخرين نوشته: 2013/09/16, 08:31
  5. راه اندازی سنسور رطوبت HS1101
    توسط ma-bah در انجمن سنسورها
    پاسخ: 1
    آخرين نوشته: 2013/05/02, 16:36

کلمات کلیدی این موضوع

علاقه مندي ها (Bookmarks)

علاقه مندي ها (Bookmarks)

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

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