سلام.
سوالی که می خوام بپرسم ساده بنظر میاد ولی همین کلی از وقت من و گرفته
.ممنون میشم اگه کسی جواب منو بده.
من برنامه شمارنده که در کتاب اقای کاهه برای سون سگمت 3 تایی بود با پروتوس امتحان کردم ولی جواب نداد البته خود کتاب اشکال داشت یعنی در قسمت توضیحات نوشته بود سون سگمنت کاتد مشترک ولی برنامه برای آند مشترک نوشته شده با این حال من برنامه را تغییر دادم و در آخر جواب می داد ولی روی سون سگمنت ها عدد درست و حسابی نشون داده نمی شد .این شد که یه برنامه ساده برای یه سون سگمنت 3 تایی کاتد مشترک نوشتم که عدد 122 را نشون بده ،جواب میده ولی بازم اعداد رو بد نشون میده.نمیدونم اشکال از کجاست وهر چی زمان ها رو تغییر میدم باز هم همون طوریه. برنامه و فایل پروتوس رو براتون میذارم.http://electrokit.parsaspace.com/count.zip
سوالی که می خوام بپرسم ساده بنظر میاد ولی همین کلی از وقت من و گرفته
.ممنون میشم اگه کسی جواب منو بده.من برنامه شمارنده که در کتاب اقای کاهه برای سون سگمت 3 تایی بود با پروتوس امتحان کردم ولی جواب نداد البته خود کتاب اشکال داشت یعنی در قسمت توضیحات نوشته بود سون سگمنت کاتد مشترک ولی برنامه برای آند مشترک نوشته شده با این حال من برنامه را تغییر دادم و در آخر جواب می داد ولی روی سون سگمنت ها عدد درست و حسابی نشون داده نمی شد .این شد که یه برنامه ساده برای یه سون سگمنت 3 تایی کاتد مشترک نوشتم که عدد 122 را نشون بده ،جواب میده ولی بازم اعداد رو بد نشون میده.نمیدونم اشکال از کجاست وهر چی زمان ها رو تغییر میدم باز هم همون طوریه. برنامه و فایل پروتوس رو براتون میذارم.http://electrokit.parsaspace.com/count.zip
کد:
$regfile = "m32def.dat" $crystal = 8000000 Dim A As Byte Dim B As Byte '150hz timer freq Config Porta = Output Config Portc = Output Do Sadgan: Portc.5 = 0 : Portc.6 = 1 : Portc.7 = 1 'select sadgan 7seg B = Lookup(1 , Number) Porta = B Waitms 5 Dahgan: Portc.5 = 1 : Portc.6 = 0 : Portc.7 = 1 'select dahgan 7seg B = Lookup(2 , Number) Porta = B Waitms 5 Yekan: Portc.6 = 1 : Portc.5 = 1 : Portc.7 = 0 'select yekan 7seg B = Lookup(2 , Number) Porta = B Waitms 5 Loop Number: Data &B1111110 , &B0110000 , &B1101101 , &B1111001 , &B0110011 , &B1011011 , &B1011111 , &B1110000 , &B1111111 , &B1111011
دیدگاه