ساختن ساعت

[kAHKESHANE RAHE SHIRI]

پاسخ : ساختن ساعت

چرا کسیییییییییی جواب نمیده کجاییدددد مهندساااااااااااااااااااا

[kAHKESHANE RAHE SHIRI]

پاسخ : ساختن ساعت

زوار دوست عزیز این برنامه که گذاشتی فقط ساعتش کار می کنه داخل do loopصفحه کلید این برنامه نمیره .و هیچ چک کردنی از این که زمان وتاریخ ما با زمان و تاریخ ای سی برابر باشه نیست که زنگ بزنههههههههه :sad:ای خدااااااااااااااااااااااااااا :angry: :angry: :angry:اصلا انگار نه انگار کمک می خوامممممممممم

[shahin-shargh]

پاسخ : ساختن ساعت

ای بابا... یه کمی صبر داشته باش مرد :mrgreen:
بیا اینم اون برنامه ای که می خواستی با اتمگا32 و LCDو DS1307 و البته کی پد شما!!
ساعت و زمان زنگ زدن کی پد تنظیم میشه.

http://up.iranblog.com/images/1iwn4cw3prv88d6x2b.zip

یه کم پیچیده و هول هولی شد ولی درست کار می کنه.
برو باهاش کلک کلک کن ببینم چه می کنی :angry:
سوالی بود.من همین گوشه کنارهام. :nerd:

[kAHKESHANE RAHE SHIRI]

پاسخ : ساختن ساعت

شاهین شرق دوست گرامی جواب نمیده رو برد کار نمی کنه :sad:

[shahin-shargh]

پاسخ : ساختن ساعت

خب بگو اشکال کجاست تا درستش کنیم؟

[kAHKESHANE RAHE SHIRI]

پاسخ : ساختن ساعت

دوست گرامی اخرین لینکی که اقای زوار گذاشته درسته ساعتش اما صفحه کلیدش کار نمی کنه وبراش خیلی چیزای دیگه رووو تعریف نکرده.دوست گرامی برنامه ام دیدی؟ باید مثلا ماه سال و.... تعریف شده باشه وشرط برابری ام گذاشته بشه.تو برنامه شما فقط به فارسی رو ال سی دی می نویسه ساعت

[shahin-shargh]

پاسخ : ساختن ساعت

خب نگفته بودی که تقویم هم می خوای!
بهم بگو آیا ساعت کار می کنه یا نه؟یعنی ثانیه میندازه یا نه؟
برنامه من یه روش کار داره که بهت میگم و مطمئن باش که کار می کنه و میشه تقویم رو هم بهش اضافه کرد.

[kAHKESHANE RAHE SHIRI]

پاسخ : ساختن ساعت

نه ثانیه نمیندازههههههههه :sad:

[kAHKESHANE RAHE SHIRI]

پاسخ : ساختن ساعت

دوست گرامی اقای زوار برنامه شما ساعتش کار می کنه مشکل کی بوردم نیست ببین باید فراخونی بشه اما فراخونی نشده صفحه کلید باید داخل خود برنامه اصلی فراخونی بشه

