مشکل با سنسور DHT11

[ahmad6870]

سلام دوستان
فکر کنم این مدار ما درست بشو نیست :angry: :cry:
دوتا برنامه دارم یکی با lcd که جواب نمیده
یکیم با 7سگمنت فردا آخرین مهلتمه لطفا کمکم کنید
برنامه با lcd

$regfile = "m8def.dat"
$crystal = 8000000


Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portb.6 , E = Portb.7 , Db4 = Portd.5 , Db5 = Portd.6 _
, Db6 = Portd.7 , Db7 = Portd.8
Cursor Off
Cls

Declare Sub Get_th(t As Byte , H As Byte)

Config Serialin = Buffered , Size = 128
Config Serialout = Buffered , Size = 128


Dht_put Alias Portc.0
Dht_get Alias Pinc.0
Dht_io_set Alias Ddrc.0

Dim T As Byte
Dim H As Byte
Dim Crc As Byte
Dim Mybyte As Byte
Dim Sensor_data As String * 40
Dim Tmp_str8 As String * 8
Dim Count As Byte

Enable Interrupts

Set Dht_io_set
Set Dht_put

Cls
Do
Waitms 200
Call Get_th(t , H)
Home
Lcd "TMP: " ; T ; "C "
Lowerline
Lcd "HDT: " ; H ; "% "

Loop

Sub Get_th(t As Byte , H As Byte)

Count = 0
Sensor_data = ""
Set Dht_io_set
Reset Dht_put
Waitms 25

Set Dht_put
Waitus 40
Reset Dht_io_set
Waitus 40
If Dht_get = 1 Then
H = 1
Exit Sub
End If


Waitus 80
If Dht_get = 0 Then
H = 2
Exit Sub
End If



While Dht_get = 1 : Wend

Do
While Dht_get = 0 : Wend
Waitus 30
If Dht_get = 1 Then
Sensor_data = Sensor_data + "1"
While Dht_get = 1 : Wend
Else
Sensor_data = Sensor_data + "0"
End If
Incr Count
Loop Until Count = 40

Set Dht_io_set
Set Dht_put



Tmp_str8 = Left(sensor_data , 8)
H = Binval(tmp_str8)

Tmp_str8 = Mid(sensor_data , 17 , 8)
T = Binval(tmp_str8)

Tmp_str8 = Right(sensor_data , 8)
Crc = Binval(tmp_str8)



Mybyte = T + H
If Mybyte <> Crc Then
H = 3
End If

End Sub

اینم با 7سگمنته

$regfile = "m8def.dat"
$crystal = 8000000

Config Portb = Output
Config Portd = Output

Config Serialin = Buffered , Size = 128
Config Serialout = Buffered , Size = 128

Dim A As Word
Dim B As Long
Dim C As Word
Dim D As Word
Dim E As Word
Dim F As Byte
Dim G As Byte
Dim I As Byte
Dim J As Long

Dim T As Byte
Dim H As Byte
Dim Crc As Byte
Dim Mybyte As Byte
Dim Sensor_data As String * 40
Dim Tmp_str8 As String * 8
Dim Count As Byte

Declare Sub Get_th(t As Byte , H As Byte)

Declare Sub Trm_seg
Declare Sub Hum_seg
Declare Sub Trm
Declare Sub Hum
Declare Sub Mcu

Dht_put Alias Portc.0
Dht_get Alias Pinc. 0
Dht_io_set Alias Ddrc. 0

En1_1 Alias Portb.0
En1_2 Alias Portb.1
En1_3 Alias Portb.2
Dp1 Alias Portb.3
En2_1 Alias Portb.4
En2_2 Alias Portb.5
En2_3 Alias Portb.6
Dp2 Alias Portb.7

Enable Interrupts

Set Dht_io_set
Set Dht_put

'******************************* COMMAN ANOD *********************************
Do

Call Mcu
Call Trm
Call Hum

Loop

End

'******************************************** ***********************************

Sub Mcu

'Incr B
'If B > 999 Then B = 0
'Decr J
'If J < 1 Then J = 999
Call Get_th(t , H)

B = T
J = H

End Sub

'******************************************** ***********************************

Sub Get_th(t As Byte , H As Byte)

Count = 0
Sensor_data = ""
Set Dht_io_set
Reset Dht_put
Waitms 25

