gmaissam

این برنامه ای که نوشتم لطف کنید واشکالاتشو بهم بگید ..فایل برنامه رو هم میزارم $regfile = "m32def.dat" $crystal = 11059200 $lib "ds1307clock.lib" '------------------------ 7segment ----------------------------------------------- Config Portb = Output Config Portc.2 = Output Config Portc.3 = Output Config Portc.4 = Output Config Portc.5 = Output '------------------------ ds 1307 ----------------------------------------- 'configure the scl and sda pins Config Sda = Portc.1 Config Scl = Portc.0 'address of ds1307 Const Ds1307w = &HD0 ' Addresses of Ds1307 clock Const Ds1307r = &HD1 Dim I As Byte Dim Seco As Byte , Sec1 As Byte , Sec2 As Byte , Sec3 As Byte Dim Mine As Byte Dim Mine1 As Byte Dim Mine2 As Byte Dim M As Byte Dim *** As Byte Seco = 1 Gosub Ds1307s Gosub Ds1307m Do For I = 0 To 3 If I = 0 Then Portc.3 = 1 Portc.2 = 0 Portb = Lookup(sec2 , 7seg) End If If I = 1 Then Portc.2 = 1 Portc.3 = 0 Portb = Lookup(sec3 , 7seg) End If If I = 2 Then Portc.4 = 0 Portc.5 = 1 Portb = Lookup(mine1 , 7seg) End If If I = 3 Then Portc.5 = 0 Portc.4 = 1 Portb = Lookup(mine2 , 7seg) End If Gosub Ds1307 If Seco > 59 Then Seco = 0 Seco = Makedec(seco) Sec2 = Seco / 10 Sec3 = Seco Mod 10 If Mine > 59 Then Mine = 0 Mine = Makedec(mine) Mine1 = Mine / 10 Mine2 = Mine Mod 10 Loop Ds1307: I2cstart ' Generate start code I2cwbyte Ds1307w ' send address I2cwbyte 0 ' start address in 1307 I2cstart ' Generate start code I2cwbyte Ds1307r ' send address I2crbyte Seco , ack I2crbyte Mine , Ack 'sec I2cstop Return Ds1307s: If Seco > 59 Then Seco = 0 Seco = Makebcd(seco) I2cstart ' Generate start code I2cwbyte Ds1307w ' send address I2cwbyte 0 ' starting address in 1307 I2cwbyte Seco I2cstop Return Ds1307m: If Mine > 59 Then Mine = 0 Mine = Makebcd(mine) I2cstart ' Generate start code I2cwbyte Ds1307w ' send address I2cwbyte 0 ' starting address in 1307 I2cwbyte Mine I2cstop Return End 7seg: Data &H3F , &H06 , &H5B , &H4F , &H66 , &H6D , &H7D , &H07 , &H7F , &H6F

سلام چطور میتونم 6تا سون سگمنت کاتد مشترک کوچک رو برنامه نویسی رفرش کنم این سگمنتها با ایسی7448 به میکرو اتصال دارنن درواقع 4پایه یک پورت اشغال میشه ،،منها برنامه نویسیشو بلد نیستم کسی میتونه کمک کنه؟؟؟ این میکرو ساعت دیجیتال با کمک 1307 هست

سلام حال واحوال شما دست شما درد نکنه زدید وسط خال تمام این اشکال ودردسرش مربوط به این عباارت بود _

آخه تو این مشکلو تو پروتئوس دارم درحالی که پول آپ کردم ببینید:::::

برای تنظیمات،الان نوشتم با کمک یکی از دوستان با این حال موقع تنظیم دقیقه،تا 10 منظم میشه زیادش کرد ولی از 10میپره 17و24و37و56 درمورد تنظیم ساعت هم تا10 خوبه ولی از 10میپره 17 وصفر مشه اشکالش چی میتونه باشه اینم برنامه اپدیت شده::::: $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 Gosub Tanzimat _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 Tanzimat: Debounce Pinb.5 , 0 , Mine , Sub Debounce Pinb.7 , 0 , Hour , Sub Return Mine: Incr _min If _min > 59 Then _min = 0 _min = Makebcd(_min) I2cstart I2cwbyte Ds1307w I2cwbyte 1 I2cwbyte _min I2cstop Return Hour: Incr _hour If _hour > 23 Then _hour = 0 _hour = Makebcd(_hour) I2cstart I2cwbyte Ds1307w I2cwbyte 2 I2cwbyte _hour I2cstop Return End

سلام چرا؟بد نوشتم؟ چندتا پروژه دیگه رو آنالیز کردم....تابالاخره نوشتمش البته با کلی دردسرو آزمون وخطا ولی تو برنامه ست تایمش موندم جور نمشه شما میتونی یه حالی بهش بدی؟

کسی نیست تو برنامه نویسی دکمه های ست تایم راهنماییم کنه

اینم برنامه ای که نوشتم..فکرکنم خالی از اشکال نباشه باید بهش کلید اضافه کنم $regfile = "m32def.dat" $crystal = 4000000 $hwstack = 40 $swstack = 16 $framesize = 32 $lib "ds1307clock.lib" Const Ds1307w = &HD0 Const Ds1307r = &HD1 Config Porta = Output Config Portd = Output Config Portc = 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

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

خدا خیرت بده!!!!روحم آزاد شد:hapydancsmil:ممنون وقت گذاشتی

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

خیر کوروش عزیز نیازی نیست

دیگه از اینجا به بعد زحمت شمارو می طلبه...پوزش

دوست عزیز 1307 رو هم معرفیش کردم

سلام حال شما خوبه؟ انجام دادم