اطلاعیه

Collapse
No announcement yet.

مشکل ایستادن ds1307 بعد از فعال شدن رله

Collapse
X
Collapse
 
  • صفحه of 1
  • فیلتر
  • زمان
  • Show
Clear All
new posts
قبلی template بعدی
    #1

    مشکل ایستادن ds1307 بعد از فعال شدن رله

    سلام
    دوستان من توی مدارم از یک رله استفاده کردم که گاهی اوقات بعد از فعال شدن رله ساعت مدارم کاملا متوقف میشه لازمه بگم که من از اپتوکوپلر هم استفاده کردم و حتی تغذیه رله رو هم از یه منبع دیگه وصل کردم .ولی گاهی اوقات بعد از فعال شدن رله ساعت متوقف میشه . DS1307 - AVR mega 32

    لطفا راهنمایی کنید

    برچسب ها: از, ایستادن, ds1307, بعد, رله, شدن, فعال, مشکل
    #2
    پاسخ : مشکل ایستادن ds1307 بعد از فعال شدن رله

    نوشته اصلی توسط haghshenasmahdi
    سلام
    دوستان من توی مدارم از یک رله استفاده کردم که گاهی اوقات بعد از فعال شدن رله ساعت مدارم کاملا متوقف میشه لازمه بگم که من از اپتوکوپلر هم استفاده کردم و حتی تغذیه رله رو هم از یه منبع دیگه وصل کردم .ولی گاهی اوقات بعد از فعال شدن رله ساعت متوقف میشه . DS1307 - AVR mega 32

    لطفا راهنمایی کنید

    مدار وبرنامتونو بزارید

    دیدگاه

      #3
      پاسخ : مشکل ایستادن ds1307 بعد از فعال شدن رله

      نوشته اصلی توسط haghshenasmahdi
      سلام
      دوستان من توی مدارم از یک رله استفاده کردم که گاهی اوقات بعد از فعال شدن رله ساعت مدارم کاملا متوقف میشه لازمه بگم که من از اپتوکوپلر هم استفاده کردم و حتی تغذیه رله رو هم از یه منبع دیگه وصل کردم .ولی گاهی اوقات بعد از فعال شدن رله ساعت متوقف میشه . DS1307 - AVR mega 32

      لطفا راهنمایی کنید
      سلام
      به رلتون چی وصله؟ ولتاژش چقدر هست ؟
      برد جوجه کشی:
      مطالعه پست 1 (حتما مطالعه کنید)

      مطالعه پست 2 (برای مطلع شدن از تغییرات برنامه مطالعه کنید)

      دانلود

      توجه:
      این برد نیمه صنعتی و خانگی هست...
      برای صنعتی شدن حتما برد مخصوص خودتون رو بزنید...

      آی دی کانال تلگرامی مربوط به برد جوجه کشی : electr0o0nic@

      دیدگاه

        #4
        پاسخ : مشکل ایستادن ds1307 بعد از فعال شدن رله

        کد:
        '------------------------------------------------------------------------------
'--------------------------- in the name of allahe ----------------------------
'------------------------------------------------------------------------------
'-                                      -
'-  ()()() ()()() ()()()() ()()()() ()()()() ()()()()  ()()() ()()()()  -
'-   ()  ()    ()    ()    ()    ()      ()  ()   ()  -
'-   ()   ()()  ()()()  ()()()  ()()()  ()()()    ()  ()()()()  -
'-   ()    () ()    ()    ()    ()      ()  ()   ()  -
'-  ()()() ()()() ()()()() ()()()() ()()()() ()()()() () ()()() ()   () -
'------------------------------------------------------------------------------
'-  YEAR 2012  ------- WWW.ISEEE.IR -------- AllRight Reserved By ISeee © -
'------------------------------------------------------------------------------


' -----------------------------------------------------------------------------
'| ------------------------------------------------------------------------- |
'| |                                     | |
'| |     SHAMSI CALENDER BY DS1307 AND ATMEGA8              | |
'| |                                     | |
'| |     BY : MAHMOOD HASANI PAJO                    | |
'| |                                     | |
'| |     WWW.ISEEE.IR                          | |
'| |                                     | |
'| |                                     | |
'| ------------------------------------------------------------------------- |
' -----------------------------------------------------------------------------