Set Dht_put
Waitus 40
Reset Dht_io_set
Waitus 40
If Dht_get = 1 Then
H = 1
Exit Sub
End If

Waitus 80
If Dht_get = 0 Then
H = 2
Exit Sub
End If

While Dht_get = 1 : Wend

Do
While Dht_get = 0 : Wend
Waitus 30
If Dht_get = 1 Then
Sensor_data = Sensor_data + "1"
While Dht_get = 1 : Wend
Else
Sensor_data = Sensor_data + "0"
End If
Incr Count
Loop Until Count = 40

Set Dht_io_set
Set Dht_put

Tmp_str8 = Left(sensor_data , 8)
H = Binval(tmp_str8)

Tmp_str8 = Mid(sensor_data , 17 , 8)
T = Binval(tmp_str8)

Tmp_str8 = Right(sensor_data , 8)
Crc = Binval(tmp_str8)

Mybyte = T + H
If Mybyte <> Crc Then
H = 3
End If

End Sub

'******************************************** ***********************************

Sub Trm

Call Trm_seg

Dp1 = 0
En1_3 = 0
Portd = F
Waitus 400

En1_3 = 1
En1_2 = 0
Portd = G
Waitus 400

En1_2 = 1
En1_1 = 0
Portd = I
Waitus 400

En1_1 = 1

End Sub

'******************************************** ***********************************

Sub Hum

Call Hum_seg

Dp2 = 0
En2_3 = 0
Portd = F
Waitus 400

En2_3 = 1
En2_2 = 0
Portd = G
Waitus 400

En2_2 = 1
En2_1 = 0
Portd = I
Waitus 400

En2_1 = 1

End Sub

'******************************************** ***********************************

Sub Trm_seg

C = B / 10
C = C * 10
C = B - C
F = C
F = Lookup(f , 7seg)
D = B / 100
D = D * 100
D = B - D
D = D / 10
G = D
G = Lookup(g , 7seg)
E = B / 100
I = E
I = Lookup(i , 7seg)

End Sub

'******************************************** ***********************************

Sub Hum_seg

C = J / 10
C = C * 10
C = J - C
F = C
F = Lookup(f , 7seg)
D = J / 100
D = D * 100
D = J - D
D = D / 10
G = D
G = Lookup(g , 7seg)
E = J / 100
I = E
I = Lookup(i , 7seg)

End Sub

'******************************************** ***********************************

7seg:
'Data &B1000000 , &B1111001 , &B0100100 , &B0110000 , &B0011001
'Data &B0010010 , &B0000010 , &B1111000 , &B0000000 , &B0010000
Data &B0111111 , &B0000110 , &B1011011 , &B1001111 , &B1100110
Data &B1101101 , &B1111101 , &B0000111 , &B1111111 , &B1101111

'******************************************** ***********************************

[ry.mohammad]

پاسخ : مشکل با سنسور DHT11

سلام
احمد جان ببین این برنامه رو که قرار می دم خودم تستش کردم و جواب گرفتم ازش قبلا
اون برنامه رو ول کن این برنامه رو به جاش قرار بده مطمئنا اگه مشکل سخت افزاری نداشته باشه کار خواهد کرد
فقط پایه های استفاده شده با قبلی فرق دارد
ال سی دی به پورت c وصل شده و dht11 به پورت d
یه چیزی هم که هست اگه شما آی سی رو پروگرام میکنین باید فرکانسش رو در 8 مگا داخلی قرار بدین
راجع به اون سون سگمنت هم اینکه شما از این ال سی دی نتیجه بگیر بعد سون سگمنت رو راه اندازی کن

اینم از کد:

$regfile = "m8def.dat"
$crystal = 8000000


Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2 , Db5 = Portc.3 _
   , Db6 = Portc.4 , Db7 = Portc.5
Cursor Off
Cls

Declare Sub Get_th(t As Byte , H As Byte)

Config Serialin = Buffered , Size = 128
Config Serialout = Buffered , Size = 128


Dht_put Alias Portd.6
Dht_get Alias Pind.6
Dht_io_set Alias Ddrd.6

Dim T As Byte
Dim H As Byte
Dim Crc As Byte
Dim Mybyte As Byte
Dim Sensor_data As String * 40
Dim Tmp_str8 As String * 8
Dim Count As Byte

Enable Interrupts

Set Dht_io_set
Set Dht_put

