کمک برای نوشتن برنامه دکمه های ست تایم ساعت دیجیتال در بسکام

[gmaissam]

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





$regfile = "m32def.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32
$lib "ds1307clock.lib"
Const Ds1307w = &HD0
Const Ds1307r = &HD1
Config Portc = Output
Config Porta = Output
Config Portd = Output
Config Pinb.5 = Input
Config Scl = Portb.1
Config Sda = Portb.0
Dim _sec As Byte
Dim _min As Byte
Dim _hour As Byte
Dim Second As Byte
Dim Minute As Byte
Dim Hours As Byte
_sec = 1
_min = 1
Do
Gosub Ds1307


_sec = Makedec(_sec)
_min = Makedec(_min)
_hour = Makedec(_hour)
If _sec > 59 Then _sec = 0
Second = Makebcd(_sec)
Portd = Second
If _min > 59 Then _min = 0
Minute = Makebcd(_min)
Portc = Minute
If _hour > 23 Then _hour = 0
Hours = Makebcd(_hour)
Porta = Hours
Loop
Ds1307:
I2cstart
I2cwbyte Ds1307w
I2cwbyte 0
I2cstart
I2cwbyte Ds1307r
I2crbyte _sec , Ack
I2crbyte _min , Ack
I2crbyte _hour , Nack
I2cstop
Return
End

[mehrdad_italy]

پاسخ : کمک برای نوشتن برنامه دکمه های ست تایم ساعت دیجیتال در بسکام

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

Tanzimat:

     Debounce Pina.0 , 0 , Seco , Sub
     Debounce Pina.1 , 0 , Mine , Sub
     Debounce Pina.2 , 0 , Hour , Sub


Return
'---------------------------------------------
Seco:
     Incr Seco
     If Seco > 59 Then Seco = 0
     Seco = Makebcd(seco)
     I2cstart
     I2cwbyte Ds1307w
     I2cwbyte 0
     I2cwbyte Seco
     I2cstop
Return

'-------------------------------------
Mine:
     Incr Mine
     If Mine > 59 Then Mine = 0
     Mine = Makebcd(mine)
     I2cstart
     I2cwbyte Ds1307w
     I2cwbyte 1
     I2cwbyte Mine
     I2cstop
Return
'-------------------------------------

Hour:
     Incr Hour
     If Hour > 23 Then Hour = 0
     Hour = Makebcd(hour)
     I2cstart
     I2cwbyte Ds1307w
     I2cwbyte 2
     I2cwbyte Hour
     I2cstop

Return
'-------------------------------------

End

[gmaissam]

پاسخ : کمک برای نوشتن برنامه دکمه های ست تایم ساعت دیجیتال در بسکام

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

Tanzimat:

     Debounce Pina.0 , 0 , Seco , Sub
     Debounce Pina.1 , 0 , Mine , Sub
     Debounce Pina.2 , 0 , Hour , Sub


Return
'---------------------------------------------
Seco:
     Incr Seco
     If Seco > 59 Then Seco = 0
     Seco = Makebcd(seco)
     I2cstart
     I2cwbyte Ds1307w
     I2cwbyte 0
     I2cwbyte Seco
     I2cstop
Return

'-------------------------------------
Mine:
     Incr Mine
     If Mine > 59 Then Mine = 0
     Mine = Makebcd(mine)
     I2cstart
     I2cwbyte Ds1307w
     I2cwbyte 1
     I2cwbyte Mine
     I2cstop
Return
'-------------------------------------

Hour:
     Incr Hour
     If Hour > 23 Then Hour = 0
     Hour = Makebcd(hour)
     I2cstart
     I2cwbyte Ds1307w
     I2cwbyte 2
     I2cwbyte Hour
     I2cstop

Return
'-------------------------------------

End

سلام
ممنون راه افتاد
فقط یه مشکل کوچیک داره موقعی که از 10 رد میشه میپره 17و24و37و56این درمورد دقیقه..... وساعت هم از 10میپره17 وصفر مشه
مشکل چی میتونه باشه؟؟؟

[mehrdad_italy]

پاسخ : کمک برای نوشتن برنامه دکمه های ست تایم ساعت دیجیتال در بسکام

برای کلیدها پول اپ گذاشتی؟
هم نرم افزاری فعال کن هم سخت افزاری

[gmaissam]

پاسخ : کمک برای نوشتن برنامه دکمه های ست تایم ساعت دیجیتال در بسکام