$regfile = "m32def.dat"

$crystal = 12000000
$framesize = 128
$hwstack = 128
$swstack = 128
$projecttime = 6
'*******************************************************************************
'******************************                 ****************
'WWW.ISEEE.IR *****************        CONFIG      ****************
'******************************                 ****************
'*******************************************************************************

Declare Function M_kabise(byref Sal As Word)as Byte
Declare Function Sh_kabise(byref Sal As Word)as Byte
'-----------------------------------------------------
Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , _
Db6 = Portb. 1 , Db7 = Portb.0 , E = Portb.4 , Rs = Portb.5
Cursor Off

''Config Adc = Single , Prescaler = Auto
'-----------------------------------------------------
  $lib "ds1307clock.lib"
  'configure the scl and sda pins
  Config Sda = Portc.1
  Config Scl = Portc.0
'****************************
Const Ds1307w = &HD0
Const Ds1307r = &HD1

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

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

Dim _sec As Byte
Dim _min As Byte
Dim _hour As Byte
Dim _year As Word
Dim Weekday As Byte
'--------------
Dim M_day As Word
Dim Sh_day As Word
Dim M_year As Word
Dim Sh_year As Word
Dim M_month As Word
Dim Sh_month As Word
Dim Kabise As Byte
Dim Kole_roz_m As Word
Dim Kole_roz_sh As Word
'-------------

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

Dim Conter1 As Word
Dim Conter2 As Word
Dim Conter3 As Word
Dim Conter4 As Word
Dim Day_of_month(12) As Byte
Day_of_month(1) = 31
Day_of_month(2) = 28
Day_of_month(3) = 31
Day_of_month(4) = 30
Day_of_month(5) = 31
Day_of_month(6) = 30
Day_of_month(7) = 31
Day_of_month(8) = 31
Day_of_month(9) = 30
Day_of_month(10) = 31
Day_of_month(11) = 30
Day_of_month(12) = 31

'----------------------

Dim Temp1 As Integer
Dim Temp2 As Integer
Dim Temp3 As Word
Dim Temp4 As Word
Dim Temp5 As Byte

'----------------------- keys
Key_menu Alias Pind.1
Config Key_menu = Input
Portd.0 = 1

Key_incr Alias Pind.0
Config Key_incr = Input
Portd.1 = 1

Key_decr Alias Pind.2
Config Key_decr = Input
Portd.2 = 1
'-----------------------------------
Dim Menu As Byte
Dim Timer_1 As Word
Dim S1 As String * 15
Dim S As String * 10
S1 = " GOD Willing "
Dim Blink_flag As Bit
Dim Selection As Byte

Dim Saat As Byte
Dim Daghighe As Byte
Dim W As Word , Channel As Byte
Channel = 5
Dim Si As Single , Z As String * 10
Dim A As Byte , Ab As Byte
Dim Temp As Bit , Variblereset As Bit
Variblereset = 0
Temp = 0
Dim Tempazan As Bit
Tempazan = 0
Dim Count As Integer
'------------------------------------
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 Config Porta.3 = Output
 Porta.3 = 0
 Config Portd.7 = Output
 Portd.7 = 0
 Config Portd.5 = Output
 Config Portd.6 = Output
 Portd.6 = 0
 Portd.5 = 0

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Config Watchdog = 2048
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''Start Adc

 A = 0
 A = 0
 Ab = 0
'*******************************************************************************
'******************************                 ****************
'WWW.ISEEE.IR *****************        MAIN       ****************
'******************************                 ****************
'*******************************************************************************
Start Watchdog
Cls
Locate 1 , 1 : Lcd S1
Wait 1
Cls