Cls
Do
  Waitms 200
  Call Get_th(t , H)
  Home
  Lcd "TMP: " ; T ; "C  "
  Lowerline
  Lcd "HDT: " ; H ; "%  "

Loop

Sub Get_th(t As Byte , H As Byte)

 Count = 0
 Sensor_data = ""
 Set Dht_io_set
 Reset Dht_put
 Waitms 25

 Set Dht_put
 Waitus 40
 Reset Dht_io_set
 Waitus 40
 If Dht_get = 1 Then
  H = 1
  Exit Sub
 End If


 Waitus 80
 If Dht_get = 0 Then
  H = 2
  Exit Sub
 End If



 While Dht_get = 1 : Wend

  Do
  While Dht_get = 0 : Wend
  Waitus 30
   If Dht_get = 1 Then
    Sensor_data = Sensor_data + "1"
    While Dht_get = 1 : Wend
    Else
    Sensor_data = Sensor_data + "0"
  End If
  Incr Count
  Loop Until Count = 40

  Set Dht_io_set
  Set Dht_put



  Tmp_str8 = Left(sensor_data , 8)
  H = Binval(tmp_str8)

  Tmp_str8 = Mid(sensor_data , 17 , 8)
  T = Binval(tmp_str8)

  Tmp_str8 = Right(sensor_data , 8)
  Crc = Binval(tmp_str8)



  Mybyte = T + H
  If Mybyte <> Crc Then
   H = 3
  End If

End Sub

[ahmad6870]

پاسخ : مشکل با سنسور DHT11

سلام
احمد جان ببین این برنامه رو که قرار می دم خودم تستش کردم و جواب گرفتم ازش قبلا
اون برنامه رو ول کن این برنامه رو به جاش قرار بده مطمئنا اگه مشکل سخت افزاری نداشته باشه کار خواهد کرد
فقط پایه های استفاده شده با قبلی فرق دارد
ال سی دی به پورت c وصل شده و dht11 به پورت d
یه چیزی هم که هست اگه شما آی سی رو پروگرام میکنین باید فرکانسش رو در 8 مگا داخلی قرار بدین
راجع به اون سون سگمنت هم اینکه شما از این ال سی دی نتیجه بگیر بعد سون سگمنت رو راه اندازی کن

اینم از کد:

$regfile = "m8def.dat"
$crystal = 8000000


Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2 , Db5 = Portc.3 _
   , Db6 = Portc.4 , Db7 = Portc.5
Cursor Off
Cls

Declare Sub Get_th(t As Byte , H As Byte)

Config Serialin = Buffered , Size = 128
Config Serialout = Buffered , Size = 128


Dht_put Alias Portd.6
Dht_get Alias Pind.6
Dht_io_set Alias Ddrd.6

Dim T As Byte
Dim H As Byte
Dim Crc As Byte
Dim Mybyte As Byte
Dim Sensor_data As String * 40
Dim Tmp_str8 As String * 8
Dim Count As Byte

Enable Interrupts

Set Dht_io_set
Set Dht_put

Cls
Do
  Waitms 200
  Call Get_th(t , H)
  Home
  Lcd "TMP: " ; T ; "C  "
  Lowerline
  Lcd "HDT: " ; H ; "%  "

Loop

Sub Get_th(t As Byte , H As Byte)

 Count = 0
 Sensor_data = ""
 Set Dht_io_set
 Reset Dht_put
 Waitms 25

 Set Dht_put
 Waitus 40
 Reset Dht_io_set
 Waitus 40
 If Dht_get = 1 Then
  H = 1
  Exit Sub
 End If


 Waitus 80
 If Dht_get = 0 Then
  H = 2
  Exit Sub
 End If



 While Dht_get = 1 : Wend

  Do
  While Dht_get = 0 : Wend
  Waitus 30
   If Dht_get = 1 Then
    Sensor_data = Sensor_data + "1"
    While Dht_get = 1 : Wend
    Else
    Sensor_data = Sensor_data + "0"
  End If
  Incr Count
  Loop Until Count = 40

  Set Dht_io_set
  Set Dht_put



  Tmp_str8 = Left(sensor_data , 8)
  H = Binval(tmp_str8)

  Tmp_str8 = Mid(sensor_data , 17 , 8)
  T = Binval(tmp_str8)

  Tmp_str8 = Right(sensor_data , 8)
  Crc = Binval(tmp_str8)



  Mybyte = T + H
  If Mybyte <> Crc Then
   H = 3
  End If

