16f84a ıf then komutları

[murat0601]

ıf then komutları ile nasıl yapabilirm bu devreyi

şöyle çalışcak

1.butona basınca 1.led yncak butonu açınca söncek digerleri de aynı

 

[silvestir]

Pek merakın yok gibi. Devre de hatalı zaten

 

[mtnknt]

devredeki 4 nolu pini 15 nolu pine bağla osc kısmı tamam 4 numaralı pin mclr reset kısmı onu da 10 k lık bir direç ile 5v ver direçden hemen sonra bir buton ile vss yaparsan reset işi görür.

bunu bi dene istersen


TRISB=0 'B PORTUNU ÇIKIŞ OLARAK AYARLADIK
TRISA=%11111 'A PORTUNU GİRİŞ OLARAK AYARLADIK
PORTB=0 'B PORTUNUN İÇERİĞİNİ TEMİZLEDİK


SYMBOL BUTON0=PORTA.0 'GİRİŞ PİNLERİNE BAĞLI BUTONLARIMIZI TANIMLADIK
SYMBOL BUTON1=PORTA.1
SYMBOL BUTON2=PORTA.2
SYMBOL BUTON3=PORTA.3


SYMBOL LED0=PORTB.0 'ÇIKIŞ PİNLERİMİZE BAĞLI LEDLERİ TANIMLADIK
SYMBOL LED1=PORTB.1
SYMBOL LED2=PORTB.2
SYMBOL LED3=PORTB.3
PAUSE 200


BASLA:
IF BUTON0=0 then 'SAYET BUTON0 A BASILMIS ISE
LED0=1 'LED0 YANSIN
ELSE 'BUTON0 A BASILMAMIS ISE
LED0=0 'LED0 SONSUN
ENDIF

IF BUTON1=0 then 'SAYET BUTON1 E BASILMIS ISE
LED1=1 'LED1 YANSIN
ELSE 'BUTON1 E BASILMAMIS ISE
LED1=0 'LED1 SONSUN
ENDIF

IF BUTON2=0 then 'SAYET BUTON2 YE BASILMIS ISE
LED2=1 'LED2 YANSIN
ELSE 'BUTON2 YE BASILMAMIS ISE
LED2=0 'LED2 SONSUN
ENDIF
IF BUTON3=0 then 'SAYET BUTON3 E BASILMIS ISE
LED3=1 'LED3 YANSIN
ELSE 'BUTON3 E BASILMAMIS ISE
LED3=0 'LED3 SONSUN
ENDIF
PAUSE 200
GOTO BASLA

 

[DroqBa]

osc bağlantısını ve mclr bağlantılarını kontrol et. gerçek tasarımda da ledler onune direnç at. ayrıca butonları pull-down / pull-up yap. daha iyi olur