روتين لpicbasic

[jojokatada]

مرحبا يمكن لأحد أن يساعدني في ترجمة روتين في التجمع المؤيد لpicbasic
أريد استخدام PIC16F877A والتدقيق في كل شيء من portb إذا كانت مرتفعة قليلا ثم بورتا المقابلة لتعيين عالية

هنا هو روتين التجميع

portb التدقيق

portb btfsc ، 0
بورتا قوات حرس الحدود ، 0
portb btfsc ، 1
بورتا قوات حرس الحدود (1)
portb btfsc ، 2
بورتا قوات حرس الحدود (2)
portb btfsc ، 3
بورتا قوات حرس الحدود ، 3

العودة

نقدر على أي شخص يمكن أن يساعد

 

[maneco]

سهل...
الحلقة :
TRISA = $ وما يليها 'المنفذ هو من المدخلات
TRISB = 0 'portb هو الإخراج
PORTB = بورتا
غوتو تتم فيهاوأضاف بعد 27 ثانية :سهل...

TRISA = $ وما يليها 'المنفذ هو من المدخلات
TRISB = 0 'portb هو الإخراج
الحلقة :
PORTB = بورتا
غوتو تتم فيها

 

[Guest]

[No message]

 

[jojokatada]

ولكن هذا لا نقدر على روتين لpicbasic المؤيدة وأريد أن تحقق كل دبوس الفردية لا الميناء بأكمله

 

[yo5oqa]

trisb = $ فرنك فرنسي
trisa = 0

portb التحقق :
إذا portb.0 = 1 = 1 ثم porta.0
إذا portb.1 = 1 ثم porta.1 = 1 ؛ الخ.
العودة

ولكن ليس لديها أي شعور ، وإذا portb.0 يعود الى '0' ، porta.0 لا يزال على '1'.

 

[jojokatada]

yo5oqa كتب :

trisb = $ فرنك فرنسي

trisa = 0portb التحقق :

إذا portb.0 = 1 = 1 ثم porta.0

إذا portb.1 = 1 ثم porta.1 = 1 ؛ الخ.

العودةولكن ليس لديها أي شعور ، وإذا portb.0 يعود الى '0' ، porta.0 لا يزال على '1'.

 

[yo5oqa]

اذا كان هناك امر واحد بعد 'ثم' ، وعلى نفس الخط ، فإنك لا تحتاج 'endif' ؛
...إذا كان لديك أكثر من واحد هو من هذا القبيل :
إذا portb.0 = 1 ثم
porta.0 = 1
portc.0 = 1
endif
إذا...ثم
...
...
endif ؛ الخ