End Sub

اگه سنسور خراب باشه باشه رو lcd مربع مربع نشون میده؟

[ahmad6870]

پاسخ : مشکل با سنسور DHT11

:applause:
مرسی با lcd جواب داد حالا اگه بزنمش رو سون سگمنت حله
میشه لطفا برنامه 7 سگمنشو چک کنید؟

[ry.mohammad]

پاسخ : مشکل با سنسور DHT11

اگه سنسور خراب باشه باشه رو lcd مربع مربع نشون میده؟

سلام
احمد جان این کارا رو بکن
پایه های 7 و 8 مگا هشت که پایه های تغذیه آیسی هستند که حتما باید وصل شوند 7 به vcc و 8 به gnd
پایه های ال سی دی رو که وصل کردی باید پایه های 1 و 3 و 5 رو زمین کنی تا ال سی دی نشون بده
اگه از مگا هشت استفاده می کنی باید فیوز بیت مربوط به wtdon 1 باشد یعنی watchdog غیر فعال باشد
اگه این گزینه فعال باشد هیچ چیزی مشاهده نمی شود جز مربع همچنین اگه پایه حتی یکی از پایه های 1و3و5 وصل نشود ال سی دی چیزی نمایش نخواهد داد
اگر به جای مکا 8 از 32 استفاده میکنی حتما باید jtag رو غیر فعال کنی
این کارا رو انجام بده حتما کریستال داخلی رو هم در 8 مگا داخلی تنظیم کن
این کارا رو انجام بده مشکلت حل میشه

[ry.mohammad]

پاسخ : مشکل با سنسور DHT11

:applause:
مرسی با lcd جواب داد حالا اگه بزنمش رو سون سگمنت حله
میشه لطفا برنامه 7 سگمنشو چک کنید؟

خدا رو شکر :applause:
خوب شما اینو با مگا هشت می خوایین اگه آره فقط رطوبت رو می خوای یا دوتاشو
از من گفتن دماش رو بیخیال شو چون اصلا دقیق نیست
اگه دما رو بی خیال شی بدونه آی سی های bcd می تونیم مستقیما سون سگمنت رو به مگا هشت وصل کنیم ولی اگه دو تاشو می خوای پورت مگا 8 جواب نمیده باید آی سی bcd بذاری که حجم مدارت میره بالا!!!

[ahmad6870]

پاسخ : مشکل با سنسور DHT11

خدا رو شکر :applause:
خوب شما اینو با مگا هشت می خوایین اگه آره فقط رطوبت رو می خوای یا دوتاشو
از من گفتن دماش رو بیخیال شو چون اصلا دقیق نیست
اگه دما رو بی خیال شی بدونه آی سی های bcd می تونیم مستقیما سون سگمنت رو به مگا هشت وصل کنیم ولی اگه دو تاشو می خوای پورت مگا 8 جواب نمیده باید آی سی bcd بذاری که حجم مدارت میره بالا!!!

متاسفانه به جفتش نیاز دارم روی یه 7 سگمنت :cry:

[ry.mohammad]

پاسخ : مشکل با سنسور DHT11

متاسفانه به جفتش نیاز دارم روی یه 7 سگمنت :cry:

یکم صبر کن
...please wait...

[ahmad6870]

پاسخ : مشکل با سنسور DHT11

یکم صبر کن
...please wait...

چشم
ممنون از لطفت

[ry.mohammad]

پاسخ : مشکل با سنسور DHT11

سلامی دوباره
این فایل رو دانلود کن
گفتم که حجم مدار میره بالا
چون dht11 تو پروتیوس نیست برای اینکه بدانی سون سگمنت ها کار می کنند یا نه به صورت زیر عمل کن
برنامه بسکام رو باز کن
اون متغیر هایی که داخل دو تا ستاره قرار دارند t همان دماست , h همان رطوبت هست هر چی به اینا میدی سون سگمنتات هم باید همون رو نشون بدند البته برای اینکه سنسور وصل نیست تو پروتیوس برای اینکه ارور نده و سون سگمنتات درست نشون بدند باید دستوری که داخل دو تامربع قرار دادم رو غیر فعال کنی تا به زیر برنامه نره
بعد از اینکه تستت تموم شد باید اون متغیری که داخل دوتا ستاره هست رو پاک کنی ولی اونی که داخل مربع هست رو فعال کنی تا رطوبت ودما از زیر برنامه خوانده شود و روی سون سگمنتا نشان داده شود
البته با سون سگمنت های مالتی پلکس هم می تونستی کار کنی اون وقت به آی سی های bcd نیازی نیست ولی تازه کاری این برات خوبه