Do
'''''''''''''''''''''''''''''''''


''''''''''''''''''''''''''''''''''''''''''

Gosub Read_date_time
Gosub M_to_sh

Locate 1 , 1
Lcd "TIME: " ; _hour ; ":" ; _min ; ":" ; _sec ; "  "
If _sec > 7 Then
Locate 2 , 1
Lcd "DATE: " ; Sh_year ; "/" ; Sh_month ; "/" ; Sh_day ; "  "
End If
'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::



''Gosub Temperature

Waitms 10
Reset Watchdog

 '-------------------relay on
If _hour = 10 And _min = 30 Then
Portd.7 = 1
End If
 '-------------------relay off
If _hour = 10 And _min = 35 Then
Portd.7 = 0
End If




'---------------------------- WAIT AND READ KEY

For Conter1 = 1 To 40000

  If Key_menu = 0 Then

   Waitms 80

   If Key_menu = 0 Then
   Stop Watchdog
     Cls
     Locate 1 , 1
     Lcd "   MENU "
     Wait 1
     Gosub Menu5
   End If

  Waitus 10

End If

Next

'------------------------------
Loop

'*******************************************************************************
'******************************                 ****************
'WWW.ISEEE.IR *****************        MENU       ****************
'******************************                 ****************
'*******************************************************************************

Menu5:

Selection = 1
Cls
Do

Incr Timer_1
If Timer_1 > 5 Then
 Timer_1 = 0
 Toggle Blink_flag
End If

S1 = "TIME: "
'-----------------------------
If Selection = 1 And Blink_flag = 0 Then

 S1 = S1 + " "
Else

 S = Str(_hour)
 S = Format(s , "00")
 S1 = S1 + S

End If
S1 = S1 + ":"
'------------------------------
If Selection = 2 And Blink_flag = 0 Then

 S1 = S1 + " "
Else

 S = Str(_min)
 S = Format(s , "00")
 S1 = S1 + S

End If
S1 = S1 + ":"
'------------------------------
If Selection = 3 And Blink_flag = 0 Then

 S1 = S1 + " "
Else

 S = Str(_sec)
 S = Format(s , "00")
 S1 = S1 + S

End If


Locate 1 , 1
Lcd S1


S1 = "DATE: "
'--------------------------------
If Selection = 4 And Blink_flag = 0 Then

 S1 = S1 + "  "
Else

 S = Str(sh_year)
 S = Format(s , "0000")
 S1 = S1 + S

End If
S1 = S1 + "/"
'---------------------------------
If Selection = 5 And Blink_flag = 0 Then

 S1 = S1 + " "
Else

 S = Str(sh_month)
 S = Format(s , "00")
 S1 = S1 + S

End If
S1 = S1 + "/"
'----------------------------------
If Selection = 6 And Blink_flag = 0 Then

 S1 = S1 + " "
Else

 S = Str(sh_day)
 S = Format(s , "00")
 S1 = S1 + S

End If

Locate 2 , 1
Lcd S1




If Key_menu = 0 Then
  Waitms 100
  If Key_menu = 0 Then Incr Selection
End If


'-----------------------------------
If Key_incr = 0 Then
  Waitms 100
  If Key_incr = 0 Then

   If Selection = 1 Then Incr _hour
   If Selection = 2 Then Incr _min
   If Selection = 3 Then Incr _sec
   If Selection = 4 Then Incr Sh_year
   If Selection = 5 Then Incr Sh_month
   If Selection = 6 Then Incr Sh_day

  End If

End If
'------------------------------------
If Key_decr = 0 Then
  Waitms 100
  If Key_decr = 0 Then

   If Selection = 1 Then Decr _hour
   If Selection = 2 Then Decr _min
   If Selection = 3 Then Decr _sec
   If Selection = 4 Then Decr Sh_year
   If Selection = 5 Then Decr Sh_month
   If Selection = 6 Then Decr Sh_day

  End If

End If

'--------------------------------------
If _hour > 100 Then _hour = 23
If _min > 100 Then _min = 59
If _sec > 100 Then _sec = 59

If _hour > 23 Then _hour = 0
If _min > 59 Then _min = 0
If _sec > 59 Then _sec = 0
If Sh_year > 1470 Then Sh_year = 1390
If Sh_month > 12 Then Sh_month = 1
If Sh_day > 31 Then Sh_day = 1


If Sh_year < 1390 Then Sh_year = 1470
If Sh_month < 1 Then Sh_month = 12
If Sh_day < 1 Then Sh_day = 31
'---------------------------------------


Waitms 40

If Selection > 6 Then Exit Do

Loop

Cls
Locate 1 , 1
Lcd " SAVEING"
Wait 1
Gosub Sh_to_m
Gosub Setdate
Gosub Settime

Return

'*******************************************************************************
'******************************                 ****************
'WWW.ISEEE.IR *****************    READ DATE AND TIME    ****************
'******************************                 ****************
'*******************************************************************************

Read_date_time:
 I2cstart                         ' Generate start code
 I2cwbyte Ds1307w                     ' send address
 I2cwbyte 0                        ' start address in 1307
 I2cstart                         ' Generate start code
 I2cwbyte Ds1307r                     ' send address
 I2crbyte _sec , Ack
 I2crbyte _min , Ack                    ' MINUTES
 I2crbyte _hour , Ack                   ' Hours
 I2crbyte Weekday , Ack                  ' Day of Week
 I2crbyte M_day , Ack                   ' Day of Month
 I2crbyte M_month , Ack                  ' Month of Year
 I2crbyte _year , Nack                   ' Year
 I2cstop
 _sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
 M_day = Makedec(m_day) : M_month = Makedec(m_month) : _year = Makedec(_year)
 M_year = 2000 + _year

Return

'*******************************************************************************
'******************************                 ****************
'WWW.ISEEE.IR *****************       SET DATE      ****************
'******************************                 ****************
'*******************************************************************************

Setdate:

 _year = M_year - 2000
 M_day = Makebcd(m_day) : M_month = Makebcd(m_month) : _year = Makebcd(_year)
 I2cstart                         ' Generate start code
 I2cwbyte Ds1307w                     ' send address
 I2cwbyte 4                        ' starting address in 1307
 I2cwbyte M_day                      ' Send Data to SECONDS
 I2cwbyte M_month                     ' MINUTES
 I2cwbyte _year                      ' Hours
 I2cstop
Return

'*******************************************************************************
'******************************                 ****************
'WWW.ISEEE.IR *****************       SET TIME      ****************
'******************************                 ****************
'*******************************************************************************

Settime:
 _sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
 I2cstart                         ' Generate start code
 I2cwbyte Ds1307w                     ' send address
 I2cwbyte 0                        ' starting address in 1307
 I2cwbyte _sec                       ' Send Data to SECONDS
 I2cwbyte _min                       ' MINUTES
 I2cwbyte _hour                      ' Hours
 I2cstop
Return

'*******************************************************************************
'******************************                 ****************
'WWW.ISEEE.IR *****************     MILADI TO SHAMSI    ****************
'******************************                 ****************
'*******************************************************************************


M_to_sh:

'----------------
If M_kabise(m_year) = 0 Then
  Day_of_month(2) = 28
Else
  Day_of_month(2) = 29
End If
'----------------

Conter2 = M_month - 1
Kole_roz_m = 0

For Conter1 = 1 To Conter2
  Kole_roz_m = Kole_roz_m + Day_of_month(conter1)
Next
Kole_roz_m = Kole_roz_m + M_day

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

If Kole_roz_m > 79 Then

  Sh_year = M_year - 621
  Kole_roz_sh = Kole_roz_m - 79

Else

  Sh_year = M_year - 622

  Temp4 = M_year - 1
  Temp5 = M_kabise(temp4)

  If Temp5 = 0 Then
   Kole_roz_sh = Kole_roz_m + 286
  Else
   Kole_roz_sh = Kole_roz_m + 287
  End If

End If

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

Sh_month = 1

'****************
While Kole_roz_sh > 30

  If Sh_month < 7 Then
     Kole_roz_sh = Kole_roz_sh - 31
  Else
     Kole_roz_sh = Kole_roz_sh - 30
  End If

  Incr Sh_month

Wend
'***************
'---------------
If Kole_roz_sh = 0 Then

  Decr Sh_month
  If Sh_month < 7 Then
   Sh_day = 31
  Else
   Sh_day = 30
  End If
Else
  Sh_day = Kole_roz_sh
End If
'---------------
Return

'*******************************************************************************
'******************************                 ****************
'WWW.ISEEE.IR *****************    SHAMSI TO MILADI     ****************
'******************************                 ****************
'*******************************************************************************

Sh_to_m:

'------------------
Kole_roz_sh = 0
'------------------

If Sh_month > 6 Then

 Kole_roz_sh = 186
 Temp4 = Sh_month - 7
 Temp4 = Temp4 * 30
 Kole_roz_sh = Kole_roz_sh + Temp4

Else

 Temp4 = Sh_month - 1
 Temp4 = Temp4 * 31
 Kole_roz_sh = Kole_roz_sh + Temp4

End If
Kole_roz_sh = Kole_roz_sh + Sh_day

'****************************
If Kole_roz_sh > 286 Then

  M_year = Sh_year + 622
  Kole_roz_m = Kole_roz_sh - 286

Else

  M_year = Sh_year + 621
  Kole_roz_m = Kole_roz_sh + 79

End If
'**************************

If M_kabise(m_year) = 0 Then
  Day_of_month(2) = 28
Else
  Day_of_month(2) = 29
End If


'----------------



For M_month = 1 To 12

  If Kole_roz_m < 31 Then Exit For
  Kole_roz_m = Kole_roz_m - Day_of_month(m_month)

Next


If Kole_roz_m > Day_of_month(m_month) Then

  Kole_roz_m = Kole_roz_m - Day_of_month(conter1)
  Incr M_month

End If

M_day = Kole_roz_m

Return

'*******************************************************************************
'******************************                 ****************
'WWW.ISEEE.IR *****************     END OF PROGRAM     ****************
'******************************                 ****************
'*******************************************************************************

End

'============================================================
'============================================================

Function M_kabise(byref Sal As Word)as Byte

  Local T1 As Integer
  Local T2 As Integer
  Local T3 As Integer
  Local B As Byte
  '=========================
  T1 = Sal Mod 4
  T2 = Sal Mod 100
  T3 = Sal Mod 400
  B = 0
  '=========================
  '------
  If T1 = 0 And T2 <> 0 Then
   B = 1
  End If
  '------
  If T2 = 0 And T3 = 0 Then
   B = 1
  End If
  '------
  M_kabise = B

End Function

'============================================================
'============================================================

Function Sh_kabise(byref Sal As Word)as Byte

  Local T1 As Integer
  Local B As Byte
  '==================
  T1 = Sal Mod 33
  B = 0
  '==================
  '------
  If T1 = 1 Or T1 = 5 Or T1 = 9 Or T1 = 13 Or T1 = 17 Or T1 = 22 Or _
  T1 = 26 Or T1 = 30 Then

   B = 1

  End If
  '------
  Sh_kabise = B

End Function




''/////////////////////////////////////////////


''/////////////////////////////////////////////
''/////////////////////////////////////////////
        رله ولتاژ 220 AC

        دیدگاه

          #5
          پاسخ : مشکل ایستادن ds1307 بعد از فعال شدن رله

          اینم از مدار رله

          http://www.8pic.ir/images/fve90em2nn0jx7qgpkeh.png

          راستی به رله یک دونه زنگ متصل کردم . مثلا زنگ مدارس

          دیدگاه

            #6
            پاسخ : مشکل ایستادن ds1307 بعد از فعال شدن رله

            1:دیود هرزگرد سریع تری استفاده کنید
            2:زمین رله رو ایزوله کنید

            دیدگاه

              #7
              پاسخ : مشکل ایستادن ds1307 بعد از فعال شدن رله

              برنامتون مشکلی نداره شما یه سلف 10 میکرو رو با خازن 100 نانو سری کن و سر غیر مشترک سلف رو به مثبت 5 و سر غیر مشترک خازن رو به زمین وصل کن و از پایه مشترک سلف و خازن بگیر بده به تغذیه ای سی ساعت (مثبت 5 رو مستقیم به ای سی ساعت نده بلکه بعد از فیلتر کردن اینکارو انجام بده)
              بعد به عکس هم نگاه کنید و سخت افزار رو عین این ببندید
              یه خازن ظرفیت بالا مثل 1000 میکرو فاراد 50 ولت رو با تغذیه بردتون موازی کنید و از خازنهای 100 نانو هم در کل برد استفاده کنید

              برد جوجه کشی:
              مطالعه پست 1 (حتما مطالعه کنید)

              مطالعه پست 2 (برای مطلع شدن از تغییرات برنامه مطالعه کنید)

              دانلود

              توجه:
              این برد نیمه صنعتی و خانگی هست...
              برای صنعتی شدن حتما برد مخصوص خودتون رو بزنید...

              آی دی کانال تلگرامی مربوط به برد جوجه کشی : electr0o0nic@

              دیدگاه

                #8
                پاسخ : مشکل ایستادن ds1307 بعد از فعال شدن رله

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

                دیدگاه

                  #9
                  پاسخ : مشکل ایستادن ds1307 بعد از فعال شدن رله

                  اصل نویز رو بایدازبین برد.
                  یا بهتره نویزرو در همون جایی که تولید میشه به دام بندازیم.تو اینجا بوبین رله هست که نویز مینداه ،به نظرمن خازن پلی استرباولتاژبیشتر از650(کمترنباشه) وظرفیت 220 نانوموازی کنتاکت بازرله وپایه com ( اگه خازن 220 دردسترس نداشتید می تونید ظرفیت های دیگر استفاده کنید.وفقط دقت شود زیاد بزرگ نگیریدکه رله یکسره میشه. )
                  دیود هرزگرد هم گذاشتی.
                  هر آموزشگاهی را که باز کنید در زندانی را بسته اید.

                  دیدگاه

                    #10
                    پاسخ : مشکل ایستادن ds1307 بعد از فعال شدن رله

                    دوست عزیز من بایستی این رو هم بگم که وقتی من دستگاه دیگه ای به جز زنگ وصل می کنم .مشکل ایجاد نمیشه .حداقل من ندیدم .
                    در ضمن تغذیه رله با تغذیه avr مجزا است . یعنی از دو تا منبع تغذیه استفاده کردم

                    دیدگاه

                      #11
                      پاسخ : مشکل ایستادن ds1307 بعد از فعال شدن رله

                      نوشته اصلی توسط haghshenasmahdi
                      دوست عزیز من بایستی این رو هم بگم که وقتی من دستگاه دیگه ای به جز زنگ وصل می کنم .مشکل ایجاد نمیشه .حداقل من ندیدم .
                      در ضمن تغذیه رله با تغذیه avr مجزا است . یعنی از دو تا منبع تغذیه استفاده کردم
                      تعجب اوره که شما تغذیه مدار رله رو از میکرو جدا کردید ولی رله تحریک میشه.
                      این روش کاملا اشتباهه
                      از یک تغذیه برای هردو قسمت کنترل و قدرت استفاده کنید.
                      مطالبی که گفتم حتما رعایت کنید .
                      1-خازن های 1000 میکرو فاراد برای تغذیه قبل از LM7805به همرا ه یه خازن 104 عدسی یا مولتی لایر
                      2-خازن 470 میکرو الکترولیت موازی با مدا رتغذیه بعد از LM7805 به همرا ه یه خازن 104 عدسی یا مولتی لایر
                      3-خازن عدسی 104 برای دو پایه تغذیه میکرو
                      برای قسمت رله هم رعایت نکات زیر الزامی است.
                      1-دیود هرگرد
                      2-خازن پلی استر با مشخصاتی که عرض کردم موازی با پایه باز رله و پایه COM



                      حتما حتما حتما یک منبع تغذیه برای هردو قسمت میکرو و رله بذار .صددرصد مشکلت حله
                      بعدش نتیجه رو اعلام کن.
                      هر آموزشگاهی را که باز کنید در زندانی را بسته اید.

                      دیدگاه

                        #12
                        پاسخ : مشکل ایستادن ds1307 بعد از فعال شدن رله

                        اگه هنوز مشکلتون حل نشده یه عکس از مدارتون بگیرید اینجا بذارید.
                        هر آموزشگاهی را که باز کنید در زندانی را بسته اید.

                        دیدگاه

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