basic de yazılması gereken bi program

[arsima]

merhaba arkadaşlar basic bimiyorum acaba rica etsem bana bu programı yazabilir misiniz basic de

pic 16F84A kullanılacak 4 mhz osilatör kristal

Devrede A0 ve A1 uçlarına bağlı 2 tane buton bulunmaktadır. A0 daki butona basıldığında B0 dan başlayıp B7 ye kadar olan ledlerin sürekli yanması sağlanmalıdır. A1 e bağlı butona basıldığında B portuna bağlı ledler sürekli yanıp sönmeye başlamalıdır.

ayrıca showlardan birisi aktif çalışırken diğerinin butonuna basılınca program değişebilmelidir

[izzethoca]

TRISB=%00000000
TRISA=%00000011
PORTA=0
PORTB=0
SAYI VAR BYTE
SAYI=0


BASLA:
IF PORTA.0=1 THEN SAYI=1
IF PORTA.1=1 THEN SAYI=2
IF SAYI=1 THEN PORTB=%11111111
IF SAYI=2 THEN
PORTB=%11111111
PAUSE 500
PORTB=%00000000
PAUSE 500
ENDIF

GOTO BASLA
END

[arsima]

byte tanımllaması yapıp oradaki veri ne olursa onun altında kalan programı çalıştırıyorsunuz zannedersem güzel düşünmüşsünüz teşekkürler

[arsima]

başka düşünceleri olanlar varsa paylaşırsa sevinirim

[ete]

İllaki değişik bir yöntem istiyor isen aşağıdadır.

TRISB=%00000000
TRISA=%00000011
PORTA=0
PORTB=0

BASLA:
IF PORTA.0=1 THEN  SUREKLI 
IF PORTA.1=1 THEN FLASH
GOTO BASLA

SUREKLI:
WHILE PORTA.1=0
PORTB=%11111111
WEND

FLASH:
WHILE PORTA.0=0
PORTB=%11111111
PAUSE 500
PORTB=%00000000
PAUSE 500
WEND
GOTO SUREKLI
END

[arsima]

TRISB=%00000000
TRISA=%00000011
PORTA=0
PORTB=0
SAYI VAR BYTE
SAYI=0


BASLA:
IF PORTA.0=1 THEN SAYI=1
IF PORTA.1=1 THEN SAYI=2
IF SAYI=1 THEN PORTB=%11111111
IF SAYI=2 THEN
PORTB=%11111111
PAUSE 500
PORTB=%00000000
PAUSE 500
ENDIF

GOTO BASLA
END

hocam yazdığınız bu program çalışıyor fakat butonlardan birisi aktif çalışırken diğer butona biraz basılı tutmamız gerekiyor yani hemen algılamıyor heralde denetlemeleri yukarda yaptığınız için yani pic içindeki program yukarıdaki denetleme if komutlarına gidene kadar biraz zaman geçiyor ete hocamızın yazdığı program daha kullanışlı heralde

[izzethoca]

ETE USTANIN FARKI OLACAK HERALDE   

SORUNUN ÇÖZÜLDÜYSE PROBLEM DEĞİL

[arsima]

çözüldü teşekkür ederim

[dej4vu]

şöle bi bakıyodumda basic c den daha kolay gibi ?_?

[muhittin_kaplan]

öyle bakmanıza gerek yok
Kolay zaten.