[move]دانلود کن[/move]
[hr]
http://www.uploadefile.com/file/8716...gment.rar.html

[ahmad6870]

پاسخ : مشکل با سنسور DHT11

سلامی دوباره
این فایل رو دانلود کن
گفتم که حجم مدار میره بالا
چون dht11 تو پروتیوس نیست برای اینکه بدانی سون سگمنت ها کار می کنند یا نه به صورت زیر عمل کن
برنامه بسکام رو باز کن
اون متغیر هایی که داخل دو تا ستاره قرار دارند t همان دماست , h همان رطوبت هست هر چی به اینا میدی سون سگمنتات هم باید همون رو نشون بدند البته برای اینکه سنسور وصل نیست تو پروتیوس برای اینکه ارور نده و سون سگمنتات درست نشون بدند باید دستوری که داخل دو تامربع قرار دادم رو غیر فعال کنی تا به زیر برنامه نره
بعد از اینکه تستت تموم شد باید اون متغیری که داخل دوتا ستاره هست رو پاک کنی ولی اونی که داخل مربع هست رو فعال کنی تا رطوبت ودما از زیر برنامه خوانده شود و روی سون سگمنتا نشان داده شود
البته با سون سگمنت های مالتی پلکس هم می تونستی کار کنی اون وقت به آی سی های bcd نیازی نیست ولی تازه کاری این برات خوبه

[move]دانلود کن[/move]
[hr]
http://www.uploadefile.com/file/8716...gment.rar.html

رو جفتشون صفر نشون میده!!!
نه با مالتی پلکس کمو بیش کار کردم مشکلی نیست

[ry.mohammad]

پاسخ : مشکل با سنسور DHT11

رو جفتشون صفر نشون میده!!!
نه با مالتی پلکس کمو بیش کار کردم مشکلی نیست

مدار و کامل بستی oo: اگه صفر نشون بده یعنی اینکه آیسی 74247 تغذیش وصل نیست یادت نره سنسور رو به portc.0 باید وصل کنی یادم رفته بود اینو بگم

[ahmad6870]

پاسخ : مشکل با سنسور DHT11

مدار و کامل بستی oo: اگه صفر نشون بده یعنی اینکه آیسی 74247 تغذیش وصل نیست یادت نره سنسور رو به portc.0 باید وصل کنی یادم رفته بود اینو بگم

نه نه تو پروتیوس صفر نشون میده
عملیشو نمیتونم الان ببندم چون سگمنت 4 تایی کاتد مشترک دارم فقط

[ry.mohammad]

پاسخ : مشکل با سنسور DHT11

نه نه تو پروتیوس صفر نشون میده
عملیشو نمیتونم الان ببندم چون سگمنت 4 تایی کاتد مشترک دارم فقط

آقا احمد این عکس زیر رو ببین مال من که مشکلی نداره دارم از پروتیوس ورژن 7.7 استفاده می کنم شاید مشکل از کتابخانه پروتیوست هست من که موندم چی بگم
حتما برای مگا هشت اون برنامه ای که همراه اون دانلود کردی قرار بده
اینجا من متغیر t رو 25 قرار دادم و متغیر h رو برابر 54

[ahmad6870]

پاسخ : مشکل با سنسور DHT11

آقا احمد این عکس زیر رو ببین مال من که مشکلی نداره دارم از پروتیوس ورژن 7.8 استفاده می کنم شاید مشکل از کتابخانه پروتیوست هست من که موندم چی بگم
حتما برای مگا هشت اون برنامه ای که همراه اون دانلود کردی قرار بده
اینجا من متغیر t رو 25 قرار دادم و متغیر h رو برابر 54

آره تو برنامه دیدم پروتیوس من 7.10
اصن نمیدونم چرا گیر کرده این مدار
میشه مالتی پلکسشم بم بدی آخه باید رو برد برد ببندم اینجوری جا نمیشه
ممنونم واقعا از لطفت