program yardım

Başlatan styx75, 22 Mart 2013, 10:05:16

styx75

arkadaşlar selam
şimdi benim yapmak istedigim tek butonumuz var .butona her basışta bportunun bitleri sırası ile 1 olacak ama diğer bitler ise 0 ra dönecek,bu işlemin pratik programlama tekniği nasıldır acaba, bportuna sayımı atamak gerekir evet ise nasıl yapamak doğru olur.
bu arada arkadaşlar sorularım biraz basit olabilir ,,benim elbette bunlarla ilgili fikirlerim var ama doğrusunu öğrenmek gerekli.
saygılarımla

sinancnc

sıra değişken atanabilir ve her satır atlandığında bir sonraki değişkene yönlendirilebilir.

Paylaşmayı seven insan toprak olup gitmez. Bir şeyler bırakır...!

styx75

örnekleyebilirsen çok sevinirim
saygılar

sinancnc

ATAMA        VAR     BYTE[4]
m      VAR     BYTE
ATAMA[0]= %00000001
ATAMA[1]= %00000010
ATAMA[2]= %00000100
ATAMA[3]= %00001000
ATAMA[4]= %00001000

sinan:

PORTb = ATAMA[m]
pause 500

m=m+1
goto sinan
Paylaşmayı seven insan toprak olup gitmez. Bir şeyler bırakır...!

İlyas KAYA

Aleykumselam sayın styx75.


Sıra ile led yakmak için en kestirme yol bit kaydırmadır.
aşağıdaki kod her 1 sn de 1 bit kaydırır yani portb ye bağlı ledler sırası ile yanar.

Kolay gelsin.



BAS:
PAUSE 1000
PORTB=PORTB<<1
IF PORTB=0 THEN PORTB=1

GOTO BAS
Göz odur ki dağ ardını görsün,
Akıl odur ki başa geleceği bilsin.!

styx75

arkadaşlar teşekkür ederim ama benim sordugum tek bir tuşa  her basışta bu olayın gerçekleşmesi
ayrıca biraz önce sipariş verdiğim alıcı verici rf modülü daha öncedn yaptıgım seri haberleşen bir devreye bağladım ama çalıştıramadım rf modüllerle ilgili püf noktaları nelerdir acaba
saygılar

İlyas KAYA

#6
sayın styx75;

A.0 BUTON GİRİŞİ (PULL UP)


TRISA.0=1
TRISB=%00000000

BUTONKES VAR BYTE
CLEAR

BAS:

PAUSE 100

IF PORTA.0=0 AND BUTONKES=0 THEN

PORTB=PORTB<<1
IF PORTB=0 THEN PORTB=1

BUTONKES=1

ENDIF


IF PORTA.0=1 THEN BUTONKES=0

GOTO BAS
Göz odur ki dağ ardını görsün,
Akıl odur ki başa geleceği bilsin.!

styx75

SAYIN KAYATECH
çok teşekkür ederim size ve diğer arkadaşlarada
aradıgımın tam karşılıgı.

Powered by EzPortal