bir tusa birden çok komut atamak

Başlatan ywzslm, 09 Eylül 2008, 01:58:35

707yunus

yeniden:
portb=0
basla:
if (portb=0 && tus=1) then portb=%00001111 'tuşa basılırsa portbye yazılı değeri aktar
while(tus=1) wend 'tuş bırakıana kadar bekle
if (portb=%00001111 && tus=1) then portb=%00001010'tuşa basılırsa portbye yazılı değeri ata
while (tus=1) wend 'tus bırakılana kadar bekle
if (portb=%00001010 && tus=1) then
portb=%00001100
while(tus=1) wend 'hala basılı ise bekle
goto yeniden 'son yere geldin tekrar başlaman için yeniden e gitmelisin
endif

goto basla



&& komutu iki şart aynı anda sağlandımı gibi bir sonuç arar.mesela diyelimki bir programda iki tuşa aynı anda basılmadan komutlar işlenmesin aşağıda küçük bir örek vereyim

tus1 var porta.1
tus2 var porta.2

basla:
if (tus1=1 && tus2=1) then
' buradaki komutları işle
endif

goto basla

bu programda iki tuşa birlikte basılmadan kesinlikle if bloğundaki komutlar işlenmez