Do این تیکه از برنامه حذف شدههههههههههههههه وتیکه برنامه چک کردنننننننننن.ایی خداااااااااا :ooo: :whistling: :angry: :angry: :cry2:
   Gosub Get_key
   If Key = 10 Then
     Year = Year_1000 * 1000
     Temp_word = Year_100 * 100
     Year = Year + Temp_word
     Temp_word = Year_10 * 10
     Year = Year + Temp_word
     Year = Year + Year_1
     If Year > 2000 And Year < 2050 Then Exit Do
     If Year <= 2000 Or Year => 2050 Then
      Cls
      Lcd "  Year Error"
      Locate 2 , 1
      Lcd "Year=2001...2050"
      Wait 3
      Cls
      Lcd "Enter Year:"
      Locate 2 , 1
      Lcd Year
     End If
   End If
   If Key < 10 Then
     Year_1000 = Year_100
     Year_100 = Year_10
     Year_10 = Year_1
     Year_1 = Key

     Year = Year_1000 * 1000
     Temp_word = Year_100 * 100
     Year = Year + Temp_word
     Temp_word = Year_10 * 10
     Year = Year + Temp_word
     Year = Year + Year_1

     Cls
     Lcd "Enter Year:"
     Locate 2 , 1
     Lcd Year

   End If
  Loop

  Cls
  Lcd "Enter Month:"
  Locate 2 , 1
  Lcd Month

  Do
   Gosub Get_key
   If Key = 10 Then
     Month = Month_10 * 10
     Month = Month + Month_1
     If Month > 1 And Month < 13 Then Exit Do
     If Month = 0 Or Month > 12 Then
      Cls
      Lcd "  Month Error"
      Locate 2 , 1
      Lcd "Month=1...12"
      Wait 3
      Cls
      Lcd "Enter Month:"
      Locate 2 , 1
      Lcd Month
     End If
   End If
   If Key < 10 Then
     Month_10 = Month_1
     Month_1 = Key

     Month = Month_10 * 10
     Month = Month + Month_1

     Cls
     Lcd "Enter Month:"
     Locate 2 , 1
     Lcd Month
   End If
  Loop

  Cls
  Lcd "Enter Day:"
  Locate 2 , 1
  Lcd Day
  Do
   Gosub Get_key
   If Key = 10 Then
     Day = Day_10 * 10
     Day = Day + Day_1
     If Day > 1 And Day < 32 Then Exit Do
     If Day = 0 Or Day > 31 Then
      Cls
      Lcd "  Day Error"
      Locate 2 , 1
      Lcd "Day=1...31"
      Wait 3
      Cls
      Lcd "Enter Day:"
      Locate 2 , 1
      Lcd Day
     End If
   End If
   If Key < 10 Then
     Day_10 = Day_1
     Day_1 = Key

     Day = Day_10 * 10
     Day = Day + Day_1

     Cls
     Lcd "Enter Day:"
     Locate 2 , 1
     Lcd Day
   End If
  Loop

  Cls
  Lcd "Enter Hour:"
  Locate 2 , 1
  Lcd Hour
  Do
   Gosub Get_key
   If Key = 10 Then
     Hour = Hour_10 * 10
     Hour = Hour + Hour_1
     If Day < 24 Then Exit Do
     If Day > 23 Then
      Cls
      Lcd "  Hour Error"
      Locate 2 , 1
      Lcd "Hour=0...23"
      Wait 3
      Cls
      Lcd "Enter Hour:"
      Locate 2 , 1
      Lcd Hour
     End If
   End If
   If Key < 10 Then
     Hour_10 = Hour_1
     Hour_1 = Key

     Hour = Hour_10 * 10
     Hour = Hour + Hour_1

     Cls
     Lcd "Enter Hour:"
     Locate 2 , 1
     Lcd Hour
   End If
  Loop

  Cls
  Lcd "Enter Minute:"
  Locate 2 , 1
  Lcd Minute
  Do
   Gosub Get_key
   If Key = 10 Then
     Minute = Minute_10 * 10
     Minute = Minute + Minute_1
     If Minute < 60 Then Exit Do
     If Minute > 59 Then
      Cls
      Lcd " Minute Error"
      Locate 2 , 1
      Lcd "Minute=0...59"
      Wait 3
      Cls
      Lcd "Enter Minute:"
      Locate 2 , 1
      Lcd Minute
     End If
   End If
   If Key < 10 Then
     Minute_10 = Minute_1
     Minute_1 = Key

     Minute = Minute_10 * 10
     Minute = Minute + Minute_1

     Cls
     Lcd "Enter Minute:"
     Locate 2 , 1
     Lcd Minute
   End If
  Loop

  Cls
  Lcd "Enter Second:"
  Locate 2 , 1
  Lcd Second
  Do
   Gosub Get_key
   If Key = 10 Then
     Second = Second_10 * 10
     Second = Second + Second_1
     If Second < 60 Then Exit Do
     If Second > 59 Then
      Cls
      Lcd " Second Error"
      Locate 2 , 1
      Lcd "Second=0...59"
      Wait 3
      Cls
      Lcd "Enter Second:"
      Locate 2 , 1
      Lcd Second
     End If
   End If
   If Key < 10 Then
     Second_10 = Second_1
     Second_1 = Key

     Second = Second_10 * 10
     Second = Second + Second_1

     Cls
     Lcd "Enter Second:"
     Locate 2 , 1
     Lcd Second
   End If
  Loop

