سوالهای برنامه نویسی با کامپایلر BASCOM

[EBKA]

برای جدول lookup این درسته!!!!؟؟؟

کد:

do
  '  B = Lookup(b , Ebi)
' Portc = B
  'Incr B
  'If B > 2 Then : B = 0 : End If
  'Waitms 500
loop
ebi:
data &B1111100 , &B0001111 , &B001100

[t3r!p3000]

درسته ! البته اگه ' رو برداری !!!
فقط حواست باشه جدول لوک اپ از صفر شروع میشه !!! ( که البته شما رعایت کردی )

[EBKA]

کد:

data 2&B1111100 , 1&B0001111 ,0 &B001100

این جوریه...
صفر اخره و به ترتیب برمیگرده

[t3r!p3000]

نه !
از صفر شروع میشه !!!!

[EBKA]

کد:

Ebi:
    Data &B000100 , &B000010 , &B000001

این جوریه...
صفر اخره و به ترتیب برمیگرده

من میخوام اول ال ای دی اول روشن بشه بعد بعدی و دوباره از اول

[t3r!p3000]

از یکی از این دوتا استفاده کن ! ( مثل همن )

کد php:

Data &B00000001 , &B00000010 , &B00000100 , &b00001000 


کد php:

Data 1 , 2 , 4 , 8 


[EBKA]

از یکی از این دوتا استفاده کن ! ( مثل همن )

کد php:

Data &B00000001 , &B00000010 , &B00000100 , &b00001000 


کد php:

Data 1 , 2 , 4 , 8 


چه جوری مثل همند؟؟؟؟؟
مثلا برای سون سگمنت که بخوام جدول lookup بزارم چه جوری میشه...

---

فرض کن پورت c تو مگا 32 خروجی

کد:

b=&b0000001

یک الان بیت کم ارزشه .
واسه پایه c.0 هست یا c.6?????

[t3r!p3000]

مهندس عدد 00000001 تو مبنای دو میشه همون عدد 1 خودمون !
00000010 میشه عدد 2 دسیمال
و ....

پس از سمت راست کم ارزش ترن !!
تو اکزمپل شما میشه c.0

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

کد php:

Digits:
Data 63 , 6 , 91 , 79 , 102 , 109 , 125 , 7 , 127 , 111 , 64 , 128 , 56 , 70 , 00
'     0    1   2    3    4     5     6     7   8     9     -    dp    L    + 


[EBKA]

مهندس عدد 00000001 تو مبنای دو میشه همون عدد 1 خودمون !
00000010 میشه عدد 2 دسیمال
و ....

پس از سمت راست کم ارزش ترن !!
تو اکزمپل شما میشه c.0

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

کد php:

Digits:
Data 63 , 6 , 91 , 79 , 102 , 109 , 125 , 7 , 127 , 111 , 64 , 128 , 56 , 70 , 00
' 0 1 2 3 4 5 6 7 8 9 - dp L + 


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

کد:

Portc = 63
    Waitms S
    Portc = 6
    Waitms S
    Portc = 91
    Waitms S
    Portc = 79
    Waitms S
    Portc = 102
    Waitms S
    Portc = 109
    Waitms S
    Portc = 125
    Waitms S
    Portc = 7
    Waitms S
    Portc = 127
    Waitms S
    Portc = 111
    Waitms S

نشون میده...
یه سوال توی پرتئوس من برای سون سگمنتاش اون سگمنت وسط رو روشن نمیکنه...
طریقه برنامه نویسی جدول lookup روبهم میگی...
ممنونم علی جان..

[t3r!p3000]

عدد 63 رو از مبنای ده به مبنای دو تبدیل کنی میفهمی !!!



من که ایرادی نمیبینم !

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

کد php:

$regfile = "m8def.dat" : $crystal = 1000000

Ddrd = 255

Dim B As Byte 

Do
   For B = 0 To 9
      Portd = Lookup(b , Ant)
      Wait 1
   Next
Loop


Ant:
Data 63 , 6 , 91 , 79 , 102 , 109 , 125 , 7 , 127 , 111 


این فایل برنامه و تست پروتئوس :

[EBKA]

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

کد:

a=lookup(a,ebi)
portc=a

بجای اینکه a رو مساوی جدول lookup بزارم باید خوده پورت رو میزاشتم.

کد:

portc=lookup(a,ebi)

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