نمایش باینری ورودی روی ال سی دی

[ariaericson]

با سلام
برای یک پروژه کنترل استپ موتور میخام با استفاده از دیپ سوییچ 8تایی به یکی از پورت های میکرو ورودی بدم که مقدار باینری اون رو روی السی دی نشون بده هم بتونم اونو توی بسکام تبدیل به عدد هگز کنم خط دوم نمایش بدم
پورت رو هم ورودی معرفی میکنم و یک متغیر از نوع بایت تعریف میکنم
اما فعلا فقط صفر برمیگردونه و با تعویض سوییچ ها تغیر نمیکنه
از چه دستوری باید استفاده کنم

[saeiddiod]

پاسخ : کمک. نمایش باینری ورودی روی ال سی دی

بیسیک بلد نیستم ولی با C اینطوریه
A=PINA
مقدار متغیر باید همواره با مقدار پورت مورد نظرت مقایسه بشه تا در صورت تغییر مقدار اون روی lcd نمایش داده بشه در غیر اینصورت مقدار متغیر همیشه برابر با صفره.

[ariaericson]

پاسخ : کمک. نمایش باینری ورودی روی ال سی دی

تشکر درست حرفتون اما توی بسکام که این کارو کردم فقط صفر رو نشون میده
و اینکه اگه بخوام به صورت باینری به میکرو ورودی بدم باید چجور بنویسم که متغیر ها رو بصورت بایت بشناسه
من اینجور نوشتم اما جواب نداد
a=portc.1
b=portc.2
c=portc3
.
.
.

locate 1,1
lcd a,b,c....,h
اما نمیتونم روی ال سی دی به صورت باینری ببینم و فقط صفر نمایش میده

[ariaericson]

پاسخ : کمک. نمایش باینری ورودی روی ال سی دی

خب مشکل کار نکردن پورت ورودی مشخص شد چون از portc,1
استفاده میکردم نمیتونست نشون بده
الان با دستورpinc.1 درست شد و روی ال سی دی نشون میده اما چطور باید 8 بیت رو به یه رشته باینری تبدیل کرد
با دستور شرطی فقط یه بیت رو میشه خوند اما من نیار به دستوری دارم که 8 بیت رو بخونه و عدد باینری متناظر اون رو بریزه توی یه متغیر

[ariaericson]

پاسخ : نمایش باینری ورودی روی ال سی دی

یافتم خودم
با اینکه از بسکام راضیم اما این دفعه خیلی مسخره بود
مینویسم کسی شاید بکارش بیاد
من باید بجای a=portb
می نوشتم a=pinb تا دیتا رو بخونه از ورودی های پورت بی
الان هم مث بنز کار میکنه فقط کسی میتونه بیشتر توضیح بده چرا بجای پورت بسکام پین رو قبول کرده بدون دادن شماره پایه؟ اخه من همیشه فکر میکردم استفاده از پین فقط برای یک پایه هسا و نمیشه باش 8 بیت پایه هارو خوند

$regfile = "m16def.dat"
$crystal = 8000000



Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , _
Db6 = Portd.4 , Db7 = Portd.5 , E = Portd.0 , Rs = Portd.1
Cursor Off
'-----------------------------------------------------

Config Portb = Input


Dim A As Word


Do


 A = Pinb

 Locate 1 , 1
 Lcd A

 Loop
End

[alizard]

پاسخ : نمایش باینری ورودی روی ال سی دی

سلام
یه نگاه هم به این جا بیاندازید
http://www.eca.ir/forum2/index.php?topic=32045.0

[saeiddiod]

پاسخ : نمایش باینری ورودی روی ال سی دی

$regfile = "m16def.dat"
$crystal = 8000000



Config Lcdpin = Pin , Db4 = Portd.2 , Db5 = Portd.3 , _
Db6 = Portd.4 , Db7 = Portd.5 , E = Portd.0 , Rs = Portd.1
Cursor Off
'-----------------------------------------------------

Config Portb = Input


Dim A As Word


Do


 A = Pinb

 Locate 1 , 1
 Lcd A

 Loop
End

شما میتونی مقدار یه پورت 8بیتی رو تو متغیر 8بیتی بریزی.مشکلی نیست ولی اون برنامه ای که نوشتی مقداره ورودی رو بصورت باینری نشون میده؟؟مطمئنی؟؟

[DDR3]

پاسخ : نمایش باینری ورودی روی ال سی دی

عزیز جان شرمنده ها ، اما
چه طوری بسکام کار کردی و از این دستور اطلاع نداشتی !
دستور خوندن PIN هست همیشه و اگر پایه رو مشخص نکنی پورت رو میخونه

با اینکه از بسکام راضیم اما این دفعه خیلی مسخره بود