برای کلیدها پول اپ گذاشتی؟
هم نرم افزاری فعال کن هم سخت افزاری

بله کلیدها روپول پ کردم با مقاومت 4.7k
ولی پول پ نرم افزاری نه...میشه توضیحش بدبد؟؟؟

[m.plusboy]

پاسخ : کمک برای نوشتن برنامه دکمه های ست تایم ساعت دیجیتال در بسکام

اوه اوه اوه :angry: :angry:
ds 1307
اخر هیچکی پیدا نشد تو اون پست قبلی مشکل دقیق کار کردنشو حل کنه :applause: :applause:
.اگه تونستی به ما هم بگو :bye

[m.plusboy]

پاسخ : کمک برای نوشتن برنامه دکمه های ست تایم ساعت دیجیتال در بسکام

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

[mehrdad_italy]

پاسخ : کمک برای نوشتن برنامه دکمه های ست تایم ساعت دیجیتال در بسکام

بله کلیدها روپول پ کردم با مقاومت 4.7k
ولی پول پ نرم افزاری نه...میشه توضیحش بدبد؟؟؟

پول اپ کردی نباید مشکل داشته باشه.
پول اپ نرم افزاری چیز خاصی نیست مثل همون سخت افزاری
config porta=input
set porta.1

[mehrdad_italy]

پاسخ : کمک برای نوشتن برنامه دکمه های ست تایم ساعت دیجیتال در بسکام

یه کار دیگه هم می تونی انجام بدی
تو قسمت تنظیمات ساعت یه تاخیر ایحاد کن مثلا 100 میلی ثانیه (خودت کم و زیاد کن ببین چه زمانی بهتره)
اگه دیدی بازم درست نشد بگو یه راه دیگه بگم .
(مثل همینه فقط یکم برنامه نویسیش فرق می کنه)

[gmaissam]

پاسخ : کمک برای نوشتن برنامه دکمه های ست تایم ساعت دیجیتال در بسکام

یه کار دیگه هم می تونی انجام بدی
تو قسمت تنظیمات ساعت یه تاخیر ایحاد کن مثلا 100 میلی ثانیه (خودت کم و زیاد کن ببین چه زمانی بهتره)
اگه دیدی بازم درست نشد بگو یه راه دیگه بگم .
(مثل همینه فقط یکم برنامه نویسیش فرق می کنه)

سلام
آقا درست نشد

[mehrdad_italy]

پاسخ : کمک برای نوشتن برنامه دکمه های ست تایم ساعت دیجیتال در بسکام

سلام
تغییرات ثابته ؟ مثلا هر دفعه که کلید رو فشار میدی موقعی که از 10 رد میشه میپره 17و24و37و56؟ یا فرق می کنه هر دفعه که کلید رو فشار میدی ؟
اگه می تونی شماتیکت رو هم بذار .

[gmaissam]

پاسخ : کمک برای نوشتن برنامه دکمه های ست تایم ساعت دیجیتال در بسکام

سلام
تغییرات ثابته ؟ مثلا هر دفعه که کلید رو فشار میدی موقعی که از 10 رد میشه میپره 17و24و37و56؟ یا فرق می کنه هر دفعه که کلید رو فشار میدی ؟
اگه می تونی شماتیکت رو هم بذار .

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

اشکال از یک خط برنامه بود که ننوشته بودم
تو عکس مشخصش کردم
http://upload.tehran98.com/img1/z4wo...cjx8e52fhb.png

[mehrdad_italy]

پاسخ : کمک برای نوشتن برنامه دکمه های ست تایم ساعت دیجیتال در بسکام

:applause:
یه سوال ؟ چجوری از برنامت عکس انداختی؟ با prnt scrn که فکر نکنم بشه ؟ دو تیکه انداختی بهم وصل کردی ؟

[gmaissam]

پاسخ : کمک برای نوشتن برنامه دکمه های ست تایم ساعت دیجیتال در بسکام

:applause:
یه سوال ؟ چجوری از برنامت عکس انداختی؟ با prnt scrn که فکر نکنم بشه ؟ دو تیکه انداختی بهم وصل کردی ؟

سلام
نه
ازبرنامه ایی بنامsnagitاستفاده میکنم
از هر مکانی میتونی باهاش عکس بندازی با فرمت های مختلف باهاش میشه فیلم آموزش هم تهیه کرد