اطلاعیه

**ry.mohammad** · 2014-11-28T22:36:42

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

نوشته اصلی توسط mohammad safarnejad

سلام آقا محمد
با تشکر
به نظرتون میتونه تا 120 میتونم باهاش اندازه بگیرم یا نه؟
برای سگمنت باید چیکار کنم؟

سلام آقای سفرنژاد
دارین چیکار می کنین نکنه دارین بمبی چیزی میسازین سگمنت ال سی دی دما

oo:
خوب اگه دیتا شیت گفته حتما می تونه تا 125 هم اندازه بگیره امتحانش هم ضرر نداره
ولی اون سگمنتا هم احتمالا بشه ولی وقت می خواد

**mammmad96** · 2014-11-28T22:40:17

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

:nice: :nice: :nice:
نه بابا ما با بمب :surprised:
الان میخوام همون طوری که روی LCD بود نشون بده
و فقط رو یه سگمنت
فقط و فقط دما رو نشون بده
چیکار باید کنم؟
خواهشا کمکم کنید
قول میدم اخریش باشه :mrgreen:

**ry.mohammad** · 2014-11-28T22:48:31

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

نوشته اصلی توسط mohammad safarnejad

:nice: :nice: :nice:
نه بابا ما با بمب :surprised:
الان میخوام همون طوری که روی LCD بود نشون بده
و فقط رو یه سگمنت
فقط و فقط دما رو نشون بده
چیکار باید کنم؟
خواهشا کمکم کنید
قول میدم اخریش باشه :mrgreen:

اولا که رو سون سگمن نمیشه تنظیمات رو نشون داد از این بابت خیالت راحت اگه بشه برنامش زیاد میشه تو آی سی جا نمی گیره
بعد اگه برنامتو تغییر دادی اینجا بزار من بردارم اگه که نگو بگو از پستای قبلی که خودت کدش رو قرار دادی بردارم
اگه این آخریش باشه مشکلی نداره ولی یکم خودت بنویس یاد بگیر هدف من کمک به یادگیری تو هست نه اینکه برنامه ی آماده بدم بعدش تحقیق و تجزیه نکنی این باعث میشه که هی از ما برنامه بخوای

در صورتی که خودت می تونستی بنویسی

**ry.mohammad** · 2014-11-28T22:51:08

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

یه سوال
آقای سفرنژاد اون برنامه ای که قبلا برا دوتا ds18b20 براتون نوشتم عملی تست کردین؟
کار کرد یا نه؟

**mammmad96** · 2014-11-28T22:55:00

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

با تشکر
من خیلی چیزا از این برنامه های شما . لطفتون یاد گرفتم
واقعا از تون نمیدونم چه جوری تشکر کنم
من نمیخوام تنظیمات رو نشون بدم
فقط دما که فک کنم یه سگمنت 4 تایی بس باشه
و قول میدم که اخریش باشه
بعدش میکرو به مگا 16 ارتقاع دادم
اینم کد

کد:

$regfile = &quot;m16def.dat&quot;
$crystal = 1000000
Config Lcdpin = Pin , Rs = Porta.5 , E = Porta.4 , Db4 = Porta.0 , Db5 = Porta.1_
         , Db6 = Porta.2 , Db7 = Porta.3