[kAHKESHANE RAHE SHIRI]

پاسخ : ساختن ساعت

اونم کدی بود که حدف کرده بودید از داخل برنامه ام باضافه ی این کد :eek: :cry: :angry:

Gosub Getdatetime
  Temp_word = _year + 2000
  Lcd Temp_word ; "/" ; _month ; "/" ; _day ;
  Locate 2 , 1
  Lcd _hour ; ":" ; _min ; ":" ; _sec
  Wait 1
  If Temp_word = Year And _
    _month = Month And _
    _day = Day And _
    _hour = Hour And _
    _min = Minute  And _
    _sec = Second _
    Then Portd.5 = 1

[shahin-shargh]

پاسخ : ساختن ساعت

این برنامه یه تغییر کوچیک کرده:
http://up.iranblog.com/images/h1j2boofyphacr3arpo7.zip

برنامه رو که پروگرام کردی و مدار روشن شد دکمه ای که توی فایل پروتئوس با عنوان START یا منفی(-) مشخصه شده رو روی کی پد بزن.ساعت مدار شروع به کار می کنه.انجام که دادی خبرم کن تا بقیه رو بهت بگم.

[kAHKESHANE RAHE SHIRI]

پاسخ : ساختن ساعت

باشه دوست عزیز الان تستش می کنمممم ممنون.

[زوار]

پاسخ : ساختن ساعت

با سلام برنامه آقای shahin-shargh برنامه خوبیه روی همین کار کنید زودتر به نتیجه میرسید اگر از منم کمکی ساخته بود در خدمتم

[kAHKESHANE RAHE SHIRI]

پاسخ : ساختن ساعت

شاهین شرق دوست گرامی الان ساعت کار می کنه البته من sdaوscl راc0وc1 کردم اما 1ایراد داره اونم اینکه هر کلیدی از صفحه کلیدو می زنم ساعت صفر میشه یعنی ثانیه صفر میشه :smile:

[shahin-shargh]

پاسخ : ساختن ساعت

منم خودمم دارم همزمان این مدار رو می بندم.
در مورد SDA و SCL من توی برنامه پورت D قرار دادم ونباید مشکلی داشته باشه.حالا واسه شما چه جوری کار می کنه عجیبه. :eek:
حتما توی برنامه تغییر دادی!

خب طرز کار مدار...
دکمه START رو که دیدی واسه استارت اولیه و صفر کردن ثانیه شماره.
برای تنظیم ساعت دکمه SET یا(+)مثبت رو که بزنی. صفحه SETTING میاد.
اینجا باید ساعت رو تنظیم کنی رقم اول رو که 0 یا 1 یا 2 هست رو انتخاب می کنی(ساعت 24 ساعته)
حالا باید دکمه(=) یا PLUS رو بزنی وبعد یه رقم دیگه رو انتخاب کنی(0 تا9)
حالا ساعت درست شد.
یه بار دیگه که دکمه SET رو بزنی نوبت دقیقه هست.رقم اول رو که انتخاب کردی دوباره دکمه PLUS وبعد رقم دوم رو انتخاب می کنیو همین طور ثانیه.
این تا اینجا.انجام دادی بازم خبرم کن برای تنظیم زنگ.