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

[ma12]

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

[محمد مومنی22]

پاسخ : برنامه نویسی بسکام

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

سلام
دوست عزیز چقدر وارد هستید؟

[sinaitg]

پاسخ : برنامه نویسی بسکام

ببینین دوست عزیزم ، باید یکم برنامه نویسی تو جلو ببری تا دوستان کمکت کنند ....
چیزی که شما میخوای خیلی خیلی ساده س ...
برنامه پایه رو بذارین تا باهم ردیفش کنیم ...
موفق باشی ..

[ma12]

پاسخ : برنامه نویسی بسکام

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

[zamanimahdi]

پاسخ : برنامه نویسی بسکام

http://www.eca.ir/forum2/index.php?topic=102119.0
استاد اسدی اموزش داده
اما اگه برنامه خودتو بزاری بیشتر بشه کمک کرد

[ma12]

پاسخ : برنامه نویسی بسکام

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

[sinaitg]

پاسخ : برنامه نویسی بسکام

ممنون که دست بکار شدی
اینجوریه که آدم پیشرفت میکنه ....
منتظر برنامه ت هستم . بذار تا با دوستان دیگه کاملش کنیم ....

[ma12]

پاسخ : برنامه نویسی بسکام

این یرنامه که نوشتم صفحه کیپد اسکن میکنه حالا چیکار کنم که وقتی عدد 5 از کی پد فشار میدم روی سگمنت عدد 5 نشون بده . اگه کسی میدونی این برنامه رو کامل کنه . ممنون
$regfile = "m16def.dat"
$crystal = 8000000
Config Porta = Output
Config Portc = Output
Config Kbd = Porta
Dim A As Byte
Do
M:
A = Getkbd()
If A = 16 Then
Goto M
End If
Loop
End

[sinaitg]

پاسخ : برنامه نویسی بسکام

خب اول از اعداد تک رقمی شروع کن ... باید یه جدول look UP تشکیل بدی و متناسب با هر عدد دریافتی از کیپد ، کد 7seg مربوط به اون رقم رو بریزی تو یه پورت ... و پین مشترک مربوط به سون سگمنتشو هم فعال کنی (اگه کاتد مشترکه باید بزنی به زمین مدارت و اگه آند مشترکه باید بزنی به + مدارت) در ضمن کدهای هگز سون سگمنت رو هم از جدول زیر انتخاب کن ...

[sinaitg]

پاسخ : برنامه نویسی بسکام

اگه بازم نخواستی از این روش اسفاده کنی برو سراغ 7447 یا 7448 که مبدل باینری به سون سگمنت هستن ...
اینجوری به راحتی میتونی بدون اینکه از کدهای سون سگمنت رد در بیاری ، فقط عدد باینری مربوط به عدد تک رقمی مد نظرت رو بریز رو پورت متصل به 7447 یا 7448 ....
این مرحله رو که راه افتادی باهم میریم سراغ اعداد چند رقمی .....
اگه مطالب بدردت میخورن تشکر رو فراموش نکن بزنی...
چطوره؟؟

[zamanimahdi]

پاسخ : برنامه نویسی بسکام

از http://www.eca.ir/forum2/index.php?topic=102119.0 استفاده کنی برات مهم نیست aوbو...رو به کدوم پین ها متصل میکنی فقط باید به نرم افزار بگی کد های هگز رو بهت تحویل میده

[sinaitg]

پاسخ : برنامه نویسی بسکام

:eek: :eek: :eek: :eek: :eek: :eek: :eek: :eek: :eek: :eek: :eek: :eek: :eek: :eek:
فرقی نمیکنه a, b و ... به کدوم پینها بزنی؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
جل الخالق......

[zamanimahdi]

پاسخ : برنامه نویسی بسکام

منظورم ترتیبشون یعنی aرو بده به بیت 2, cرو بده به بیت 7 بعد به نرمف افزار بگو خودش کد های هگز رو برات میسازه برای مدارچاپی ساختن واقعا ادم رو راحت میکنه
نمیشه؟؟؟

[ma12]

پاسخ : برنامه نویسی بسکام

مشکل من اینجاست که وقتی مثلا کلید 4 از کی پد فشرده میشه چه کدی توسط کی پد تولید میشه؟ایا این کد طبق برنامه ای که گذاشتم داخل متغیر a ریخته میشه؟
کی پد من 3*4

[sinaitg]

پاسخ : برنامه نویسی بسکام

اگه منظورت اینه ، آره ... درسته ... ولی الان بحث سر چیز دیگه ای بود ....
ببین با فشردن عدد 4 از روی صفحه کلید ، عدد مربوط به خودش رو تولید میکنه (که الزاما 4 نیست!) شما باید با جدول LOOK UP کد سون سگمنت مربوط به عدد 4 رو بریزی تو پورت B .... اینم یه تیکه برنامه برای کاتد مشترک :
[code=qbasic]Main:
B = Getkbd()
If B = 16 Then Gosub Main
Portb = Lookup(b , Sina)
Reset Portb
Loop
End
Sina:
Data &H3F , &H06 , &H5B , &H4F , &H66 , &H6D , &H7D , &H07 , &H7F , &H6F
[/code]

که در این کد ، در جدول لوک پ ، کدهای هگز نوشته شده ، به ترتیب از 0 شروع میشوند تا 9