Config Lcd = 16 * 2
Cursor Off
Config Single = Scientific , Digits = 1
Config 1wire = Portd.3
Dim Ss As String * 30
Dim Temp1 As String * 30
Dim Temp2 As String * 30
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
&#039;##############################################################################&#039;
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
&#039;##############################################################################&#039;
Dsid1(1) = 1wsearchfirst()
Dsid2(1) = 1wsearchnext()
&#039;**************&#039;
Config Portd.2 = Output
Config Porta.6 = Output
Config Portd.0 = Output
Config Portd.5 = Input
Config Portd.6 = Input
Config Portd.7 = Input
Config Portd.4 = Input
&#039;**************&#039;
Cls
Lcd &quot;  AZAR NOGA&quot;
Wait 5
Submain:
F = 1
Cls
Cursor Off
Readeeprom L , 1
Waitms 5
Readeeprom H , 8
Waitms 5
Readeeprom Kilid , 12
Waitms 5
Ll = Fusing(l , &quot;#.#&quot;)
Do
If Pind.5 = 0 And F = 0 Then Goto Settempon
1wreset
1wwrite &amp;HCC
1wwrite &amp;H44
Waitms 750
 If Err = 1 Then
Cls
Locate 1 , 4
Lcd &quot;No DS18B20&quot;
Wait 1
Else
&#039;---------------------------------&#039;
1wreset
1wwrite &amp;H55
1wverify Dsid1(1)
1wwrite &amp;HBE
I1 = 1wread(2)
&#039;---------------------------------&#039;
1wreset
1wwrite &amp;H55
1wverify Dsid2(1)
1wwrite &amp;HBE
I2 = 1wread(2)

&#039;---------------------------------&#039;
Ss = &quot;&quot;
I11 = I1 \ 16
Ss = Fusing(i11 , &quot;#.##&quot;)
Temp1 = Ss
Dt = Val(temp1)
T1 = Dt
Ss = &quot;&quot;
I22 = I2 \ 16
Ss = Fusing(i22 , &quot;#.##&quot;)
Temp2 = Ss
Dt = Val(temp2)
T2 = Dt
If Kilid = 0 Then T = T1
If Kilid = 1 Then T = T2
If Pind.4 = 0 And V = 0 Then
Incr Kilid
If Kilid &gt; 1 Then Kilid = 0
V = 1
Writeeeprom Kilid , 12
Waitms 5
Cls
Waitms 300
Cls
End If
If Pind.4 = 1 Then V = 0
Locate 1 , 1
If Kilid = 0 Then Lcd &quot;Temp0=&quot; ; Temp1 ; Chr(223) ; &quot;C   &quot;
If Kilid = 1 Then Lcd &quot;Temp=&quot; ; Temp2 ; Chr(223) ; &quot;C   &quot;
Locate 2 , 1
Lcd &quot;Temp Off:&quot; ; Ll
End If
Deflcdchar 1 , 31 , 28 , 29 , 29 , 13 , 19 , 27 , 27
If T &gt; L And T &lt; H Then
End If
&#039;***************&#039;

&#039;***************&#039;
&#039;Gharm Shodan&#039;
If T &gt; L Then
Locate 1 , 16
Lcd &quot;*&quot;
Set Portd.2
Set Porta.6
Waitms 1000
Reset Portd.0
Waitms 250
Else
Locate 1 , 14
Lcd &quot; &quot;
Reset Portd.2
Reset Porta.6
Waitms 250
End If
If Pind.5 = 1 Then F = 0
Loop
&#039;******************************************************************************&#039;
Settempon:
F = 1
Cursor Off
Locate 1 , 1
Cls
Lcd &quot;Set Temp Off&quot;
Do
If Pind.7 = 0 Then L = L + 0.1
If Pind.6 = 0 Then L = L -0.1
If Pind.5 = 0 And F = 0 Then
Writeeeprom L , 1
Waitms 5
Cls
Goto Submain
End If
Locate 2 , 1
Lcd &quot;Temp Off = &quot; ; L ; Chr(0) ; &quot;c &quot;
If Pind.5 = 1 Then F = 0
Waitms 120
Loop
&#039;******************************************************************************&#039;
&#039;#############################eeprom data######################################&#039;
Dta:
$eeprom
Data 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 10 , 11 , 12 , 13 , 14 , 15 , 16
$data

راستش نه عملا تست نکردم ولی با پرتئوس جواب داد
تو این مدار ایشالا
راستی صفرنژاد :mrgreen:
با تشکر فراوان

**ry.mohammad** · 2014-11-28T23:02:15

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

نوشته اصلی توسط mohammad safarnejad

با تشکر
من خیلی چیزا از این برنامه های شما . لطفتون یاد گرفتم
واقعا از تون نمیدونم چه جوری تشکر کنم
من نمیخوام تنظیمات رو نشون بدم
فقط دما که فک کنم یه سگمنت 4 تایی بس باشه
و قول میدم که اخریش باشه
بعدش میکرو به مگا 16 ارتقاع دادم
اینم کد

کد:

$data

راستش نه عملا تست نکردم ولی با پرتئوس جواب داد
تو این مدار ایشالا
راستی صفرنژاد :mrgreen:
با تشکر فراوان

نه قول نده آخریش باشه قول بده با این برنامه ها یاد بگیری

خواهش می کنم من کاری نکردم جز ویرایش چند فایل بسکام

راستی صفرنژاد :mrgreen:

چشم آقای صفر نژاد :smile:

پس فایل پرتیوسش کو
من که نمی تونم یه ساعت پرتیوس رسم کنم :-w

**mammmad96** · 2014-11-28T23:04:28

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

ببخشید :mrgreen:
بفرمایید
http://s5.picofile.com/file/8154203976/2XDS18B20_pdsprj.html
البته تو این یکی از سنسور هارو برداشتم

**ry.mohammad** · 2014-11-28T23:20:10

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

باید کمی صبر کنی امروز نشه فردا حتما میشه
دارم روش کار می کنم

**mammmad96** · 2014-11-28T23:35:35

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

نوشته اصلی توسط mohammad...

باید کمی صبر کنی امروز نشه فردا حتما میشه
دارم روش کار می کنم

ممنون

**ry.mohammad** · 2014-11-29T22:39:21

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

سلام
من برنامه رو نوشتم
تقریبا خودمم ندونستم چی نوشتم ولی هر کجاشو بگی می تونم توضیح بدم

اول اینکه تو حلقه ی اصلی اصلا نباید از دستورات wait استفاده کنی
یعنی کلا نباید از دستوراتی که میکرو رو معطل می کنند استفاده کنی
بعد اون segment که من تو برنامه بسکام خیلی ازش استفاده کردم این دستور میره و سون سگمنا رو رفرش می کنه تا کمبود زمان نداشته باشیم
اگه احیانا خواستی تو برنامه وقفه بندازی باید با استفاده از دستور for next اینکارو انجام بدی و داخل این دستورات segment رو قرار بدی که علاوه بر ایجاد وقفه سون سگمنا هم رفرش یشه
تو این مدارات سرعت اجرای دستورات زیاده بنابراین مداری که طراحی می کنی تا عملی ببندیش باید اصولی باشه و نویز تاثیر کمی بهش داشته باشه
برای سون سگمن حتما از درایور استفاده کن که نورش هم خوب شه هم به میکرو فشار نیاد که هنگ کنه یا گرم بشه

اول عکسی از مدار
ولی خداییش این مالتی پلکسرا خیلی حال آدمو میگیرن :cry2:

[move]
دانلود

[/move]

اینم از کد بسکام
[code=vb]$regfile = "m16def.dat"
$crystal = 2000000
Config Lcdpin = Pin , Rs = Porta.5 , E = Porta.4 , Db4 = Porta.0 , Db5 = Porta.1 , _
Db6 = Porta.2 , Db7 = Porta.3
Config Lcd = 16 * 2
Cursor Off
Config Single = Scientific , Digits = 1
Config 1wire = Portd.3
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 Portd.2 = Output
Config Porta.6 = Output
Config Portd.0 = Output
Config Portd.5 = Input
Config Portd.6 = Input
Config Portd.7 = Input
Config Portd.4 = Input
Config Portb = Output
Config Portc = Output
'**************'
Cls
Locate 1 , 1
Lcd " AZAR NOGA"
'For N = 0 To 167
'Segment
'Portb = &B01000000
'Next
Submain:
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 25
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 , "#.##&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.4 = 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.4 = 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.6
Reset Portd.0
For N = 0 To 34
Segment
Next
Else
Locate 1 , 14
Lcd " "
Segment
Reset Portd.2
Reset Porta.6
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
If Pind.7 = 0 Then L = L + 0.1
If Pind.6 = 0 Then L = L -0.1
If Pind.5 = 0 And F = 0 Then
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]

**ry.mohammad** · 2014-11-29T22:43:54

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

یادم رفت بگم
فرکانس کاری میکرو از یک مگا به 2 مگا افزایش یافت
چون یک مگا جوابگو نبود

**mammmad96** · 2014-11-29T23:46:40

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

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

**ry.mohammad** · 2014-11-29T23:57:03

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

نوشته اصلی توسط mohammad safarnejad

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

رلشو من دستکاری کردم
مگه بدین صورت نیست که اون temp off رو هر چی قرار بدی بیشتر از اون رله قطع میشه اگه اینجوره
تو جوری نوشته بودی که رله همیشه فعال بود
بعد اینکه اگه می خوای زمان رو یکم کاهش بدی
این قسمت رو ویرایش کن
و n رو بین 0 تا 20 قرار بده ولی دیگه کمتر از 20 قرار نده
[code=vb]1wwrite &HCC
1wwrite &H44
'=================================
For N = 0 To 25
Segment
Next
If Err = 1 Then
Cls
Locate 1 , 4
Lcd "No DS18B20"
Wait 1
Portb = &H00
Else
'---------------------------------'[/code]

**mammmad96** · 2014-11-30T00:03:11

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

ممنون
بله قراره از اون دمای که بهش میریم temp off بیشتر بشه رله فعال بشه ولی الان برعکسش هر وقت از temp off کمتره روشن میشه

**ry.mohammad** · 2014-11-30T00:09:16

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

نوشته اصلی توسط mohammad safarnejad

ممنون
بله قراره از اون دمای که بهش میریم temp off بیشتر بشه رله فعال بشه ولی الان برعکسش هر وقت از temp off کمتره روشن میشه

فهمیدم تو قسمت گرم کردن این کد رو پیدا کن و تغییرش بده فقط همین
'=================Gharm Shodan
If T > L Then
Locate 1 , 16
Lcd "*"

یه چیز دیگه سرعت پریوتیوس یکم کمه زیاد رو سرعت اونم حساب باز نکن
تو عمل ببینی خیلی بهتر از این میشه سرعتش

اطلاعیه

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

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه